* fixed some bugs to compile with Delphi7

[LazOpenGLCore.git] / uglcContextWGL.pas

diff --git a/uglcContextWGL.pas b/uglcContextWGL.pas
index 76e0614..16fc885 100644 (file)
--- a/uglcContextWGL.pas
+++ b/uglcContextWGL.pas
@@ -21,7 +21,7 @@ type
     FRC: HGLRC;
     fHandle: THandle;
     fPixelFormat: Integer;
-    {%H-}constructor Create(const aControl: TWinControl);
+    {%H-}constructor Create(const aControl: TWinControl); overload;
   protected
     procedure UpdatePixelFormat;
     procedure OpenContext; override;
@@ -29,8 +29,8 @@ type
     function FindPixelFormatNoAA: Integer;
     procedure OpenFromPF(PixelFormat: Integer);
   public
-    constructor Create(const aControl: TWinControl; const aPixelFormatSettings: TglcContextPixelFormatSettings); override; overload;
-    constructor Create(const aControl: TWinControl; const aPixelFormatSettings: TglcContextPixelFormatSettings; const aVersionSettings: TglcContextVersionSettings); override; overload;
+    constructor Create(const aControl: TWinControl; const aPixelFormatSettings: TglcContextPixelFormatSettings); overload; override;
+    constructor Create(const aControl: TWinControl; const aPixelFormatSettings: TglcContextPixelFormatSettings; const aVersionSettings: TglcContextVersionSettings); overload; override;
 
     procedure CloseContext; override;
     procedure Activate; override;