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

TAChart: Make TPieSeries.Radius public

Browse Source 
git-svn-id: trunk@50333 -
This commit is contained in:
wp 2015-11-15 10:31:29 +00:00
parent a55a3eb0c5
commit 80fa123942
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/taradialseries.pas
View File

@ -80,6 +80,7 @@ type
function TryRadius(ADrawer: IChartDrawer): TRect;
protected
procedure GetLegendItems(AItems: TChartLegendItems); override;
property Radius: Integer read FRadius;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

2
components/tachart/taseries.pas
View File

@ -107,6 +107,8 @@ type
{ TPieSeries }
TPieSeries = class(TCustomPieSeries)
public
property Radius;
published
property EdgePen;
property Depth;