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

TAChart: Simplified variant of TSeries.AddXY

Browse Source 
git-svn-id: trunk@19137 -
This commit is contained in:
ask 2009-03-27 23:06:04 +00:00
parent 52d21f4396
commit fea9d0eef9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/taseries.pas
View File

@ -76,7 +76,8 @@ type
property YGraphMax: Double read FYGraphMax write FYGraphMax; property YGraphMax: Double read FYGraphMax write FYGraphMax;
function Count: Integer; override; function Count: Integer; override;
function AddXY(X, Y: Double; XLabel: String; Color: TColor): Longint; virtual; function AddXY(X, Y: Double; XLabel: String; Color: TColor): Longint; virtual; overload;
function AddXY(X, Y: Double): Longint; virtual; overload;
function Add(AValue: Double; XLabel: String; Color: TColor): Longint; virtual; function Add(AValue: Double; XLabel: String; Color: TColor): Longint; virtual;
procedure Delete(AIndex: Integer); virtual; procedure Delete(AIndex: Integer); virtual;
procedure Clear; procedure Clear;
@ -439,6 +440,10 @@ begin
Result := AddXY(XVal + 1, AValue, XLabel, Color); Result := AddXY(XVal + 1, AValue, XLabel, Color);
end; end;
function TChartSeries.AddXY(X, Y: Double): Longint;
begin
AddXY(X, Y, '', clTAColor);
end;
procedure TChartSeries.Delete(AIndex:Integer); procedure TChartSeries.Delete(AIndex:Integer);
begin begin