X-Git-Url: https://git.delphigl.com/?p=LazOpenGLCore.git;a=blobdiff_plain;f=uglcContextWGL.pas;fp=uglcContextWGL.pas;h=16fc8850133896f6c03e34db8f999d8321b99183;hp=76e0614a7b6cf53511965c22f6a0406e5a04d49e;hb=67d613411dc51250ef002b692e4634e66d4bea94;hpb=fcf42ed1c7495ab252f01b52a3ca4b7808ab132e

diff --git a/uglcContextWGL.pas b/uglcContextWGL.pas
index 76e0614..16fc885 100644
--- 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;