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

TAChart: Provide public method TPieSeries.CalcBorderPoint.

Browse Source 
git-svn-id: trunk@60752 -
This commit is contained in:
wp 2019-03-23 18:47:26 +00:00
parent 1b480c8800
commit 0c7f82169d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/taradialseries.pas
View File

@ -126,6 +126,7 @@ type
public
function AddPie(AValue: Double; AText: String; AColor: TColor): Integer;
procedure Assign(ASource: TPersistent); override;
function CalcBorderPoint(ASlice: TPieSlice; ARadius, AAngle: Double): TPoint; inline;
function CalcInnerRadius: Integer; inline;
procedure Draw(ADrawer: IChartDrawer); override;
function FindContainingSlice(const APoint: TPoint): Integer;
@ -318,6 +319,12 @@ begin
inherited Assign(ASource);
end;
function TCustomPieSeries.CalcBorderPoint(ASlice: TPieSlice;
ARadius, AAngle: Double): TPoint;
begin
result := ASlice.FBase + FixAspectRatio(RotatePointX(ARadius, -AAngle));
end;
function TCustomPieSeries.CalcInnerRadius: Integer;
begin
Result := Round(0.01 * FRadius * FInnerRadiusPercent);
@ -431,7 +438,7 @@ var
end;
for i := 0 to n - 1 do begin
a := WeightedAverage(Angle1, Angle2, i / (n - 1));
APoints[j] := ASlice.FBase + FixAspectRatio(RotatePointX(ARadius, -a));
APoints[j] := CalcBorderpoint(ASlice, ARadius, a);
inc(j, dj);
end;
end;