FiveTech Software tech support forums

Joao, Tienes que hacerlo desde la claúsula ON INIT del diálogo: ACTIVATE DIALOG oDlgInd ON INIT ChangeColors( oRadMenu ) ... function ChangeColors( oRadMenu ) oRadMenu:aItems[1]:SetColor( CLR_CYAN, CLR_WHITE ) oRadMenu:aItems[2]:SetColor( CLR_CYAN, CLR_WHITE ) oRadMenu:aItems[3]:SetColor( ...

... + CRLF + ' SIZE ' + cWidth + ", " + cHeight + ; " PIXEL OF " + ::oWnd:cVarName + " ;" + CRLF + ; ' RADIOMENU ' + ::oRadMenu:cVarName + CRLF SetKey( VK_F2, { || OBJ_INFO() } )//--------- on FOCUS -------------------STATIC FUNCTION OBJ_INFO()LOCAL ...

Günther,

Please make this change in Class TRadio:

METHOD Click() INLINE ::oRadMenu:Select( Self ), ::Super:Click() // ::oRadMenu:Refresh()

that seems to solve it

Many thanks for the example

I have modified samples\testrad.prg with this:

REDEFINE RADIO oRadMenu VAR nOption ID 110, 120, 130, 140, 150 OF oDlg ;
ON CHANGE MsgInfo( nOption )

and it only appears once

...   3071  3074  3075  3076  3076  3077  3083  3084  3909  3911G                   3915 OPRN                    WINDOW.PRG     2983  2988  2990  2996 ORADMENU                WINDOW.PRG     3849  3857  3857  3859  3859  3924  3932  3932  3934  3934 OREAD()                (function  in WINDOW.PRG)   ...

Rolando,

Prueba con:

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

Hello Tim,

in Sample < Testrad.prg > there is ON INIT

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT oRadMenu:aItems[ 1 ]:SetText( "Hello" )

Best Regards
Uwe

I'm trying to color a dialog. It colors fine except FOR THE oRadMenu. When I add TRANSPARENT to the define dialog to color the radios a strange problem occurs. I click on a button to activate the dialog and if transparent is in the define dialog the program ...

... CHECKBOX oChk VAR lChk ID 92 OF oFld:aDialogs[ 1 ] ON CHANGE MsgBeep() COLOR 128 ================================== // REDEFINE RADIO [ <oRadMenu> VAR ] <nVar> ; // [ ID <nId,...> ] ; // [ <of: OF, WINDOW, DIALOG> <oWnd> ] ; // [ <help:HELPID, HELP ID> ...

... ACTION( MsgInfo( "Say Button" ) ) font oFontDATE But I see often the text small and for the radmenu any solution? i TRY WITH AEval( oRadMenu:aItems, { | oRad | oRad:lTransparent := .T. } ) BUT NOT RUN

... @ 10,560 SAY oSay[3] PROMPT "CLIENTE" OF oBar COLOR CLR_WHITE, RGB(207,222,244) FONT oFontDATE SIZE 250, 25 PIXEL @ 0.7 , 98 RADIO oRadMenu VAR nValue ITEMS "Singola prenotazione", "Multi prenotazione" SIZE 180, 15 OF oBar; COLOR CLR_WHITE, RGB(213,225,241)

... If You define the Color with these values, the Radios will have the background from the Buttonbar @ 1.0, 50 RADIO oRadMenu VAR nValue ITEMS "One", "Two" SIZE 50, 20 OF oBar COLOR 0, RGB( 206, 221, 240 ) ( looks like transparent ) http://www.pflegeplus.com/pictures/tooltip6.jpg ...

Prueba así:

oRadMenu:SetOption( 1 )

Revisa samples\TestRad.prg para que veas donde se crea oRadMenu

Otto,

You are missing the ":" of the assigment:

ON INIT (oRadMenu:aItems[ 1 ]:SetText( "Hello" ), oRadMenu:aItems[ 1 ]:nLeft := 25)

Hello Antonio, I tried: ON INIT (oRadMenu:aItems[ 1 ]:SetText( "Hello" ), oRadMenu:aItems[ 1 ]:nLeft = 25) But the position of aItems[1] does not change. How do I use nLeft? Thanks in advance Otto // Radio Buttons management sample #include ...