say, checkbox, radio in ribbonbar

[marzio]

i have inserted in a ribbonbar SAY, CHECKBOX, RADIOBUTTON,
how can i obtain these objects transparent?
thanks, marzio



DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Configuración", "Ficheros", "Informes", "Ayudas" HEIGHT 160 TOPMARGIN 55 ACTION IIf(nOption = 3, MsgInfo(),)
ADD GROUP oGr5 RIBBON oRBar TO OPTION 2 PROMPT "Editing" WIDTH 275 GRADIANT { { 0.1, RGB( 218, 229, 243 ), RGB( 174, 150, 169 ) }, { 0.97, RGB( 174, 150, 169 ), RGB( 218, 229, 243 ) } }
@ 2, 5 SAY "transparenting say" OF oGr5 TRANSPARENT
@ 4, 5 CHECKBOX oBox PROMPT "transparent checkbox" OF oGr5
@ 5, 55 SAY "transparent say" OF oRBar TRANSPARENT

[ukoenig]

Marzio,

these objects are defined as BUTTONS like :



@ 68, 30 ADD BUTTON oSay1 GROUP oGr SIZE 65, 15 PROMPT "A Say" SAYBUTTON

@ 64, 70 ADD BUTTON oChk1 GROUP oGr1 BITMAP ".\bitmaps\checkon.bmp" MOSTLEFT SIZE 85, 18 PROMPT "Checkbox" ;
ACTION ( lVal1 := ! lVal1, oChk1:SetFile( If( lVal1, ".\bitmaps\checkon.bmp", ".\bitmaps\checkoff.bmp" ) ) )

regards
Uwe

[marzio]

Ah, ok.
Many thanks Uwe.

[ukoenig]

Marzio,

the missing RADIO - solution
< n > = the selected radio



Right mouseclick to save the bmp's

Code: Select all  Expand view

I := 1
aPrompts  := { "Opt. 1", "Opt. 2", "Opt. 3" }
aTooltips  := { "Tooltip" + CRLF + "of Opt. 1", "Tooltip" + CRLF + "of Opt. 2", "Tooltip" + CRLF + "of Opt. 3" }
nLeft := 10   // first left radio
nBtnPos := 1 // defined startposition
FOR I := 1 to 3 // 3 buttons
    @ 64, nLeft ADD BUTTON oRadio[I] GROUP oGr2  BITMAP ".\bitmaps\BRadio1.bmp" MOSTLEFT SIZE 60, 18 PROMPT aPrompts[I] ;
    ACTION ( nBtnPos := ::Cargo, ;
                AEVAL( oRadio, { | o, n | oRadio[ n ]:SetFile( ".\bitmaps\BRadio1.bmp" ), ;
                         IF( n = nBtnPos, oRadio[ n ]:SetFile( ".\bitmaps\BRadio2.bmp" ), NIL ) } ) ) // SELECTED ( include a function if needed )
    oRadio[ I ]:cToolTip :=  { aTooltips[ I ], CLR_BLACK, 14089979 } 
    oRadio[ I ]:Cargo := I
    IIF( I = nBtnPos, oRadio[ I ]:SetFile( ".\bitmaps\BRadio2.bmp" ), ; // RED
                      oRadio[ I ]:SetFile( ".\bitmaps\BRadio1.bmp" ) )  // GREEN
    nLeft += 65
NEXT
 

regards
Uwe

[marzio]

thanks for everything Uwe. you've been very kind.
i am doing some try
do you think that in the say is possible change font and color of the text?
@ 68, 30 ADD BUTTON oSay1 GROUP oGr SIZE 65, 15 PROMPT "A Say" SAYBUTTON
i have tried but with no success.

Marzio