From 83ce9e7c088c66cdacc39041cd54691bfb0aa8a8 Mon Sep 17 00:00:00 2001
From: giuliano <giuliano@lazarus-ide.org>
Date: Sun, 8 Feb 2015 12:12:26 +0000
Subject: [PATCH] LCL INTERFACES QT: removed wrong offset from Ellipse and
 RadialPie files qtwinapi.inc and qtlclintf.inc

git-svn-id: trunk@47651 -
---
 lcl/interfaces/qt/qtlclintf.inc | 4 ++--
 lcl/interfaces/qt/qtwinapi.inc  | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/qt/qtlclintf.inc b/lcl/interfaces/qt/qtlclintf.inc
index e2446612cd..2999dc86cb 100644
--- a/lcl/interfaces/qt/qtlclintf.inc
+++ b/lcl/interfaces/qt/qtlclintf.inc
@@ -443,8 +443,8 @@ var
 begin
   Result := IsValidDC(DC) and (x2 > x1) and (y2 > y1);
   if Result then begin
-    theWidth  := x2 - x1 +  1;
-    theHeight := y2 - y1 + 1;
+    theWidth  := x2 - x1;
+    theHeight := y2 - y1;
     QPainter_drawPie(TQtDeviceContext(DC).Widget, x1, y1, theWidth, theHeight, Angle1, Angle2);
   end;
 end;
diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index f3ab04bb89..2e9d13cfba 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -1492,7 +1492,7 @@ begin
   R := NormalizeRect(Rect(X1, Y1, X2, Y2));
   if IsRectEmpty(R) then Exit(True);
 
-  TQtDeviceContext(DC).drawEllipse(R.Left, R.Top, R.Right - R.Left - 1, R.Bottom - R.Top - 1);
+  TQtDeviceContext(DC).drawEllipse(R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top{ - 1});
   Result := True;
 end;