第12章 图形图与多媒体技术.pptVIP

第12章 图形图像与多媒体技术 Delphi为用户提供了多种简洁有效的与图形、图像有关的控件。不仅可以直接插入图形、图像，也可以使用控件来创建图形、图像，并控制其位置和外观。 12.1 几何图形控件Shape 12.2 图象控件Image 12.3 画布（Canvas）对象 12.4 PaintBox画板控件 12.5 多媒体程序设计 12.1 几何图形控件Shape 几何图形控件位于工具栏上的additional页中，用于窗体上绘制一些常见的几何图形，如矩形、圆、椭圆、圆角矩形等。下面简单介绍其几个基本的属性。 1.Shape属性 :设置需要绘制的几何图形种类 2.Brush属性:该属性设置图形填充的模式和颜色 3. Pen属性 :画笔属性 4.Width属性 12.2 图象控件Image 图象控件Timage是一种容器控件，它在应用程序窗体上提供一个矩形区域，用于显示各种位图、图标、图元文件。 重点掌握picture、 autosize、stretch属性 及loadfromfile过程。 【例12-1】在窗体中显示图形，如程序所示。 12.3 画布（Canvas）对象 画布（Canvas）对象，用于应用程序的图形输入。在Delphi中绘图时，是将图形画在窗体、图像控件Image控件、画框（PaintBox）中的画布Canvas上。画布也有自己的属性，他本身也是一个对象（控件），但一般不能单独使用。 具有canvas属性的控件： TBitmap,TComboBox,TDBComboBox,TDBGrid,TDBListBox,TDrawGrid,TForm,TImage, TListBox,TPaintBox,TPrinter,TStatusBar,TStringGrid等,?? 在控件上绘制图形就是在控件的画布上绘制。?  12.3.1 像素操作 像素是组成图形最基本的单位。画布上的每一个点都有一个对应的像素，用来代表此点的颜色。Pixels是一个二维数组，它的一个元素对应着屏幕上的一个像素点，数组元素的值代表像素点的颜色。利用画布的Pixels属性，可绘制数学函数曲线。 例12-2 使用Pset方法绘制圆的渐开线，如程序所示。 。 12.3.2 画笔操作 画布对象基本作图方法包含了大量的绘制直线、曲线的方法. 1. 画线的方法 (1) Moveto方法，作用是将画笔移到指定位置，使用方法为：moveto(x,y,integer)。 (2) lineto方法，作用是画一条到指定位置的直线段，线段起始位置由画布对象的Penpos属性值即画笔的当前位置确定。使用方法为：lineto(x,y: Integer)。 (3) 画折线的方法，使用方法为Polyline(points:array of TPoint)。 Tpoint=record X:longint; Y:longint; End; 2. 画矩形的方法 Rectangle方法用于画矩形。 Rectangle(x1,y1,x2,y2:integer); (X1,y1)为左上角的坐标，(x2,y2)为右下角坐标。 3. 画圆或椭圆的方法 Ellipse方法用于画圆或椭圆。 Ellipse(x1,y1,x2,y2:integer); (X1,y1)为椭圆外切矩形左上角的坐标，(x2,y2)为右下角坐标。 4. 画弧形曲线的方法：Arc方法 arc(x1,y1,x2,y2,x3,y3,x4,y4:integer); (X1,y1)为椭圆外切矩形左上角的坐标，(x2,y2)为右下角坐标, (x3,y3),(x4,y4)为弧形曲线的起始点。 5. 圆角矩形roundrect Roundrect(x1,y1,x2,y2,x3,y3:integer); (X1,y1)为直角矩形左上角的坐标，(x2,y2)为右下角坐标，（x3,y3）为圆角的长短半径。 注意：如果要在画布上输出文本，可用Textout方法 【例12-3】使用Canvas属性基本作图方法，画出如图12-4所示的图形。如程序所示 11.3.3 画刷操作 画布的画刷（Brush）属性决定图形内部区域的填充方式。 1. 画刷的属性 (1) 颜色属性（Color）。 Canvas.Brush.Color: =〈属性值〉 (2) 风格属性（Style）。 风格属性用于设置画刷的填充区域样式， (3) 位图属性。 位图属性是一个存放图像数据的对象，可在程序运行阶段动态的创建或删除。 Bitmap.create; Bitmap.loadfromfile;