德尔福 TeeChart 轮廓系列 开始颜色 结束颜色.

Question

我需要将系列1的StartColor和EndColor复制到系列2这是在将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 注册并将自己添加到 CC 列表中以接收状态更新。