is it possible to create small bitmaps size 16 files?
Having two colors (color1 and color2) and making the gradient of these two colors, create a small bitmap and save in bitmap format?
two colors (color1 and color2) and making the gradient of these two colors
local hBmp
local nClr1 := CLR_HRED
local nclr2 := CLR_WHITE
local nWidth := 16
local nHeight := 16
hBmp := FW_MakeYourBitmap( nWidth, nHeight, { |hDC,w,h| GradientFill( hDC, 0, 0, h, w, {{ 1, nClr1, nClr2}} ) } )
FW_SaveImage( hBmp, "redwhite.bmp" )
DeleteObject( hBmp )
ximage( "redwhite.bmp" ) // verify
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: dutch and 32 guests