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

openglcontrol: vrbosity

Browse Source 
git-svn-id: trunk@40413 -
This commit is contained in:
mattias 2013-02-26 09:43:50 +00:00
parent 04652cc455
commit 53fdf82396
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/opengl/glgtkglxcontext.pas
View File

@ -454,7 +454,7 @@ begin
FBConfigsCount:=0;
FBConfigs:=glXChooseFBConfig(dpy, DefaultScreen(dpy), @attrList[0], FBConfigsCount);
{$IFDEF VerboseMultiSampling}
debugln(['GLX config counts: ',FBConfigsCount]);
debugln(['gdk_gl_context_share_new GLX config counts: ',FBConfigsCount]);
{$ENDIF}
if FBConfigsCount = 0 then
raise Exception.Create('Could not find FB config');
@ -481,7 +481,7 @@ begin
{$IFDEF UseFPGLX}
if GLX_version_1_3(dpy) then begin
{$IFDEF VerboseMultiSampling}
DebugLn('GLX Version 1.3 context creation');
DebugLn('gdk_gl_context_share_new GLX Version 1.3 context creation');
{$ENDIF}
if (sharelist<>nil) then
glxcontext := glXCreateNewContext(dpy, FBConfig, GLX_RGBA_TYPE,
@ -489,12 +489,12 @@ begin
else begin
{$IFDEF VerboseMultiSampling}
value:=0;
debugln(['AttribValue: ',glXGetFBConfigAttrib(dpy, FBConfig, GLX_SAMPLES_ARB, value),'-',value]);
debugln(['gdk_gl_context_share_new AttribValue: ',glXGetFBConfigAttrib(dpy, FBConfig, GLX_SAMPLES_ARB, value),'-',value]);
{$ENDIF}
glxcontext := glXCreateNewContext(dpy, FBConfig, GLX_RGBA_TYPE, nil, true);
{$IFDEF VerboseMultiSampling}
ctxValue:=0;
debugln(['ContextAttrib: ',glXQueryContext(dpy, glxcontext, GLX_FBCONFIG_ID, ctxValue),'-',ctxValue]);
debugln(['gdk_gl_context_share_new ContextAttrib: ',glXQueryContext(dpy, glxcontext, GLX_FBCONFIG_ID, ctxValue),'-',ctxValue]);
{$ENDIF}
end;
if FBConfigs<>nil then