var
i : integer;
fs : array of TfastLineSeries;
begin
MaxNumberOfLines:= 1000;
setlength(fs,MaxNumberOfLines);
for i := 0 to MaxNumberOfLines-1 do
begin
fs[i]:=TfastLineSeries.Create(self);
fs[i].ParentChart := mydbchart;
fs[i].ShowInLegend := false;
end;
....这里,生成的fastlineseries都是一个颜色的……请问,如何解决呢?
i : integer;
fs : array of TfastLineSeries;
begin
MaxNumberOfLines:= 1000;
setlength(fs,MaxNumberOfLines);
for i := 0 to MaxNumberOfLines-1 do
begin
fs[i]:=TfastLineSeries.Create(self);
fs[i].ParentChart := mydbchart;
fs[i].ShowInLegend := false;
end;
....这里,生成的fastlineseries都是一个颜色的……请问,如何解决呢?
或者使用Random,但是不推荐.
这样的方式填充一个数组...
或者
fs[i].SeriesColor := RGB(Random(100)+100,Random(100)+100,Random(100)+100);