Explorar o código

* Include local ChoosePixelFormat def

peter %!s(int64=23) %!d(string=hai) anos
pai
achega
d88436f131
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  1. 5 1
      packages/extra/opengl/gl.pp

+ 5 - 1
packages/extra/opengl/gl.pp

@@ -1539,6 +1539,10 @@ procedure FreeOpenGL;
 
 implementation
 
+{$ifdef win32}
+function WinChoosePixelFormat(DC: HDC; p2: PPixelFormatDescriptor): Integer; extdecl; external 'gdi32' name 'ChoosePixelFormat';
+{$endif}
+
 procedure FreeOpenGL;
 begin
 
@@ -2234,7 +2238,7 @@ begin
   {$IFDEF Win32}
   @ChoosePixelFormat := GetProcAddress(LibGL, 'ChoosePixelFormat');
   if not Assigned(ChoosePixelFormat) then
-    @ChoosePixelFormat := @Windows.ChoosePixelFormat;
+    @ChoosePixelFormat := @WinChoosePixelFormat;
   {$ENDIF}
 
 end;