Changeset 372
- Timestamp:
- Apr 16, 2021, 11:38:59 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CevoComponents/DrawDlg.pas
r352 r372 138 138 NewFormPos := ScreenToClient(Mouse.CursorPos); 139 139 if (NewFormPos.X >= 0) and (NewFormPos.X < Width) and 140 (NewFormPos.Y >= 0) and (NewFormPos.Y < Height) then begin 140 (NewFormPos.Y >= 0) and (NewFormPos.Y < Height) and 141 (NewFormPos.Y < TitleHeight) then begin 141 142 MoveMousePos := ClientToScreen(Point(X, Y)); 142 143 MoveFormPos := Point(Left, Top);
Note:
See TracChangeset
for help on using the changeset viewer.