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

TAChart: Add potential support for pie charts to fpcanvas drawer.

Browse Source 
Will start working as soon as FPCanvas will support filled polygons.

git-svn-id: trunk@38559 -
This commit is contained in:
ask 2012-09-07 13:49:57 +00:00
parent c2281371a4
commit 74d88298c4
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tadrawerfpcanvas.pas
View File

@ -211,11 +211,14 @@ end;
procedure TFPCanvasDrawer.RadialPie(
AX1, AY1, AX2, AY2: Integer; AStartAngle16Deg, AAngleLength16Deg: Integer);
var
e: TEllipse;
p: TPointArray;
begin
Unused(AX1, AY1);
Unused(AX2, AY2);
Unused(AStartAngle16Deg, AAngleLength16Deg);
raise EChartError.Create('TFPCanvasDrawer.RadialPie not implemented');
e.InitBoundingBox(AX1, AY1, AX2, AY2);
p := e.TesselateRadialPie(
Deg16ToRad(AStartAngle16Deg), Deg16ToRad(AAngleLength16Deg), 4);
Polygon(p, 0, Length(p));
end;
procedure TFPCanvasDrawer.Rectangle(AX1, AY1, AX2, AY2: Integer);