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

TAChart: Move operator := for IFitEquationText to TAFitUtils unit

Browse Source 
git-svn-id: trunk@39354 -
This commit is contained in:
ask 2012-11-23 20:49:41 +00:00
parent 8598d1fe04
commit 4987fc07df
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tafitutils.pas
View File

@ -69,12 +69,18 @@ type
function Get: String;
end;
operator :=(AEq: IFitEquationText): String; inline;
implementation
uses
TAChartUtils, StrUtils, SysUtils;
operator := (AEq: IFitEquationText): String;
begin
Result := AEq.Get;
end;
{ TFitEmptyEquationText }
function TFitEmptyEquationText.Equation(

8
components/tachart/tafuncseries.pas
View File

@ -298,8 +298,7 @@ type
function ParamsToEquation(
AEquation: TFitEquation; const AParams: array of Double;
ANumFormat: String; AXText: String = 'x'; AYText: String = 'y'): String;
deprecated 'Use TFitSeries.IFitEquationText';
operator :=(AEq: TFitSeries.IFitEquationText): String; inline;
deprecated 'Use IFitEquationText';
implementation
@ -335,11 +334,6 @@ begin
X(AXText).Y(AYText).NumFormat(ANumFormat).Params(AParams);
end;
operator := (AEq: TFitSeries.IFitEquationText): String;
begin
Result := AEq.Get;
end;
{ TColorMapLegendItem }
constructor TLegendItemColorMap.Create(