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

TAChart: Separate color map functionality from TColorMapSeries into a generally-usable class TColorMap (unit TAColorMap).

Browse Source
This commit is contained in:
wp_xyz 2023-03-17 20:09:18 +01:00
parent f0ae6049c6
commit af597e4d16
6 changed files with 391 additions and 222 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/demo/func/funcdemo.lpr
View File

@ -7,14 +7,13 @@ uses
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ you can add units after this }, main, runtimetypeinfocontrols,
TAChartLazarusPkg;
Forms { you can add units after this },
main;
{$R *.res}
begin
Application.Title := 'TAChart function series demo';
Application.Title:='TAChart function series demo';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

30
components/tachart/demo/func/main.lfm
View File

@ -99,20 +99,20 @@ object Form1: TForm1
end
end
object cbDomain: TCheckBox
Left = 541
Left = 543
Height = 19
Top = 401
Width = 62
Width = 60
Anchors = [akRight, akBottom]
Caption = 'Domain'
OnChange = cbDomainChange
TabOrder = 1
end
object cbRotate: TCheckBox
Left = 541
Left = 543
Height = 19
Top = 376
Width = 54
Width = 52
Anchors = [akRight, akBottom]
Caption = 'Rotate'
OnChange = cbRotateChange
@ -200,7 +200,7 @@ object Form1: TForm1
Left = 0
Height = 19
Top = 339
Width = 77
Width = 75
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 4
Caption = 'Interpolate'
@ -213,7 +213,7 @@ object Form1: TForm1
Left = 0
Height = 19
Top = 283
Width = 98
Width = 96
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Expand legend'
@ -294,7 +294,7 @@ object Form1: TForm1
Left = 16
Height = 19
Top = 304
Width = 83
Width = 81
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 16
BorderSpacing.Bottom = 16
@ -415,7 +415,7 @@ object Form1: TForm1
Left = 123
Height = 19
Top = 7
Width = 75
Width = 73
AutoSize = True
BorderSpacing.Left = 24
Caption = 'Random X'
@ -440,10 +440,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = iseSplineDegree
AnchorSideTop.Side = asrCenter
Left = 294
Left = 290
Height = 19
Top = 7
Width = 51
Width = 49
AutoSize = True
BorderSpacing.Left = 16
Caption = 'Cubic'
@ -458,10 +458,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnSpline
AnchorSideTop.Side = asrCenter
Left = 214
Left = 212
Height = 19
Top = 7
Width = 64
Width = 62
AutoSize = True
BorderSpacing.Left = 16
Caption = 'B-Spline'
@ -475,10 +475,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = iseSplineDegree
AnchorSideTop.Side = asrCenter
Left = 369
Left = 363
Height = 19
Top = 7
Width = 50
Width = 48
AutoSize = True
BorderSpacing.Left = 24
Caption = 'Log Y'
@ -552,7 +552,7 @@ object Form1: TForm1
Left = 4
Height = 19
Top = 4
Width = 92
Width = 90
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4

6
components/tachart/tachartlazaruspkg.lpk
View File

@ -30,7 +30,7 @@
for details about the copyright.
"/>
<Version Major="1"/>
<Files Count="55">
<Files Count="56">
<Item1>
<Filename Value="tagraph.pas"/>
<HasRegisterProc Value="True"/>
@ -271,6 +271,10 @@
<Filename Value="tapolygonseries.pas"/>
<UnitName Value="TAPolygonSeries"/>
</Item55>
<Item56>
<Filename Value="tacolormap.pas"/>
<UnitName Value="TAColorMap"/>
</Item56>
</Files>
<CompatibilityMode Value="True"/>
<LazDoc Paths="$(LazarusDir)\components\tachart\fpdoc"/>

2
components/tachart/tachartlazaruspkg.pas
View File

@ -19,7 +19,7 @@ uses
TACustomFuncSeries, TAFitUtils, TAGUIConnector, TADiagram, TADiagramDrawing,
TADiagramLayout, TAChartStrConsts, TAChartCombos, TAHtml, TAFonts,
TAExpressionSeries, TAFitLib, TASourcePropEditors, TADataPointsEditor,
TAPolygonSeries, LazarusPackageIntf;
TAPolygonSeries, TAColorMap, LazarusPackageIntf;
implementation

320
components/tachart/tacolormap.pas Normal file
View File

