paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 23:38:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: make opengl compileable under qt5 widgetset

Browse Source 
git-svn-id: trunk@59253 -
This commit is contained in:
zeljko 2018-10-05 12:36:55 +00:00
parent de1fe8d7e5
commit fdf9177fb1
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/opengl/glqtcontext.pas
View File

@ -20,7 +20,8 @@ uses
InterfaceBase,
WSLCLClasses,glx,
// Bindings
qt4,
{$IFDEF LCLQt}qt4,{$ENDIF}
{$IFDEF LCLQt5}qt5,{$ENDIF}
qtwidgets, qtobjects, qtproc, qtint,
QtWSControls;
@ -120,7 +121,7 @@ type
function TQtGLWidget.GetGLXDrawable: GLXDrawable;
begin
result:=QWidget_winID(Widget);
result := QWidget_winID(Widget);
end;
procedure LOpenGLViewport(Handle: HWND; Left, Top, Width, Height: integer);

7
components/opengl/openglcontext.pas
View File

@ -68,6 +68,13 @@ unit OpenGLContext;
{$DEFINE HasRGBBits}
{$DEFINE OpenGLTargetDefined}
{$ENDIF}
{$IFDEF LCLQT5}
{$DEFINE UseQTGLX}
{$DEFINE UsesModernGL}
{$DEFINE HasRGBA}
{$DEFINE HasRGBBits}
{$DEFINE OpenGLTargetDefined}
{$ENDIF}
{$IFNDEF OpenGLTargetDefined}
{$ERROR this LCL widgetset/OS is not yet supported}
{$ENDIF}