Delphi程序设计基础 第2版 普通高等教育“十一五”国家级规划教材 张世明 第8章-Delphi图形及多媒体应用.pptVIP

第 8 章 Delphi图形及多媒体应用 Delphi提供了一些图形类组件，最常用的有绘图组件、图形列表组件、图形栅格组件、图表组件、图形日历组件、多媒体组件等。 8.1 绘 图 组 件 8.1.1 Shape组件 Shape（几何图形）组件可以显示一些常见的几何图形，如圆、矩形、正方形和椭圆等。 1．主要属性 Brush属性：几何图形内的填充图案和颜色等特性。 有两个子属性： Color子属性，用于设定几何图形的填充颜色； Style子属性，用于设定几何图形的填充图案。 Pen属性：几何图形的外框特性如颜色、线型和线宽等，有4个子属性：Color，Mode，Style和Width。 其中Color子属性表示画笔的颜色；Mode子属性表示画笔与屏幕上原有点的混合形式；Width子属性表示线宽；Style子属性表示线型。 Shape属性：有stCircle（圆）、stEllipse（椭圆）、stRectangle（矩形）、stRoundrect（圆角矩形）、stRoundsquare（圆角正方形）和stsquare（正方形）6种取值，表示6种不同的几何图形。 8.1.2 PaintBox组件 PaintBox（画板）组件可让用户使用绘图语句在一块区域中作图。画板组件位于“System”组件页上，主要使用Canvas（画布）属性来进行绘图，它是类TPaintBox的对象。 8.1.3 画布对象 所有能够绘制图形的组件或区域都有一个Canvas成员，它是类TCanvas的对象。 ClipRect属性：确定作图区域的范围； Brush属性：图形内的填充图案和颜色等特性； Pen属性：几何图形的画笔特性如颜色、线型和线宽等。 1．画布对象的图形基础 Canvas（画布）对象在Delphi的绘图中起着关键的作用，它可以作为窗体、图像、图形组件或打印对象的数据成员。 （1）颜色。 要指定绘图的颜色，可以在对象查看器中预定义，或在程序中给组件的Color成员赋值，也可以利用有些组件如ColorDialog，ColorGrid来指定一个颜色，然后将其中的Color属性值赋给组件的Color成员，还可使用ColorToRGB（Color:Tcolor）函数给Color成员配置颜色。 （2）画点。 Canvas对象用二维数组Pixels画点： Canvas.Pixel[x,y]:=颜色值; //将在坐标（x，y）处画一个“颜色值”点。 （3）画笔。 画笔成员Pen是Tpen的对象，用来控制几何图形的绘制方式，与Shape组件的Pen属性相同，有4个子属性：Color（颜色）、Mode（模式）、Style（线形）和Width（线宽）。 （4）刷子。 Canvas对象中的Brush（刷子）成员确定填充某个闭合图形的方式。 （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，y1）是矩形的左上角，（x2，y2）是矩形的右下角。如果|x2?x1|等于|y2?y1|，则为正方形。 （3）椭圆。 Canvas对象画椭圆调用Ellipse方法，语句如下： Canvas.Ellipse(x1,y1,x2,y2); 其中，（x1，y1）是椭圆外接矩形的左上角，（x2，y2）是椭圆外接矩形的右下角。如果|x2?x1|等于|y2?y1|，则为圆。 （4