paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 22:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Revert to setting AxisIndexX/AxinsIndexY properties directly

Browse Source 
* since they are not published in some descendants.

git-svn-id: trunk@36928 -
This commit is contained in:
ask 2012-04-20 10:05:22 +00:00
parent d63ad33c4e
commit 140d76e610
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/tachartteechart.pas
View File

@ -56,6 +56,7 @@ type
function AddXY(
AX, AY: Double; AXLabel: String = '';
AColor: TChartColor = clTAColor): Integer; overload; inline;
constructor Create(AOwner: TComponent); override;
published
property AxisIndexX default 0;
property AxisIndexY default 1;
@ -180,6 +181,12 @@ begin
Result := inherited AddXY(AY, AX, AXLabel, AColor);
end;
constructor THorizBarSeries.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SetPropDefaults(Self, ['AxisIndexX', 'AxisIndexY']);
end;
{ TChartTeeChart }
function TChartTeeChart.GetAxisByAlign1(AIndex: TChartAxisAlignment): TChartAxis;

3
components/tachart/tacustomseries.pas
View File

@ -309,8 +309,9 @@ constructor TCustomChartSeries.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FActive := true;
FAxisIndexX := DEF_AXIS_INDEX;
FAxisIndexY := DEF_AXIS_INDEX;
FLegend := TChartSeriesLegend.Create(FChart);
SetPropDefaults(Self, ['AxisIndexX', 'AxisIndexY']);
end;
destructor TCustomChartSeries.Destroy;