Delphi TeeChart ContourSeries StartColor EndColor

Question

我需要将series1的StartColor和EndColor复制到series2，这在将TeeChart升级到版本2014.12.14之前是可行的：

procedure TForm1.FormCreate(Sender: TObject);
var
  k1, k2 : Integer;
  X, Y, Z: real;
begin

  Series2.Clear;
  Series2.NumXValues := 20;
  Series2.NumZValues := 20;
  Series2.ColorEachPoint := false;
  Series2.Filled := true;
  Series2.Marks.Visible := true;
  Series2.AutomaticLevels := true;
  Series2.IrregularGrid := true;

  Series2.StartColor := clYellow;
  Series2.EndColor := clRed;

  for k1 := 1 to 20 do
  begin
      X:= k1 + 1;
      for k2 := 1 to 20 do
      begin
          Y := k2 + 1;
          Z := k1 / 10 + k2 / 10;
          Series2.AddXYZ(X, Z, Y);
      end;
  end;

  Series1.Assign(Series2);
  Series1.StartColor := series2.StartColor;
  Series1.EndColor := series2.EndColor;
end;

似乎这两个指令没有效果：

Series1.StartColor := series2.StartColor;
Series1.EndColor := series2.EndColor;

有人知道如何解决这个问题吗？ 谢谢

Answer 1

这是一个错误（ ID1065 ）。 我发现它起作用的最后一个版本是2013.09.131119。 到目前为止，我还没有找到解决该问题的方法。 请随时在bugzilla上注册并将自己添加到抄送列表中，以接收状态更新。