Changeset 525 for trunk/Packages/CevoComponents/DrawDlg.pas

Timestamp:

Jan 8, 2024, 11:43:27 PM (10 months ago)

Author:

chronos

Message:

• Fixed: Gtk2 first click workaround to work also with DPI components.

File:

• trunk/Packages/CevoComponents/DrawDlg.pas (modified) (1 diff)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -200 +200 @@
   MoveActive := False;
 
-  {$IFDEF LCLGTK2}
+{$IFDEF LCLGTK2}
   // GTK2 bug workaround https://bugs.freepascal.org/view.php?id=35720
+  {$IFDEF DPI}
+  if Visible then LastMouse.WinControl := Self.NativeForm;
+  {$ELSE}
   if Visible then LastMouse.WinControl := Self;
   {$ENDIF}
+{$ENDIF}
 end;