paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 00:19:26 +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 // normal snap guide to any object
fGuides.FindGuides(x, y) fGuides.FindGuides(x, y)
else else
begin if (Cursor = crPencil) or
if (Cursor = crPencil) or (Cursor = crCross) then
(Cursor = crCross) // normal snap to guide for inserting objects or drawing lines
then fGuides.FindGuides(x, y)
// normal snap to guide for inserting objects or drawing lines else
fGuides.FindGuides(x, y); if (TfrDesignerForm(frDesigner).SelNum >= 1) then
end; // don't create a guide for the object(s) being resized
fGuides.FindGuides(x, y, true);
end; end;
if FirstChange and Down and not RFlag then if FirstChange and Down and not RFlag then
@ -2950,6 +2951,8 @@ begin
//resizing //resizing
if Down and (Mode = mdSelect) and (TfrDesignerForm(frDesigner).SelNum = 1) and (Cursor <> crDefault) then if Down and (Mode = mdSelect) and (TfrDesignerForm(frDesigner).SelNum = 1) and (Cursor <> crDefault) then
begin begin
if FDesigner.ShowGuides then
fGuides.SnapToGuide(x, y);
kx := x - LastX; kx := x - LastX;
ky := y - LastY; ky := y - LastY;
if FDesigner.GridAlign and not GridCheck then begin if FDesigner.GridAlign and not GridCheck then begin