I wish draw an image over the wallImage of a window main , a roundbox , an other text
Now I use this command to draw an image inton a window and write a test into a window :
::oWndMain:bPainted := {|hDC| (PalBmpDraw( hDC, 0, 0, ::oImagen:hBitmap,, ::oWndMain:nWidth, ::oWndMain:nHeight,, .T.),;
Scrivitesto(hDC)) }
FUNCTION Scrivitesto (hDC)
Local aRect2:= {oApp:oWndMain:nHeight-120,;
oApp:oWndmain:nWidth-420,;
oApp:oWndMain:nHeight-10,;
oApp:oWndMain:nWidth-10}
SetBkMode(hDC,1)
SetTextColor(hDC,CLR_RED)
DrawTextEx( hDC, oApp:cBuild+" - "+oApp:cUrl, aRect2, 1 )
return nil