盒子论坛 v2.1

procedure TForm1.FormCreate(Sender: TObject);
var
  int_i:integer;
  Typell:tpieSeries;
  SeriesClass:TChartSeriesClass;
  NewSeries:array of TChartSeries;
begin
  setlength(NewSeries,20);
  if Chart1.SeriesCount>0 then
    Chart1.Series[0].Destroy;
    Typell:=tpieSeries.Create(self);
    Chart1.AddSeries(Typell);
  for int_i:=0 to 19 do
  begin
          Colors:=Colors+2000;//Colors为全局变量类型为integer,初始值为655536
          SeriesClass:=TpieSeries;
          NewSeries[int_i]:=SeriesClass.Create(Self);
          NewSeries[int_i].Title:='fff';
          NewSeries[int_i].SeriesColor:=Colors;
          NewSeries[int_i].ParentChart:=Chart1;
          NewSeries[int_i].Clear;
    Chart1.Series[0].Add(10,'ddd',NewSeries[int_i].SeriesColor);
  end;

end;
以上代码执行以后饼图上各块的颜色很相近，请问如何解决？

----------------------------------------------
能够想到，就一定会实现！

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/9/11 15:16:06

1楼：

Colors:=Colors+10000;
加多一点试试看。
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

student (student)	★☆☆☆☆	-
	盒子活跃会员

2003/9/13 16:40:10

2楼：

我有一种比较简洁的方法：
所需控件：
         Chart1(添加饼形series1)
         ColorDialog1,Button1
代码：
Button1Click()
  var
      t:Integer;
      color:Tcolor;
  Series1.Clear;
  Randomize;
  for t:=1 to 12 do
    begin
       ShowMessage('请选择第'+IntToStr(t)+'部分的颜色 ');
       if ColorDialog1.Execute then
             color:=ColorDialog1.color;
       Series1.Addy(Random(70),ShortMonthNames[t],color);
    end;

----------------------------------------------
热心朋友多多指教,student谢谢！！

信息

登陆以后才能回复