[lazarus] New Bug Entered

[bugtracker at miraclec.com]

Title: IDE: SnapToGrid BugFix

Entered by: Claude Rieth

To obtain REAL snap to grid and not only modulo gridsize function, the following patch needs to be applied (gives behaviour similar to delphi)

controlselection.pp

function ...FindNearestSnapRight
.
.
FindNearestGridX(NearestRight);
//add the following
if NearestRight.Valid then
  NearestRight.Nearest:=NearestRight.Nearest+1;
//end add

function ...FindNearestSnapBottom
.
.
FindNearestGridY(NearestBottom);
//add the following
if NearestBottom.Valid then
  NearestBottom.Nearest:=NearestBottom.Nearest+1;
//end add