查看: 3858|回复: 4

如何自画菜单?

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2005-1-26 12:16 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

　　我们知道,C++Builder没有自画菜单，但可以调用API函数::SetMenuItemInfo（）来改

变菜单类型，达到自画菜单的目的。下面的例子演示了如何使用自画菜单。当鼠标位于菜单

上拾，菜单项将凸出来。(黑体字为添加的代码)

//头文件

//------------------------------------------

#ifndef TestMenuH

#define TestMenuH

//-----------------------------------------

#include Classes.hpp

#include Controls.hpp

#include StdCtrls.hpp

#include Forms.hpp

#include Menus.hpp//--------------------

class TForm1 : public TForm

{

__published: // IDE-managed Components

TMainMenu *MainMenu1;

TMenuItem *aaa1;

TMenuItem *aaaaaaaaa1;

TMenuItem *ccc1;

TMenuItem *ddd1;

TMenuItem *eee1;

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

MESSAGE void __fastcall CNMeasureItem(TWMMeasureItem Msg);//增加响应消息

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

public: // User declarations

__fastcall TForm1(TComponent* Owner);

BEGIN_MESSAGE_MAP//添加消息映射

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

END_MESSAGE_MAP(TForm);

};

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif

//实现文件

//---------------------------------------------------------------------------

#include vcl.h

#pragma hdrstop

#include TestMenu.h

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource *.dfm

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

for(int i=0;ipMenuItem-Count;i++)

{

MENUITEMINFO mii=

{

sizeof(MENUITEMINFO),

MIIM_TYPE|MIIM_DATA ,//改变类型和数据

MF_OWNERDRAW,0,0,0,0,0,DWORD(pMenuItem-Items-Handle),

+ [: `) u9 ]9 `2 s, F- l) A
//把菜单项的句柄赋给32位数据
/ P E2 k0 \& }' H( C: n
0,
8 z# j$ `8 J% z5 x5 X5 z% \* c
0,
" _ e& s6 Z. c1 n9 a
};
, K7 i3 ~' O. ], i
if(pMenuItem-Items-Caption!=-)//如果不是间隔线
7 Z+ V8 x5 F& J8 g: Z3 W- M
::SetMenuItemInfo(pMenuItem-Handle,i,TRUE,mii);
3 A3 K0 D7 q: ]/ u4 z) F1 C8 k
if(pMenuItem-Items-Count)//如果含有子菜单
0 d# O, ]! s9 n- d7 [
Modify(pMenuItem-Items);
' W8 o' i7 y/ c$ F' ^
}
3 r# `5 D5 C6 |% O+ t$ ^# _

* b1 ^4 m& k# [' U7 Q" t3 l8 _5 P
}
' }) K2 y& ?, b
void __fastcall TForm1::FormCreate(TObject *Sender)
) k# S" V' {& [7 _* |# w
{
3 X6 _1 l3 a6 D4 T$ ~4 Y) K
for(int i=0;iMainMenu1-Items-Count;i++)
/ L. x7 k5 T! {# _, h
{
4 K9 U7 t$ P" i
Modify(MainMenu1-Items-Items);
Z7 E% T* ]8 a+ x
}
- n$ N `9 M& ^
DrawMenuBar(Handle);
( `% Q4 L" W1 A* k
}
, i7 N2 U4 H. i- ?3 q# g
//---------------------------------------------------------------------------
) {$ o# |- R& r2 B6 T; N
void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)
% w) |' m2 e, ?9 a+ f! a1 w
{//设置菜单大小
$ m3 e9 W9 l5 u
TMenuItem *pItem=MainMenu1-FindItem(Msg.MeasureItemStruct-itemData,fkHandle);
& y( e5 S( u! t
Msg.MeasureItemStruct-itemWidth =pItem-Caption.Length()*8+40;
3 |+ A8 C' y! F. d7 N8 v
Msg.MeasureItemStruct-itemHeight = 20;
; A- F7 T" T& K9 o2 u
}
+ y% q* j- D2 G
void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)
/ l6 m# q2 R, I1 m
{//画出菜单
7 X# e) s- T) a' s' V9 t
TMenuItem *pItem=MainMenu1-FindItem(Msg.DrawItemStruct-itemData,fkHandle);
7 ]) |- } K; ? H6 f$ ~
TCanvas *pCanvas=new TCanvas;
6 _1 j' w/ K5 o( O/ j1 y
pCanvas-Handle=Msg.DrawItemStruct-hDC;
3 v4 ~) }( h) f- ~' M
RECT r=Msg.DrawItemStruct-rcItem;
2 a: U: N0 ?/ E, e
pCanvas-Brush-Color=clBtnFace;
. t; [/ R. e a/ m" r: o8 g
RECT r1=r;
& B* n7 {8 o9 x2 k! y; `9 l# Z( D
r1.right+=1;
g: L' Y# B1 d" J8 a. Y
r1.bottom+=1;
% e: v% A/ U6 \) x! L, w5 k/ I# h: }' z
r1.top-=1;
4 v) @5 k! {$ |6 J& u
r1.left-=1;
1 M* r. P6 V/ q4 Y; s7 K8 r
pCanvas-FillRect(r);
& A3 x/ Y! ~0 G7 f2 ]* M9 b
::SetBkMode(pCanvas-Handle,TRANSPARENT);
! f* J# o( A% T- m! y
pCanvas-TextOut(r.left+10,r.top+2,pItem-Caption);
1 v" N# q( z" b; O* K+ y
r.right-=1;
3 U ?: Y) r3 D) [* j
r.bottom-=1;
3 `7 r& ^2 {5 H D& o& ^
if(Msg.DrawItemStruct-itemAction == ODA_SELECT
$ a( ~1 L+ B/ a6 ?
Msg.DrawItemStruct-itemStateODS_SELECTED )
# }* m8 K$ h2 X% c; i' n# t
{
" {7 ~6 I% a2 r" N
pCanvas-Pen-Color=(TColor)(RGB(255,255,255));
1 K( `& E* _6 j* v
pCanvas-MoveTo(r.right,r.top);
' B! f( R: a6 B3 ?
pCanvas-LineTo(r.left,r.top);
, W; _4 @+ C; X; K" q+ ]
pCanvas-LineTo(r.left,r.bottom);
1 D |0 g2 K0 U3 S9 n# o. ]- [, W
pCanvas-Pen-Color=(TColor)(RGB(128,128,128));
) C7 r) [) h& v
pCanvas-LineTo(r.right,r.bottom);
/ }9 i9 c5 w% k, E
pCanvas-LineTo(r.right,r.top);
/ R+ K. ~" p+ @% w
}
- ^& X6 ~* o O, c a" }' p' ^) R* G3 V6 b( z4 g$ m, T
}