transparent say

[Silvio]

DEFINE BUTTONBAR ::oBar _3D SIZE 44, 46 OF ::oWndMain 2007 //36, 40

@ 7, 285 SAY ::oMsg PROMPT "TEST TEST TEST" ;
SIZE 150, 15 PIXEL OF ::oBar FONT ::oFont
::oMsg:lTransparent = .T.

THE say is not transparent

ANY suggestion?

[Daniel Garcia-Gil]

Hello silvio

please check

viewtopic.php?p=76497#p76497

[Silvio]

Daniel
I have the fwh include and source 8.11 I not have ladjust
I try all modifies you write on that post
I create the exe but not open the exe
the exe is in memory of windows xp but not show anything

[Silvio]

Daniel not run on buttonbar

@ 7, 285 SAY ::oMsg PROMPT "RIVAMANIA PRO 1.00" ;
SIZE 150, 15 PIXEL OF ::oBar FONT ::oFont TRANSPARENT

[Daniel Garcia-Gil]

the clausule transparent affect on brush
The say is brused with buttonbar's brush

it is your case....

now, the buttonbar dont have dialog/window feature

it's is a little trick
you need brush the buttonbar with same gradient color after use say with same buttonbar's height and transparent clausule

example
@ 0,100 say oSay Prompt CRLF+CRLF+"Test TRANSPARENT TSAY ON BUTTONBAR" of ::oBar size 400,55 pixel TRANSPARENT

[Silvio]

why on Rpreview I can see a text on buttonbar 2007 no errors ?

[byte-one]

Try FixSays( ::oBar:hWnd ) as in rpreview!

[Silvio]

I found this solution (it run ok) :

DEFINE FONT oFnt NAME "MS Sans Serif" SIZE 0,-24

DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007

oBar:bPainted = { ||;
DrawText2(oBar:hDC, oFnt:hFont, 1, "Testing on ButtonBar 2007 Office look" ,;
0, 400 , 500, 500, CLR_WHITE ) }

.....

FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color )
LOCAL hFontOld:= SelectObject( hDC, hFont )
LOCAL nBkOld := SetBkMode( hDC, nBkMode )
SetTextColor( hDC, color )
DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } )
SelectObject( hDC, hFontOld )
SetBkMode( hDC, nBkOld )
RETURN( NIL )

[Silvio]

Try FixSays( ::oBar:hWnd ) as in rpreview!

fixsay not run ok

[mmercado]

Hi Silvio:

With included TSButton.ch try this:

Code: Select all  Expand view

  @ 20, 750 STSAY "Testing on ButtonBar 2007 Office look" OF oBar ;
             COLOR CLR_WHITE SIZE 300, 22 PIXEL
 

Regards.

Manuel Mercado