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

TAChart: Add TChartDataItem.SetY with index parameter

Browse Source 
git-svn-id: trunk@40175 -
This commit is contained in:
ask 2013-02-04 14:05:31 +00:00
parent c13054e9c5
commit 69598aa313
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tacustomsource.pas
View File

@ -94,6 +94,7 @@ type
Text: String; Text: String;
YList: TDoubleDynArray; YList: TDoubleDynArray;
function GetY(AIndex: Integer): Double; function GetY(AIndex: Integer): Double;
procedure SetY(AIndex: Integer; AValue: Double);
procedure SetY(AValue: Double); procedure SetY(AValue: Double);
procedure MultiplyY(ACoeff: Double); procedure MultiplyY(ACoeff: Double);
function Point: TDoublePoint; inline; function Point: TDoublePoint; inline;
@ -430,6 +431,14 @@ begin
YList[i] := AValue; YList[i] := AValue;
end; end;
procedure TChartDataItem.SetY(AIndex: Integer; AValue: Double);
begin
if AIndex = 0 then
Y := AValue
else
YList[AIndex - 1] := AValue;
end;
{ TChartSourceBuffer } { TChartSourceBuffer }
procedure TChartSourceBuffer.AddFirst(const AItem: TChartDataItem); procedure TChartSourceBuffer.AddFirst(const AItem: TChartDataItem);