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

GTK3: Fixed setting cursor on widgets.

Browse Source 
Closes: #40374. Thanks To: Anton Kavalenka.

When the widget doesn't have a window, we fall back to parent's one.
This commit is contained in:
Abou Al Montacir 2023-11-24 19:59:54 +01:00
parent fa8e8eeecf
commit 3256ff9246
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -3203,7 +3203,10 @@ begin
SetWindowCursor(GetContainerWidget^.window, ACursor, False, True)
else
if Widget^.get_has_window and Gtk3IsGdkWindow(Widget^.window) then
SetWindowCursor(Widget^.window, ACursor, False, True);
SetWindowCursor(Widget^.window, ACursor, False, True)
else // fallback for window-less widgets
if Assigned(self.getParent) then
Self.getParent.SetCursor(ACursor);
end;
end;