【发布时间】:2014-12-23 20:15:57
【问题描述】:
我需要将 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;
有人知道如何解决这个问题吗? 谢谢
【问题讨论】:
-
能否请您说明您认为这对您有用的版本?