paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 01:08:12 +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
uses
Classes, SysUtils, ctypes, LCLProc, LCLType, X, XUtil, XLib, gl,
Classes, SysUtils, ctypes, LCLType, X, XUtil, XLib, gl,
InterfaceBase,
glx,
WSLCLClasses,
@ -26,7 +26,7 @@ uses
{$IFDEF LCLGTK}
glib, gdk, gtk, GtkInt,
{$ENDIF}
Controls;
LazLoggerBase, Controls;
type
TGLBool = longbool;
@ -234,7 +234,7 @@ begin
{$IFDEF Lclgtk2}
DebugLn('get_xvisualinfo dpy=',XDisplayAsString(dpy));
DebugLn('get_xvisualinfo visual=',GdkVisualAsString(Visual));
RaiseGDBException('not implemented for gtk2');
raise Exception.Create('not implemented for gtk2');
{$ENDIF}
// 'GLX uses VisualInfo records because they uniquely identify
@ -309,7 +309,7 @@ var
begin
{$IFDEF lclgtk2}
DebugLn(['gdk_gl_choose_visual not implemented yet for gtk2']);
RaiseGDBException('');
raise Exception.Create('');
{$ENDIF}
if attrList=nil then begin
@ -786,13 +786,13 @@ var
glarea: PGtkGLArea;
begin
if Handle=0 then
RaiseGDBException('LOpenGLSwapBuffers Handle=0');
raise Exception.Create('LOpenGLSwapBuffers Handle=0');
Result:=false;
Widget:={%H-}PGtkWidget(PtrUInt(Handle));
glarea:=PGtkGLArea(Widget);
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
gtk_widget_realize(Widget);
@ -883,7 +883,7 @@ begin
if SharedControl<>nil then begin
SharedArea:={%H-}PGtkGLArea(PtrUInt(SharedControl.Handle));
if not GTK_IS_GL_AREA(SharedArea) then
RaiseGDBException('LOpenGLCreateContext');
raise Exception.Create('LOpenGLCreateContext');
NewWidget:=gtk_gl_area_share_new(Attribs,SharedArea);
end else begin
NewWidget:=gtk_gl_area_new(Attribs);