nOldClr = SetBkColor( ::hDC, nRGB( 255, 255, 255 ) )
TransBmp( ::hBitmap, ::nWidth(), ::nHeight(), nZeroZeroClr, ::hDC,;
::nX, ::nY, Super:nWidth(), Super:nHeight() )
SetBkColor( ::hDC, nOldClr )
...
...
DEFINE BITMAP oBmp1 FILENAME "Volksbank.bmp"
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT ( gradpaint( hDC, oWnd ), ;
ABPaint( hDC, 50, 50, oBmp:hBitmap, 220 ) )
RETURN NIL
// -----------------------------------------------
STATIC FUNTION gradpaint( hDC, oWnd )
local aGrad := { { 0.50, 16054371, 11892819 } }
GradientFill( hDC, 0, 0, oWnd:nHeight, oWnd:nWidth, aGrad, .F. )
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 31 guests