Delhi程序设计实用教程图形图像与多媒体.pptVIP

第10章 图形图像与多媒体 目录 图形图像与多媒体技术可以为应用程序增色不少，在Delphi应用程序中使用图形图像与多媒体技术有多种方法：可以在设计阶段通过图形图像组件插入已经绘制好的图片，也可以在运行阶段动态的绘制它们；同样可以利用Delphi的多媒体组件播放音频或视频剪辑。本章将介绍Delphi标准组件库中图形图像组件（对象）和多媒体组件的用法。 10.1 图形图像程序设计 Delphi标准组件库中的图形图像组件（对象）主要有以下四个：TShape，TImage，TCanvas，TPainBox。其中TCanvas并不是可视的组件，而是专门用来进行图形图像处理的画布对象。下面分别介绍它们的功能与用法。 10.1.1 Shape组件 TShape组件是组件面板Additional选项页上的第七个组件，可以用它来在窗体上显示一个简单的几何形状，比如矩形、圆形等。 1．TShape组件的重要属性 1) shape属性:该属性是枚举类型，可用来在设计期或运行期指定Shape组件显示的几何形状，其可能的取值及意义见表10-1： 表10-1 Shape属性可能取值及意义列表 2) brush属性： 它是TBrush类型的对象，包含两个子属性：color和style。其中color属性为Tcolor类型，用来指定几何图形的填充色。Style为TBrushStyle类型，则用来指定填充的底纹图形。它是一个枚举类型，可能的取值及其意义见图10-1： 图10-1 Style属性可能取值及样式 3) pen属性：它是TPen类型的对象，用来定义绘制要显示的几何图形的轮廓线的样式，如线条的颜色、宽度、虚实和模式等。它包含有几个子属性，下面分别介绍。 Color：指定绘制几何图形轮廓线的颜色，TColor类型。注意它和Brush属性中的color属性的区别。 Width：指定所绘制线条的粗细，单位是像素。它是Integer类型，但如果给定的值小于0时，会被忽略。另外，它的取值将影响style的有效取值。 Style：确定所显示几何图形轮廓线的虚实、是否显示等样式。它是TPenStyle类型的枚举类型，可能的取值及意义如表10-2： 表10-2 画笔对象的样式属性可能取值及意义 需要说明的是，只有当width属性的取值等于1时，style属性取psDash、psDot、psDashDot、psDashDotDot值才会有效。 Mode：指定画笔颜色和画布颜色的相互作用效果,对线段重新赋值，但是不会改变当前的Color值。它是TPenMode类型的枚举类型，可选的取值及其意义见表10-3： 表10-3 画笔对象模式属性取值及意义 2．TShape组件应用举例 例10-1： 新建一Vcl Forms Application-Delphi for Win32工程， 窗体设计如图 10-2： 其中三个下拉列表框中分表列出相应的属性可选的值，以备用户选择。 主要的代码： 改变绘制的几何形状：（以“圆”为例） procedure TForm1.BitBtn1Click(Sender: TObject); begin shape1.Shape:=stcircle; end; 其余按钮事件代码与此类似，只是Shape属性取值改为相应形状值即可。 选择画刷颜色的代码：（画笔颜色的选取代码与此类似） procedure TForm1.Button1Click(Sender: TObject); begin if colordialog1.Execute then shape1.Brush.Color:=colordialog1.Color; end; 画刷样式的选择代码：（其余2个与此类似） procedure TForm1.ComboBox1Change(Sender: TObject); begin case combobox1.ItemIndex of 0: shape1.Brush.Style:=bssolid; 1: shape1.Brush.Style:=bsclear; 2: shape1.Brush.Style:=bsbdiagonal; 3: shape1.Brush.Style:=bsfdiagonal; 4: shape1.Brush.Style:=bscross; 5: shape1.Brush.Style:=bsdiagcross; 6: shape1.Brush.Style:=bshorizontal; 7: shape1.Brush.Style:=bsvertical; end; end; 设置画笔粗细的代码： procedure TForm