text's transparence in ribbonbar

[marzio]

i have inserted in the ribbonbar example the code below, but i haven't the transparence of the texts.
(windows xp, fwh 7.09, xHarbour 1.21)

@ 5, 1 SAY oSay1 PROMPT "ribbonbar" OF oGr TRANSPARENT

DEFINE BRUSH oBrush STYLE NULL

@ 6, 1 CHECKBOX oCheck1 VAR lPrev OF oGr1 PROMPT "ribbonbar"
oCheck1:oBrush := oBrush

@ 2, 1 RADIO oRad1 VAR n OF oGr5 ITEMS " rad1", "rad2"
oRad1:aItems[1]:oBrush := oBrush

what can i do to have the transparence?
thanks in advance

[marzio]

Please,
can somebody posts an example how to insert in ribbonbar a transparent SAY, CHECKBOX or RADIOBUTTON?
thanks in advance
marzio

[Antonio Linares]

Marzio,

Could you please post a screenshot with an example of what you want ? thanks

[marzio]

Antonio,
see this image: http://www.marzioni.it/ribbonbar.jpg

thanks, marzio

[ukoenig]

Hello Marzio,

I use a transparent VTitle, to show a Text with any Style inside a Ribbonbar :

Code: Select all  Expand view

..
..
DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "      Ribbon-Bar Setup     " ;
HEIGHT 220 TOPMARGIN 60
..
..
DEFINE FONT oFont NAME "Times New Roman" size 10, 30

@ 10, 380  TITLE oTitle size 350, 35 of oRBar SHADOW BOTTOMLEFT SHADOWSIZE 10
oTitle:aGrdBack := { { 1, 8553215, 16777215 } }
oTitle:lTransparent := .T.
@ 0.8, 30  TITLETEXT OF oTitle TEXT "RibbonBar - FIVEWIN 9.07"  COLOR 128 FONT oFont 3d
 oTitle:aGrdBack := { { 1, W_COLOR1, W_COLOR1 } }

// transparent text
@ 100, 450  TITLE oTitle1 size 350, 35 of oRBar TRANSPARENT NOBORDER
oTitle1:lTransparent := .T.
@ 0.8, 30  TITLETEXT OF oTitle1 TEXT "Transparent Test"  COLOR 128 FONT oFont
..
..
 

Best Regards
Uwe

[Antonio Linares]

Marzio,

Para mostrar un contro tipo SAY puedes hacer:

Code: Select all  Expand view

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

[marzio]

thanks for the solutions,

what to do for CHECKBOX and RADIOBUTTON?

marzio

[Antonio Linares]

Marzio,

Code: Select all  Expand view

   @ 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" ) ) )  

But there is a required fix in Class TRBtn to make the above work, in Method SetFile():

Code: Select all  Expand view

METHOD SetFile( cBmpUpFile, cBmpDownFile ) CLASS TRBtn

   ::FreeBitmaps()
   ::LoadBitmaps( cBmpUpFile, cBmpDownFile )
   ::Refresh()

return nil