软件界面中菜单的美化 (转)
在网上有很多文章都提到怎样在菜单中加入背景图片,可是都没有一个完整的回答,也没有一个比较完整的例子。当然csdn曾经有一个高人说过这个问题,而且在程序员大本营2000版中也有收藏。我参考了一些方法和技巧,当然包括国外的了,写下了如下的代码,希望能够满足大家的要求,不过不是很完善,如果有哪位大侠修改过,不妨也将修改过的代码贴出来,大家共享!为了在menu控件中加入背景图片,没有直接的方法,都的靠自己动手画,因为menu控件没有canvas属性,所以只能自己动手了!这个东西我也是菜鸟一只,说不出什么高深的东西,如果有什么问题可以发信给我,我们共同探讨:Mailto:cqwty@sina.com" rel="nofollow">cqwty@sina.com,源代码如下:
unit FMain;
interface
uses
windows, Graphics, Forms, Menus, Classes;
type
TfrmMain = class(TForm)
mnuPopup: TPopupMenu;
MainMenu1: TMainMenu;
sdfsdf1: TMenuItem;
sdfsdf2: TMenuItem;
dfgdfg1: TMenuItem;
dfgdfg2: TMenuItem;
N1: TMenuItem;
werwer1: TMenuItem;
procedure DrawMenu(Sender: Tobject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
procedure MeasureMenu(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;
var
frmMain: TfrmMain;
bmp1:tbitmap;
implementation
{$R *.DFM}
procedure TfrmMain.DrawMenu(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
var
cTemp: TCanvas;
sText: String;
mWnd: HWND;
rMenu: TRect;
begin
ACanvas.BrushCopy(ARect, bmp1, ARect, clBlack);
ACanvas.Brush.Style := bsclear;
sText := TMenuItem(Sender).Caption;
acanvas.Font.Color:=clred;
with ACanvas do begin
if odselected in State then begin
pen.Style:=psInsideFrame;
Brush.Color := RGB(110, 131, 184);
Pen.Color := RGB(47, 60, 93);
Rectangle(ARect);
end;
if sText = '-' then begin
// Draw line
ACanvas.Pen.Color := RGB(0, 0, 0);
MoveTo(ARect.Left, ARect.Top + ((ARect.Bottom - ARect.Top) div 2));
L.NETo(ARect.Right, ARect.Top + ((ARect.Bottom - ARect.Top) div 2));
end else begin
// Draw text
Inc(ARect.Left, 12);
DrawText(Handle, PChar(sText), Length(sText), ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE);
end;
end;
// 画边框的,效果是平面的
mWnd := WindowFromDC(ACanvas.Handle);
if mWnd <> Self.Handle then begin
cTemp := TCanvas.Create();
cTemp.Handle := GetDC(0);
Windows.GetWindowRect(mWnd, rMenu);
cTemp.Brush.Color := RGB(120, 120, 120);
cTemp.FrameRect(rMenu);
InflateRect(rMenu, -1, -1);
cTemp.Brush.Color := RGB(240, 240, 240);
cTemp.FrameRect(rMenu);
InflateRect(rMenu, -1, -1);
cTemp.FrameRect(rMenu);
ReleaseDC(0, cTemp.Handle);
cTemp.Free();
end;
end;
procedure TfrmMain.MeasureMenu(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
begin
Inc(Width,50);//调整菜单的宽度
inc(height,15);//调整每一个item的高度,这一句可以不要,使用默认值
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
bmp1:=tbitmap.Create;
bmp1.loadfromfile('e:aaa.bmp');
end;
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
bmp1.Free;
end;
end.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10790690/viewspace-957105/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10790690/viewspace-957105/
软件界面中菜单的美化 (转)相关推荐
- 软件界面中一些易混淆/易用错的界面文案,以及一些约定俗成的文案约定
经常有小伙伴跟我撕到底一些常用同音的词语应该使用哪个的问题.于是我将一些常用的软件界面中用错的文案整理出来,为自己和其他开发者提供我 已经整理的结论 和 可以溯源的资料. 本文内容 词语 撤销 / 撤 ...
- VC++软件界面风格简单美化
为了让软件能在视觉上给用户带来一种清新的感觉,从而避免潜在的用户视觉疲劳和审美疲劳,软件一般都要经过专业的界面设计和美化.但是,我们不是也没有专业的界面设计美化人员,所以只能对软件的界面和风格进行初步 ...
- 变压器噪音分贝测试软件,一体机变压器绕组变形测试仪测试软件界面
原标题:一体机变压器绕组变形测试仪测试软件界面 变压器绕组 在计算机上能完成的大部分功能都能在一体机上操作.检查试验接线正确无误后,启动主测量单元 ,其电源指示灯应正常显示.. 以下介绍软件界面中各个 ...
- ubuntuv20启动界面美化_小米任务栏美化软件下载-小米任务栏美化插件最新版下载v1.1...
小米任务栏美化软件,超级好用的手机状态栏美化工具,使用简单,您可以通过它一键设置手机状态栏,使得它更美观.富有个性.并且小米任务栏美化软件拥有多类免费的素材包,您可以自由挑选一个自己喜欢的进行自定义手 ...
- android学习笔记---51_编码实现软件界面,把固定不变的界面写到xml中,逻辑改变的写到程序中,
2013/5/12 51_编码实现软件界面 -------------------------- 1.Android除了可以使用xml实现软件界面,还可以通过编码方式实现软件的界面,而且在某种情况下只 ...
- 软件界面设计原则(转)
一:遵循一致的准则,确立标准并遵循 无论是控件使用,提示信息措辞,还是颜色.窗口布局风格,遵循统一的标准,做到真正的一致. 这样得到的好处: 1:使用户使用起来能够建立起精确的心里模型,使用熟练了一个 ...
- 科学计算机乱码,软件界面乱码可以这么“破”
万立夫 很多软件在进行开发的时候,只会考虑针对特定的语言系统.如果用户将这类软件安装到其他语言的系统里面,就会出现软件界面文字乱码的情况.比如我们想要在简体中文的操作系统中,安装诸如繁体中文或者其他文 ...
- tia v15 添加项目_硬技能,TIA 博途软件界面的介绍
在前面的文章中给大家介绍了TIA 博途软件的安装包等介绍,这次小编给大家介绍一下TIA 博途软件的界面.#电工学习PLC# 你知道吗,在博途软件的自动化项目任务的创建中,我们可以使用portal视图和 ...
- 一种全新的软件界面设计方法
一种全新的软件界面设计方法 撰文:Aweay 你可转载,拷贝,但必须加入作者署名Aweay,如果用于商业目的,必须经过作者同意. 下载实例代码 关键字:COM MySpy IE SetUIHanlde ...
最新文章
- MPB:中南大学刘学端、马丽媛组-基于16S测序和RT-qPCR的硫化矿物表面微生物群落组成分析...
- 在iPhone应用中使用自定义字体
- CruiseControl.NET与TFS结合的配置文件
- Oracle里silent,静默方式(silent)安装Oracle软件
- 递归 与 动态规划 区别
- anaconda管理不同版本Python
- 冰汽朋克侦查机器人_冰汽时代生病机制是什么 寒霜朋克所有机制漏洞一览
- 自定义MVC框架之工具类-图像处理类
- springboot框架学习理解上
- CAJ格式文献转成PDF格式
- Kafka 集群搭建
- SCOI 2016 bzoj 4567~4572 题解
- 估值调整 - 凸性调整
- c语言鸡兔同笼(二)
- 7款开源ERP系统比较
- android Retrofit下载图片
- CogResultsAnalysisTool工具
- Firefox的about:config设置详解
- 蚂蚁金服在 Service Mesh 监控落地经验分享
- 纯HTML/CSS实现简易超帅的登录界面【提供完整代码】