Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:09:40
delphi像“开始”菜单一样漂亮的菜单项实例

像“开始”菜单一样漂亮的菜单

实例说明

Windows的开始菜单非常独特，在菜单的旁边有一条竖着的彩条，彩条中还写着文字。这种独特的菜单能够使程序的界面看起来更加漂亮。本例就实现了这种菜单，运行本例弹出“我的菜单”。就会看到菜单的左边有一个蓝色的彩条，彩条上面还写着文字。例效果如图1.4所示。



图1.4像“开始”菜单一样漂亮的菜单

技术要点

当菜单的菜单项需要重绘时会触发OnAdvancedDrawItem事件，并且使用该事件的过程对菜单项进行重绘，但是主菜单的OwnerDraw属性为True时，该事件才会起作用。在OnAdvancedDrawItem事件处理过程中先将一幅大小合适的图片绘制到菜单的左面，然后将每个菜单的标题写到菜单对应的菜单项上，最后在左面图片上写入“我的菜单”4个字。向菜单上写入文字可以通过DrewText函数，该函数声明如下：

function DrewText（hDC：HDC；IpString：PChar；nCount:Integer;var IpRect:TRect；uFormat：UINT）：Integer；stdcall;

参数说明：

hDC 设备场景句柄。

Ipstring输出的文字。

nCount 输出文字的字数。

IpRect 输出文字的区域。

uFormat 文字输出的样式，器常用可以选值如表1.1所示。



表1.1 uFormat参数的可选值

实现过程：

1.新建一个标准工程，创建一个新窗体，默认主窗体的Name属性为For1。

2.在窗体中添加TMainMenu和TImage组件。

3.设置TImage组件的Alig属性为alClient,设置Stretch属性为True。

4.程序代码如下：

在窗口单元中的private域中添加位图对象：

procedure TForm1.FormCreate(Sender: TObject);

begin

Mbitmap:=Tbitmap.Create;

mbitmap.LoadFromFile('2.bmp');

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

mbitmap.Free;

end;

procedure TForm1.N4AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;

ARect: TRect; State: TOwnerDrawState);

var

Mrect:Trect;

begin

acanvas.TextWidth(TMenuItem(Sender).Caption);

mrect:= rect(0,0,mbitmap.Width,mbitmap.Height);

acanvas.Draw(arect.Left,arect.Top-arect.Bottom,mbitmap);

acanvas.TextRect(rect(arect.Left+mbitmap.Width+2,arect.Top,arect.Right,arect.Bottom),arect.Left+mbitmap.Width+2,arect.Top+3,TMenuItem(Sender).Caption);

setbkmode(acanvas.Handle,TRANSPARENT);

DrawText(acanvas.Handle,'我'+#13+'的'+#13+'菜'+#13+'单',-1,mrect,DT_LEFT+DT_Center);

end;

赞