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

TAChart: Stop auto-hiding axis after adding pie series

Browse Source 
git-svn-id: trunk@31651 -
This commit is contained in:
ask 2011-07-10 09:53:38 +00:00
parent 57720bea42
commit 1616b005fa
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/taradialseries.pas
View File

@ -79,7 +79,6 @@ type
function SliceColor(AIndex: Integer): TColor;
function TryRadius(ADrawer: IChartDrawer): TRect;
protected
procedure AfterAdd; override;
procedure GetLegendItems(AItems: TChartLegendItems); override;
public
function AddPie(AValue: Double; AText: String; AColor: TColor): Integer;
@ -181,14 +180,6 @@ begin
Result := AddXY(GetXMaxVal + 1, AValue, AText, AColor);
end;
procedure TCustomPieSeries.AfterAdd;
begin
inherited;
// disable axis when we have TPie series
ParentChart.LeftAxis.Visible := false;
ParentChart.BottomAxis.Visible := false;
end;
procedure TCustomPieSeries.Assign(ASource: TPersistent);
begin
if ASource is TCustomPieSeries then