Delphi 程序设计 冯博琴主编 席一凡 聂 第十章 图形图像程序设计新.pptVIP

第10章 图形图像程序设计 教学目的 ? 了解Delphi中图形图像处理控件及其在应用程序中的作用 ? 掌握图形图像处理控件的使用方法 ? 掌握绘制图形图像的对象和方法 ? 掌握利用Delphi 7实现图形绘制，图像处理的程序设计方法与技巧 Delphi 7 在图形图像制作和处理方面有着强大的支持功能，它提供了很多绘制图形图像的对象和方法。本章主要介绍Delphi中图形图像处理控件的使用，讲述Delphi 7中绘制和处理图形图像所需的基本对象和基本方法，以及这些对象和方法的使用技巧，并将通过实例来进一步应用这些对象的属性和方法。 【例10.3】绘制正弦曲线程序设计。 在当前窗体中添加Image控件，利用其中的Canvas对象、Pixels方法，通过正弦曲线的算法实现对正弦曲线的绘制。 操作步骤如下： （1) 创建工程并进行窗体设计 在主窗体中加入1 个Image 控件、1 个Button 控件。Button 控件的Caption属性设置为“开始”。 （2）Button1控件的Button1Click 事件的代码如下： procedure TForm1.Button1Click(Sender: TObject); var x,l: Integer; y,a: Double; begin Image1.Picture.Bitmap := TBitmap.Create; Image1.Picture.Bitmap.Width := Image1.Width; Image1.Picture.Bitmap.Height := Image1.Height; l := Image1.Picture.Bitmap.Width; for x := 0 to l do begin a := (x/l) * 2 * Pi; y := Sin(a); y := y * (Image1.Picture.Bitmap.Height / 2); y := y * -1; y := y + (Image1.Picture.Bitmap.Height / 2); Image1.Picture.Bitmap.Canvas.Brush.Style:=bsSolid; Image1.Picture.Bitmap.Canvas.Pixels[Trunc(x), Trunc(y)] := clblue; end; end; （3）保存并运行程序，运行结果如图10.5 所示。 高等学校计算机基础教育规划教材 Delphi程序设计 Delphi 7 为用户提供了丰富的图形图像处理功能，本节主要介绍Image 控件、Shape控件和PaintBox 控件的使用方法。 10.1.1 Image 控件 Image 控件也称为图像控件，功能是用来显示图形文件，同时Image 控件也是一个容器控件。该控件在【Additional】选项卡上，类名为Timage。 Image 控件的常用属性如表10.1所列。 表10.1 Image 控件的常用属性 10.1 图形图像基本控件 该属性用来控制所显示的图像是否可以随着控件的大小而进行拉伸变化 Stretch 该属性用来指定所要显示的图像文件，文件可以是位图(.bmp)、图标(.ico)或图元(.wfm) Picture 该属性返回可随意绘画的画布对象，用来修饰图像 Canvas 该属性决定控件的尺寸是否随所显示的图像大小而改变 AutoSize 功能 属性 对于Image 控件Picture 属性，可以通过属性窗口设置，也可以在代码中设置，如： image1.Picture.loadfromfile(f:\pic\abc.bmp); 10.1.2 Shape 控件 Shape 控件可以用来绘制矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。Shape控件在【Additional】选项卡中，类名为TShape。 Shape 控件的常用属性如表10.2所列。 表10.2 Shape 控件的常用属性 10.1.3 PaintBox 控件 PaintBox 控件又称为绘图板控件，在应用程序中可以使用该控件来绘制图形。该控件在【System】选项卡中，类名为TpaintBox。 使用PaintBox控件绘制图形时，首先把控件添加到窗体上，然后利用属性对象Canvas的属性与方法在绘图板上绘制图形或载入图像文件。如果要重画图形，可使用它的Repaint方法清除已绘制的图形。 提示：PaintBox 控件上的图形都是以控件的左上角为原点坐标。 该属性用来设置图形的形状，具