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

LCL-GTK2: Don't move mouse cursor around during drag&drop action. Issue #36469, patch from Cyrax.

Browse Source 
git-svn-id: trunk@62431 -
This commit is contained in:
juha 2019-12-22 13:00:43 +00:00
parent d6156102b3
commit 90a4c8d7b5
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2wsprivate.pp
View File

@ -429,12 +429,7 @@ begin
g_object_set_data(PGObject(AWindow), 'havesavedcursor', gpointer(1)); g_object_set_data(PGObject(AWindow), 'havesavedcursor', gpointer(1));
g_object_set_data(PGObject(AWindow), 'savedcursor', gpointer(OldCursor)); g_object_set_data(PGObject(AWindow), 'savedcursor', gpointer(OldCursor));
end; end;
gdk_pointer_grab(AWindow, False, 0, AWindow, Cursor, 1); gdk_window_set_cursor(AWindow, Cursor);
try
gdk_window_set_cursor(AWindow, Cursor);
finally
gdk_pointer_ungrab(0);
end;
end else end else
begin begin
if g_object_steal_data(PGObject(AWindow), 'havesavedcursor') <> nil then if g_object_steal_data(PGObject(AWindow), 'havesavedcursor') <> nil then