topic-8676

Board index FiveWin para Harbour/xHarbour Problemas con RadioButtons

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Problemas con RadioButtons
Posted: Wed Oct 31, 2007 01:26 PM

Hola a todos,

Estoy intentando definir un grupo de RadioButtons pero cuando ejecuto mi programa están los dos Radios seleccionados.
Como puedo hacer para que solo esté uno solo seleccionado y el otro no.
Cuando selecciono uno el otro debe estar .f. y viceversa.

Lo estoy haciendo así:

Code: Select all Collapse

DEFINE DIALOG oDlg RESOURCE "CEM44_LIQ_FEC" OF oWnd ICON "ICONO_PPAL";
   TITLE "Por favor, seleccione"

   REDEFINE BTNBMP Btn1 ID 200 OF oDlg RESOURCE "ACEPTAR" LEFT;
      ACTION IfImp:=.t., oDlg:End();
      TOOLTIP "Aceptar";
      PROMPT "Aceptar"

   REDEFINE BTNBMP Btn2 ID 201 OF oDlg RESOURCE "CANCELAR" LEFT;
      ACTION  oDlg:End(),L:=0;
      TOOLTIP "Cancelar y salir";
      PROMPT "Cancelar"

   REDEFINE RADIO oTur VAR vTur    ID 100 OF oDlg ON CLICK (Tipo1:="T") UPDATE
   REDEFINE RADIO oTot VAR vTot    ID 101 OF oDlg ON CLICK (Tipo1:="O") UPDATE
   REDEFINE GET oFech1 VAR vFech1  ID 102 OF oDlg PICTURE "@D" VALID(!EMPTY(vFech1))
   REDEFINE GET oFech2 VAR vFech2  ID 103 OF oDlg PICTURE "@D" VALID(vFech2>vFech1)

ACTIVATE DIALOG oDlg CENTERED

Probé poniendo en el workshop los Radio como "Auto Radio Button"
Pero no funciona correctamente.
El problema es cuando se abre el diálogo los dos Radio Buttons estan en .t.

Desde ya muchas gracias.
Saludos, Esteban

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Amigo...
Posted: Wed Oct 31, 2007 01:46 PM

Amigo creo que estan mal definidos los radio button, ya que minimo deben de tener dos opciones para que funcionen:

Code: Select all Collapse

DEFINE DIALOG oDlg RESOURCE "CEM44_LIQ_FEC" OF oWnd ICON "ICONO_PPAL"; 
   TITLE "Por favor, seleccione" 

   REDEFINE BTNBMP Btn1 ID 200 OF oDlg RESOURCE "ACEPTAR" LEFT; 
      ACTION IfImp:=.t., oDlg:End(); 
      TOOLTIP "Aceptar"; 
      PROMPT "Aceptar" 

   REDEFINE BTNBMP Btn2 ID 201 OF oDlg RESOURCE "CANCELAR" LEFT; 
      ACTION  oDlg:End(),L:=0; 
      TOOLTIP "Cancelar y salir"; 
      PROMPT "Cancelar" 

   REDEFINE RADIO oTur VAR vTur    ID 100,105 OF oDlg ON CLICK (Tipo1:="T") UPDATE 
   REDEFINE RADIO oTot VAR vTot    ID 101,106 OF oDlg ON CLICK (Tipo1:="O") UPDATE 
   REDEFINE GET oFech1 VAR vFech1  ID 102 OF oDlg PICTURE "@D" VALID(!EMPTY(vFech1)) 
   REDEFINE GET oFech2 VAR vFech2  ID 103 OF oDlg PICTURE "@D" VALID(vFech2>vFech1) 

ACTIVATE DIALOG oDlg CENTERED

Espero te sirva

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Problemas con RadioButtons
Posted: Wed Oct 31, 2007 01:59 PM

Creo que tendrias que poner algo asi

Code: Select all Collapse

DEFINE DIALOG oDlg RESOURCE "CEM44_LIQ_FEC" OF oWnd ICON "ICONO_PPAL"; 
   TITLE "Por favor, seleccione" 

   REDEFINE BTNBMP Btn1 ID 200 OF oDlg RESOURCE "ACEPTAR" LEFT; 
      ACTION IfImp:=.t., oDlg:End(); 
      TOOLTIP "Aceptar"; 
      PROMPT "Aceptar" 

   REDEFINE BTNBMP Btn2 ID 201 OF oDlg RESOURCE "CANCELAR" LEFT; 
      ACTION  oDlg:End(),L:=0; 
      TOOLTIP "Cancelar y salir"; 
      PROMPT "Cancelar" 

   REDEFINE RADIO oTur VAR vTur    ID 100,101 OF oDlg ON CLICK IF(vTur,Tipo1:="T",Tipo1:="O") UPDATE 
   REDEFINE GET oFech1 VAR vFech1  ID 102 OF oDlg PICTURE "@D" VALID(!EMPTY(vFech1)) 
   REDEFINE GET oFech2 VAR vFech2  ID 103 OF oDlg PICTURE "@D" VALID(vFech2>vFech1) 

ACTIVATE DIALOG oDlg CENTERED

Espero que te sirva el ejemplo

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Problemas con RadioButtons
Posted: Wed Oct 31, 2007 02:21 PM

Gracias a todos por su ayuda.

Ya he logrado solucionarlo con una combinación de las dos ayudas.
Hice como dice "cmsoft" pero con la unica diferencia que con el condicional tiraba un error. Solo le saque el condiconal y funcionó perfecto.

Quedó así:

Code: Select all Collapse

   REDEFINE RADIO oTur VAR vTur    ID 100,101 OF oDlg;
      ON CLICK Tipo1:="T",Tipo1:="O" UPDATE

Gracias a todos por su ayuda.
Saludos, Esteban

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

FiveTech Support Forums

Continue the discussion