Question

求这样一个程序：delphi语言的

要求： 1：有4条曲线，第一条名称为1，第二条为2，3、4 一样
2：1的颜色为red，2的颜色为blue，3的颜色为green，4的颜色为Lime
3：可以改变4条曲线的位置，颜色不可以随着位置变（就是颜色还是要求2中的）。
4：可以修改每条曲线的颜色,需改1的话，2、3、4颜色都不变，修改2的话，1、3、4颜色不变，以此类推。

我写出这样的程序，但是颜色好想修改不了。谁给个代码看看，delphi语言

Answer 1

主窗口中放一个Chart 、一个Combobox 、两个Button和一个ColorDialog。代码如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
TMainForm = class(TForm)
Chart: TChart;
Series1: TLineSeries;
Series2: TLineSeries;
Series3: TLineSeries;
Series4: TLineSeries;
SeriesNameComBox: TComboBox;
ColorDialog: TColorDialog;
OKBtn: TButton;
RstBtn: TButton;
procedure FormCreate(Sender: TObject);
procedure SeriesNameComBoxChange(Sender: TObject);
procedure OKBtnClick(Sender: TObject);
procedure RstBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;
col:TColor=clred;
SeriesNO:integer;//1、2、3、4作为曲线名称（序号）

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);//初始化
begin
SeriesNO:=SeriesNameComBox.ItemIndex;
Series1.FillSampleValues(10);
Series2.FillSampleValues(10);
Series3.FillSampleValues(10);
Series4.FillSampleValues(10);
Chart[0].SeriesColor:=clred;
Chart[1].SeriesColor:=clblue;
Chart[2].SeriesColor:=clgreen;
Chart[3].SeriesColor:=cllime;
end;

procedure TMainForm.SeriesNameComBoxChange(Sender: TObject);//选取颜色
begin
if ColorDialog.Execute then
col:=ColorDialog.Color;
end;

procedure TMainForm.OKBtnClick(Sender: TObject);//确定按钮
begin
SeriesNO := SeriesNameComBox.itemindex;
Chart[SeriesNO].SeriesColor:=col;
end;

procedure TMainForm.RstBtnClick(Sender: TObject);//还原按钮
begin
Chart[0].SeriesColor:=clred;
Chart[1].SeriesColor:=clblue;
Chart[2].SeriesColor:=clgreen;
Chart[3].SeriesColor:=cllime;
end;

end.

Answer 2

把你写好的代码放上来，改下就好

Answer 3

?