paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-26 03:21:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Less hints.

Browse Source 
git-svn-id: trunk@56496 -
This commit is contained in:
wp 2017-11-25 22:56:35 +00:00
parent 0ced9ed347
commit 130b9d9510
3 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/taexpressionseries.pas
View File

@ -960,8 +960,6 @@ begin
end; end;
procedure ExtendExprBuiltins; procedure ExtendExprBuiltins;
var
i: Integer;
begin begin
with BuiltinIdentifiers do begin with BuiltinIdentifiers do begin
// Trigonometric and related // Trigonometric and related
@ -990,10 +988,6 @@ begin
AddFunction(bcMath, 'lg', 'F', 'F', @ExprLog10); AddFunction(bcMath, 'lg', 'F', 'F', @ExprLog10);
AddFunction(bcMath, 'log10', 'F', 'F', @ExprLog10); AddFunction(bcMath, 'log10', 'F', 'F', @ExprLog10);
AddFunction(bcMath, 'log2', 'F', 'F', @ExprLog2); AddFunction(bcMath, 'log2', 'F', 'F', @ExprLog2);
// Max/min
//AddFunction(bcMath, 'max', 'F', 'FF', @ExprMax);
//AddFunction(bcMath, 'min', 'F', 'FF', @ExprMin);
end; end;
end; end;

3
components/tachart/tafuncseries.pas
View File

@ -1883,7 +1883,6 @@ var
lb, ub: Integer; lb, ub: Integer;
c1, c2: TColor; c1, c2: TColor;
v1, v2: Double; v1, v2: Double;
f: Double;
begin begin
if (ColorSource = nil) or (ColorSource.Count = 0) then exit(clTAColor); if (ColorSource = nil) or (ColorSource.Count = 0) then exit(clTAColor);
@ -1954,7 +1953,6 @@ var
cellColor: TChartColor; cellColor: TChartColor;
scaled_stepX: Integer; scaled_stepX: Integer;
scaled_stepY: Integer; scaled_stepY: Integer;
zmin, zmax: Double;
begin begin
if not (csDesigning in ComponentState) and IsEmpty then exit; if not (csDesigning in ComponentState) and IsEmpty then exit;
@ -2035,6 +2033,7 @@ end;
function TCustomColorMapSeries.FunctionValue(AX, AY: Double): Double; function TCustomColorMapSeries.FunctionValue(AX, AY: Double): Double;
begin begin
Unused(AX, AY);
Result := 0.0; Result := 0.0;
end; end;

2
components/tachart/tahtml.pas
View File

@ -16,7 +16,7 @@ implementation
uses uses
SysUtils, htmldefs, LazUTF8, SysUtils, htmldefs, LazUTF8,
TAChartUtils, TAGeometry; TAChartUtils;
function ReplaceHTMLEntities(const AText: String): String; function ReplaceHTMLEntities(const AText: String): String;
var var