paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 21:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add TeeChart-compatible THorizBarSeries class

Browse Source 
git-svn-id: trunk@36922 -
This commit is contained in:
ask 2012-04-20 07:01:32 +00:00
parent 7972cf7f51
commit c2a1945430
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/tachart/tachartteechart.pas
View File

@ -43,14 +43,32 @@ type
property MarginTop: TChartDistance index 2 read GetMargin write SetMargin; property MarginTop: TChartDistance index 2 read GetMargin write SetMargin;
end; end;
TPointerSeries = class(TLineSeries) TPointSeries = class(TLineSeries)
published published
property LineType default ltNone; property LineType default ltNone;
property ShowPoints default true; property ShowPoints default true;
end; end;
THorizBarSeries = class(TBarSeries)
public
// Swap X and Y as TeeChart does.
function AddXY(
AX, AY: Double; AXLabel: String = ''; AColor: TChartColor = clTAColor): Integer; overload; inline;
published
property AxisIndexX default 0;
property AxisIndexY default 1;
end;
implementation implementation
{ THorizBarSeries }
function THorizBarSeries.AddXY(
AX, AY: Double; AXLabel: String; AColor: TChartColor): Integer;
begin
Result := inherited AddXY(AY, AX, AXLabel, AColor);
end;
{ TChartTeeChart } { TChartTeeChart }
function TChartTeeChart.GetAxisByAlign1(AIndex: TChartAxisAlignment): TChartAxis; function TChartTeeChart.GetAxisByAlign1(AIndex: TChartAxisAlignment): TChartAxis;