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

TAChart: Add new public properties XValues, YValues to TChartSeries for simple access to data XList and YList.

Browse Source 
git-svn-id: trunk@53917 -
This commit is contained in:
wp 2017-01-10 22:44:14 +00:00
parent a7a61d5156
commit 0028c7e58f
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
components/tachart/tacustomseries.pas
View File

@ -175,14 +175,18 @@ type
function GetXMax: Double;
function GetXMin: Double;
function GetXValue(AIndex: Integer): Double;
function GetXValues(AIndex, AXIndex: Integer): Double;
function GetYImgValue(AIndex: Integer): Integer;
function GetYMax: Double;
function GetYMin: Double;
function GetYValue(AIndex: Integer): Double;
function GetYValues(AIndex, AYIndex: Integer): Double;
procedure SetColor(AIndex: Integer; AColor: TColor); inline;
procedure SetText(AIndex: Integer; AValue: String); inline;
procedure SetXValue(AIndex: Integer; AValue: Double); inline;
procedure SetXValues(AIndex, AXIndex: Integer; AValue: Double);
procedure SetYValue(AIndex: Integer; AValue: Double); inline;
procedure SetYValues(AIndex, AYIndex: Integer; AValue: Double);
public
function Add(
AValue: Double;
@ -217,7 +221,9 @@ type
function MaxYValue: Double;
function MinYValue: Double;
property XValue[AIndex: Integer]: Double read GetXValue write SetXValue;
property XValues[AIndex, AXIndex: Integer]: Double read GetXValues write SetXValues;
property YValue[AIndex: Integer]: Double read GetYValue write SetYValue;
property YValues[AIndex, AYIndex: Integer]: Double read GetYValues write SetYValues;
published
property Active default true;
property Marks: TChartMarks read FMarks write SetMarks;
@ -885,6 +891,14 @@ begin
Result := Source[AIndex]^.X;
end;
function TChartSeries.GetXValues(AIndex, AXIndex: Integer): Double;
begin
if AXIndex = 0 then
Result := Source[AIndex]^.X
else
Result := Source[AIndex]^.XList[AXIndex - 1];
end;
function TChartSeries.GetYImgValue(AIndex: Integer): Integer;
begin
Result := ParentChart.YGraphToImage(Source[AIndex]^.Y);
@ -915,6 +929,14 @@ begin
Result := Source[AIndex]^.Y;
end;
function TChartSeries.GetYValues(AIndex, AYIndex: Integer): Double;
begin
if AYIndex = 0 then
Result := GetYValue(AIndex)
else
Result := Source[AIndex]^.YList[AYIndex - 1];
end;
function TChartSeries.IsEmpty: Boolean;
begin
Result := Count = 0;
@ -986,11 +1008,27 @@ begin
ListSource.SetXValue(AIndex, AValue);
end;
procedure TChartSeries.SetXValues(AIndex, AXIndex: Integer; AValue: Double);
begin
if AXIndex = 0 then
ListSource.SetXValue(AIndex, AValue)
else
ListSource.Item[AIndex]^.XList[AXIndex - 1] := AValue;
end;
procedure TChartSeries.SetYValue(AIndex: Integer; AValue: Double); inline;
begin
ListSource.SetYValue(AIndex, AValue);
end;
procedure TChartSeries.SetYValues(AIndex, AYIndex: Integer; AValue: Double);
begin
if AYIndex = 0 then
ListSource.SetYValue(AIndex, AValue)
else
ListSource.Item[AIndex]^.YList[AYIndex - 1] := AValue;
end;
procedure TChartSeries.SourceChanged(ASender: TObject);
begin
StyleChanged(ASender);