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

' W0 b; k' g. h0 m3 e
//把菜单项的句柄赋给32位数据
+ H# f! V" w% Z& |. O) U
0,
7 k9 H3 {0 Y8 w' S7 z, w+ f7 r! w7 k
0,
/ y' R* N. b) b
};
- ~9 {1 |* s7 I" N1 h/ M
if(pMenuItem-Items-Caption!=-)//如果不是间隔线
8 d$ e" ^5 m3 @9 a' S
::SetMenuItemInfo(pMenuItem-Handle,i,TRUE,mii);
5 [; z1 b k/ }4 H; i5 o( f+ ^
if(pMenuItem-Items-Count)//如果含有子菜单
: f6 o; E2 }( v) z% r
Modify(pMenuItem-Items);
/ K. W4 z* v/ |& u/ ?* V2 _; B
}
# \( ^1 i2 n: ?: b6 v& q

: p0 w5 N( e$ h U4 c+ b
}
0 n$ e: P; T+ r) a/ ]( t0 v( M
void __fastcall TForm1::FormCreate(TObject *Sender)
/ |8 o) o) `& l9 c
{
" Y. _6 D* u! X5 p& B
for(int i=0;iMainMenu1-Items-Count;i++)
* e4 @' d( }1 y' M, X. {0 n
{
1 I8 k1 ]/ p2 b* w4 K% J; H
Modify(MainMenu1-Items-Items);
5 \1 Q0 z6 o$ Z1 j' m
}
! G8 b! k$ {& i9 k" I) b& ]( h; e
DrawMenuBar(Handle);
* q' }5 g$ e$ |. q3 e
}
! x! w% J0 L3 j# u7 T
//---------------------------------------------------------------------------
' f' i5 f7 Q) U6 V" X
void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)
% i6 T2 ?! l' r; G3 t
{//设置菜单大小
+ a: N; Q! x/ U( i2 U
TMenuItem *pItem=MainMenu1-FindItem(Msg.MeasureItemStruct-itemData,fkHandle);
) F& R& B% r" {; r" V
Msg.MeasureItemStruct-itemWidth =pItem-Caption.Length()*8+40;
- P+ M8 V2 n5 T5 R3 g1 r# G2 }
Msg.MeasureItemStruct-itemHeight = 20;
1 ^4 N5 A5 v- H0 d) F
}
3 J e ?- N% Y- m
void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)
' R) ]& s1 B. W- q: y6 E# I
{//画出菜单
3 B! a/ a3 a' m
TMenuItem *pItem=MainMenu1-FindItem(Msg.DrawItemStruct-itemData,fkHandle);
0 M, R4 f4 r. _
TCanvas *pCanvas=new TCanvas;
) v7 e# B0 o) }2 ?3 R
pCanvas-Handle=Msg.DrawItemStruct-hDC;
+ u Z; h( q3 X8 d0 J* a
RECT r=Msg.DrawItemStruct-rcItem;
: |& r4 ^3 A% K2 D$ a
pCanvas-Brush-Color=clBtnFace;
. A# N' t, T. d+ Q6 x, l
RECT r1=r;
. [: c! L* Q& D( b7 b0 Z& D( @
r1.right+=1;
" t) X8 L, u3 k6 G9 A& D# W! u, Q
r1.bottom+=1;
2 @) m6 P% w4 R
r1.top-=1;
% \& b; t' @8 U; k
r1.left-=1;
0 W {( ~. J6 L( a7 Q4 P: D
pCanvas-FillRect(r);
2 i, S1 T& ~/ r& C
::SetBkMode(pCanvas-Handle,TRANSPARENT);
1 Y4 t( [9 \& B! s
pCanvas-TextOut(r.left+10,r.top+2,pItem-Caption);
% d! @! l7 O' w- |5 z
r.right-=1;
# l+ V# d3 d- b6 L
r.bottom-=1;
9 Y: C( i% s8 Z. i+ c* d' k G& ^$ ]
if(Msg.DrawItemStruct-itemAction == ODA_SELECT
( f+ ?: S# {' ~( b2 f- k, b
Msg.DrawItemStruct-itemStateODS_SELECTED )
& I& m) I6 \' ~+ h
{
6 t' e7 x' Z3 S$ ~3 K2 `& q' M* o
pCanvas-Pen-Color=(TColor)(RGB(255,255,255));
& j9 a7 n- R ?4 Q
pCanvas-MoveTo(r.right,r.top);
# F1 \, _( z5 ~8 q; i$ b
pCanvas-LineTo(r.left,r.top);
# d$ Z* B2 X; d/ ?0 P: S8 H8 U
pCanvas-LineTo(r.left,r.bottom);
+ ?. D1 n/ O8 c+ Z
pCanvas-Pen-Color=(TColor)(RGB(128,128,128));
; a9 g4 ^& T0 p$ _; h1 d' B2 N
pCanvas-LineTo(r.right,r.bottom);
$ O) j* |6 B/ G
pCanvas-LineTo(r.right,r.top);
) E) H% ? r# }7 {- e8 W0 z- e
}
9 d+ f* X8 J( A1 i4 s- E , O3 {6 ^+ M, U; ?6 l! A3 G
}