Delphi TeeChart ContourSeries StartColor EndColor

时间:2014-12-23 20:15:58

标签: delphi teechart

我需要将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;

任何人都知道如何解决这个问题? THX

1 个答案:

答案 0 :(得分:0)

这是一个错误(ID1065)。我发现它工作的最后一个版本是2013.09.131119。到目前为止,我还没有找到解决问题的方法。请随时注册bugzilla并将自己添加到CC列表以接收状态更新。