paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 19:10:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed snap to grid on negative grid

Browse Source 
git-svn-id: trunk@1758 -
This commit is contained in:
lazarus 2002-06-21 18:02:06 +00:00
parent 1673cf67bc
commit f86cf07edb
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
designer/controlselection.pp
View File

@ -792,7 +792,10 @@ begin
if not EnvironmentOptions.SnapToGrid then exit;
GridSizeY:=CleanGridSizeY;
// add half GridSizeY, so that rounding is correct
NearestGridY:=NearestInt.Level+(GridSizeY div 2);
if NearestInt.Level>=0 then
NearestGridY:=NearestInt.Level+(GridSizeY div 2)
else
NearestGridY:=NearestInt.Level-(GridSizeY div 2);
// round
dec(NearestGridY,NearestGridY mod GridSizeY);
ImproveNearestInt(NearestInt,NearestGridY);
@ -1114,7 +1117,10 @@ begin
if not EnvironmentOptions.SnapToGrid then exit;
GridSizeX:=CleanGridSizeX;
// add half GridSizeX, so that rounding is correct
NearestGridX:=NearestInt.Level+(GridSizeX div 2);
if NearestInt.Level>=0 then
NearestGridX:=NearestInt.Level+(GridSizeX div 2)
else
NearestGridX:=NearestInt.Level-(GridSizeX div 2);
// round
dec(NearestGridX,NearestGridX mod GridSizeX);
ImproveNearestInt(NearestInt,NearestGridX);