X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_main.pas;h=ea7b4a9f7ed7e9e06909419ab9de7680ff8e377d;hp=3f65bba33336ec96c8a80a4f7a8c0f0e268a3efa;hb=8f95e11fc4d14f01ad8be557615625eb90dafe87;hpb=01c9a29799525526658398f627b8be9f8f11e903 diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas index 3f65bba..ea7b4a9 100644 --- a/src/editor/f_main.pas +++ b/src/editor/f_main.pas @@ -4377,6 +4377,11 @@ begin begin if (MouseLDown or MouseRDown) and (Position >= DotStep) then begin + if DrawRect <> nil then + begin + Inc(MouseLDownPos.y, DotStep); + Inc(MouseRDownPos.y, DotStep); + end; Dec(WASDOffset.Y, DotStep); RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y); end; @@ -4388,6 +4393,11 @@ begin begin if (MouseLDown or MouseRDown) and (Position+DotStep <= Max) then begin + if DrawRect <> nil then + begin + Dec(MouseLDownPos.y, DotStep); + Dec(MouseRDownPos.y, DotStep); + end; Inc(WASDOffset.Y, DotStep); RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y); end; @@ -4403,6 +4413,11 @@ begin begin if (MouseLDown or MouseRDown) and (Position >= DotStep) then begin + if DrawRect <> nil then + begin + Inc(MouseLDownPos.x, DotStep); + Inc(MouseRDownPos.x, DotStep); + end; Dec(WASDOffset.X, DotStep); RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y); end; @@ -4414,6 +4429,11 @@ begin begin if (MouseLDown or MouseRDown) and (Position+DotStep <= Max) then begin + if DrawRect <> nil then + begin + Dec(MouseLDownPos.x, DotStep); + Dec(MouseRDownPos.x, DotStep); + end; Inc(WASDOffset.X, DotStep); RenderPanelMouseMove(Sender, Shift, RenderMousePos().X, RenderMousePos().Y); end;