编写实验代码-Delphi程序设计教程—图形图像程序设计
编写实验代码procedure TForm1.Button1Click(Sender: TObject); begin //位于PaintBox表面绘画PaintBox1.Canvas.Pen.Color := clGreen; PaintBox1.Canvas.Pen.Width := 6; PaintBox1.Canvas.Brush.Color := clRed; PaintBox1.Canvas.Brush.Style:=bsCross; PaintBox1.Canvas.Rectangle (20, 220, 180); PaintBox1.Canvas.Brush.Color := clYellow; PaintBox1.Canvas.Ellipse (60, 260, 200); PaintBox1.Canvas.Brush.Color := clBlue; PaintBox1.Canvas.RoundRect(230, 20,320, 180,15); end;
文件大小：2.31MB
评论区