including ResizeBmp in ABPaint like :
The Original uses :
ABPaint( hDC, 10, 10, oAlpha:hBitmap, 255 ) // Left / Top
Resized uses the Function :
FUNCTION LOGO1()
LOCAL hDC, oAlpha
hDC := oWnd:GetDC
DEFINE IMAGE oAlpha FILENAME c_Path + "\Images\" + cWLogo
nWidth := oAlpha:nWidth
nHeight := oAlpha:nHeight
ABPaint( hDC, 10, 10, ResizeBmp( oAlpha:hBitmap, nWidth * 0.7, nHeight * 0.7, .T. ), 255 ) // Left / Top
oAlpha:End()
ReleaseDC(hDC)
RETURN NIL
Maybe it is not possible to use it, to resize a BMP of ABPaint ?
Using .T., I noticed a change in Image-brightness.
With .F. the Colors are OK but the quality gets lost .
Is there a Solution to fix this problem ?
Tested with Image-background
Gradient
and Brush
Best Regards
Uwe
