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

Timestamp:

Apr 24, 2021, 11:41:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r377.

File:

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

branches/highdpi/Packages/CevoComponents/DrawDlg.pas

@@ -138 +138 @@
     NewFormPos := ScreenToClient(DpiMouse.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);