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

TAChart: Add access to expression parameters by name

Browse Source 
git-svn-id: trunk@56354 -
This commit is contained in:
wp 2017-11-10 21:10:38 +00:00
parent c3f41244e0
commit 978fbdcdd1
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
components/tachart/taexpressionseries.pas
View File

@ -48,13 +48,17 @@ type
FParser: TFpExpressionParser;
FSeries: TExpressionSeries;
function GetP(AIndex: Integer): TChartExprParam;
function GetValByName(AName: String): Double;
procedure SetP(AIndex: Integer; AValue: TChartExprParam);
procedure SetValByName(AName: String; AValue: Double);
protected
procedure Changed;
public
constructor Create(ASeries: TExpressionSeries);
function AddParam(const AName: String; const AValue: Double): TChartExprParam;
function FindParamByName(AName: String): TChartExprParam;
property Params[AIndex: Integer]: TChartExprParam read GetP write SetP; default;
property ValueByName[AName: String]: Double read GetValByName write SetValByName;
end;
TDomainParts = array[0..4] of String;
@ -182,17 +186,50 @@ begin
FSeries.UpdateParentChart;
end;
function TChartExprParams.FindParamByName(AName: String): TChartExprParam;
var
i: Integer;
begin
for i:=0 to Count-1 do begin
Result := Params[i];
if Result.Name = AName then
exit;
end;
Result := nil;
end;
function TChartExprParams.GetP(AIndex: Integer): TChartExprParam;
begin
Result := TChartExprParam(Items[AIndex]);
end;
function TChartExprParams.GetValByName(AName: String): Double;
var
P : TChartExprParam;
begin
P := FindParamByName(AName);
if P = nil then
raise Exception.CreateFmt('Parameter "%s" not found.', [AName]);
Result := P.Value;
end;
procedure TChartExprParams.SetP(AIndex: Integer;
AValue: TChartExprParam);
begin
Items[AIndex] := AValue;
end;
procedure TChartExprParams.SetValByName(AName: String; AValue: Double);
var
P: TChartExprParam;
begin
P := FindParamByName(AName);
if P = nil then
raise Exception.CreateFmt('Parameter "%s" not found.', [AName]);
P.Value := AValue;
Changed;
end;
{ TChartDomainScanner }