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

openglcontrol: verbosity

Browse Source 
git-svn-id: trunk@40414 -
This commit is contained in:
mattias 2013-02-26 12:08:12 +00:00
parent 53fdf82396
commit f3fc3a03ef
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/opengl/glgtkglxcontext.pas
View File

@ -708,6 +708,18 @@ begin
FreeMem(CopyAttrList); FreeMem(CopyAttrList);
end; end;
{$IFDEF VerboseMultiSampling}
procedure WriteFBConfigID(const Prefix: string; PrivateContext: PGdkGLContextPrivate);
var
ctxValue: longint;
begin
ctxValue:=0;
debugln([Prefix,' ContextAttrib: ',
glXQueryContext(PrivateContext^.xdisplay, PrivateContext^.glxcontext, GLX_FBCONFIG_ID, ctxValue),
'-',ctxValue]);
end;
{$ENDIF}
function gtk_gl_area_share_new(attrList: Plongint; share: PGtkGLArea function gtk_gl_area_share_new(attrList: Plongint; share: PGtkGLArea
): PGtkWidget; ): PGtkWidget;
var var
@ -752,6 +764,11 @@ begin
gtk_widget_pop_colormap; gtk_widget_pop_colormap;
end; end;
{$ENDIF non MSWindows} {$ENDIF non MSWindows}
{$IFDEF VerboseMultiSampling}
WriteFBConfigID('gtk_gl_area_share_new',PGdkGLContextPrivate(gl_area^.glcontext));
{$ENDIF}
Result:=PGtkWidget(gl_area); Result:=PGtkWidget(gl_area);
end; end;
@ -765,6 +782,9 @@ begin
//DebugLn(['gtk_gl_area_make_current START']); //DebugLn(['gtk_gl_area_make_current START']);
Result:=gdk_gl_make_current(PGtkWidget(glarea)^.window, glarea^.glcontext); Result:=gdk_gl_make_current(PGtkWidget(glarea)^.window, glarea^.glcontext);
//DebugLn(['gtk_gl_area_make_current END']); //DebugLn(['gtk_gl_area_make_current END']);
{$IFDEF VerboseMultiSampling}
//WriteFBConfigID('gtk_gl_area_make_current',PGdkGLContextPrivate(glarea^.glcontext));
{$ENDIF}
end; end;
function gtk_gl_area_begingl(glarea: PGtkGLArea): boolean; function gtk_gl_area_begingl(glarea: PGtkGLArea): boolean;
@ -947,7 +967,7 @@ function CreateOpenGLContextAttrList(DoubleBuffered: boolean; RGBA: boolean;
var var
p: integer; p: integer;
UseFBConfig: boolean; UseFBConfig: boolean;
procedure Add(i: integer); procedure Add(i: integer);
begin begin
if Result<>nil then if Result<>nil then