diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-03-19 16:45:32 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-03-19 16:45:32 +0200 |
| commit | 862dbe8384e46bce6f7146da49a41ad3d292031e (patch) | |
| tree | 6f77bc74b49a66f14357d92dc2cc18156b1602b8 /src/corelib | |
| parent | d347d5b836ec7df0c2c3ab48cfd2d7651bb650ac (diff) | |
| download | fpGUI-862dbe8384e46bce6f7146da49a41ad3d292031e.tar.xz | |
fixes compiler errors under Windows.
Clearly I did not pay as much attension as I should have. :-(
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 12 |
1 files changed, 6 insertions, 6 deletions
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; |