Changeset 525

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

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

trunk/LocalPlayer/Term.pas

@@ -6672 +6672 @@
       PaintBufferToScreen(xMin, yMin, xRange, yRange);
       {$IFDEF UNIX}
-      // TODO: Force animation under UNIX
+      // TODO: Force animation under UNIX. Causes also to process keyboard events
+      // which can lead to unexpected errors.
       Application.ProcessMessages;
       {$ENDIF}

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;