paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 14:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: More built-in colormap palettes

Browse Source 
git-svn-id: trunk@56406 -
This commit is contained in:
wp 2017-11-14 14:49:55 +00:00
parent 8928e14292
commit 173cef239a
1 changed files with 47 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
components/tachart/tafuncseries.pas
View File

@ -342,7 +342,7 @@ type
property OnGetPointerStyle;
end;
TColorMapPalette = (cmpHot);
TColorMapPalette = (cmpHot, cmpCold, cmpRainbow, cmpMonochrome);
TFuncCalculate3DEvent =
procedure (const AX, AY: Double; out AZ: Double) of object;
@ -434,7 +434,7 @@ type
implementation
uses
ipf, GraphType, IntfGraphics, Math, StrUtils, SysUtils,
ipf, GraphType, GraphUtil, IntfGraphics, Math, StrUtils, SysUtils,
TAChartStrConsts, TAGeometry, TAGraph, TAMath, TASources;
const
@ -1823,6 +1823,9 @@ begin
end;
procedure TCustomColorMapSeries.BuildPalette(APalette: TColorMapPalette);
var
i: Integer;
h,s,l: Byte;
begin
with FBuiltinColorSource as TListChartSource do begin
BeginUpdate;
@ -1836,6 +1839,34 @@ begin
Add(2/3, 0, '', clYellow);
Add(1, 0, '', clWhite);
end;
cmpCold:
begin
ColorToHLS(clBlue, h, l, s);
i := 0;
while i <= 255 do begin
Add(i, 0, '', HLSToColor(h, i, s));
inc(i, 32);
end;
Add(255, 0, '', clWhite);
end;
cmpRainbow:
begin
i := 0;
while i <= 255 do begin // i is hue
Add(i, 0, '', HLSToColor(i, 128, 255));
inc(i, 32);
end;
Add(255, 0, '', HLSToColor(255, 128, 255));
end;
cmpMonochrome:
begin
i := 0;
while i <= 255 do begin
Add(i, 0, '', RgbToColor(i, i, i));
inc(i, 32);
end;
Add(255, 0, '', clWhite);
end;
else
raise Exception.Create('Palette not supported');
end;
@ -2105,16 +2136,21 @@ begin
FMinZ := 1E308;
FMaxZ := -FMinZ;
iy := ARect.Top;
while iy <= ARect.Bottom - dy2 do begin
ix := ARect.Left;
while ix < ARect.Right - dx2 do begin
gp := ParentChart.ImageToGraph(Point(ix, iy));
z := FunctionValue(gp.X + dx2, gp.Y + dy2);
FMinZ := Min(FMinZ, z);
FMaxZ := Max(FMaxZ, z);
inc(ix, dx);
try
while iy <= ARect.Bottom - dy2 do begin
ix := ARect.Left;
while ix < ARect.Right - dx2 do begin
gp := ParentChart.ImageToGraph(Point(ix, iy));
z := FunctionValue(gp.X + dx2, gp.Y + dy2);
FMinZ := Min(FMinZ, z);
FMaxZ := Max(FMaxZ, z);
inc(ix, dx);
end;
inc(iy, dy);
end;
inc(iy, dy);
except
FActive := false;
raise;
end;
end;