paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 21:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add TListChartSource.SetYList procedure

Browse Source 
git-svn-id: trunk@27119 -
This commit is contained in:
ask 2010-08-17 10:01:41 +00:00
parent 1dd8d33568
commit 0fbee9a723
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tasources.pas
View File

@ -116,6 +116,7 @@ type
procedure Delete(AIndex: Integer); inline;
function IsSorted: Boolean; override;
function SetXValue(AIndex: Integer; AValue: Double): Integer;
procedure SetYList(AIndex: Integer; const AYList: array of Double);
procedure SetYValue(AIndex: Integer; AValue: Double);
procedure Sort;
published
@ -788,6 +789,16 @@ begin
SetLength(Item[i]^.YList, Max(FYCount - 1, 0));
end;
procedure TListChartSource.SetYList(
AIndex: Integer; const AYList: array of Double);
var
i: Integer;
begin
with Item[AIndex]^ do
for i := 0 to Min(High(AYList), High(YList)) do
YList[i] := AYList[i];
end;
procedure TListChartSource.SetYValue(AIndex: Integer; AValue: Double);
var
i: Integer;