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

转载 2012年02月01日 01:14:54

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

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^)/

delphi菜单项提示框

  • 2011年10月16日 21:36
  • 220KB
  • 下载

系统托盘图标以及菜单项实例

  • 2013年09月24日 19:26
  • 6.05MB
  • 下载

用BasicMenuItemUI实现个性化菜单项的简单实例

要实现个性化菜单最常用的方法是继承JMenuItem类,然后再重写paintComponent方法,但这个作法有几个不足之处,一是不能绘制菜单项在高亮时的效果,二是不能重设组合键的字体颜色,三是当菜单...

Android学习之菜单项实例

关于Android这里有两种实现方式,第一种是在资源文件中的menu文件中添加菜单项,第二种直接用Java代码实现。 第一种方式: res/menu/main.xml ...

关于Activity无重写方法--菜单项onCreateOptionsMenu

我使用的sdk是4.0版本,测试菜单项时发现无此方法,经查询google已删除菜单键,用onCreateContextMenu来完成模拟,菜单键的处理和上下文菜单的处理方法的格式几乎是一致的,实际操作...

word看到菜单项而看不到工具栏

  • 2012年02月29日 10:47
  • 609B
  • 下载

共享菜单项

  • 2015年06月11日 12:49
  • 8KB
  • 下载

Android开发基础之动态添加菜单项

我们在之前的一篇博客中使用了在xml中写死了菜单项Item,然后在java文件中进行响应。但是这种菜单项显得非常不灵活,不能动态的增加删除Item。其实在Android中可以在java文件中动态增加菜...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi像“开始”菜单一样漂亮的菜单项实例
举报原因:
原因补充:

(最多只允许输入30个字)