topic-33649

Posts: 193

Joined: Wed Apr 04, 2007 06:54 AM

say, checkbox, radio in ribbonbar
Posted: Tue Feb 14, 2017 11:06 AM

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

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: say, checkbox, radio in ribbonbar
Posted: Wed Feb 15, 2017 01:03 AM

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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

marzio

Posts: 193

Joined: Wed Apr 04, 2007 06:54 AM

Re: say, checkbox, radio in ribbonbar
Posted: Wed Feb 15, 2017 06:19 AM

Ah, ok.
Many thanks Uwe.

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: say, checkbox, radio in ribbonbar
Posted: Wed Feb 15, 2017 12:57 PM

Marzio,

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

Right mouseclick to save the bmp's

Code (fw): Select all Collapse

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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

marzio

Posts: 193

Joined: Wed Apr 04, 2007 06:54 AM

Re: say, checkbox, radio in ribbonbar
Posted: Wed Feb 15, 2017 07:26 PM

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

FiveTech Support Forums

Continue the discussion