delphi曲线问题

Question

 我有一个程序，启动后，要几条曲线显示固定的颜色，然后点修改颜色的时候，在变成新的颜色，该怎么写，谢谢

Answer 1

自己用语句画出来，显示在image上面的

Answer 2

是自己写好代码，让自动在image上面，显示出来曲线

Answer 3

自己写的画图 在画线前加一句canvan.pen.color=clred..... 不久可以了吗
改变颜色的时候 重新画一些就可以了。
如果怕闪烁，可以创建一个bitmap 在bitmap上画，然后将它assgin给image.pic

Answer 4

设置canvan.pen.color属性后，重新绘制，曲线的颜色的就变成新指定的了。

Answer 5

前面加 canvas.pen.color:=颜色的话， 每次点改变颜色的时候，都会读取到画图函数，所以也会读到这个颜色，所以修改不了啊

Answer 6

canvas.pen.color:=新的颜色例如
procedure tform1.button1onclick(sender:tobject);
begin
//...
  canvas.pen.color:=clgreen;
//...
end;
单击按钮后，就变成绿色了。

Answer 7

canvas.pen.color:=clgreen;
指定颜色后，你画那条曲线，那条就的颜色就变成指定颜色了。

Answer 8

         Graphics:=TGPGraphics.Create(Ca.Handle);
         Graphics.SmoothingMode:=smAntiAlias;
         GppPen:=TGPPen.Create(ColorRefToARGB(Ca.Pen.Color));
         GppPen.Width:= Line_width;
         Graphics.DrawLine(GppPen,(k - JJTS) * CH_X + XX, Trunc(S1),(k) * CH_X + XX, Trunc(s)); 这样画出来的，有4条曲线，我要自动程序，4曲线都显示不同的颜色，而点击修改颜色，选择一条，这条就变成选中的颜色，其他3条不变

Answer 9

colorbox控件啊。
GppPen:=TGPpen.create(MemDC,1,colorbox1.selected);就可以了