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

TAChart: Add TPieSeries.EdgePen property

Browse Source 
git-svn-id: trunk@35639 -
This commit is contained in:
ask 2012-03-01 15:11:21 +00:00
parent 911c638917
commit ab96a7be35
2 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/tachart/taradialseries.pas
View File

@ -72,10 +72,12 @@ type
FRadius: Integer;
FSlices: array of TPieSlice;
private
FEdgePen: TPen;
FExploded: Boolean;
FFixedRadius: TChartDistance;
FRotateLabels: Boolean;
procedure Measure(ADrawer: IChartDrawer);
procedure SetEdgePen(AValue: TPen);
procedure SetExploded(AValue: Boolean);
procedure SetFixedRadius(AValue: TChartDistance);
procedure SetMarkPositions(AValue: TPieMarkPositions);
@ -84,12 +86,16 @@ type
function TryRadius(ADrawer: IChartDrawer): TRect;
protected
procedure GetLegendItems(AItems: TChartLegendItems); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
public
function AddPie(AValue: Double; AText: String; AColor: TColor): Integer;
procedure Assign(ASource: TPersistent); override;
procedure Draw(ADrawer: IChartDrawer); override;
function FindContainingSlice(const APoint: TPoint): Integer;
property EdgePen: TPen read FEdgePen write SetEdgePen;
// Offset slices away from center based on X value.
property Exploded: Boolean read FExploded write SetExploded default false;
property FixedRadius: TChartDistance
@ -209,6 +215,19 @@ begin
inherited Assign(ASource);
end;
constructor TCustomPieSeries.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FEdgePen := TPen.Create;
FEdgePen.OnChange := @StyleChanged;
end;
destructor TCustomPieSeries.Destroy;
begin
FreeAndNil(FEdgePen);
inherited;
end;
procedure TCustomPieSeries.Draw(ADrawer: IChartDrawer);
const
STEP = 4;
@ -224,7 +243,7 @@ begin
Marks.SetAdditionalAngle(0);
Measure(ADrawer);
ADrawer.PrepareSimplePen(clBlack);
ADrawer.SetPen(EdgePen);
if Depth > 0 then begin
for ps in FSlices do begin
if not ps.FVisible then continue;
@ -339,6 +358,12 @@ begin
end;
end;
procedure TCustomPieSeries.SetEdgePen(AValue: TPen);
begin
if FEdgePen = AValue then exit;
FEdgePen.Assign(AValue);
end;
procedure TCustomPieSeries.SetExploded(AValue: Boolean);
begin
if FExploded = AValue then exit;
@ -574,7 +599,7 @@ end;
procedure TPolarSeries.SetLinePen(AValue: TPen);
begin
if FLinePen = AValue then exit;
FLinePen := AValue;
FLinePen.Assign(AValue);
end;
procedure TPolarSeries.SetOriginX(AValue: Double);

1
components/tachart/taseries.pas
View File

@ -111,6 +111,7 @@ type
TPieSeries = class(TCustomPieSeries)
published
property EdgePen;
property Depth;
property Exploded;
property FixedRadius;