delphi像“开始”菜单一样漂亮的菜单项实例

======================================================
注：本文源代码点此下载
======================================================

http://www.isstudy.com/delphi/2695.html

delphi像“开始”菜单一样漂亮的菜单项实例

来源:原创作者:小人物录入时间:2009-10-14

内容导读: delphi像“开始”菜单一样漂亮的菜单项实例:windows的开始菜单非常独特,在菜单的旁边有一条竖着的彩条,彩条中还写着文字。这种独特的菜单能够使程序的界面看起来更加漂亮。本例就

-

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

实例说明

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.1uformat参数的可选值

实现过程:

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;

源代码下载地址:

http://www.pudn.com/downloads107/sourcecode/delphi_control/detail441428.html

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/