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

LazReport, improve mouse selecting of thin line objects

Browse Source 
git-svn-id: trunk@37017 -
This commit is contained in:
jesus 2012-04-24 17:30:42 +00:00
parent 553a853858
commit 62a35aadda
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazreport/source/lr_class.pas
View File

@ -4690,11 +4690,18 @@ end;
function TfrLineView.PointInView(aX, aY: Integer): Boolean; function TfrLineView.PointInView(aX, aY: Integer): Boolean;
var var
bx, by, bx1, by1, w1: Integer; bx, by, bx1, by1, w1: Integer;
tmp: Double;
begin begin
if FrameStyle=frsDouble then
w1 := Round(FrameWidth * 1.5) if FrameWidth<1.0 then
tmp := 1.0
else else
w1 := Round(FrameWidth); tmp := FrameWidth;
if FrameStyle=frsDouble then
w1 := Round(tmp * 1.5)
else
w1 := Round(tmp);
bx:=x-w1; bx:=x-w1;
by:=y-w1; by:=y-w1;