利用Delphi美化你的菜单

       Windows下的很多程序都有十分漂亮的菜单，例如Windows“开始”菜单左方从上到下的长条形的Windows Banner 又或者是向Word那样在每一个菜单条左边都有一个小图标，看到这些很Cool的菜单，你是否觉得自己的菜单显得单调乏味呢？不需要第三方控件，利用Delphi就可以实现上面的功能。

       如果要实现自定义菜单就需要在绘制菜单时改变菜单的大小以适应在菜单上绘制图形，然后再在上面绘制自己所需要的菜单效果。在Delphi中，每一个菜单项对应一个TmenuItem控件，这类控件都有两个事件：OnDrawItem和OnMeasureItem，要实现自定义菜单，首先要介绍一下这两个事件：

       OnMeasureItem事件的定义如下：

       type TMenuMeasureItemEvent = procedure (Sender: TObject; ACanvas: TCanvas;

var Width, Height: Integer) of object;

property OnMeasureItem: TMenuMeasureItemEvent;

该事件在菜单条监测自身的尺寸时产生，其中参数Acanvas定义绘制的绘图对象，参数Width、Height制定菜单项的默认尺寸，注意到这两个定义前的var了吗，说明你可以在OnMeasureItem事件处理函数中改变这两个值，也就是改变菜单的大小。

OnDrawItem事件的定义如下：

type TMenuDrawItemEvent = procedure (Sender: TObject; ACanvas: TCanvas;

ARect: TRect; Selected: Boolean) of object;

property OnDrawItem: TMenuDrawItemEvent;

该事件在菜单绘制时引发，其中参数Acanvas定义菜单绘制对象，参数Arect制定菜单的绘制区域，参数Selected定义当前菜单项是否被选中。

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>