Automatically distribute values on custom color palette

[X-Ray]

Hi,

I am using the "AddPalette" call to add a custom color scheme to a TColorGridSeries and a TSurfaceSeries.
In fact I want to supply just the colors and let TChart self/automatically distribute the Chart values along the given
color values.
Is that possible, is there a setting for this ?

best regards,

X-ray

[Yeray]

Hello,

Take a look at the following example where I'm loading a custom palette to a TSurfaceSeries.
Note how I'm distributing proportionally the UpToValue list in the palette.

Code: Select all

uses TeeSurfa, TeeLegendPalette;

var Series1: TSurfaceSeries;
    MyPalette: Array of TColor;

procedure TForm1.FormCreate(Sender: TObject);
var t, x, z: Integer;
    tmp, d: Double;
begin
  Chart1.Aspect.Orthogonal:=false;
  Chart1.Chart3DPercent:=100;
  Chart1.Aspect.Zoom:=80;
  Chart1.Legend.Visible:=false;
  Chart1.MarginLeft:=20;

  Chart1.Axes.Depth.Visible:=True;
  Chart1.Axes.Depth.Increment:=1;
  Chart1.Axes.Left.Increment:=0.1;
  Chart1.Axes.Bottom.Increment:=1;

  SetLength(MyPalette,15);
  for t:=0 to 14 do
    MyPalette[t]:=RGB(255-Round(t*(128.0/15.0)),0,0);

  Series1:=Chart1.AddSeries(TSurfaceSeries) as TSurfaceSeries;
  with Series1 do
  begin
    for x:=1 to 10 do
      for z:=1 to 10 do
      begin
        tmp:=cos(x/10.0)*sin(z/10.0);
        AddXYZ(x, tmp, z, '', clTeeColor);
      end;

    ClearPalette;
    for t:=0 to High(MyPalette) do
    begin
      tmp:=(t+1) * (YValues.MaxValue-YValues.MinValue) / (Length(MyPalette)-1);
      AddPalette(tmp, MyPalette[t]);
    end;

    PaletteStyle:=psCustom;
    UseColorRange:=false;
    UsePalette:=true;
  end;

  (Chart1.Tools.Add(TLegendPaletteTool) as TLegendPaletteTool).Series:=Series1;
end;