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

LCL: fixed stRoundRect drawing problem on Carbon.Patch by u-boot. issue #17892

Browse Source 
git-svn-id: trunk@29538 -
This commit is contained in:
zeljko 2011-02-13 20:33:29 +00:00
parent b8d5b4793d
commit c6ef1ee885
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/graphmath.pp
View File

@ -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);