How to fill a BMP from Res. with a spec. Color => SOURCE

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

How to fill a BMP from Res. with a spec. Color => SOURCE
Posted: Wed Mar 26, 2008 01:00 AM

Hello,

The source
how to show a bitmap with different backgrounds
from resource ( using the same bitmap ) :

2 Bitmaps has to be shown with different colors

Bitmap 1 ( same resource )

REDEFINE BITMAP oBmp1 ID 770 ADJUST RESOURCE "Blanc" OF oDlg5
hDC := oBmp1:GetDC()
oBmp1:bPainted := { |hDC|OnPaint( hDC,oBMP1,nCOLOR1) }
oBmp1:ReleaseDC()

Bitmap 2 ( same resource )

REDEFINE BITMAP oBmp2 ID 771 ADJUST RESOURCE "Blanc" OF oDlg5
hDC := oBmp2:GetDC()
oBmp2:bPainted := { |hDC|OnPaint( hDC,oBMP2,nCOLOR2) }
oBmp2:ReleaseDC()

//----------------------------------------------------------------//

FUNCTION ONPAINT(hDC,oBmp,nBkColor)

SetBkMode( hDC, 0 ) // 1 = Transparent
oBmp:oBrush := TBrush():New( , nBkColor )
FillRect( hDC, GetClientRect( oBmp:hWnd ), oBmp:oBrush:hBrush )

RETURN NIL

This works perfect.
It will be in the Designer-Update 1.8

Regards

Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

How to fill a BMP from Res. with a spec. Color => SOURCE
Posted: Wed Mar 26, 2008 03:49 AM

Thats nice.
I think in the code getdc and releasedc are not necessary.

Code: Select all Collapse

hDC := oBmo1:GetDC()   // i think not necessary
                                      // this hDC is never used
oBmp1:bPainted := { |hDC| OnPaint( hDC, oBmp1, nColor1 } )
oBmp1:ReleaseDC() // i think this is also not necessary

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Bitmap 1 ( same resource )

Bitmap 2 ( same resource )

Continue the discussion