Delphi图形图像编程（一）

　　Style属性定义了画刷填充图形的风格。

5.1.4 TColor类型

　　TColor类型用于定义一个对象的颜色。很多部件的颜色属性就是TColor 类型， 在Graphics单元中TColor定义如下：

　　TColor = -(COLOR_ENDCOLORS 1)..$02FFFFF;

这是一个32位二进制数据。Graphic单元中还定义了一些常用的颜色常量，这些常量或直接映射成系统调色板中最相近的颜色，或映射成Wondows 控制面板中颜色部分的系统视频颜色。

　　ClAqua,CLBlack,ClBlue,ClbkGrray,ClFuchsoa......ClYellow

　　映射程序用4字节的二进制码来定义颜色，低3 位字节代表RGB 相应的颜色，如$00FF0000表示纯蓝，$0000FF00表示纯绿，$000000FF表示纯红，$00000000表示黑色，$00FFFFFF表示白色。如果最高位字节是$00,则表示用系统调色板中最相近的颜色；最高位字节是$01，则表示用当前调色板中最相近的颜色匹配；最高位字节是$02，则用当前设备描述表中逻辑调色板的次相近颜色匹配。

　　用Windows API的SelectPalette函数可创建逻辑调色板，要实现逻辑调色板到硬件调色板的映射，需用函数RealizePalett　

5.2 图形程序的开发　

　　Graphex.dpr是一个简单的图形图像应用程序，运行状态如图5.2。该程序可用鼠标绘制多种图形，可设置画笔颜色、画刷填充方式；另外还可以浏览位图、元文件、图标，改变它们的大小，并打印。本节结合例程讲述以下问题：

　　● 在工具条中添加加速按钮

　　● 响应鼠标事件

　　● 设置画笔和画刷

　　● 实现绘图的“橡皮擦”功能

　　● 加入状态条

5.2.1 在工具条中添加加速按钮　

　　加速按钮是应用程序常用的部件，它是替代菜单的快捷形式，通常把多个加速按钮集中在一个工具条中以方便使用。Graphex中有三个工具条，它们是TPancel部件，面板上有几组加速按钮，用以设置绘图方式、画笔、画刷。

　　每个加速按钮的glyph属性是图像对象，位图对象用来指示该按钮是否被使用。glyph 通常需要四幅图像，分别表示按下、不按、选择、失效四种状态。程序员可根据个人喜好来选择图像。

　　加速按钮使用图像来告诉用户其状态和目的，因为按钮上无标题， 因此应给用户正确的提示：

　　● 把Down属性设置成真值使加速按钮呈按下状态

　　● 把Enable属性设置成假值使加速按钮呈失效状态。　

　　要使多个加速按钮成为一组，将这些按钮的GraphIndex属性设成相同的值。最简单的办法是在设计状态时，用鼠标选中各个加速按钮，然后设置GraphIndex值。

　　有时用户按一个已经按下的按钮，希望该按钮能够弹起，这样没有任何按钮被按下，使用AllowAllup 属性可实现上述功能。对于一组加速按钮来讲，设置该组中任一按钮的AllowAllup可使这组的每一个按钮具有这种功能。

Graphex程序中设计了三组加速按钮和两个单独的加速按钮。 第一组加速按钮用来选择绘图工具，它与两个单独的按钮处在同一面板中，这个面板是缺省可见的。另外两个按钮分别代表画笔、画刷。第二组与第三组加速按钮处在两个缺省不可见的面板中，它们分别代表不同风格的画笔和画刷，只有按下第一个面板中的画笔(或画刷)按钮，第二(或第三) 个面板才会显示，这样用户就可以选择画笔、画刷了。