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: glqtcontext fixed false about multisample support. Added Major & Minor version

Browse Source 
git-svn-id: trunk@62896 -
This commit is contained in:
zeljko 2020-04-06 09:39:04 +00:00
parent 7a087965bc
commit ccc310d045
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/opengl/glqtcontext.pas
View File

@ -334,6 +334,13 @@ begin
QWindow_setSurfaceType(QWidget_windowHandle(NewQtWidget.Widget), QSurfaceSurfaceTypeOpenGLSurface);
AWinFormat := QSurfaceFormat_Create();
if MajorVersion > 0 then
begin
QSurfaceFormat_setMajorVersion(AWinFormat, MajorVersion);
QSurfaceFormat_setMinorVersion(AWinFormat, MinorVersion);
end;
if DoubleBuffered then
QSurfaceFormat_setSwapBehavior(AWinFormat, QSurfaceSwapBehaviorDoubleBuffer);
QSurfaceFormat_setSamples(AWinFormat, Integer(MultiSampling));
@ -364,9 +371,11 @@ begin
// AttrList.ContextFlags:=Attribs.ContextFlags or GLX_CONTEXT_DEBUG_BIT_ARB;
if (MultiSampling > 1) and GLX_ARB_multisample(XDisplay,ScreenNum) then begin
AttrList.MultiSampling := MultiSampling;
end else begin
end else
begin
AttrList.MultiSampling:=0;
{$IFDEF UNIX}writeln('Multi-sampling not supported');{$ENDIF}
if MultiSampling > 1 then
{$IFDEF UNIX}writeln('Multi-sampling not supported');{$ENDIF}
end;
FBConfigsCount:=0;
FBConfigs:=glXChooseFBConfig(XDisplay, ScreenNum, @AttrList.AttributeList[0], FBConfigsCount);