From 862dbe8384e46bce6f7146da49a41ad3d292031e Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Mon, 19 Mar 2012 16:45:32 +0200 Subject: fixes compiler errors under Windows. Clearly I did not pay as much attension as I should have. :-( --- src/corelib/gdi/fpg_gdi.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/corelib/gdi') diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index b3d2c5f2..51ce4139 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -82,11 +82,11 @@ type TfpgGDIImage = class(TfpgImageBase) private FIsTwoColor: boolean; - property BMPHandle: HBITMAP read FBMPHandle; - property MaskHandle: HBITMAP read FMaskHandle; - protected FBMPHandle: HBITMAP; FMaskHandle: HBITMAP; + protected + property BMPHandle: HBITMAP read FBMPHandle; + property MaskHandle: HBITMAP read FMaskHandle; procedure DoFreeImage; override; procedure DoInitImage(acolordepth, awidth, aheight: integer; aimgdata: Pointer); override; procedure DoInitImageMask(awidth, aheight: integer; aimgdata: Pointer); override; @@ -142,7 +142,7 @@ type procedure DoDrawPolygon(Points: PPoint; NumPts: Integer; Winding: boolean = False); override; property DCHandle: TfpgDCHandle read Fgc; public - constructor Create; override; + constructor Create(awin: TfpgWindowBase); override; destructor Destroy; override; end; @@ -2046,9 +2046,9 @@ end; { TfpgGDICanvas } -constructor TfpgGDICanvas.Create; +constructor TfpgGDICanvas.Create(awin: TfpgWindowBase); begin - inherited; + inherited Create(awin); FDrawing := False; FDrawWindow := nil; FBufferBitmap := 0; -- cgit v1.2.3-70-g09d2