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

LCL: Fix default implementations of Arc, Chord and Pie functions. Issue #30194, patch from errno.

Browse Source 
git-svn-id: trunk@52405 -
This commit is contained in:
juha 2016-05-28 19:52:38 +00:00
parent 93fb04d879
commit 04f0bf21ef
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/intfbaselcl.inc
View File

@ -569,18 +569,26 @@ function TWidgetSet.RadialArc(DC: HDC;
left, top, right, bottom, sx, sy, ex, ey: Integer): Boolean;
var
A1, A2: Extended;
A2i : integer;
begin
Coords2Angles(left, top, right-left, bottom-top, sx, sy, ex, ey, A1, A2);
Result := Arc(DC, left, top, right, bottom, RoundToInt(A1), RoundToInt(A2));
A2i := RoundToInt(A2);
if A2i = 0 then
A2i := 5760;
Result := Arc(DC, left, top, right, bottom, RoundToInt(A1), A2i);
end;
function TWidgetSet.RadialChord(DC: HDC;
x1, y1, x2, y2, sx, sy, ex, ey: Integer): Boolean;
var
A1, A2: Extended;
A2i : integer;
Begin
Coords2Angles(x1, y1, x2-x1, y2-y1, sx, sy, ex, ey, A1, A2);
Result := AngleChord(DC, x1, y1, x2, y2, RoundToInt(A1), RoundToInt(A2));
A2i := RoundToInt(A2);
if A2i = 0 then
A2i := 5760;
Result := AngleChord(DC, x1, y1, x2, y2, RoundToInt(A1), A2i);
End;
function TWidgetSet.RadialPie(DC: HDC; x1, y1, x2, y2,

6
lcl/include/intfbasewinapi.inc
View File

@ -1711,9 +1711,13 @@ function TWidgetSet.Pie(DC: HDC; x1, y1, x2, y2,
sx, sy, ex, ey: Integer): Boolean;
var
A1, A2: extended;
A2i: integer;
begin
Coords2Angles(x1, y1, x2-x1, y2-y1, sx, sy, ex, ey, A1, A2);
Result := RadialPie(DC, x1, y1, x2, y2, RoundToInt(A1), RoundToInt(A2));
A2i := RoundToInt(A2);
if A2i = 0 then
A2i := 5760;
Result := RadialPie(DC, x1, y1, x2, y2, RoundToInt(A1), A2i);
end;
function TWidgetSet.PolyBezier(DC: HDC; Points: PPoint; NumPts: Integer;