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
Please,
can somebody posts an example how to insert in ribbonbar a transparent SAY, CHECKBOX or RADIOBUTTON?
thanks in advance
marzio
Marzio,
Could you please post a screenshot with an example of what you want ? thanks
..
..
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
..
..
@ 68, 30 ADD BUTTON oSay1 GROUP oGr SIZE 65, 15 PROMPT "A Say" SAYBUTTON
thanks for the solutions,
what to do for CHECKBOX and RADIOBUTTON?
marzio
@ 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" ) ) )METHOD SetFile( cBmpUpFile, cBmpDownFile ) CLASS TRBtn
::FreeBitmaps()
::LoadBitmaps( cBmpUpFile, cBmpDownFile )
::Refresh()
return nil