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

GTK3: Fixed cursor update when dragging.

Browse Source 
Fix #40617.
This commit is contained in:
Abou Al Montacir 2023-12-03 18:43:52 +01:00
parent 86218cf48d
commit f195540fe8
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/gtk3/gtk3procs.pas
View File

@ -1240,12 +1240,7 @@ begin
g_object_set_data(PGObject(AWindow), 'havesavedcursor', gpointer(1));
g_object_set_data(PGObject(AWindow), 'savedcursor', gpointer(OldCursor));
end;
gdk_pointer_grab(AWindow, False, [], AWindow, Cursor, 1);
try
gdk_window_set_cursor(AWindow, Cursor);
finally
gdk_pointer_ungrab(0);
end;
gdk_window_set_cursor(AWindow, Cursor);
end else
begin
if g_object_steal_data(PGObject(AWindow), 'havesavedcursor') <> nil then
@ -1303,16 +1298,19 @@ end;
procedure SetGlobalCursor(Cursor: HCURSOR);
var
TopList: PGList;
i: Integer;
List: PGList;
Window: PGdkWindow;
begin
TopList := gdk_screen_get_toplevel_windows(gdk_screen_get_default);
if TopList = nil then
exit;
for i := 0 to g_list_length(TopList) - 1 do
begin
if (TopList^.Data <> nil) then
SetWindowCursor(PGDKWindow(TopList^.Data), Cursor,
True, False);
List := TopList;
while Assigned(List) do begin
Window := List^.Data;
if Assigned(Window) then begin
SetWindowCursor(Window, Cursor, True, False);
end;
List := List^.Next;
end;
g_list_free(TopList);
end;