topic-40505

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Problema con RADIO buttons
Posted: Tue Jun 08, 2021 07:30 PM

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 (fw): Select all Collapse

         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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Problema con RADIO buttons
Posted: Tue Jun 08, 2021 10:19 PM

Hola Armando. Prueba asi:

Code (fw): Select all Collapse

       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"

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problema con RADIO buttons
Posted: Tue Jun 08, 2021 10:27 PM

Francisco:

Grande maestro.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Problema con RADIO buttons
Posted: Wed Jun 09, 2021 12:36 AM

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

Code (fw): Select all Collapse

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problema con RADIO buttons
Posted: Wed Jun 09, 2021 12:47 AM

Francisco:

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problema con RADIO buttons
Posted: Wed Jun 09, 2021 01:13 AM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Problema con RADIO buttons
Posted: Wed Jun 09, 2021 01:25 AM

Armando wrote: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 (fw): Select all Collapse

//---------------------------------------//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.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

cmsoft

Posts: 1344