Radio y Brush

[rolando]

Buenas tardes,

Tengo un dialog al que le cambio el fondo (brush) durante la ejecución de la aplicación.

Con los say no tengo problema porque hago oSay:setbrush(oBrush1).

El problema lo tengo con un RadioButton al cual no se le puede hacer oRadio:setbrush(oBrush1) porque da error.

Más abajo una captura de pantalla en la que se ve lo antes expuesto.

Mi consulta es: ¿Se puede hacer que el Radio tome el brush del dialog que fue cambiado durante la ejecución de la aplicación?.

Gracias.

Rolando



Uploaded with ImageShack.us

[carlos vargas]

oRadio:aItems[1]:Refresh()

[rolando]

Carlos,

Gracias por responder.

Lo que me indicas no hace ninguna diferencia, sigue saliendo el brush anterior (ya había probado con el refresh()).

Lo que sí me faltó indicar es que uso el radio desde recursos en una DLL.

¿Otra idea?. Gracias.

Rolando

[karinha]

// Intenta asi,


STATIC nOpcaoRadio := 1 //-> Op‡Æo do Radio da Pesquisa

Code: Select all  Expand view

FUNCTION AGENDTEL( DeOndeVem )

   LOCAL oBrush

   //DEFINE BRUSH oBrush  COLOR 14671839  // gris claro
   //DEFINE BRUSH oBrush  COLOR nRGB(224, 255, 255)
   DEFINE BRUSH oBrush    RESOURCE "LOGO2" //-> ARCHIVO.RES(LOGO.BMP)

   DEFINE DIALOG oDlg RESOURCE "DLG_AGENDA_TELEFONICA"                 ;
          TITLE cTitleDial + " :: Hoje:  " + DTOC( Date() )            ;
          BRUSH oBrush TRANSPARENT

   oDlg:lHelpIcon := .F.

   REDEFINE RADIO oRadMenu VAR nOpcaoRadio  ID 201, 202, 203, 204 OF oDlg ;
            ON CHANGE( TROCA_INDICE( nOpcaoRadio, cAlias, oLbx ),      ;
                       oLbx:GoTop(), oLbx:Refresh(), oLbx:SetFocus() )

 



[rolando]

Karinha,

Gracias por responder, pero no tengo problema con el uso del radio, el problema es que cambio el brush del dialog durante la ejecución de la aplicación y el radio sigue tomando el brush anterior del dialog.

Rolando

[karinha]

Com estás haciendo? Muestra el código fuente.

salu2

[rolando]

El código simplificado que uso es así:

Code: Select all  Expand view

define dialog oDlg resource "edito_reparaciones" of oWnd;
                  brush (if(lReciclado,oBrush10,oBrush20)) transparent
                 
                 
redefine buttonbmp oBtnReciclado ;                      // deshacer cambios en los get
            id 4088 OF oDlg ;
            action ( ModificoScrap(@lReciclado,aDatosScrap,@cStatusScrap),;
                            (cTrabajos)->RECICLADO:=(if(lReciclado,.t.,.f.)) ,;
                            (cTrabajos)->STATUS:=(if(lReciclado,"A SCRAP",cStatusScrap)) ,;
                            cStatus:=(if(lReciclado,"A SCRAP",cStatusScrap)), oStatus:refresh() ) ,;
                    ( if(!lReciclado,;
                    (oDlg:cTitle:=cTitulo, oBtnReciclado:loadBitmap("RECICLAR_R_CHICO") ,;
                     oBtnReciclado:cTooltip:="Ingresar Artefacto para SCRAP" ,;
                     oDlg:setbrush(oBrush20),;
                     aeval(aSay,{|o| o:setbrush( oBrush20 )} ),;
                     msgsound(cCarpetaInstalacion+"\Sonidos\ding.wav"),;
                     lReciclado:=.f., CambioReciclado(cTrabajos,.f.)),;
                     (oDlg:cTitle:=cTitulo1, ;
                     oBtnReciclado:cTooltip:="Sacar artefacto de lista SCRAP",;
                     oDlg:SetBrush( oBrush10 ),;
                     aeval(aSay,{|o| o:setbrush( oBrush10 )} ),;
                     oBtnReciclado:loadbitmap("RECICLAR_V_CHICO"), ;
                     msgsound(cCarpetaInstalacion+"\Sonidos\Reciclaje.wav"),;
                     lReciclado:=.t., CambioReciclado(cTrabajos,.t.)) ) ,;
                     oBtnReciclado:refresh()  ) ;
                update ;
                bitmap if(lReciclado,"RECICLAR_R_CHICO","RECICLAR_V_CHICO")               
               
               
redefine radio oRadioGtia var nOpt id 4061,4062,4070    of oDlg ;                  
        message 'Garantía Dealer, Cliente o Extendida' ;
          on change (if.....,,)


activate dialog oDlg center nowait on init (....) valid (...., .t.)

Como puede verse, el "oBtnReciclado" es el que hace que cambie el brush con "oDlg:setbrush()" y para los say utilizo el "aeval(aSay,{|o| o:setbrush( oBrush10 )} )".

Pero no encuentro la forma de cambiarle el brush al radio durante la ejecución de la aplicación, esa es la cuestión.

Rolando

[Antonio Linares]

Rolando,

Prueba con:

AEval( oRadMenu:aItems, { | oRadio | oRadio:SetBrush( oBrush ) } )

[rolando]

Antonio,

Gracias por responder.

Lo que me indicas funcionó correctamente. De nuevo, Gracias.

Rolando