在image上画圆

Question

自己画个圆试试
如：
var
  I,R,x,y:integer;
begin
  for I:=0 to 2*31416 do
  begin  
    x:=Round(30+R*cos(I/10000));
    Y:=Round(30-R*sin(I/10000));
    Image1.canvas.Pixels[x,y]:=clred;
  end;
end;

Answer 1

image.Canvas.Brush.Style := bsClear;

Answer 2

自己试试下面的东西：
canvas.rectangle(): 画矩形    pen.color: 定义画笔颜色
 roundrect(): 画圆角矩形       pen.width: 定义画笔宽度
 arc(): 画弧线( 不填充)        brush.color: 定义填充颜色
 chord(): 画弧线( 填充)        textout(): 在固定位置输出字符串
 pie: 画扇形        textwidth: 取字符串高度
 polygon(): 画多边形填充       textheight: 取字符串宽度
 polyline(): 多点连线( 不填充)   font.color: 指定字体颜色
 Pixels(): 指定固定象素点颜色值font.size: 指定字体大小
 moveto(): 指明画线起点        Ellipse(): 画圆或椭圆
 lineto(): 指明画线终点

Answer 3

我用arc()画了一个封闭的弧线

Answer 4

两个全局变量（OLDX，OLDY）保存你的鼠标按下的坐标。在ONMOUSEDOWN里记下OLDX，OLDY。然后在ONMOUSEMOVE里MOVETO（oldX，oldY），MOVETO（NEWX，NEWY）注意：要把你的PEN的颜色设成image反色。先用和IMANG相反的颜色化，然后再话一次，在ONMOUSEMOVE里，在用相反的颜色再话依次（为了擦去上次话的先），就可以了。再ONMOUSEUP里，用你的PEN的颜色最后话上去。就可以了！
（表达能力有限。见凉！：-））

Answer 5

hiddingeye((问路人))   我明白你的意思：） 谢谢还是上面的问题，我用下面的语句画线，结果image又变成不透明的了：（ 怎么办呀 image1.Picture:=nil;
 image1.Transparent:=true;
 image1.Canvas.MoveTo(0,0);
 image1.Canvas.lineTo(100,100);

Answer 6

设image.Canvas.Brush.Style := bsClear;了吗？

Answer 7

image.Canvas.Brush.Style := bsClear;ok!!!!!!!!!!!!!!!!!1

Answer 8

with image.Canvas do
  begin
    brush.Style:=bsClear;
    pen.color:=clred;
    Ellipse(0,0,100,100)
  end;
刚试过，没问题，拿分来！！！！

Answer 9

我要在image上每秒画一条线，可是效果不好，总是闪：（怎么办呀？

Answer 10

用TpaintBox代替TImage，TImage主要用来显示的，不是用来Draw的。

Answer 11

用 TpaintBox 固然可以，可是当有其它控件经过PAINTBOX的表面时，PAINTBOX上画的东西会被擦掉