如何自画菜单?

韩冰

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

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

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

( n' S% o2 `1 k) ]

//头文件

7 [& V6 S6 h' E& ]0 y

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

#ifndef TestMenuH

#define TestMenuH

- R$ }( o% s* `# C

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

k* c0 t4 y1 U3 B

#include Classes.hpp

#include Controls.hpp

#include StdCtrls.hpp

#include Forms.hpp

& D( v R6 I! V) G1 v+ W

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

0 E3 ^, [/ \" b

, D" o# D: ?; E

class TForm1 : public TForm

2 N& v% ~9 z7 w7 S8 @3 ]

{

' v1 I$ \. o' `( h& A3 V' v

__published: // IDE-managed Components

+ c' u, y+ ~& ^8 p2 i; O9 U

TMainMenu *MainMenu1;

0 i1 b* R& N& g( H7 ?0 |7 G

TMenuItem *aaa1;

# x6 d( W, _) Z* O# r

TMenuItem *aaaaaaaaa1;

1 }6 \& N5 h5 ]

TMenuItem *ccc1;

TMenuItem *ddd1;

TMenuItem *eee1;

TMenuItem *ddsds1;

" Y( M- w q9 I' T. }

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

% m2 Y$ r& c* F& I' R. a! w

private: // User declarations

( V: L4 @7 Z% C- a; S

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

5 ^" ^" T/ l4 L$ h9 u1 F& R% @

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

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

" a$ F8 M' |6 L8 ?) b2 f

public: // User declarations

. `: `% ]* w+ C

__fastcall TForm1(TComponent* Owner);

+ k* m, L& G, F6 v j

BEGIN_MESSAGE_MAP//添加消息映射

* I! w+ a5 _1 F" ]8 y

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

6 q& p6 L/ Y8 }- ~% ^# }

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

END_MESSAGE_MAP(TForm);

, S# C$ i( C/ B5 d% N9 T

};

# K% g' I9 N" P/ e' X

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

7 U( Y) z+ P8 d* ], w6 {

extern PACKAGE TForm1 *Form1;

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

#endif

//实现文件

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

K! P( p7 [: o4 S4 Z. O, S. {; U

#include vcl.h

#pragma hdrstop

& Y2 L" \+ j: n' Y9 w

#include TestMenu.h

" i1 m- d2 Z! p5 M/ t

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

#pragma package(smart_init)

1 K( A6 r2 F% k

#pragma resource *.dfm

TForm1 *Form1;

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

* m: P$ j- l5 t5 E( |+ Q& }

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

- K9 k% S3 H0 k9 K( n5 E2 i

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

7 P& @' l9 d7 A

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

+ r) F$ m0 j1 }/ Y3 L' {

{

: s2 l/ K, M6 s- J

MENUITEMINFO mii=

( U3 Y7 n6 y- m% h

{

( }# ~" H; ^5 O' ?. ^

sizeof(MENUITEMINFO),

5 O7 g/ A" ? d: B2 l

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

" s& I$ v$ C2 H5 [+ l

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

//把菜单项的句柄赋给32位数据

+ w4 X! t2 W& C7 X+ R

0,

0,

};

k- A ~! f- Y% d7 I

if(pMenuItem-Items-Caption!=-)//如果不是间隔线

! N" t9 t$ ?# V9 Y/ ]

::SetMenuItemInfo(pMenuItem-Handle,i,TRUE,mii);

- B$ ] y+ c3 e! w

if(pMenuItem-Items-Count)//如果含有子菜单

- Q, Z, ?8 N2 w# U

Modify(pMenuItem-Items);

8 p2 H# n: r3 p1 |5 E. I: {+ G

}

( O# l. O, z# P$ ?8 }6 B- r* J) ?

}

void __fastcall TForm1::FormCreate(TObject *Sender)

. u8 G* w5 _8 ^( q/ [! A$ W& s

{

4 R2 J2 D3 D# b9 \1 V" j

for(int i=0;iMainMenu1-Items-Count;i++)

{

' C7 A+ @2 l! `8 V0 X

Modify(MainMenu1-Items-Items);

5 J8 ], c! z1 r0 y4 P

}

DrawMenuBar(Handle);

& N! ^! `* u, O8 j7 J4 Q4 B

}

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

' x- D1 M7 z1 n

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

9 m/ {) B$ S8 v* @$ W9 x( d! Y

{//设置菜单大小

8 |3 y; _; \3 y# i, A

TMenuItem *pItem=MainMenu1-FindItem(Msg.MeasureItemStruct-itemData,fkHandle);

: H5 C, Y8 k' N$ A1 c

Msg.MeasureItemStruct-itemWidth =pItem-Caption.Length()*8+40;

Msg.MeasureItemStruct-itemHeight = 20;

5 E6 e3 O* W6 n4 [

}

/ w; S# `/ X2 A* X( U

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

7 }5 `* p" W( d0 }" n

{//画出菜单

8 y/ c( m) X r7 {. X% C2 S5 P% F

TMenuItem *pItem=MainMenu1-FindItem(Msg.DrawItemStruct-itemData,fkHandle);

6 a. K! h/ ^0 c5 y ~1 Q* k7 |$ `

TCanvas *pCanvas=new TCanvas;

/ C( K) w4 V8 E

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

$ }$ H. }4 W" g1 q2 }7 h

pCanvas-Brush-Color=clBtnFace;

! F; \' a8 j, y/ I9 q) d

RECT r1=r;

2 i3 h: P; U1 U+ Y! d" e& Q! U

r1.right+=1;

8 c) r2 f' v; m: f, R* H+ M

r1.bottom+=1;

v" h' r6 z" u' X* v

r1.top-=1;

r1.left-=1;

% j8 I s& _. S4 S; q9 O

pCanvas-FillRect(r);

. T9 `* e9 t) Z, ]) z) `$ \

::SetBkMode(pCanvas-Handle,TRANSPARENT);

pCanvas-TextOut(r.left+10,r.top+2,pItem-Caption);

2 f1 Y6 T7 L1 @6 ?5 J/ a

r.right-=1;

r.bottom-=1;

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

7 W4 J2 J' l7 q3 L: B" s

Msg.DrawItemStruct-itemStateODS_SELECTED )

w; K' `6 w7 ?: P( _" c

{

# f. m, z& R3 G4 n

pCanvas-Pen-Color=(TColor)(RGB(255,255,255));

$ H+ R* o! W( T, ~- `" s

pCanvas-MoveTo(r.right,r.top);

& {5 _: [4 I3 B# }/ k

pCanvas-LineTo(r.left,r.top);

pCanvas-LineTo(r.left,r.bottom);

) Q: M0 `% u: X

pCanvas-Pen-Color=(TColor)(RGB(128,128,128));

pCanvas-LineTo(r.right,r.bottom);

pCanvas-LineTo(r.right,r.top);

! D/ V2 }' V9 ~9 f

}

+ ~+ X3 z0 d* e8 g0 R0 A |, A8 t6 I% D9 N! ?

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

看了，感觉不错，谢谢您提供