Delphi软件开发技术 作者 张世明13316-Delphi软件开发技术教案(做完) P6.pptVIP

第6章Delphi图形及多媒体应用 Delphi提供了一些图形类组件，最常用的有绘图(图像)组件、图形列表组件、图形栅格组件、图表组件、图形日历组件、多媒体组件等。 6.1???? 绘图组件 6.2???? 图形列表 6.3???? 图形栅格 6.4???? 图形日历 6.5???? 多媒体组件 6.1 绘图组件 如果离开了图形、图像，基于Windows的应用程序就会变得非常单调。 本节将介绍如何在屏幕上、窗体上或打印机上绘制图形，包括绘制点、线、矩形、多边形、椭圆、位图以及文本等。 6.1.1 Shape组件 Shape（几何图形）组件可以显示一些常见的几何图形，如圆、矩形、正方形和椭圆等，该组件位于组件板的[Additional]选项卡上。 1.主要属性 Shape组件主要属性 Brush属性有两个子属性。第一个子属性是Color，用于设定几何图形的填充颜色；第二个子属性是Style，用于设定几何图形的填充图案。 Style子属性有8种取值：bsBDiagonal、bsClear、bsCross、bsDiagCross、bsDiagonal、bsHorizontal、bsSolid和bsVertical。 Pen属性实际上是TPen对象，它有四个子属性：Color、Mode、Style和Width。 其中Color子属性表示画笔的颜色；Mode子属性表示画笔与屏幕上原有点的混合形式；Width子属性表示线宽；Style子属性表示线型。 属性Shape有stCircle(圆)、stEllipse（椭圆）、stRectangle（矩形）、stRoundrect（圆角矩形）、stRoundsquare（圆角正方形）、stsquare（正方形）6种取值，表示6种不同的几何图形。 6.1.2 PaintBox组件 PaintBox（画板）组件，可让用户使用绘图语句在一块区域中作图，PaintBox组件位于组件板的[System]选项卡上， 主要使用Canvas（画布）属性来进行绘图，它是类TPaintBox的对象。 6.1.3 画布对象 所有能够绘制图形的组件或区域都有一个Canvas成员，它是类TCanvas的对象。 Canvas对象的属性 1．画布对象的图形基础 Canvas（画布）对象在Delphi的绘图中起着关键的作用,它可以作为窗体、图像、图形组件或打印对象的数据成员。下面介绍Canvas对象的作图基础： (1)．颜色 要指定绘图的颜色，可以在对象查看器中预定义，或者在程序中给组件的Color成员赋值， 也可以利用有些组件如ColorDialog、ColorGrid来指定一个颜色，然后将其中的Color数据成员赋给组件的Color成员， 还可使用ColorToRGB(Color:Tcolor)函数给Color成员配置颜色。 (2)．画点 Canvas对象用二维数组Pixels画点，例如： Canvas.Pixel[20,10]:=clRed; //将在坐标(20,10)处画一个红色的点 (3)．画笔 画笔成员Pen是TPen对象，用来控制几何图形的绘制方式，与Shape组件的Pen属性相同， 有四个子属性： Color（颜色）、Mode（模式）、Style（线形）和Width（线宽），Pen属性的Mode用来确定画笔与屏幕上原有点的混合方式，Color用来设置绘图时的前景色。 (4)．刷子 Canvas对象中的Brush（刷子）成员确定填充某个闭合图形的方式，和Shape组件的Brush成员也完全一样，因为Shape组件包含Canvas对象。 (5)．填充 填充封闭图形有两种方法，第一种方法是绘制图形前先给画布对象的Brush属性赋值， 通过其Color子属性指定填充颜色，通过其Style子属性指定填充方式。这样，在绘制图形的同时就绘填充图形。 2．绘制简单图形 (1)．直线 Canvas对象画线调用MoveTo和LineTo两个方法。 MoveTo方法可以定位线的起始点，LineTo方法画线，所以要在(x1,y1)和(x2,y2)之间画线，可以使用语句： Canvas.MoveTo(x1,y1); Canvas.LineTo(x2,y2); (2)．矩形 Canvas对象画线调用Rectangle方法，语句如下： Canvas.Rectangle(x1,y1,x2,y2); 其中，(x1