paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 23:37:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add new property MarkDistancePercent to TPieSeries.

Browse Source 
git-svn-id: trunk@58447 -
This commit is contained in:
wp 2018-07-06 12:17:50 +00:00
parent f0b79df6e0
commit b620802ae8
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tachart/taradialseries.pas
View File

@ -62,6 +62,7 @@ type
TCustomPieSeries = class(TChartSeries)
private
FCenter: TPoint;
FMarkDistancePercent: Boolean;
FMarkPositions: TPieMarkPositions;
FRadius: Integer;
FSlices: array of TPieSlice;
@ -74,6 +75,7 @@ type
procedure SetEdgePen(AValue: TPen);
procedure SetExploded(AValue: Boolean);
procedure SetFixedRadius(AValue: TChartDistance);
procedure SetMarkDistancePercent(AValue: Boolean);
procedure SetMarkPositions(AValue: TPieMarkPositions);
procedure SetRotateLabels(AValue: Boolean);
function SliceColor(AIndex: Integer): TColor;
@ -99,6 +101,8 @@ type
property Exploded: Boolean read FExploded write SetExploded default false;
property FixedRadius: TChartDistance
read FFixedRadius write SetFixedRadius default 0;
property MarkDistancePercent: Boolean
read FMarkDistancePercent write SetMarkDistancePercent default false;
property MarkPositions: TPieMarkPositions
read FMarkPositions write SetMarkPositions default pmpAround;
property RotateLabels: Boolean
@ -465,6 +469,13 @@ begin
UpdateParentChart;
end;
procedure TCustomPieSeries.SetMarkDistancePercent(AValue: Boolean);
begin
if FMarkDistancePercent = AValue then exit;
FMarkDistancePercent := AVAlue;
UpdateParentChart;
end;
procedure TCustomPieSeries.SetRotateLabels(AValue: Boolean);
begin
if FRotateLabels = AValue then exit;
@ -534,7 +545,7 @@ function TCustomPieSeries.TryRadius(ADrawer: IChartDrawer): TRect;
var
d: Double;
begin
d := Marks.Distance;
d := IfThen(FMarkDistancePercent, Marks.Distance * FRadius / 100, Marks.Distance);
if not Marks.DistanceToCenter then
d += LabelExtraDist(p, AAngle);
Result := EndPoint(AAngle, d);

1
components/tachart/taseries.pas
View File

@ -119,6 +119,7 @@ type
property Depth;
property Exploded;
property FixedRadius;
property MarkDistancePercent;
property MarkPositions;
property RotateLabels;
property Source;