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

MG: fixed designer control moving

Browse Source 
git-svn-id: trunk@1748 -
This commit is contained in:
lazarus 2002-06-12 12:39:36 +00:00
parent afefd015da
commit 667038fc1d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/designer.pp
View File

@ -251,15 +251,15 @@ Begin
end;
procedure TDesigner.MoveSelection(DiffX, DiffY: integer);
var
StepX, StepY: integer;
//var
// StepX, StepY: integer;
begin
if SnapToGrid then begin
{if SnapToGrid then begin
StepX:=GridSizeX;
StepY:=GridSizeY;
DiffX:=DiffX+(StepX div 2)-(DiffX mod StepX);
DiffY:=DiffY+(StepY div 2)-(DiffY mod StepY);
end;
end;}
ControlSelection.MoveSelection(DiffX,DiffY);
end;