用Delphi制作个性化的菜单

在应用程序编写中，使用个性化的菜单可以美化界面，展示个性风彩。例如3721网站推出的《3721网络特快》应用程序中的菜单就是一例。从其Windows编程的角度来说它仅是一个自绘式菜单而已。本文就使用Delphi制作这样的个性化菜单作出说明(本文以Delphi4.0为例)，制作一个可以有背景图、鼠标在上移动选择时的背景色有渐变色效果的彩色菜单。
　　一、关于Delphi中的自绘式菜单
　　要将Delphi的菜单(TMainMenu 或TPopupMenu)控件（Component）设为自绘式，有两种不同的情况：
　　 ① 如果菜单上没有图标(即，没有设定其Images属性)，则必须将菜单控件的OwnerDraw属性设为True，菜单为自绘式。
　　 ② 菜单上有图标(即，已设定其Images属性)，菜单为自绘式。
　　在此，我们必须首先把准备将其制作成有个性特征的菜单设为自绘式。
　　二、关于背景的重绘
　　通常Windows程序的标准菜单，在其被下拉或弹出时，鼠标在上移动时出现的选择条背景是一单一的颜色，现在我们要将其重绘为有渐变色效果的背景，另外如果要在其背景上绘制图形（您见过这样的菜单吗？），则应先绘图、后绘渐变的背景。这些绘制工作的完成只需简单使用Delphi提供的画布（Canvas）对象。
　　三、关于重绘图标
　　如果菜单上有图标，则最好为各菜单项指定ImageIndex索引号，而不要使用其Bitmap属性。这样在为各菜单项指定了ImageIndex索引号后，可以直接用其TImageList的Draw方法在同一个画布上绘制相应的图标。
　　四、关于重绘菜单文本
　　 在重绘菜单时，为了不破坏其背景，应将文本的背景模式设为透明，这要用到一个Windows API函数SetBkMode()，其在C++中定义的原形如下：
　　 int SetBkMode(
　　 HDC hdc,
　　 int iBkMode // flag specifying background mode
　　 );
　　 其中：hdc – 是绘图设备句柄，在Delphi中可为Tcanvas的Handle属性；
　　 iBkMode – 指定的背景模式标识符，有OPAQUE 和TRANSPARENT两个
　　 常量取值，取TRANSPARENT时，为透明模式。
　　设置了背景模式后，可以使用TCanvas的TextOut方法绘制菜单文本。
　　五、响应自绘式菜单的OnDrawItem事件
　　 为菜单项的OnDrawItem事件添加代码，完成想要完成的重绘工作，如下所示（M_Item1_1是菜单项名称）：
　　procedure TForm1.M_Item1_1DrawItem(Sender: TObject; ACanvas: TCanvas;
　　 ARect: TRect; Selected: Boolean);
　　 begin //调用自定义过程--重绘菜单项
　　 DrawItem(TMenuItem(Sender), ACanvas, ARect,Selected);
　　 end;
　　六、二个示例
　　㈠　以下是实现上述个性化菜单的自定义过程DrawItem的一个示例的代码。但需作如下说明：
　　① 在其Delphi工程的主窗口上有一个TCoolBar控件CoolBar1，其上又放了一个TToolBar控件，并且TCoolBar的Bitmap属性不为空（即为其指定了图象）。
　　② 主窗口上有一个TPopupMenu 控件PopupMenu1、一个TImageList控件ImageList1，其PopupMenu1的Images属性等于ImageList1。
　　③ TToolBar的Transparent属性为True，并且上面的工具按钮的MenuItem属性分别与相应的菜单项相关联（注意，这是用工具条、工具按钮和弹出式菜单制作主菜单的方法，应将工具按钮的Grouped属性全部设为True）。
　　代码如下：
　　procedure TForm1.DrawItem(Item:TMenuItem; ACanvas: TCanvas; ARect: TRect;
　　 Selected: Boolean);
　　var
　　 dc,y,i,j,xb,xe:integer;
　　begin
　　 //设置字体和其前景色
　　 ACanvas.Font := Screen.IconFont;
　　 SetBkMode(ACanvas.Handle,TRANSPARENT); //设背景为透明
　　 //根椐菜单宽度计算渐变背景色的填充色增量;当菜单宽度大于256时没有渐变较果
　　 dc:=ACanvas.ClipRect.Right-ACanvas.ClipRect.Left;
　　 dc:=(256 div dc);
　　 dc:=dc*256;
　　 //计算渐变背景色的填充起点
　　 xb:=ARect.Left + ImageList1.Width+2;
　　 //计算渐变背景色的填充终点
　　 xe:=ARect.Right-xb;
　　 //绘制背景图
　　 ACanvas.StretchDraw(Rect(0,0,ACanvas.ClipRect.Right,ACanvas.ClipRect.Bottom),
　　 CoolBar1.Bitmap);//非平辅方式绘制
　　
　　 //绘制菜单项文本
　　 for j:=0 to Item.Parent.Count -1 do
　　 begin
　　 y:=19*j+4;
　　 ACanvas.TextOut(ARect.Left+20,y,Item.Parent.Items[j].Caption);//front color is black font
　　 end;
　　 //绘制当前选择的菜单项
　　 if Selected then begin
　　 for i:=0 to xe do begin
　　 ACanvas.Brush.Color := $002222FF+i*dc; //背景的填充色，$002222FF为起始色
　　 ACanvas.FillRect(Rect(xb,ARect.Top,xb+1,ARect.Bottom));
　　 inc(xb);
　　 end;
　　 ImageList1.Draw(ACanvas,ARect.Left+1,ARect.Top+1,0,true); //在左边绘制图标
　　 ACanvas.Font.Color:=clWhite; //被选中时的字体前景色是白色
　　 SetBkMode(ACanvas.Handle,TRANSPARENT); //必须重设背景模式为透明
　　 ACanvas.TextOut(ARect.Left+20,ARect.Top+4,Item.Caption);//front color,which is white font
　　 end;
　　end;
　　在各菜单项的OnDrawItem事件处（如五所示）均调用此过程，运行程序可以看到一个有背景图、所选菜单项左边有一个图标且背景色是由红到黄渐变的菜单。
　　㈡　以下是实现上述个性化菜单的自定义过程DrawItem的另一个示例的代码。为一个有图标的弹出式菜单，不作过多的说明了。
　　procedure TForm1.DrawItem(Item:TMenuItem; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
　　var
　　 i,xb:integer;
　　begin
　　 //设置字体和其前景色
　　 ACanvas.Font := Screen.IconFont;
　　 ACanvas.Brush.Color := clBtnFace;
　　 ACanvas.FillRect(ARect);
　　 ACanvas.TextOut(ARect.Left+20,ARect.Top+4,Item.Caption);
　　 if Selected then begin
　　 //绘制当前选择的菜单项
　　 xb:=0;
　　 for i:=0 to ARect.Right do begin
　　 ACanvas.Brush.Color :=clTeal+i*$100;//gradient back color
　　 ACanvas.FillRect(Rect(xb,ARect.Top,xb+1,ARect.Bottom));
　　 inc(xb);
　　 end;
　　 ACanvas.Font.Color:=clWhite;//被选中时的字体前景色是白色
　　 SetBkMode(ACanvas.Handle,TRANSPARENT);
　　 ACanvas.TextOut(ARect.Left+20,ARect.Top+4,Item.Caption);
　　 end;
　　 ImageList1.Draw(ACanvas,ARect.Left+1,ARect.Top+1,Item.ImageIndex,true);//绘制左边的图标
　　end;
　　同理，应在各菜单项的OnDrawItem事件处均调用此过程。
　　
　　七、小结
　　
　　使用自绘式菜单，对整个菜单进行全面的重绘，可以任其想象发挥，绘出五颜六色的个性化菜单，极大地丰富程序界面。
　　 此外，用此方法虽然简单但较率较低，不适合做要求较高的软件。高级的做法是全部使用WindowsAPI和消息。