Changeset 405 for branches/highdpi/Packages/CevoComponents/DrawDlg.pas

Timestamp:

Nov 3, 2021, 11:22:02 AM (3 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r404.

File:

• branches/highdpi/Packages/CevoComponents/DrawDlg.pas (modified) (2 diffs)

branches/highdpi/Packages/CevoComponents/DrawDlg.pas

@@ -7 +7 @@
 uses
   UDpiControls, Classes, SysUtils, Forms, LCLIntf, LCLType, {$IFDEF LINUX}LMessages,{$ENDIF}
-  Messages, Graphics, Controls, ButtonBase, ButtonA, ButtonB, Area, ScreenTools;
+  Messages, Graphics, Controls, ButtonBase, ButtonA, ButtonB, Area, ScreenTools
+  {$IFDEF LCLGTK2}, Gtk2Globals{$ENDIF};
 
 type
@@ -187 +188 @@
 begin
   MoveActive := False;
+
+  {$IFDEF LCLGTK2}
+  // GTK2 bug workaround https://bugs.freepascal.org/view.php?id=35720
+  if Visible then LastMouse.WinControl := Self;
+  {$ENDIF}
 end;