@ -0,0 +1,320 @@
unit TAColorMap;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Graphics,
TAChartUtils, TACustomSource, TASources, TACustomSeries;
type
TColorMapPalette = (cmpHot, cmpCold, cmpRainbow, cmpMonochrome);
TColorMap = class(TComponent)
private
FBuiltinColorSource: TListChartSource;
FBuiltinPalette: TColormapPalette;
FColorExtentMin, FColorExtentMax: Double;
FColorSource: TCustomChartSource;
FColorSourceListener: TListener;
FInterpolate: Boolean;
FNumXCountNeeded: Integer;
FNumYCountNeeded: Integer;
FOwnerSeries: TCustomChartSeries;
FPaletteMax: Double;
FPaletteMin: Double;
FOnChanged: TNotifyEvent;
function GetColorSource: TCustomChartSource;
procedure SetBuiltinPalette(AValue: TColorMapPalette);
procedure SetColorSource(AValue: TCustomChartSource);
procedure SetPaletteMax(AValue: Double);
procedure SetPaletteMin(AValue: Double);
protected
procedure BuildPalette(APalette: TColorMapPalette);
procedure CheckColorSource(ASource: TCustomChartSource);
procedure ColorMapChanged(Sender: TObject); virtual;
procedure ColorSourceChanged(Sender: TObject); virtual;
function OwnerSeries: TCustomChartSeries; inline;
procedure UpdateColorExtent;
public
constructor Create(AOwner: TCustomChartSeries; ANumXCountNeeded, ANumYCountNeeded: Integer); reintroduce;
destructor Destroy; override;
procedure Assign(ASource: TPersistent); override;
function ColorByValue(AValue: Double): TColor;
function IsColorSourceStored: boolean;
function IsPaletteMaxStored: Boolean;
function IsPaletteMinStored: Boolean;
// Read-only properties
property BuiltinColorSource: TListChartSource read FBuiltinColorSource;
property ColorExtentMax: Double read FColorExtentMax;
property ColorExtentMin: Double read FColorExtentMin;
// Read/write properties
property BuiltinPalette: TColormapPalette
read FBuiltInPalette write SetBuiltinPalette;
property ColorSource: TCustomChartSource
read GetColorSource write SetColorSource;
property Interpolate: Boolean
read FInterpolate write FInterpolate;
property PaletteMax: Double
read FPaletteMax write SetPaletteMax;
property PaletteMin: Double
read FPaletteMin write SetPaletteMin;
property OnChanged: TNotifyEvent
read FOnChanged write FOnChanged;
end;
implementation
uses
GraphUtil, Math,
TAChartStrConsts, TAMath;
constructor TColorMap.Create(AOwner: TCustomChartSeries;
ANumXCountNeeded, ANumYCountNeeded: Integer);
const
BUILTIN_SOURCE_NAME = 'BuiltinColors';
begin
inherited Create(AOwner);
FNumXCountNeeded := ANumXCountNeeded;
FNumYCountNeeded := ANumYCountNeeded;
FColorSourceListener := TListener.Create(@FColorSource, @ColorSourceChanged);
FBuiltinColorSource := TBuiltinListChartSource.Create(self, ANumXCountNeeded, ANumYCountNeeded);
FBuiltinColorSource.XCount := ANumXCountNeeded;
FBuiltinColorSource.YCount := ANumYCountNeeded;
FBuiltinColorSource.Name := BUILTIN_SOURCE_NAME;
FBuiltinColorSource.Broadcaster.Subscribe(FColorSourceListener);
end;
destructor TColorMap.Destroy;
begin
FreeAndNil(FBuiltinColorSource);
FreeAndNil(FColorSourceListener);
inherited Destroy;
end;
procedure TColorMap.Assign(ASource: TPersistent);
begin
if ASource is TColorMap then
with TColorMap(ASource) do begin
Self.BuiltinPalette := FBuiltinPalette;
{
Self.BuiltinPaletteMax := FPaletteMax;
Self.BuiltinPaletteMin := FPaletteMin;
}
Self.ColorSource := FColorSource;
Self.FInterpolate := FInterpolate;
Self.FNumXCountNeeded := FNumXCountNeeded;
Self.FNumYCountNeeded := FNumYCountNeeded;
end;
inherited Assign(ASource);
end;
procedure TColorMap.BuildPalette(APalette: TColorMapPalette);
var
i: Integer;
h, s, l: Byte;
cmax, cmin, factor: Double;
ex: TDoubleRect;
begin
with FBuiltinColorSource do begin
BeginUpdate;
try
Clear;
case APalette of
cmpHot:
begin
Add(0, 0, '', clBlack);
Add(1/3, 0, '', clRed);
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 EChartError.Create('[TAColorMap.BuildPalette] Palette kind not supported.');
end;
if FPaletteMin < FPaletteMax then begin
cmin := FPaletteMin;
cmax := FPaletteMax;
end else
if FPaletteMax < FPaletteMin then begin
cmin := FPaletteMax;
cmax := FPaletteMin;
end else
exit;
ex := Extent;
if (ex.a.x = ex.b.x) then
exit;
factor := (cmax - cmin) / (ex.b.x - ex.a.x);
for i:=0 to Count-1 do
Item[i]^.X := (Item[i]^.X - ex.a.x) * factor + cmin;
finally
EndUpdate;
end;
end;
end;
function TColorMap.ColorByValue(AValue: Double): TColor;
var
lb, ub: Integer;
c1, c2: TColor;
v1, v2: Double;
begin
if (ColorSource = nil) or (ColorSource.Count = 0) then
exit(clTAColor);
ColorSource.FindBounds(AValue, SafeInfinity, lb, ub);
if Interpolate and InRange(lb, 1, ColorSource.Count - 1) then begin
with ColorSource[lb - 1]^ do begin
v1 := X;
c1 := Color;
end;
with ColorSource[lb]^ do begin
v2 := X;
c2 := Color;
end;
if v2 <= v1 then
Result := c1
else
Result := InterpolateRGB(c1, c2, (AValue - v1) / (v2 - v1));
end
else
Result := ColorSource[EnsureRange(lb, 0, ColorSource.Count - 1)]^.Color;
end;
procedure TColorMap.CheckColorSource(ASource: TCustomChartSource);
begin
if ASource = nil then
exit;
if ASource.XCount < FNumXCountNeeded then
raise EXCountError.CreateFmt(rsSourceCountError, [ClassName, FNumXCountNeeded, 'x']);
if ASource.YCount < FNumYCountNeeded then
raise EYCountError.CreateFmt(rsSourceCountError, [ClassName, FNumYCountNeeded, 'y']);
end;
procedure TColorMap.ColorMapChanged(Sender: TObject);
begin
if Assigned(FOnChanged) then
FOnChanged(Sender);
end;
procedure TColorMap.ColorSourceChanged(Sender: TObject);
begin
if (Sender <> FBuiltinColorSource) and (Sender is TCustomChartSource) then
try
CheckColorSource(TCustomChartSource(Sender));
except
ColorSource := nil; // revert to built-in source
raise;
end;
UpdateColorExtent;
ColorMapChanged(Sender);
end;
function TColorMap.GetColorSource: TCustomChartSource;
begin
if Assigned(FColorSource) then
Result := FColorSource
else
Result := FBuiltinColorSource;
end;
function TColorMap.IsColorSourceStored: boolean;
begin
Result := FColorSource <> nil;
end;
function TColorMap.IsPaletteMaxStored: Boolean;
begin
Result := FPaletteMax <> 0;
end;
function TColorMap.IsPaletteMinStored: Boolean;
begin
Result := FPaletteMin <> 0;
end;
function TColorMap.OwnerSeries: TCustomChartSeries;
begin
Result := Owner as TCustomChartSeries;
end;
procedure TColorMap.SetBuiltinPalette(AValue: TColorMapPalette);
begin
FBuiltinPalette := AValue;
BuildPalette(FBuiltinPalette);
end;
procedure TColorMap.SetColorSource(AValue: TCustomChartSource);
begin
if AValue = FBuiltinColorSource then
AValue := nil;
if FColorSource = AValue then
exit;
CheckColorSource(AValue);
if FColorSourceListener.IsListening then
ColorSource.Broadcaster.Unsubscribe(FColorSourceListener);
FColorSource := AValue;
ColorSource.Broadcaster.Subscribe(FColorSourceListener);
ColorSourceChanged(Self);
end;
procedure TColorMap.SetPaletteMax(AValue: Double);
begin
if AValue = FPaletteMax then exit;
FPaletteMax := AValue;
BuildPalette(FBuiltinPalette);
end;
procedure TColorMap.SetPaletteMin(AValue: Double);
begin
if AValue = FPaletteMin then exit;
FPaletteMin := AValue;
BuildPalette(FBuiltinPalette);
end;
procedure TColorMap.UpdateColorExtent;
var
ext: TDoubleRect;
begin
if (csDestroying in ComponentState) then
exit;
ext := ColorSource.Extent;
FColorExtentMin := ext.a.x;
FColorExtentMax := ext.b.x;
end;
end.

