自绘XP风格菜单
这是以前写的代码,自绘XP风格的菜单,硬盘坏了后以为没了,最后写的一个软件要自定义风格,“翻箱倒柜”的终于在我可爱的古董机^_^上找到了一个应用的例子。还是把它放到Blog上来,即可共享又可作为备用 :)
把主菜单的OnMeasureItem指向MeasureMainItem、OnAdvancedDrawItem指向DrawMainItem,子菜单的OnMeasureItem指向MeasureSubItem、OnAdvancedDrawItem指向DrawSubItem,调整颜色或使用默认颜色即可达到效果
{=======================================================================
DESIGN BY : 彭国辉
SITE: http://kacarton.yeah.net/
BLOG: http://blog.csdn.net/nhconch
EMAIL: kacarton@sohu.com
文章为作者原创,转载前请先与本人联系,转载请注明文章出处、保留作者信息,谢谢支持!
========================================================================}
//调整主菜单项尺寸
procedure MeasureMainItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
begin
Width := Width + 6;
Height := Height + 2;
end;
//调整子菜单项尺寸
procedure MeasureSubItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
begin
Width := Width + 20;
Height := Height + 2;
end;
//绘制主菜单内容
procedure DrawMainItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
const
MainMenuBackColor : TColor = $DEEDEF;
MainMenuBorderColor : TColor = $DEEDEF;
MainMenuSelectedBackColor : TColor = $DFA988;
MainMenuSelectedBorderColor: TColor = $C08000;
MainMenuHotLightBackColor : TColor = $DEEDEF;
MainMenuHotLightBorderColor: TColor = $800080;
MainMenuGrayedBackColor : TColor = $DEEDEF;
var
BrushColor, PenColor: TColor;
TextRect: TRECT;
begin
if odGrayed in State then
begin
BrushColor := MainMenuGrayedBackColor;
PenColor := MainMenuGrayedBackColor;
end
else
if odHotLight in State then
begin //鼠标划过
BrushColor := MainMenuHotLightBackColor;
PenColor := MainMenuHotLightBorderColor;
end
else
if odSelected in State then
begin
BrushColor := MainMenuSelectedBackColor;
PenColor := MainMenuSelectedBorderColor;
end
else
begin
BrushColor := MainMenuBackColor;
PenColor := MainMenuBackColor;
if TMenuItem(Sender).Caption = '帮助(&H)' then ARect.Right := ARect.Right + 1600;
end;
ACanvas.Brush.Color := BrushColor;
ACanvas.Pen.Color := PenColor;
//ACanvas.FillRect(ARect);
ACAnvas.Rectangle(ARect);
ACanvas.Brush.Style := bsClear;
//绘出文字
if odGrayed in State then
ACanvas.Font.Color := clBtnShadow
else
ACanvas.Font.Color := clBlack;
SetRect(TextRect, ARect.left+10, ARect.top+3, ARect.right, ARect.bottom);
DrawText(ACanvas.Handle, PChar(TMenuItem(Sender).Caption), Length(TMenuItem(Sender).Caption),
TextRect, DT_LEFT);
end;
//绘制子菜单内容
procedure DrawSubItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
const
SubMenuBackColor : TColor = $F7F8F9;
SubMenuBorderColor : TColor = $DEEDEF;
SubMenuSelectedBackColor : TColor = $EED2C1;
SubMenuSelectedBorderColor: TColor = $C08000;
SubMenuLineColor : TColor = $C8D0D4;
//SubMenuHotLightBorderColor: TColor = $C08000;
SubMenuGrayedBackColor : TColor = $F7F8F9;//$DEEDEF;
var
BrushColor, PenColor: TColor;
TextRect: TRECT;
str: String;
ImageList: TCustomImageList;
begin
if (odGrayed in State) and not(TMenuItem(Sender).IsLine) then
begin
BrushColor := SubMenuGrayedBackColor;
{if odSelected in State then
PenColor := SubMenuSelectedBorderColor
else}
PenColor := SubMenuGrayedBackColor;
end
else
if odSelected in State then
begin
BrushColor := SubMenuSelectedBackColor;
PenColor := SubMenuSelectedBorderColor;
end
else
begin
BrushColor := SubMenuBackColor;
PenColor := SubMenuBackColor;
end;
ACanvas.Brush.Color := BrushColor;
ACanvas.Pen.Color := PenColor;
ACAnvas.Rectangle(ARect);
if not(odSelected in State) or (odGrayed in State) then
begin
ACanvas.Brush.Color := SubMenuBorderColor;
ACanvas.FillRect(Rect(ARect.Left, ARect.Top, ARect.Left+20, ARect.Bottom));
end;
//绘文字和快捷键
if TMenuItem(Sender).IsLine then
begin
ACanvas.Brush.Color := SubMenuLineColor;
ACanvas.Pen.Color := SubMenuLineColor;
ACanvas.FillRect(Rect(ARect.Left+23, ARect.Top+(ARect.Bottom-ARect.Top) div 2-1,
ARect.Right-2, ARect.Top+(ARect.Bottom-ARect.Top) div 2));
end
else
begin
ACanvas.Brush.Style := bsClear;
if odGrayed in State then
ACanvas.Font.Color := clBtnShadow
else
ACanvas.Font.Color := clBlack;
str := TMenuItem(Sender).Caption;
SetRect(TextRect, ARect.Left+24, ARect.Top+3, ARect.Right, ARect.Bottom);
DrawText(ACanvas.Handle, PChar(str), Length(str), TextRect, DT_LEFT);
str := ShortCutToText(TMenuItem(Sender).ShortCut);
SetRect(TextRect, ARect.Left+24, ARect.Top+3, ARect.Right-10, ARect.Bottom);
DrawText(ACanvas.Handle, PChar(str), Length(str), TextRect, DT_RIGHT);
//
if TMenuItem(Sender).Checked then
begin
ACanvas.Font.Charset := DEFAULT_CHARSET;
ACanvas.Font.Name := 'Webdings';
if TMenuItem(Sender).RadioItem then
ACanvas.TextOut(ARect.Left+4, ARect.Top, '=')
else
begin
ACanvas.Font.Height := -16;
ACanvas.TextOut(ARect.Left+2, ARect.Top, 'a');
end;
end;
end;
//绘制图片
ImageList := TMenuItem(Sender).GetImageList;
if ImageList<>nil then
if (odSelected in State) and not(odGrayed in State) then
ImageList.Draw(ACanvas, ARect.left+2, ARect.Top+2, TMenuItem(Sender).ImageIndex)
else
ImageList.Draw(ACanvas, ARect.left+3, ARect.Top+3,
TMenuItem(Sender).ImageIndex, TMenuItem(Sender).Enabled);
end;
http://blog.csdn.net/nhconch/article/details/83723
自绘XP风格菜单的更多相关文章
- XP退役了,如何把Win7变成XP风格?| 怎么样去掉Win7的所有华丽效果? | 怎么样让Win7达到电脑最佳性能?
XP系统退役了,以后微软停止XP系统的更新维护了. 不得不升级使用Windows7系统,但是大部分使用Windows7不习惯. 那是因为你的操作习惯,还保持在XP风格基础上. 那么有没有什么办法让Wi ...
- 让VC6.0编译出来的程序支持XP样式或XP风格
(1)VC6.0编译出来的win32程序不支持winxp样式的原因:微软WINXP系统更新了Comctl32.dll(ver 6.0)这个“XP风格”的控件.为了保留传统的Windows界面风格,特地 ...
- VB|xp风格:终于解决了“图片优化软件”在部分xp系统上无法启动的问题。
一年以来,图片优化软件一直存在一个“兼容”性问题. 因为之前的软件是在windows 2003系统上开发的,制作成安装文件后,经部分用户测试发现,在部分用户的xp系统上安装后,无法正常启动,只能听到p ...
- 在VC6/VC2005下使程序直接具有XP风格(XP Style):
原文 首先将以下文本保存为XpStyle.mainfest(后经实践,文件名和后缀是什么都无所谓) <?xml version="1.0" encoding="UT ...
- vs 2005/2008/2010 ATL ActiveX控件显示XP风格
vs 2005/2008/2010 ATL ActiveX控件在IE浏览器中控件显示的是原始的风格,要显示XP风格只要进行以下操作 一.在Stdafx.h中增加下以内容 #if defined _M_ ...
- 基于QT的换肤整体解决方案(QSkinStyle)(提供Linux的XP风格)
基于QT的换肤整体解决方案(QSkinStyle) 对QT这个成功的跨平台GUI库,本身内置了对换肤功能的实现,比如cleanlooks.plastique等跨平台风格:还有一些是和平台相关的风格,比 ...
- windows 7 Alt+Tab 的风格改成 XP 风格
1.开始菜单-运行-输入“regedit”. 2.找到这个位置“[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explore ...
- 支持xp风格的manifest
MSDN 和一些网站上的manifest 有问题 , 自己修改了一下加上Microsoft.VC80.DebugCRT 和 Microsoft.VC80.DebugMFC 就可以了.如果是relea ...
- XP右键菜单添加“打开所在文件夹”功能
把以下文字保存为add.reg文件,双击后确定就可以了. REGEDIT4 [HKEY_CLASSES_ROOT\*\Shell\打开所在文件夹(&O)] [HKEY_CLASSES_ROOT ...
随机推荐
- QQ与我联系
第一种 <a href=" http://sighttp.qq.com/cgi-bin/check?sigkey=ee8bdb91c04a9ae912a305a5a2461a0d8d6 ...
- ascii码所有字符对照表(包含汉字和外国文字)
http://www.0xaa55.com/thread-398-1-1.html看到了0xaa55的这个帖子,想起了2年前我在51cto发的一个帖子http://down.51cto.com/dat ...
- 为什么希捷选择了8GB作为标准的闪存容量呢?答案就在下面(新的驱动器可以实现一定程度上的写入缓存)
与前两代Momentus XT产品不同,希捷称第三代混合硬盘所使用的技术更接近真正的SSHD(Solid State Hybrid Disk?),而不是HHD.也就是说更偏向于固态硬盘.首先它不会属于 ...
- Android HttpClient HttpURLConnection相关介绍
Android HttpClient HttpURLConnection相关介绍 遇到一个问题 在android studio上用HttpClient编写网络访问代码的时候,发现该类无法导入并使用.. ...
- VM添加e1000e驱动网卡
关闭虚拟机 打开VMware 虚拟机配置 (.vmx),如
- Android 改变窗口标题栏的布局
Android改变窗口标题栏的布局 第一种方式 --在XML文件里面引入配置文件作为标题. 第二种方式 --动态的代码加入进去. 第三种方式(网上的): 一. 重点 一般应用的Title都是建立应 ...
- 基于visual Studio2013解决算法导论之030二叉查找树
题目 二叉查找树 解决代码及点评 // 12二叉查找树.cpp : 定义控制台应用程序的入口点. // // 3 - 10二叉搜索树查找.cpp : 定义控制台应用程序的入口点. // #in ...
- stm32内部的CAN总线
功能概述: bxCAN是基本扩展CAN(Basic Extended CAN)的缩写,它支持CAN协议2.0A和2.0B:它的设计目标是以最小的CPU负载来高效处理大量的报文.它也支持报文发送的优先级 ...
- C# this关键字
使用方式之一: this,在构造函数中使用. 当使用构造函数的重载时,可使用this关键字. //构造函数-重载 public Student(int id, string name, int age ...
- 【转】java--final
1.final数据 许多程序设计语言都有自己的办法告诉编译器某个数据是“常数”.常数主要应用于下述两个方面: (1) 编译期常数,它永远不会改变 (2) 在运行期初始化的一个值,我们不希望它发生变化 ...