2017-11-30 6 views

答えて

0

私は公式フォーラムで、ちょうど試みることが判明:

uses Series; 

procedure TForm1.FormCreate(Sender: TObject); 
var i: Integer; 
begin 
    Chart1.View3D:=false; 
    Chart1.Legend.Visible:=false; 

    with Chart1.AddSeries(TLineSeries) as TLineSeries do 
    begin 
    FillSampleValues(10); 
    ColorEachPoint:=true; 

    for i:=0 to Count-1 do 
     ValueColor[i]:=OperaPalette[i]; 
    end; 

    with Chart1.AddSeries(TPointSeries) as TPointSeries do 
    begin 
    DataSource:=Chart1[0]; 
    ColorEachPoint:=true; 

    for i:=0 to Count-1 do 
     ValueColor[i]:=ModernPalette[i]; 
    end; 
end; 

をそれ以外の場合はあなたの代わりに「隠された」と、目に見えない色を使用しようとすることができます。

これらのトピックを読む:

+0

シリーズポイントではないcolorLine "ツール" のためになりそうだこと。 – KLogan

+0

私はあなたを助けようとしています。 –

関連する問題