x.dpr是一个简单的图形图像应用程序,运行状态如图5.2。该程序可用鼠标绘制多种图形,可设置画笔颜色、画刷填充方式;另外还可以浏览位图、元文件、图标,改变它们的大小,并打印。本节结合例程讲述以下
问题:
● 在工具条中添加加速按钮
● 响应鼠标事件
● 设置画笔和画刷
● 实现绘图的“橡皮擦”功能
● 加入状态条
5.2.1 在工具条中添加加速按钮
加速按钮是应用程序常用的部件,它是替代菜单的快捷形式,通常把多个加速按钮集中在一个工具条中以方便使用。Graphex中有三个工具条,它们是TPancel部件,面板上有几组加速按钮,用以设置绘图方式、画笔、画刷。
每个加速按钮的glyph属
性是图像对象,位图对象用来指示该按钮是否被使用。glyph 通常需要四幅图像,分别表示按下、不按、选择、失效四种状态。
程序员可根据个人喜好来选择图像。
加速按钮使用图像来告诉用户其状态和目的,因为按钮上无标题, 因此应给用户正确的提示:
● 把Down属性设置成真值使加速按钮呈按下状态
● 把Enable属性设置成假值使加速按钮呈失效状态。
例程中缺省的绘图工具是画线,因此应用程序开始时画线按钮呈按下状态。
在应用程序中,常把一些功能相似的按钮放在一起,用户在同一时刻只能选择其中的一个按钮。当其它按钮按下时,原来被按下的按钮自动弹起,这些选择排它的按钮称为一组加速按钮。
要使多个加速按钮成为一组,将这些按钮的GraphIndex属性设成相同的值。最简单的办法是在
设计状态时,用鼠标选中各个加速按钮,然后设置GraphIndex值。
有时用户按一个已经按下的按钮,希望该按钮能够弹起,这样没有任何按钮被按下,使用AllowAllup 属性可实现上述功能。对于一组加速按钮来讲,设置该组中任一按钮的AllowAllup可使这组的每一个按钮具有这种功能。
Graphex程序中设计了三组加速按钮和两个单独的加速按钮。 第一组加速按钮用来选择绘图工具,它与两个单独的按钮处在同一面板中,这个面板是缺省可见的。另外两个按钮分别代表画笔、画刷。第二组与第三组加速按钮处在两个缺省不可见的面板中,它们分别代表不同风格的画笔和画刷,只有按下第一个面板中的画笔(或画刷)按钮,第二(或第三) 个面板才会显示,这样用户就可以选择画笔、画刷了。
5.2.2 响应鼠标事件
鼠标常被用作绘图的工具,应用程序利用鼠标位置的变化来绘制各种不同的图形。鼠标有三个动作:鼠标按钮按下、鼠标移动、鼠标按钮弹起。在
Delphi中, 对应三个动作有三个不同的事件:OnMouseDown,OnMouseMove,OnMouseUp。
当Dlephi应用程序探测到一个鼠标动作时,它传递五个参数,并调用相应的事件响应。
程序员可利用这些参数来定义事件程序。五个参数如下表5.4:
表5.4 鼠标事件的五个参数
━━━━━━━━━━━━━━━━━━━━━━━━━━━
参数
含义
──────────────────────────
Sender 探测鼠标动作的对象
Button 涉及的鼠标按钮:左键,中键,右键
Shift 鼠标动作时,Alt,Ctrl,Shift按钮的状态
X,Y 事件发生时鼠标的坐标
━━━━━━━━━━━━━━━━━━━━━━━━━━━
当鼠标按下时发生OnMouseDown事件。举一个简单例子来说明程序如何对该事件进
行响应。假如我们想在鼠标按下的地
方出现"Here"。
响应鼠标的OnMouseDown事件
可在该事件中调用TextOut方法:
procedure TForm1.FormMouseDown(Sender: TObject,Button: TMouseButton;
Shift : TShifState; X,Y : Integer);
begin
Canvas.TextOut(X, Y, 'Here!');
end;
用户放松鼠标键时发生OnMouseUp事件。该事件发生时,鼠标到达的对象并不一定是鼠标键按下时鼠标所在的对象。例如,用户可在窗体之外画一条线段,(鼠标在窗体外,线段