如何在IMAGE上写字、画一个正三角形、圆。。。。。。呢

Question

要对一个Image1进行再处理，请问相关的代码？

Answer 1

创建一个 TBitmap 对象，然后在该Bitmap上写字画图, 需要显示时
 Image1.Picture.Assign(Bitmap1);

Answer 2

  Image1.Canvas.Brush.Color := clWhite;      //画笔颜色设置为白色
  Image1.Canvas.FillRect(Image1.ClientRect); //把画布背景填充为白色
  Image1.Canvas.TextOut(1,1,'hello');        //输出文字
  Image1.Canvas.Brush.Color := clBlack;      //画笔设置为黑色，准备画长方形
  Image1.Canvas.Rectangle(20,20,50,50);
  Image1.Canvas.Ellipse(60,60,90,90);
...

Answer 3

TImage有两个Canvas，一个是窗体区域的Canvas，你用这个TextOut的话，不会修改图片的内容，而且可以在任何图片上TextOut，不过这个Canvas被TImage用Bmp的Canvas覆盖了，你要修改Bmp的Canvas为另外一个名字，这样就可以用窗体的Canvas了.

Answer 4

  Image1.Canvas.Brush.Color := clWhite;      //画笔颜色设置为白色
  Image1.Canvas.FillRect(Image1.ClientRect); //把画布背景填充为白色
  //正三角形边长为200，坐标假定为(0,0) (200,0) (100,173);
  Image1.Canvas.MoveTo(0,0);
  Image1.Canvas.LineTo(200,0);
  Image1.Canvas.LineTo(100,173);
  Image1.Canvas.LineTo(0,0);