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

Timestamp:

May 9, 2020, 9:35:25 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Better High DPI scaling on highdpi branch.

File:

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

branches/highdpi/Packages/CevoComponents/DrawDlg.pas

@@ -128 +128 @@
   {$IFDEF LINUX}
   // HitTest is not supported under Linux GTK2 so use form inside move mechanizm
-  NewFormPos := ScreenToClient(Mouse.CursorPos);
+  NewFormPos := ScreenToClient(DpiMouse.CursorPos);
   if (NewFormPos.X >= 0) and (NewFormPos.X < Width) and
     (NewFormPos.Y >= 0) and (NewFormPos.Y < Height) then begin
     MoveMousePos := ClientToScreen(Point(X, Y));
     MoveFormPos := Point(Left, Top);
-    MousePosNew := Mouse.CursorPos;
+    MousePosNew := DpiMouse.CursorPos;
     // Activate move only if mouse position was not changed during inherited call
     if (MousePosNew.X = MoveMousePos.X) and (MousePosNew.Y = MoveMousePos.Y) then begin