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

LazReport: snap resizing object(s) to guides.

Browse Source 
git-svn-id: trunk@62447 -
This commit is contained in:
jesus 2019-12-25 19:04:40 +00:00
parent aaed1a2696
commit 0ff93d16af
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/lazreport/source/lr_desgn.pas
View File

@ -2603,13 +2603,14 @@ begin
// normal snap guide to any object
fGuides.FindGuides(x, y)
else
begin
if (Cursor = crPencil) or
(Cursor = crCross)
then
// normal snap to guide for inserting objects or drawing lines
fGuides.FindGuides(x, y);
end;
if (Cursor = crPencil) or
(Cursor = crCross) then
// normal snap to guide for inserting objects or drawing lines
fGuides.FindGuides(x, y)
else
if (TfrDesignerForm(frDesigner).SelNum >= 1) then
// don't create a guide for the object(s) being resized
fGuides.FindGuides(x, y, true);
end;
if FirstChange and Down and not RFlag then
@ -2950,6 +2951,8 @@ begin
//resizing
if Down and (Mode = mdSelect) and (TfrDesignerForm(frDesigner).SelNum = 1) and (Cursor <> crDefault) then
begin
if FDesigner.ShowGuides then
fGuides.SnapToGuide(x, y);
kx := x - LastX;
ky := y - LastY;
if FDesigner.GridAlign and not GridCheck then begin