一条折线上不同颜色的点怎么做?(100分)

  • 主题发起人 主题发起人 thgerman
  • 开始时间 开始时间
T

thgerman

Unregistered / Unconfirmed
GUEST, unregistred user!
用chart的line图形,我要做成这样(如下所指的均是点子的颜色)
第一至第五点用绿色
第六至十点用红色

……………………
请教高手应怎么做?
 
多用几个series:)比较笨
 
这个办法呀???(挠头……)

请教各位了
 
好办,这是一个示例的完整源码
---------------------------------------------------------------------------
unit Unit1;

interface

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

type
TForm1 = class(TForm)
ColorBox1: TColorBox;
Chart1: TChart;
Button1: TButton;
Series1: TLineSeries;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
i :integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
series1.AddXY(i,100);
series1.ValueColor[series1.Count-1] := colorbox1.Selected;
inc(i);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
series1.ColorEachPoint := true;
end;

end.
-----------------------------------------------------------------------------
窗体上包括一个TChart组件,一个TButton组件,一个TColorBox组件,名称均为创建时默认,
注意:Series必须用TlineSeries(TFastLineSeries不好使)。
 
inc(i); 请教这句好象没什么作用
另:我是用Tdbchart的,能行吗?我试试看
 
TDBChart也可以,
inc(i) ->i := i + 1;
 
我试过了,是能改变颜色但是连线的颜色也改了

我中需要点改变颜色,连线不改变颜色,可行吗?
 
这个好象做不到
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
748
import
I
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部