From c6ef1ee8858dfbed491709eb7e78a7ac376793bc Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sun, 13 Feb 2011 20:33:29 +0000
Subject: [PATCH] LCL: fixed stRoundRect drawing problem on Carbon.Patch by
 u-boot. issue #17892

git-svn-id: trunk@29538 -
---
 lcl/graphmath.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lcl/graphmath.pp b/lcl/graphmath.pp
index 786d92261a..6547c0dff9 100644
--- a/lcl/graphmath.pp
+++ b/lcl/graphmath.pp
@@ -372,7 +372,7 @@ var
   SinA,CosA : Extended;
   A,B : Extended;
   I : Longint;
-  PT : TPoint;
+  PT : TFloatPoint;
   ScaleX, ScaleY : Extended;
 begin
   If ABS(Angle2) > 90*16 then
@@ -404,7 +404,8 @@ begin
   Angle2 := DegToRad(Angle2/16);
   Rotation := -DegToRad(Rotation/16);
   Beta := (4/3)*(1 - Cos(Angle2/2))/(Sin(Angle2/2));
-  PT := CenterPoint(Rect(X, Y, X+Width, Y + Height));
+  PT.X := X + Width / 2;
+  PT.Y := Y + Height / 2;
 
   CosA := cos(Angle1);
   SinA := sin(Angle1);