查看: 3827|回复: 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),

3 G U" V4 e1 i
//把菜单项的句柄赋给32位数据
C, ^& @8 ~3 m: A, |& W* k0 b
0,
3 `3 T* D' h+ ]7 y5 X
0,
, D$ R' X8 g u
};
1 |9 G/ f& Q( }2 R- \* P
if(pMenuItem-Items-Caption!=-)//如果不是间隔线
! }' |8 O2 E/ q! Z
::SetMenuItemInfo(pMenuItem-Handle,i,TRUE,mii);
! Z0 M6 I: @) W8 }
if(pMenuItem-Items-Count)//如果含有子菜单
7 R+ M1 r2 j" ~
Modify(pMenuItem-Items);
1 O N- r3 @* t7 p+ t$ w( J
}
2 r9 Z" ^9 z( q9 D! i

/ q5 C: f, J% o' B' l
}
" I9 r3 ^+ ?7 {' s" h k
void __fastcall TForm1::FormCreate(TObject *Sender)
3 O" t4 @( m5 W
{
6 D( Z& R, d" I# A
for(int i=0;iMainMenu1-Items-Count;i++)
1 R4 j$ n' T j
{
) Z0 d% a. j% U, M
Modify(MainMenu1-Items-Items);
# x" I' m. N5 j; H* f- Y8 p7 J
}
r( R- R# m$ ?
DrawMenuBar(Handle);
6 T: A$ U o/ y& I D
}
" `2 H- J$ q/ H1 X
//---------------------------------------------------------------------------
; h% z# v3 M: _1 d
void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)
+ r. v( t4 R0 @
{//设置菜单大小
# H% N7 t J! Z4 y6 W% b8 r7 m( R
TMenuItem *pItem=MainMenu1-FindItem(Msg.MeasureItemStruct-itemData,fkHandle);
b0 q! V$ |% n2 B$ r) d. ?
Msg.MeasureItemStruct-itemWidth =pItem-Caption.Length()*8+40;
) J/ ^, y1 f7 T( G2 Q- |
Msg.MeasureItemStruct-itemHeight = 20;
- l* d$ p/ @( k( `& e p
}
) l1 }3 z' @) Q5 J0 U- u1 D
void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)
) S8 V9 ~ f" A/ l% W
{//画出菜单
- p, F* [ c4 U
TMenuItem *pItem=MainMenu1-FindItem(Msg.DrawItemStruct-itemData,fkHandle);
- ? Q8 \# A* r# E" H. Z6 {
TCanvas *pCanvas=new TCanvas;
4 z7 d! `) t) W5 V& Q
pCanvas-Handle=Msg.DrawItemStruct-hDC;
+ c; X) C/ N# R$ V
RECT r=Msg.DrawItemStruct-rcItem;
$ L9 M8 ^/ R$ o: `. l, N9 Z, R( O
pCanvas-Brush-Color=clBtnFace;
2 c- w# x! l2 |& q T+ H
RECT r1=r;
6 X) |: E+ r. Z
r1.right+=1;
- t' X* B9 Q9 @
r1.bottom+=1;
+ Y; @/ [3 b) a7 U8 L* ~3 Q( `
r1.top-=1;
- o- i; d$ X8 a+ t$ O& c
r1.left-=1;
( R3 B; c2 ]2 y/ v1 m a
pCanvas-FillRect(r);
1 V' v3 @( O8 E( C" H4 r# a5 f8 x
::SetBkMode(pCanvas-Handle,TRANSPARENT);
& ^- P2 @, ]* K
pCanvas-TextOut(r.left+10,r.top+2,pItem-Caption);
6 i9 P ~0 n! N3 | y0 \3 G
r.right-=1;
7 ^1 S1 ]& D0 R
r.bottom-=1;
3 N9 ]! N9 O2 T( q1 Y
if(Msg.DrawItemStruct-itemAction == ODA_SELECT
) d; |% h6 e" x1 V a$ E) u5 Z! u
Msg.DrawItemStruct-itemStateODS_SELECTED )
U- f9 z$ c4 F' g( v: J8 G `
{
. w4 s" `2 M( A! o$ w7 e
pCanvas-Pen-Color=(TColor)(RGB(255,255,255));
+ G2 x I* J) E% v) M) [) l! l# P
pCanvas-MoveTo(r.right,r.top);
6 B- H. N4 N% R/ A
pCanvas-LineTo(r.left,r.top);
# u$ v* C# z! [# a5 t) l/ Q- Z
pCanvas-LineTo(r.left,r.bottom);
! n2 p# R7 ]+ `3 y) L
pCanvas-Pen-Color=(TColor)(RGB(128,128,128));
' s0 a, x7 P3 u
pCanvas-LineTo(r.right,r.bottom);
4 ?( R; a7 j- U, H1 h9 H
pCanvas-LineTo(r.right,r.top);
2 M$ ~- N* `2 ~5 D* ^
}
, q/ O. J0 s: o- |' ~+ w , C; e7 N7 b2 o, Q4 u, a, G+ r. c- ~
}