第10章-图形图像与多媒体.pptVIP

第10章图形图像与多媒体;目录;图形图像与多媒体技术可以为应用程序增色不少，在Delphi应用程序中使用图形图像与多媒体技术有多种方法：可以在设计阶段通过图形图像组件插入已经绘制好的图片，也可以在运行阶段动态的绘制它们；同样可以利用Delphi的多媒体组件播放音频或视频剪辑。本章将介绍Delphi标准组件库中图形图像组件（对象）和多媒体组件的用法。;10.1图形图像程序设计;10.1.1Shape组件;表10-1Shape属性可能取值及意义列表;2)brush属性：它是TBrush类型的对象，包含两个子属性：color和style。其中color属性为Tcolor类型，用来指定几何图形的填充色。Style为TBrushStyle类型，则用来指定填充的底纹图形。它是一个枚举类型，可能的取值及其意义见图10-1：;图10-1Style属性可能取值及样式;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：

新建一VclFormsApplication-Delphi

forWin32工程，

窗体设计如图

10-2：

;其中三个下拉列表框中分表列出相应的属性可选的值，以备用户选择。

主要的代码：

改变绘制的几何形状：（以“圆”为例）

procedureTForm1.BitBtn1Click(Sender:TObject);

begin

shape1.Shape:=stcircle;

end;

其余按钮事件代码与此类似，只是Shape属性取值改为相应形状???即可。

选择画刷颜色的代码：（画笔颜色的选取代码与此类似）;procedureTForm1.Button1Click(Sender:TObject);

begin

ifcolordialog1.Executethen

shape1.Brush.Color:=colordialog1.Color;

end;

画刷样式的选择代码：（其余2个与此类似）

procedureTForm1.ComboBox1Change(Sender:TObject);

begin;casecombobox1.ItemIndexof

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;;设置画笔粗细的代码：

procedureTForm1.Edit1KeyPress(Sender:TObject;varKey:Char);

begin

if(key=#13)then

if(edit1.Text)and(edit1.text-)then

begin

shape1.Pen.Width:=strtoint(edit1.Text);

exit;;end

elseexit

else;

if(key=-)and(edit1.Text=)thenexit;

ifnot