Changeset 395 for trunk/Packages

Timestamp:

Jun 14, 2021, 8:47:31 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Workaround for Gtk2 windows not accepting first mouse down event.

File:

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

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -7 +7 @@
 uses
   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;