FiveTech Software tech support forums

Code: Select all

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

Code: Select all

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