paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 18:49:19 +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; function Get: String;
end; end;
operator :=(AEq: IFitEquationText): String; inline;
implementation implementation
uses uses
TAChartUtils, StrUtils, SysUtils; TAChartUtils, StrUtils, SysUtils;
operator := (AEq: IFitEquationText): String;
begin
Result := AEq.Get;
end;
{ TFitEmptyEquationText } { TFitEmptyEquationText }
function TFitEmptyEquationText.Equation( function TFitEmptyEquationText.Equation(

8
components/tachart/tafuncseries.pas
View File

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