paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 23:57:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: Snap to guide while drawing one inserted object.

Browse Source 
git-svn-id: trunk@62443 -
This commit is contained in:
jesus 2019-12-25 02:46:24 +00:00
parent f98cd17789
commit 7d87865122
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2597,13 +2597,17 @@ begin
Moved := True;
w := 2;
if FDesigner.ShowGuides then begin
if FDesigner.ShowGuides then
begin
if not down then
// normal snap guide to any object
fGuides.FindGuides(x, y)
else begin
if Cursor = crPencil then
// normal snap to guide for drawing lines
else
begin
if (Cursor = crPencil) or
(Cursor = crCross)
then
// normal snap to guide for inserting objects or drawing lines
fGuides.FindGuides(x, y);
end;
end;