美化你的菜单
点击次数：97 次 发布日期：2008-11-09 08:41:05 作者：源代码网
源代码网推荐 源代码网推荐 如果要实现自定义菜单就需要在绘制菜单时改变菜单的大小以适应在菜单上绘制图形，然后再在上面绘制自己所需要的菜单效果。在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定义当前菜单项是否被选中。 源代码网推荐 源代码网推荐 从上面的介绍可以看到，要实现自定义的菜单，只要在OnMeasureItem事件中编写代码改变菜单项的尺寸，然后在OnDrawItem事件中绘制自己需要的效果就可以了。 源代码网推荐 源代码网推荐 下面我痛过具体的范例来做说明，这个范例是使自己的菜单实现象Windows开始菜单一样的显示Banner条的功能。同时这个程序还能实现对被选中的菜单条进行渐变色填充（就象3721中文网址软件的任务栏菜单那样）。程序的思路是这样的，首先建立一个长条型的位图，然后在每一个菜单条的OnMeasureItem事件中根据要显示在菜单上的文本和图像以及程序的需要改变菜单项的宽度和高度，然后在OnDrawItem事件中将位图中的相应部分拷贝到菜单项上。如果该菜单条被选中，首先要改变Acanvas参数的画刷颜色，然后再依次填充菜单条上的相应部分，这样就实现了对选中的菜单条实现渐变色填充。最后将文本输出到菜单条上。 软件开发网 www.mscto.com 源代码网推荐 源代码网推荐 下面来介绍具体的程序，首先利用图像软件建立一个长条型的位图文件（你可以根据你的需要设定图像的高宽比，在我的图像中是10:1）。在Delphi中建立一个新的工程，在Form1中加入一个TImage控件，将控件的AutoSize属性设置为True。然后在Form1中加入一个TMainMenu控件，将它的OwnerDraw属性设置为True（这一点很重要，否则程序无法实现）在该TMainMenu下加入6个TMenuItem对象（鼠标右健点击TMainMenu控件，然后点击弹出菜单的Menu Designer 项，就可以在设计窗口中添加菜单条了），将它们的Name属性分别设置为 Caption1、Caption2、…、Caption6。 源代码网推荐 源代码网推荐 下面是具体的程序清单： 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 unit OwnerMenu; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 interface 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 uses 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 源代码网推荐 源代码网推荐 Menus, ExtCtrls, StdCtrls, ImgList; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 type 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 TForm1 = class(TForm) 源代码网推荐 源代码网推荐 MainMenu1: TMainMenu; 源代码网推荐 源代码网推荐 Main1: TMenuItem; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Caption1: TMenuItem; 源代码网推荐 源代码网推荐 Caption2: TMenuItem; 源代码网推荐 源代码网推荐 Caption3: TMenuItem; 源代码网推荐 源代码网推荐 Caption4: TMenuItem; 源代码网推荐 源代码网推荐 Caption5: TMenuItem; 源代码网推荐 源代码网推荐 Caption6: TMenuItem; 源代码网推荐 源代码网推荐 Image1: TImage; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure Caption1MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 procedure Caption2MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 procedure Caption3MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 procedure Caption4MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 procedure Caption5MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 procedure Caption6MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 procedure Caption1DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 procedure Caption2DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 procedure Caption3DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 procedure Caption4DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 procedure Caption5DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 procedure Caption6DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 private 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 { Private declarations } 源代码网推荐 源代码网推荐 public 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure DrawItem(Sender: TMenuItem; ACanvas: TCanvas;ARect: TRect; 源代码网推荐 源代码网推荐 Selected: Boolean;strOUt:String); 源代码网推荐 源代码网推荐 { Public declarations } 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 var 源代码网推荐 源代码网推荐 Form1: TForm1; 源代码网推荐 源代码网推荐 i,iH,Ind,iW,iRate:Integer; 源代码网推荐 源代码网推荐 rTemp:TRect; 源代码网推荐 源代码网推荐 iG1,iG2:Integer; 源代码网推荐 源代码网推荐 implementation 源代码网推荐 源代码网推荐 {$R *.DFM} 源代码网推荐 源代码网推荐 procedure TForm1.DrawItem(Sender: TMenuItem; ACanvas: TCanvas;ARect: TRect; 源代码网推荐 源代码网推荐 Selected: Boolean;strOut:String); 源代码网推荐 源代码网推荐 var 源代码网推荐 源代码网推荐 j:Integer; 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 i:=ARect.Bottom -ARect.Top; //获得贴图的高度和宽度 源代码网推荐 源代码网推荐 Ind:=Sender.MenuIndex; 源代码网推荐 源代码网推荐 iH:=Round(Image1.Height/6*Ind); //获得贴图位置 源代码网推荐 源代码网推荐 //将Image上相应位置的位图复制到菜单上 源代码网推荐 源代码网推荐 StretchBlt(ACanvas.Handle,ARect.Left,ARect.Top,iW,i,Image1.Canvas.Handle,0,iH, 源代码网推荐 源代码网推荐 Image1.Width,Round(Image1.Height/6),SRCCOPY); 源代码网推荐 源代码网推荐 if Selected then begin //该菜单项被选中 源代码网推荐 源代码网推荐 ACanvas.Font.Color := clWhite; 源代码网推荐 源代码网推荐 rTemp:=ARect; 源代码网推荐 源代码网推荐 rTemp.Left := rTemp.left iW; 源代码网推荐 源代码网推荐 iG1:=Round((rTemp.Right - rTemp.Left)/10); 源代码网推荐 源代码网推荐 rTemp.Right := rTemp.Left iG1; 源代码网推荐 源代码网推荐 for j:= 0 to 9 do begin //通过循环设置色彩渐变效果 源代码网推荐 源代码网推荐 ACanvas.Brush.Color := RGB(0,0,j*25); 源代码网推荐 源代码网推荐 ACanvas.FillRect(rTemp); 源代码网推荐 源代码网推荐 rTemp.Left := rTemp.Left iG1; 源代码网推荐 源代码网推荐 rTemp.Right := rTemp.Left iG1; 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 end 源代码网推荐 源代码网推荐 else begin //该菜单项没有被选中 源代码网推荐 源代码网推荐 ACanvas.Brush.Color := cl3DLight; //设置背景色为浅灰 源代码网推荐 源代码网推荐 rTemp:=ARect; 源代码网推荐 源代码网推荐 rTemp.Left := rTemp.left iW; 源代码网推荐 源代码网推荐 ACanvas.FillRect(rTemp); 软件开发网 www.mscto.com 源代码网推荐 源代码网推荐 ACanvas.Font.Color := clBlack; 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 //设置Canvas的画笔填充模式为透明 源代码网推荐 源代码网推荐 ACanvas.Brush.Style:=bsClear; 源代码网推荐 源代码网推荐 //在菜单上输出文字 源代码网推荐 源代码网推荐 ACanvas.TextOut(ARect.Left iW 5,ARect.Top,strOut); 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 procedure TForm1.Caption1MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 //在OnMeasureItem事件中改变菜单的宽度和高度，下面5个程序同 源代码网推荐 源代码网推荐 //改变菜单的宽度和高度以容纳文本 源代码网推荐 源代码网推荐 Height:=ACanvas.TextHeight("Caption1") 5; 源代码网推荐 源代码网推荐 Width:=ACanvas.TextWidth("Caption1") 5; 源代码网推荐 源代码网推荐 iRate:=Round(Image1.Height/(Height*6)); 源代码网推荐 源代码网推荐 iW:=Round(Image1.Width /iRate); 源代码网推荐 源代码网推荐 Width:=Width iW; //根据计算改变菜单宽度以容纳附加的文本 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.Caption2MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Height:=ACanvas.TextHeight("Caption1") 5; 源代码网推荐 源代码网推荐 Width:=ACanvas.TextWidth("Caption1") 5; 源代码网推荐 源代码网推荐 iRate:=Round(Image1.Height/(Height*6)); 源代码网推荐 源代码网推荐 iW:=Round(Image1.Width /iRate); 源代码网推荐 源代码网推荐 Width:=Width iW; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.Caption3MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Height:=ACanvas.TextHeight("Caption1") 5; 源代码网推荐 源代码网推荐 Width:=ACanvas.TextWidth("Caption1") 5; 源代码网推荐 源代码网推荐 iRate:=Round(Image1.Height/(Height*6)); 源代码网推荐 源代码网推荐 iW:=Round(Image1.Width /iRate); 源代码网推荐 源代码网推荐 Width:=Width iW; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.Caption4MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Height:=ACanvas.TextHeight("Caption1") 5; 源代码网推荐 源代码网推荐 Width:=ACanvas.TextWidth("Caption1") 5; 源代码网推荐 源代码网推荐 iRate:=Round(Image1.Height/(Height*6)); 源代码网推荐 源代码网推荐 iW:=Round(Image1.Width /iRate); 源代码网推荐 源代码网推荐 Width:=Width iW; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.Caption5MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Height:=ACanvas.TextHeight("Caption1") 5; 源代码网推荐 源代码网推荐 Width:=ACanvas.TextWidth("Caption1") 5; 源代码网推荐 源代码网推荐 iRate:=Round(Image1.Height/(Height*6)); 源代码网推荐 源代码网推荐 iW:=Round(Image1.Width /iRate); 源代码网推荐 源代码网推荐 Width:=Width iW; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.Caption6MeasureItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 var Width, Height: Integer); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Height:=ACanvas.TextHeight("Caption1") 5; 源代码网推荐 源代码网推荐 Width:=ACanvas.TextWidth("Caption1") 5; 源代码网推荐 源代码网推荐 iRate:=Round(Image1.Height/(Height*6)); 源代码网推荐 源代码网推荐 iW:=Round(Image1.Width /iRate); 源代码网推荐 源代码网推荐 Width:=Width iW; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.Caption1DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 DrawItem(TMenuItem(Sender),ACanvas,ARect,Selected,"Caption1"); 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.Caption2DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 DrawItem(TMenuItem(Sender),ACanvas,ARect,Selected,"Caption2"); 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.Caption3DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 DrawItem(TMenuItem(Sender),ACanvas,ARect,Selected,"Caption3"); 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 procedure TForm1.Caption4DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 DrawItem(TMenuItem(Sender),ACanvas,ARect,Selected,"Caption4"); 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.Caption5DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 DrawItem(TMenuItem(Sender),ACanvas,ARect,Selected,"Caption5"); 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 procedure TForm1.Caption6DrawItem(Sender: TObject; ACanvas: TCanvas; 源代码网推荐 源代码网推荐 ARect: TRect; Selected: Boolean); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 DrawItem(TMenuItem(Sender),ACanvas,ARect,Selected,"Caption6"); 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 end. 源代码网推荐 源代码网供稿. |