248
components/tachart/tafuncseries.pas
View File

@ -20,7 +20,7 @@ interface
uses
Classes, Graphics, typ, Types,
TAChartUtils, TACustomFuncSeries, TACustomSeries, TACustomSource, TASources,
TADrawUtils, TAFitUtils, TALegend, TATypes, TAFitLib, TAStyles;
TADrawUtils, TAFitUtils, TALegend, TATypes, TAFitLib, TAStyles, TAColorMap;
const
DEF_FUNC_STEP = 2;
@ -406,7 +406,7 @@ type
property OnGetPointerStyle;
end;
TColorMapPalette = (cmpHot, cmpCold, cmpRainbow, cmpMonochrome);
TColorMapPalette = TAColorMap.TColorMapPalette;
TFuncCalculate3DEvent =
procedure (const AX, AY: Double; out AZ: Double) of object;
@ -417,17 +417,17 @@ type
TUseImage = (cmuiAuto, cmuiAlways, cmuiNever);
strict private
FBrush: TBrush;
FColorMap: TColorMap;
FColorSource: TCustomChartSource;
FColorSourceListener: TListener;
FInterpolate: Boolean;
FStepX: TFuncSeriesStep;
FStepY: TFuncSeriesStep;
FUseImage: TUseImage;
FColorExtentMin, FColorExtentMax: Double;
FBuiltinColorSource: TListChartSource;
FBuiltinPalette: TColormapPalette;
FPaletteMax: Double;
FPaletteMin: Double;
function GetBuiltinColorSource: TListChartSource;
function GetBuiltinPalette: TColorMapPalette;
function GetColorSource: TCustomChartSource;
function IsColorSourceStored: boolean;
function IsPaletteMaxStored: Boolean;
@ -443,13 +443,10 @@ type
procedure SetUseImage(AValue: TUseImage);
protected
FMinZ, FMaxZ: Double;
procedure BuildPalette(APalette: TColorMapPalette);
procedure CheckColorSource(ASource: TCustomChartSource);
procedure ColorSourceChanged(ASender: TObject); virtual;
procedure GetLegendItems(AItems: TChartLegendItems); override;
procedure GetZRange(ARect: TRect; dx, dy: Integer);
procedure UpdateColorExtent;
class procedure GetXYCountNeeded(out AXCount, AYCount: Cardinal); virtual;
property BuiltinColorSource: TListChartSource read GetBuiltinColorSource;
public
procedure Assign(ASource: TPersistent); override;
@ -457,7 +454,6 @@ type
destructor Destroy; override;
public
function ColorByValue(AValue: Double): TColor;
function FunctionValue(AX, AY: Double): Double; virtual;
procedure Draw(ADrawer: IChartDrawer); override;
function IsEmpty: Boolean; override;
@ -466,7 +462,7 @@ type
property AxisIndexY;
property Brush: TBrush read FBrush write SetBrush;
property BuiltInPalette: TColorMapPalette
read FBuiltinPalette write SetBuiltinPalette default cmpHot;
read GetBuiltinPalette write SetBuiltinPalette default cmpHot;
property BuiltInPaletteMax: Double
read FPaletteMax write SetPaletteMax stored IsPaletteMaxStored;
property BuiltInPaletteMin: Double
@ -2461,163 +2457,42 @@ end;
{ TCustomColorMapSeries }
procedure TCustomColorMapSeries.Assign(ASource: TPersistent);
begin
if ASource is TCustomColorMapSeries then
with TCustomColorMapSeries(ASource) do begin
Self.Brush := FBrush;
Self.BuiltinPalette := FBuiltinPalette;
Self.BuiltinPaletteMax := FPaletteMax;
Self.BuiltinPaletteMin := FPaletteMin;
Self.ColorSource := FColorSource;
Self.FInterpolate := FInterpolate;
Self.FStepX := FStepX;
Self.FStepY := FStepY;
end;
inherited Assign(ASource);
end;
procedure TCustomColorMapSeries.BuildPalette(APalette: TColorMapPalette);
var
i: Integer;
h, s, l: Byte;
cmax, cmin, factor: Double;
ex: TDoubleRect;
begin
with FBuiltinColorSource do begin
BeginUpdate;
try
Clear;
case APalette of
cmpHot:
begin
Add(0, 0, '', clBlack);
Add(1/3, 0, '', clRed);
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 EChartError.CreateFmt('[%s.BuildPalette] Palette not supported', [NameOrClassName(Self)]){%H-};
end;
if FPaletteMin < FPaletteMax then begin
cmin := FPaletteMin;
cmax := FPaletteMax;
end else
if FPaletteMax < FPaletteMin then begin
cmin := FPaletteMax;
cmax := FPaletteMin;
end else
exit;
ex := Extent;
if (ex.a.x = ex.b.x) then
exit;
factor := (cmax - cmin) / (ex.b.x - ex.a.x);
for i:=0 to Count-1 do
Item[i]^.X := (Item[i]^.X - ex.a.x) * factor + cmin;
finally
EndUpdate;
end;
end;
end;
procedure TCustomColorMapSeries.CheckColorSource(ASource: TCustomChartSource);
var
nx, ny: Cardinal;
begin
if ASource = nil then
exit;
GetXYCountNeeded(nx, ny);
if ASource.XCount < nx then
raise EXCountError.CreateFmt(rsSourceCountError, [ClassName, nx, 'x']);
if ASource.YCount < ny then
raise EYCountError.CreateFmt(rsSourceCountError, [ClassName, ny, 'y']);
end;
function TCustomColorMapSeries.ColorByValue(AValue: Double): TColor;
var
lb, ub: Integer;
c1, c2: TColor;
v1, v2: Double;
begin
if (ColorSource = nil) or (ColorSource.Count = 0) then exit(clTAColor);
ColorSource.FindBounds(AValue, SafeInfinity, lb, ub);
if Interpolate and InRange(lb, 1, ColorSource.Count - 1) then begin
with ColorSource[lb - 1]^ do begin
v1 := X;
c1 := Color;
end;
with ColorSource[lb]^ do begin
v2 := X;
c2 := Color;
end;
if v2 <= v1 then
Result := c1
else
Result := InterpolateRGB(c1, c2, (AValue - v1) / (v2 - v1));
end
else
Result := ColorSource[EnsureRange(lb, 0, ColorSource.Count - 1)]^.Color;
end;
constructor TCustomColorMapSeries.Create(AOwner: TComponent);
const
BUILTIN_SOURCE_NAME = 'BuiltinColors';
var
nx, ny: Cardinal;
begin
inherited Create(AOwner);
FColorSourceListener := TListener.Create(@FColorSource, @ColorSourceChanged);
GetXYCountNeeded(nx, ny);
FBuiltinColorSource := TBuiltinListChartSource.Create(self, nx, ny);
FBuiltinColorSource.XCount := nx;
FBuiltinColorSource.YCount := ny;
FBuiltinColorSource.Name := BUILTIN_SOURCE_NAME;
FBuiltinColorSource.Broadcaster.Subscribe(FColorSourceListener);
FColorMap := TColorMap.Create(Self, nx, ny);
FColorMap.BuiltinPalette := cmpHot;
FColorMap.OnChanged := @StyleChanged;
FBrush := TBrush.Create;
FBrush.OnChange := @StyleChanged;
FStepX := DEF_COLORMAP_STEP;
FStepY := DEF_COLORMAP_STEP;
SetBuiltinPalette(cmpHot);
end;
destructor TCustomColorMapSeries.Destroy;
begin
FreeAndNil(FColorSourceListener);
FreeAndNil(FBuiltinColorSource);
FreeAndNil(FColorMap);
FreeAndNil(FBrush);
inherited Destroy;
end;
procedure TCustomColorMapSeries.Assign(ASource: TPersistent);
begin
if ASource is TCustomColorMapSeries then
with TCustomColorMapSeries(ASource) do begin
Self.FColorMap := FColorMap;
Self.Brush := FBrush;
Self.FStepX := FStepX;
Self.FStepY := FStepY;
end;
inherited Assign(ASource);
end;
procedure TCustomColorMapSeries.Draw(ADrawer: IChartDrawer);
var
ext: TDoubleRect;
@ -2666,7 +2541,7 @@ begin
GetZRange(r, scaled_stepX, scaled_stepY);
if FColorExtentMin = FColorExtentMax then begin
if FColorMap.ColorExtentMin = FColorMap.ColorExtentMax then begin
ADrawer.FillRect(r.Left, r.Top, r.Right, r.Bottom);
exit;
end;
@ -2696,14 +2571,14 @@ begin
if ColorSource = nil then
cellColor := Brush.Color
else
cellColor := ColorByValue(v);
cellColor := FColorMap.ColorByValue(v);
for y := cell.Top - r.Top to cell.Bottom - r.Top - 2 do
for x := cell.Left - r.Left to cell.Right - r.Left - 2 do
img.TColors[x, y] := cellColor;
end
else begin
if ColorSource <> nil then
ADrawer.BrushColor := ColorByValue(v);
ADrawer.BrushColor := FColorMap.ColorByValue(v);
ADrawer.Rectangle(cell);
end;
pt.X := next.X;
@ -2723,12 +2598,19 @@ begin
Result := 0.0;
end;
function TCustomColorMapSeries.GetBuiltinColorSource: TListChartSource;
begin
Result := FColorMap.BuiltinColorSource;
end;
function TCustomColorMapSeries.GetBuiltinPalette: TColorMapPalette;
begin
Result := FColorMap.BuiltinPalette;
end;
function TCustomColorMapSeries.GetColorSource: TCustomChartSource;
begin
if Assigned(FColorSource) then
Result := FColorSource
else
Result := FBuiltinColorSource;
Result := FColorMap.ColorSource;
end;
procedure TCustomColorMapSeries.GetLegendItems(AItems: TChartLegendItems);
@ -2854,17 +2736,17 @@ end;
function TCustomColorMapSeries.IsColorSourceStored: boolean;
begin
Result := FColorSource <> nil;
Result := FColorMap.IsColorSourceStored;
end;
function TCustomColorMapSeries.IsPaletteMaxStored: Boolean;
begin
Result := FPaletteMax <> 0;
Result := FColorMap.IsPaletteMaxStored;
end;
function TCustomColorMapSeries.IsPaletteMinStored: Boolean;
begin
Result := FPaletteMin <> 0;
Result := FColorMap.IsPaletteMinStored;
end;
procedure TCustomColorMapSeries.SetBrush(AValue: TBrush);
@ -2876,43 +2758,29 @@ end;
procedure TCustomColorMapSeries.SetBuiltinPalette(AValue: TColorMapPalette);
begin
FBuiltinPalette := AValue;
BuildPalette(FBuiltinPalette);
FColorMap.BuiltinPalette := AValue;
end;
procedure TCustomColorMapSeries.SetColorSource(AValue: TCustomChartSource);
begin
if AValue = FBuiltinColorSource then
AValue := nil;
if FColorSource = AValue then
exit;
CheckColorSource(AValue);
if FColorSourceListener.IsListening then
ColorSource.Broadcaster.Unsubscribe(FColorSourceListener);
FColorSource := AValue;
ColorSource.Broadcaster.Subscribe(FColorSourceListener);
ColorSourceChanged(Self);
FColorMap.ColorSource := AValue;
end;
procedure TCustomColorMapSeries.SetInterpolate(AValue: Boolean);
begin
if FInterpolate = AValue then exit;
FInterpolate := AValue;
FColorMap.Interpolate := AValue;
UpdateParentChart;
end;
procedure TCustomColorMapSeries.SetPaletteMax(AValue: Double);
begin
if AValue = FPaletteMax then exit;
FPaletteMax := AValue;
BuildPalette(FBuiltinPalette);
FColorMap.PaletteMax := AValue;
end;
procedure TCustomColorMapSeries.SetPaletteMin(AValue: Double);
begin
if AValue = FPaletteMin then exit;
FPaletteMin := AValue;
BuildPalette(FBuiltinPalette);
FColorMap.PaletteMin := AValue;
end;
procedure TCustomColorMapSeries.SetStepX(AValue: TFuncSeriesStep);
@ -2936,28 +2804,6 @@ begin
UpdateParentChart;
end;
procedure TCustomColorMapSeries.ColorSourceChanged(ASender: TObject);
begin
if (ASender <> FBuiltinColorSource) and (ASender is TCustomChartSource) then
try
CheckColorSource(TCustomChartSource(ASender));
except
ColorSource := nil; // revert to built-in source
raise;
end;
UpdateColorExtent;
StyleChanged(ASender);
end;
procedure TCustomColorMapSeries.UpdateColorExtent;
var
ext: TDoubleRect;
begin
ext := ColorSource.Extent;
FColorExtentMin := ext.a.x;
FColorExtentMax := ext.b.x;
end;
{ TColorMapSeries }