delphi自动化控制中画图的问题

Question

delphi自动化控制中画图的问题
  我要画一张图,根据水位的不同,渠道的水位在变化
  也就是说怎么在delphi中画图,包括画线,画点,填充颜色等等
  请指教

Answer 1

用Additional面板中的TChart吧，它可以完成你所需的功能！

Answer 2

delphi里有一个工具叫canvas，其实vc里也有。
画线：canvas.LineTo(500,500);从(0,0)坐标到(500,500)坐标
      或k:=abs(x1-x2);
        if abs(x1-x2)<abs(y1-y2) then
        k:=abs(y1-y2);
        for i:=0 to round(k) do
        begin
          a:=a+(x2-x1)/k;
          b:=b+(y2-y1)/k;
          Canvas.Pixels[trunc(a),trunc(b)]:=clred;
        end;//画(x1,y1)到(x2,y2)的线
画点：上例中"canvas.pixels[x,y]"就是画（x,y）这个点。
颜色：上例中"canvas.pixels[x,y]:=clred"的“clred”就是指用红色填充，

Answer 3

canvas.moveto(100,100)//设置直线起点
canvas.lineto(200,200)//从当前点（100，100）画直线到（200，200）
canvas.Ellipse(100,100,200,200);椭圆
canvas.Rectangle(100,100,200,200);矩形
can...
---
唉，太多了，你自己看帮助吧

Answer 4

canvas.moveto(100,100)//设置直线起点
canvas.lineto(200,200)//从当前点（100，100）画直线到（200，200）
canvas.Ellipse(100,100,200,200);椭圆
canvas.Rectangle(100,100,200,200);矩形
can...
---