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
  • 下载

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

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

Android学习之菜单项实例

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

android菜单项、弹出框、完全退出应用程序

本次了解到比较重要的就是应用程序的完全退出 问题:主窗口A调用了子窗口B,在窗口B中要退出应用程序,使用直接使用finish(),只会返回到窗口A中,折腾了好久,google后才解决,需要在窗口A调...

共享菜单项

Unity编辑器扩展-菜单项

[TOC] Unity编辑器允许你去添加像内置菜单一样外观和行为的自定义菜单。自定义菜单对于那些经常使用的功能提供一种能从编辑器直接访问的便捷方式。在这一课程中我将对每个描述的主题提供真实的使用示例...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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