Problema con RADIO buttons

[Armando]

Saludos al foro:

En un grupo de RADIO buttons cuando se muestra el dialogo para elegir
uno de los radio buttons el primero se muestra activo, como si ya hubiera
sido elegido (punto negro en el centro), hay forma de que no se muestre
el punto negro hasta que se elija un radio button del grupo.

Mi código

Code: Select all  Expand view  RUN

         oD02:ETNIAS := 0
         …….
         …….
         …….

         REDEFINE RADIO aGets01[011] VAR oD02:ETNIAS ID 115,116,117,118,119 OF oFld:aDialogs[01] UPDATE;
            MESSAGE "Etnia del sujeto"

 

El radio button 115 se muestra con el punto negro en el centro

Saludos y gracias por el apoyo

[FranciscoA]

Hola Armando. Prueba asi:

Code: Select all  Expand view  RUN

      oD02:ETNIAS := 6    // <--- asi...
         …….
         …….
         …….
         REDEFINE RADIO aGets01[011] VAR oD02:ETNIAS ID 115,116,117,118,119 OF oFld:aDialogs[01] UPDATE;
            MESSAGE "Etnia del sujeto"
 

[Armando]

Francisco:

Grande maestro.

Saludos

[FranciscoA]

Me alegra mucho que te haya servido.
Tambien puedes asi:

Code: Select all  Expand view  RUN

REDEFINE RADIO oRadio VAR nRadio ID 101,102,103,104,105 OF oDlg
------
ACTIVATE DIALOG oDlg CENTERED ON INIT oRadio:aItems[nRadio]:UnCheck()

[Armando]

Francisco:

Creo que esta segunda opción me va a servir más.

Saludos

[Armando]

Francisco Y foro:

Te cuento, en el ON INIT de la ventana estoy metiendo un msginfo() para que me muestre
al valor del primer RADIO y me muestra 1 a pesar de que lo inicializo con cero.

Supongo que la clase le mete 1 por default. y yo de clases solo las de solfeo

Saludos

[FranciscoA]

Francisco Y foro:

Supongo que la clase le mete 1 por default. y yo de clases solo las de solfeo

Saludos

Es correcto, Armando.
Si querés usar el primer ejemplo, nRadio debe ser mayor que la cantidad de IDs.
En el segundo, debés especificar el numero de ID correspondiente.

Mira este codigo ejemplo que construí:

Code: Select all  Expand view  RUN

//---------------------------------------//INICIAR RADIO SIN NINGUNA SELECCION
Function RadioSinSelec()
local oDlg, oBt1, oBt2, oRadio, nRadio := 3  //puede ser 1,2,3,4 o 5

DEFINE DIALOG oDlg RESOURCE "TESTRADIO" TRANSPARENT

REDEFINE RADIO oRadio VAR nRadio ID 101,102,103,104,105 OF oDlg

REDEFINE BUTTONBMP oBt1 ID 312 OF oDlg PROMPT "Deseleceionar "  TEXTRIGHT  ACTION oRadio:aItems[nRadio]:UnCheck()
REDEFINE BUTTONBMP oBt2 ID 313 OF oDlg PROMPT "Salir   "        TEXTRIGHT  ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED ON INIT oRadio:aItems[nRadio]:UnCheck()

Return nil
 

Saludos.

[cmsoft]

Francisco:
Excelente tu aporte...

[FranciscoA]

Gracias, César.

Yo también he encontrado muchas soluciones gracias a tus excelentes ejemplos.

Saludos.