From 62a35aadda9b71cf8f778b830f9c8e9a0d5ca63a Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Tue, 24 Apr 2012 17:30:42 +0000
Subject: [PATCH] LazReport, improve mouse selecting of thin line objects

git-svn-id: trunk@37017 -
---
 components/lazreport/source/lr_class.pas | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/components/lazreport/source/lr_class.pas b/components/lazreport/source/lr_class.pas
index 53fb462faf..c39ac60dbe 100644
--- a/components/lazreport/source/lr_class.pas
+++ b/components/lazreport/source/lr_class.pas
@@ -4690,11 +4690,18 @@ end;
 function TfrLineView.PointInView(aX, aY: Integer): Boolean;
 var
   bx, by, bx1, by1, w1: Integer;
+  tmp: Double;
 begin
-  if FrameStyle=frsDouble then
-    w1 := Round(FrameWidth * 1.5)
+
+  if FrameWidth<1.0 then
+    tmp := 1.0
   else
-    w1 := Round(FrameWidth);
+    tmp := FrameWidth;
+
+  if FrameStyle=frsDouble then
+    w1 := Round(tmp * 1.5)
+  else
+    w1 := Round(tmp);
 
   bx:=x-w1;
   by:=y-w1;