From 8f95e11fc4d14f01ad8be557615625eb90dafe87 Mon Sep 17 00:00:00 2001 From: Stas'M Date: Sat, 6 Oct 2018 17:57:38 +0300 Subject: [PATCH] Movement: Implement WASD selection --- src/editor/f_main.pas | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) 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; -- 2.29.2