paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +02: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;
procedure ExtendExprBuiltins;
var
i: Integer;
begin
with BuiltinIdentifiers do begin
// Trigonometric and related
@ -990,10 +988,6 @@ begin
AddFunction(bcMath, 'lg', 'F', 'F', @ExprLog10);
AddFunction(bcMath, 'log10', 'F', 'F', @ExprLog10);
AddFunction(bcMath, 'log2', 'F', 'F', @ExprLog2);
// Max/min
//AddFunction(bcMath, 'max', 'F', 'FF', @ExprMax);
//AddFunction(bcMath, 'min', 'F', 'FF', @ExprMin);
end;
end;

3
components/tachart/tafuncseries.pas
View File

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

2
components/tachart/tahtml.pas
View File

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