Hi all Bitmap TEXT COLOR ?

[yunbg1]

Hi all.

How the bitmap a text color at the at.

Code: Select all  Expand view


FUNC main()
   local oBmp

   DEFINE WINDOW oWnd TITLE "Text on a bitmap"

   @ 1, 1 BITMAP oBmp FILENAME "..\bitmaps\fw.bmp" OF oWnd

   oBmp:bPainted = { || SetBkMode( oBmp:hDC, TRANSPARENT ),;
                        TextOut( oBmp:hDC, 5, 5, "Hello" ) }

   //TEXT COLOR ?

   ACTIVATE WINDOW oWnd

RETU NIL



FWH USER....................

[Antonio Linares]

Code: Select all  Expand view

   oBmp:bPainted = { || SetBkMode( oBmp:hDC, 1 ),;
                        SetTextColor( oBmp:hDC, CLR_HRED ),;
                        TextOut( oBmp:hDC, 5, 5, "Hello" ) }