Delphi 2005程序设计及其应用开发 李存斌 第7章 图形与图像操作新.pptVIP

第7章 图形与图像操作 本章要点 7.1 基本概念 7.2 实例介绍 结束 本章要点 图形与图像控件的概念和操作使用，如： Image、Shape、ImageList等控件的使用 绘图对象的概念和操作使用，如： Canvas(画布)、Pen(画笔)、Brush(画刷) 举例说明颜色与运动的控制。 举例说明绘图程序的设计。 7.1 基本概念 7.1.1 TCanvas对象 7.1.2 Shape组件 7.1.3 PaintBox组件 7.1.1 TCanvas对象 画布（Canvas）不是独立的控件，而是Form、Image、PageControl等控件的方法。 画布的使用程序举例： TCanvas提供了子属性，用于配置图形。属性如下： （1）Brush属性（画刷） （2）ClipRect属性 （3）Font属性 （4）Pen属性（画笔） 7.1.2 Shape控件 TShape控件的一些属性： （1）Brush属性：用于设置几何图形内部的填充特性，包括填充的颜色和图案。 （2）Pen属性：用于设置画笔的属性包括画笔的颜色、线型和宽度等。 （3）Shape属性：用于指定要显示的几何图形的种类，Shape属性的取值和意义如表4-3所示。 7.1.3 PaintBox控件 TPaintBox的属性有很多，但我们经常用到的只有Canvas。Canvas提供了绘制和修饰位图的所有方法和工具。 在TPaintBox的方法中，只有Paint比较重要。此方法使TPaintBox对自己上面的图像进行强制更新。 TPaintBox的事件响应函数有OnPaint，在每次WM-PAINT消息发来时这个函数被调用，从而使其上面的图像被更新。 7.2 实例介绍 7.2.1 实例1：弹子球 7.2.2 实例2：绘图工具的设计开发 7.2.1 实例1：弹子球 本例主要介绍TShape组件的使用方法，同时本例中还涉及到TPanel、 TTimer和TPopMenu组件的使用 。程序的设计步骤如下： 1．新建VCL Form应用程序 通过New | VCL Form Application菜单项，新建一个新的应用程序，调整系统自动创建的新的空白窗体的大小，然后设置该窗体Form1的Caption属性为：“弹子球小例程”。 7.2.1 实例1：弹子球 3．设置各组件的属性 4．定义全局变量 5．为各组件添加事件过程 程序运行后的界面如下图所示。当用户在TPanel组件所在区域点击鼠标右键，会弹出快捷菜单，通过该快捷菜单可改变TShape组件的颜色和形状。 弹子球实例源代码 7.2.2 实例2：绘图工具的设计开发 程序的设计步骤如下： 1．新建一个VCL Form应用程序。 利用New | VCL Form Application菜单项新建一个新的应用程序，系统会自动创建一个空白的窗体。调整窗体的大小，并设置窗体的Caption为“绘图工具的设计与开发”。 2．向窗体添加组件并设置相关的属性。 1）先向窗体添加一个主菜单组件MainMenu1，用于打开、保存图形文件，并退出应用程序。 通过菜单编辑器设计各菜单项，在“文件”菜单中包含“打开”、“保存”、“退出”三个菜单项和一个分割条。在“编辑”菜单中包含“剪切”、“复制”、“粘贴”三个菜单项，在“帮助”包含“关于…”菜单项。 7.2.2 实例2：绘图工具的设计开发 2） 向窗体添加TStatusBar组件，用来提示当前的操作和鼠标的位置。 TStatusBar组件的默认Name属性为StatusBar1。选中该组件，单击鼠标右键，在弹出的快捷菜单中选择“Panel Editor”命令，打开面板编辑器，向StatusBar1组件中添加两个面板， 并设置Panels[0]的Width属性为300。 7.2.2 实例2：绘图工具的设计开发 3） 设计工具栏，该工具栏在主窗口左侧显示，可用于选择绘图工具如直线、矩形、带填充色矩形等，也可设置线条和填充颜色。 向窗体添加TPanel组件（Panel1）。TPanel组件是一种容器，它主要用于窗口的排版布局，并可增加界面的美观性。设置Panel1组件的Align属性为alLeft，将其Caption属性置为空，然后向Panel1组件中添加TCoolBar组件CoolBar1。 4）添加TImageList组件，为工具栏按钮添加图标，一方面可以美化界面，另一方面可清楚说明按钮的功能。 5) 在窗体上添加TPanel组件（Panel3），设置Panel3组件的Align属性为alClient，将其Caption属性置为空，然后向Panel3组件