FiveTech Support Forums

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?

Hello silvio

please check

viewtopic.php?p=76497#p76497

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

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

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

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 )

byte-one wrote:Try FixSays( ::hWnd ) as in rpreview!