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

openglcontrol: fixed freeing FBConfigs

Browse Source 
git-svn-id: trunk@37115 -
This commit is contained in:
mattias 2012-04-30 19:17:13 +00:00
parent 3af8c6a1b7
commit 5465d579a1
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/opengl/glgtkglxcontext.pas
View File

@ -445,23 +445,18 @@ begin
{$IFDEF lclgtk2}
if visual=nil then ;
{$IFDEF UseFPGLX}
FBConfigs:=nil;
if GLX_version_1_3(dpy) then begin
{ use approach recommended since glX 1.3 }
FBConfigsCount:=0;
FBConfigs:=nil;
try
FBConfigs:=glXChooseFBConfig(dpy, DefaultScreen(dpy), AttrFB, FBConfigsCount);
if FBConfigsCount = 0 then
raise Exception.Create('Could not find FB config');
FBConfigs:=glXChooseFBConfig(dpy, DefaultScreen(dpy), AttrFB, FBConfigsCount);
if FBConfigsCount = 0 then
raise Exception.Create('Could not find FB config');
{ just choose the first FB config from the FBConfigs list.
More involved selection possible. }
FBConfig := FBConfigs^;
vi:=glXGetVisualFromFBConfig(dpy, FBConfig);
finally
if FBConfigs<>nil then
XFree(FBConfigs);
end;
{ just choose the first FB config from the FBConfigs list.
More involved selection possible. }
FBConfig := FBConfigs^;
vi:=glXGetVisualFromFBConfig(dpy, FBConfig);
end else begin
vi:=glXChooseVisual(dpy, DefaultScreen(dpy), @attrList[0]);
end;
@ -485,6 +480,8 @@ begin
PrivateShareList^.glxcontext, true)
else
glxcontext := glXCreateNewContext(dpy, FBConfig, GLX_RGBA_TYPE, nil, true);
if FBConfigs<>nil then
XFree(FBConfigs);
end else begin
if (sharelist<>nil) then
glxcontext := glXCreateContext(dpy, vi, PrivateShareList^.glxcontext,