text's transparence in ribbonbar

text's transparence in ribbonbar

Postby marzio » Mon Nov 09, 2009 10:46 am

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
 
Posts: 129
Joined: Wed Apr 04, 2007 6:54 am

Re: text's transparence in ribbonbar

Postby marzio » Fri Nov 13, 2009 9:39 am

Please,
can somebody posts an example how to insert in ribbonbar a transparent SAY, CHECKBOX or RADIOBUTTON?
thanks in advance
marzio
marzio
 
Posts: 129
Joined: Wed Apr 04, 2007 6:54 am

Re: text's transparence in ribbonbar

Postby Antonio Linares » Fri Nov 13, 2009 9:54 am

Marzio,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42081
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: text's transparence in ribbonbar

Postby marzio » Fri Nov 13, 2009 10:18 am

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

thanks, marzio
marzio
 
Posts: 129
Joined: Wed Apr 04, 2007 6:54 am

Re: text's transparence in ribbonbar

Postby ukoenig » Fri Nov 13, 2009 1:34 pm

Hello Marzio,

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

Image

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 :lol:
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.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: text's transparence in ribbonbar

Postby Antonio Linares » Fri Nov 13, 2009 6:08 pm

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
 

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42081
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: text's transparence in ribbonbar

Postby marzio » Mon Nov 16, 2009 7:52 am

thanks for the solutions,

what to do for CHECKBOX and RADIOBUTTON?

marzio
marzio
 
Posts: 129
Joined: Wed Apr 04, 2007 6:54 am

Re: text's transparence in ribbonbar

Postby Antonio Linares » Mon Nov 16, 2009 9:00 am

Marzio,

Image

Image

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
 
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42081
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests