画圆：我画了一个圆，可是圆周却是那么的凹凸不平，这是怎么回事？

Question

我画了一个圆，可是圆周却是那么的凹凸不平，难看极了，怎么样让它光滑一点？procedure TForm1.Button1Click(Sender: TObject);
var
  C: TCanvas;
begin
  C := Image1.Canvas;
  C.Pen.Color := clGreen;
  C.Brush.Color := clGreen;
  C.Ellipse(10, 10, 50, 50);
end;

Answer 1

分辨率的问题吧。用TShape试一下，一样可以画出圆或其他图形哦。

Answer 2

zdcnow(磁效应)：
  用图片是可以的，我是想直接画出来。jimmyxing(积极进取)：
  用TShape 如何在Canvas 上画？

Answer 3

其实用图片代替就可以了，或者楼上说的TShape也可以

Answer 4

myling(阿德)：
  把圆放大一点虽然好看一点点，但还是无法掩饰圆周围的凹凸不平！
我就是想画一个好看一点的比较小的圆。
  我们用PhotoShop就可以画一个小小的很好看的圆，还有，我们用dephi带的
Image Editor 也可以画出来啊。
  我们用程序应该也是可以的，我想。

Answer 5

FrameSniper(★框架狙击手★№2)：
  我知道用图片可以 // Image1.Canvas.Draw(10,10,Image2.Picture.Graphic).
  怎么我们自己去画就会画得那么难看，究竟是什么原因呢？

Answer 6

原因就是我说的那样，Canvas.Ellipse的算法太简单了，