Changeset 372 for trunk/Packages

Timestamp:

Apr 16, 2021, 11:38:59 AM (4 years ago)

Author:

chronos

Message:

• Fixed: Allow to move dialogs on Linux only in TitleHeight area.

File:

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

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -138 +138 @@
     NewFormPos := ScreenToClient(Mouse.CursorPos);
     if (NewFormPos.X >= 0) and (NewFormPos.X < Width) and
-      (NewFormPos.Y >= 0) and (NewFormPos.Y < Height) then begin
+      (NewFormPos.Y >= 0) and (NewFormPos.Y < Height) and
+      (NewFormPos.Y < TitleHeight) then begin
       MoveMousePos := ClientToScreen(Point(X, Y));
       MoveFormPos := Point(Left, Top);