======================================================
注:本文源代码点此下载
======================================================
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^)/