paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 13:02:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

OpenGLContext: Fix aux buffers for multi-sampling. Issue #22223, patch from Michalis Kamburelis

Browse Source 
git-svn-id: trunk@37597 -
This commit is contained in:
juha 2012-06-08 21:43:40 +00:00
parent 7b4d61fb28
commit c5983f8f13
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/opengl/glwin32wglcontext.pas
View File

@ -353,8 +353,7 @@ begin
end; end;
function LGlMsCreateOpenGLContextAttrList(DoubleBuffered: boolean; RGBA: boolean; function LGlMsCreateOpenGLContextAttrList(DoubleBuffered: boolean; RGBA: boolean;
const MultiSampling, AlphaBits, DepthBits, StencilBits: Cardinal const MultiSampling, AlphaBits, DepthBits, StencilBits, AUXBuffers: Cardinal): PInteger;
): PInteger;
var var
p: integer; p: integer;
@ -382,6 +381,7 @@ var
Add(WGL_ALPHA_BITS_ARB); Add(AlphaBits); Add(WGL_ALPHA_BITS_ARB); Add(AlphaBits);
Add(WGL_DEPTH_BITS_ARB); Add(DepthBits); Add(WGL_DEPTH_BITS_ARB); Add(DepthBits);
Add(WGL_STENCIL_BITS_ARB); Add(StencilBits); Add(WGL_STENCIL_BITS_ARB); Add(StencilBits);
Add(WGL_AUX_BUFFERS_ARB); Add(AUXBuffers);
if MultiSampling > 1 then if MultiSampling > 1 then
begin begin
Add(WGL_SAMPLE_BUFFERS_ARB); Add(1); Add(WGL_SAMPLE_BUFFERS_ARB); Add(1);
@ -462,7 +462,7 @@ begin
and Assigned(wglChoosePixelFormatARB) then and Assigned(wglChoosePixelFormatARB) then
begin begin
VisualAttrList := LGlMsCreateOpenGLContextAttrList(DoubleBuffered, RGBA, VisualAttrList := LGlMsCreateOpenGLContextAttrList(DoubleBuffered, RGBA,
MultiSampling, AlphaBits, DepthBits, StencilBits); MultiSampling, AlphaBits, DepthBits, StencilBits, AUXBuffers);
try try
FillChar(VisualAttrFloat, SizeOf(VisualAttrFloat), 0); FillChar(VisualAttrFloat, SizeOf(VisualAttrFloat), 0);
MsInitSuccess := wglChoosePixelFormatARB(Info^.DC, PGLint(VisualAttrList), MsInitSuccess := wglChoosePixelFormatARB(Info^.DC, PGLint(VisualAttrList),