如何在IMAGE上写字、画一个正三角形、圆。。。。。。呢
要对一个Image1进行再处理,请问相关的代码?
[解决办法]
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);
...
[解决办法]
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);