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

opengl: less hints

Browse Source
This commit is contained in:
mattias 2025-02-11 20:44:38 +01:00
parent 18d03966ff
commit f9ebfa5eac
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/opengl/glgtkglxcontext.pas
View File

@ -16,7 +16,7 @@ unit GLGtkGlxContext;
interface interface
uses uses
Classes, SysUtils, ctypes, LCLProc, LCLType, X, XUtil, XLib, gl, Classes, SysUtils, ctypes, LCLType, X, XUtil, XLib, gl,
InterfaceBase, InterfaceBase,
glx, glx,
WSLCLClasses, WSLCLClasses,
@ -26,7 +26,7 @@ uses
{$IFDEF LCLGTK} {$IFDEF LCLGTK}
glib, gdk, gtk, GtkInt, glib, gdk, gtk, GtkInt,
{$ENDIF} {$ENDIF}
Controls; LazLoggerBase, Controls;
type type
TGLBool = longbool; TGLBool = longbool;
@ -234,7 +234,7 @@ begin
{$IFDEF Lclgtk2} {$IFDEF Lclgtk2}
DebugLn('get_xvisualinfo dpy=',XDisplayAsString(dpy)); DebugLn('get_xvisualinfo dpy=',XDisplayAsString(dpy));
DebugLn('get_xvisualinfo visual=',GdkVisualAsString(Visual)); DebugLn('get_xvisualinfo visual=',GdkVisualAsString(Visual));
RaiseGDBException('not implemented for gtk2'); raise Exception.Create('not implemented for gtk2');
{$ENDIF} {$ENDIF}
// 'GLX uses VisualInfo records because they uniquely identify // 'GLX uses VisualInfo records because they uniquely identify
@ -309,7 +309,7 @@ var
begin begin
{$IFDEF lclgtk2} {$IFDEF lclgtk2}
DebugLn(['gdk_gl_choose_visual not implemented yet for gtk2']); DebugLn(['gdk_gl_choose_visual not implemented yet for gtk2']);
RaiseGDBException(''); raise Exception.Create('');
{$ENDIF} {$ENDIF}
if attrList=nil then begin if attrList=nil then begin
@ -786,13 +786,13 @@ var
glarea: PGtkGLArea; glarea: PGtkGLArea;
begin begin
if Handle=0 then if Handle=0 then
RaiseGDBException('LOpenGLSwapBuffers Handle=0'); raise Exception.Create('LOpenGLSwapBuffers Handle=0');
Result:=false; Result:=false;
Widget:={%H-}PGtkWidget(PtrUInt(Handle)); Widget:={%H-}PGtkWidget(PtrUInt(Handle));
glarea:=PGtkGLArea(Widget); glarea:=PGtkGLArea(Widget);
if not GTK_IS_GL_AREA(glarea) then if not GTK_IS_GL_AREA(glarea) then
RaiseGDBException('LOpenGLSwapBuffers not a PGtkGLArea'); raise Exception.Create('LOpenGLSwapBuffers not a PGtkGLArea');
// make sure the widget is realized // make sure the widget is realized
gtk_widget_realize(Widget); gtk_widget_realize(Widget);
@ -883,7 +883,7 @@ begin
if SharedControl<>nil then begin if SharedControl<>nil then begin
SharedArea:={%H-}PGtkGLArea(PtrUInt(SharedControl.Handle)); SharedArea:={%H-}PGtkGLArea(PtrUInt(SharedControl.Handle));
if not GTK_IS_GL_AREA(SharedArea) then if not GTK_IS_GL_AREA(SharedArea) then
RaiseGDBException('LOpenGLCreateContext'); raise Exception.Create('LOpenGLCreateContext');
NewWidget:=gtk_gl_area_share_new(Attribs,SharedArea); NewWidget:=gtk_gl_area_share_new(Attribs,SharedArea);
end else begin end else begin
NewWidget:=gtk_gl_area_new(Attribs); NewWidget:=gtk_gl_area_new(Attribs);