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都是一个颜色的……请问,如何解决呢?

解决方案 »

  1.   

    可以用series.pen.color设定……但是,不可能手动对无数条线一一设定吧:(
      

  2.   

    声明一个TColor的数组,事先实现赋值,创建的时候只要一一对应就可以了.
    或者使用Random,但是不推荐.
      

  3.   

    不是吧…… 如果有1k条线那不是要事先赋1000个确定的值?另外,为什么不推荐random呢请问?
      

  4.   

    不想手动指定..那就用RGB(Random(100)+100,Random(100)+100,Random(100)+100);
    这样的方式填充一个数组...
      

  5.   

    fastlineseries我自动生成并且随机指定了颜色,可为什么出来还是全部一样的颜色呀?
      

  6.   

    FastLineSeries.SeriesColor := RGB(Random(100)+100,Random(100)+100,Random(100)+100);
    或者
    fs[i].SeriesColor := RGB(Random(100)+100,Random(100)+100,Random(100)+100);