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

GTK3: Got rid of deprecated function call.

Browse Source
This commit is contained in:
Abou Al Montacir 2023-11-15 23:55:22 +01:00
parent eafce4b0de
commit 16ce270720
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk3/gtk3bindings/lazgdk3.pas
View File

@ -3220,7 +3220,6 @@ type
PPGdkCursorType = ^PGdkCursorType;
PGdkCursorType = ^TGdkCursorType;
TGdkCursor = object(TGObject)
function new(cursor_type: TGdkCursorType): PGdkCursor; cdecl; inline; static;
function new_for_display(display: PGdkDisplay; cursor_type: TGdkCursorType): PGdkCursor; cdecl; inline; static;
function new_from_name(display: PGdkDisplay; name: Pgchar): PGdkCursor; cdecl; inline; static;
function new_from_pixbuf(display: PGdkDisplay; pixbuf: PGdkPixbuf; x: gint; y: gint): PGdkCursor; cdecl; inline; static;
@ -5413,11 +5412,6 @@ begin
LazGdk3.gdk_screen_set_resolution(@self, dpi);
end;
function TGdkCursor.new(cursor_type: TGdkCursorType): PGdkCursor; cdecl;
begin
Result := LazGdk3.gdk_cursor_new(cursor_type);
end;
function TGdkCursor.new_for_display(display: PGdkDisplay; cursor_type: TGdkCursorType): PGdkCursor; cdecl;
begin
Result := LazGdk3.gdk_cursor_new_for_display(display, cursor_type);

2
lcl/interfaces/gtk3/gtk3objects.pas
View File

@ -471,7 +471,7 @@ begin
gdk_cur:=GDK_ARROW;
end;
Fhandle:=TGdkCursor.new(gdk_cur);
Fhandle:=TGdkCursor.new_for_display(gdk_display_get_default, gdk_cur);
end;
constructor TGtk3Cursor.Create(pixbuf: PGdkPixbuf;x,y:gint);