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

TAChart: Add TPieSeries.FixedRadius property

Browse Source 
git-svn-id: trunk@28638 -
This commit is contained in:
ask 2010-12-06 14:02:58 +00:00
parent b1d4dc1fb8
commit 09382cb3c0
2 changed files with 46 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
components/tachart/taradialseries.pas
View File

@ -23,7 +23,7 @@ interface
uses
Classes, Graphics, SysUtils, Types,
TACustomSeries, TALegend;
TACustomSeries, TALegend, TAChartUtils;
type
TLabelParams = record
@ -41,12 +41,14 @@ type
TCustomPieSeries = class(TChartSeries)
private
FCenter: TPoint;
FExploded: Boolean;
FFixedRadius: TChartDistance;
FLabels: array of TLabelParams;
FRadius: Integer;
FSlices: array of TPieSlice;
FExploded: Boolean;
procedure Measure(ACanvas: TCanvas);
procedure SetExploded(const AValue: Boolean);
procedure SetExploded(AValue: Boolean);
procedure SetFixedRadius(AValue: TChartDistance);
function SliceColor(AIndex: Integer): TColor;
protected
procedure AfterAdd; override;
@ -58,6 +60,8 @@ type
// Offset slices away from center based on X value.
property Exploded: Boolean read FExploded write SetExploded default false;
property FixedRadius: TChartDistance
read FFixedRadius write SetFixedRadius default 0;
property Source;
end;
@ -65,11 +69,12 @@ implementation
uses
Math, GraphMath,
TAChartUtils, TADrawUtils, TASources;
TADrawUtils, TASources;
{ TCustomPieSeries }
function TCustomPieSeries.AddPie(Value: Double; Text: String; Color: TColor): Longint;
function TCustomPieSeries.AddPie(
Value: Double; Text: String; Color: TColor): Longint;
begin
Result := AddXY(GetXMaxVal + 1, Value, Text, Color);
end;
@ -192,26 +197,37 @@ var
di: PChartDataItem;
prevAngle: Double = 0;
begin
SetLength(FLabels, Count);
SetLength(FSlices, Count);
for i := 0 to Count - 1 do
with FLabels[i] do begin
FText := FormattedMark(i);
FSize := Marks.MeasureLabel(ACanvas, FText);
m.X := Max(m.X, FSize.cx);
m.Y := Max(m.Y, FSize.cy);
end;
FCenter := CenterPoint(ParentChart.ClipRect);
if Marks.IsMarkLabelsVisible then begin
SetLength(FLabels, Count);
for i := 0 to Count - 1 do
with FLabels[i] do begin
FText := FormattedMark(i);
if FText = '' then
FSize := Size(0, 0)
else
FSize := Marks.MeasureLabel(ACanvas, FText);
m.X := Max(m.X, FSize.cx);
m.Y := Max(m.Y, FSize.cy);
end;
end;
// Reserve space for labels.
m := ParentChart.ClipRect.BottomRight - FCenter - m;
FRadius := Min(m.X, m.Y);
if Marks.IsMarkLabelsVisible then
FRadius -= Marks.Distance;
FRadius := Max(FRadius - MARGIN, 0);
if Exploded then
FRadius := Trunc(FRadius / (Max(Source.Extent.b.X, 0) + 1));
if FixedRadius = 0 then begin
FRadius := Min(m.X, m.Y);
if Marks.IsMarkLabelsVisible then
FRadius -= Marks.Distance;
FRadius := Max(FRadius - MARGIN, 0);
if Exploded then
FRadius := Trunc(FRadius / (Max(Source.Extent.b.X, 0) + 1));
end
else
FRadius := FixedRadius;
SetLength(FSlices, Count);
for i := 0 to Count - 1 do begin
di := Source[i];
with FSlices[i] do begin
@ -227,13 +243,20 @@ begin
end;
end;
procedure TCustomPieSeries.SetExploded(const AValue: Boolean);
procedure TCustomPieSeries.SetExploded(AValue: Boolean);
begin
if FExploded = AValue then exit;
FExploded := AValue;
UpdateParentChart;
end;
procedure TCustomPieSeries.SetFixedRadius(AValue: TChartDistance);
begin
if FFixedRadius = AValue then exit;
FFixedRadius := AValue;
UpdateParentChart;
end;
function TCustomPieSeries.SliceColor(AIndex: Integer): TColor;
begin
Result :=

1
components/tachart/taseries.pas
View File

@ -91,6 +91,7 @@ type
TPieSeries = class(TCustomPieSeries)
published
property Exploded;
property FixedRadius;
property Source;
end;