paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 03:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Designer: Cursor Cache Old Pos comparison adjusted (Similar to ded870b)

Browse Source
This commit is contained in:
rich2014 2023-07-27 21:36:56 +08:00
parent 203dbd08fd
commit ead28bdcc6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/designer.pp
View File

@ -2642,8 +2642,6 @@ begin
OldMouseMovePos := LastMouseMovePos;
LastMouseMovePos := GetFormRelativeMousePosition(Form);
if (OldMouseMovePos.X = LastMouseMovePos.X) and (OldMouseMovePos.Y = LastMouseMovePos.Y) then
Exit;
MouseMoveComponent := MouseDownComponent;
if MouseMoveComponent = nil then
@ -2684,6 +2682,9 @@ begin
Exit;
end;
if (OldMouseMovePos.X = LastMouseMovePos.X) and (OldMouseMovePos.Y = LastMouseMovePos.Y) then
Exit;
if (Selection.SelectionForm = nil) or (Selection.SelectionForm = Form) then
begin
if Button = mbLeft then // left button pressed