如何自画菜单?

韩冰

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

6 M2 h; K, d1 V% v9 J+ E" g

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

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

- ~3 D- z! x) X/ |; }

//头文件

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

: H, d0 z S6 B( O2 L2 f

#ifndef TestMenuH

2 i* r+ L* t( \9 t3 ?

#define TestMenuH

/ x5 P; q. K/ N

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

#include Classes.hpp

#include Controls.hpp

Z( p& H/ g8 }: B) D

#include StdCtrls.hpp

- O( \' [9 Q- J- F

#include Forms.hpp

1 t: C6 w6 g* {1 c

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

& n3 n; S) s4 Z! S! E. q

4 V+ }* G. M7 Q

class TForm1 : public TForm

{

__published: // IDE-managed Components

* ?0 Q$ L; \) ? w0 a' l- A

TMainMenu *MainMenu1;

TMenuItem *aaa1;

5 Y4 Q9 e) \7 a5 Y! O9 A

TMenuItem *aaaaaaaaa1;

) m, U% W/ q8 p ~

TMenuItem *ccc1;

TMenuItem *ddd1;

( T& y4 _& \' {& M% H! s' J+ \

TMenuItem *eee1;

2 ?4 d8 b7 v7 q0 ?: {

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

: V- q: y- b& ~8 a' u

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

3 G9 H5 b0 ~0 Y8 }8 P' i8 F( ]

protected :

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

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

9 X+ \% L. a0 A$ ]7 m) l

public: // User declarations

4 o5 Y6 i' O5 F, W8 ?7 P7 C! t x

__fastcall TForm1(TComponent* Owner);

BEGIN_MESSAGE_MAP//添加消息映射

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

( z: _5 a* I3 [

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

END_MESSAGE_MAP(TForm);

};

- f; V6 R Q5 p6 s: `; _+ y

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

extern PACKAGE TForm1 *Form1;

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

#endif

8 B, u* y/ y$ _4 h. T8 w/ c* ?

//实现文件

' S: i; [& `5 K

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

#include vcl.h

#pragma hdrstop

Y# n8 n3 g" b% z( Q/ L. a

#include TestMenu.h

/ T3 U0 j0 a; y( X( p! U. D

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

#pragma package(smart_init)

! m5 \! a2 U5 G0 j

#pragma resource *.dfm

$ n5 f1 ~9 _) `7 q" f

TForm1 *Form1;

( u5 _8 |( R3 @+ y: p9 X

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

__fastcall TForm1::TForm1(TComponent* Owner)

3 X+ N+ R y E" z; {+ Q q, y7 m' ?

: TForm(Owner)

. u' V( B f! S4 u2 y" c1 L

{

}

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

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

: B$ y8 r: p( J! R

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

/ f2 F4 A/ h# s2 b

{

3 k# u% W; y* X" `2 Z9 r0 q

MENUITEMINFO mii=

; _* ?: T5 P% Q# D

{

* N' O$ s* j& e# ]4 L/ B% E* r

sizeof(MENUITEMINFO),

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

9 W& [7 A0 K& F5 q/ }

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

5 l% ^$ g0 X& f3 d$ t7 x/ D

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

0,

6 k; o" `( _* h+ s

0,

, E+ ^2 r$ u) {1 Z

};

6 e, B; ]6 I3 C& }. z9 F0 `

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

; |, n! W$ R; E4 D- v# m/ h) u& z

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

' C2 a4 g( Y; [. R; Q; X8 v

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

! R" o+ \1 Q4 Y( p- l, M6 b) |$ w

Modify(pMenuItem-Items);

}

7 J8 b' W4 ~" _$ u/ h) j

}

1 X* e- S/ B: q; Q" v$ d3 q6 }

void __fastcall TForm1::FormCreate(TObject *Sender)

- S1 U- I8 f8 t1 U0 p. j

{

0 ~% j- f& X4 ?: r4 I( L& i

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

5 T; ]3 n0 Q1 L" L) T! u- _6 E

{

Modify(MainMenu1-Items-Items);

& c8 z! N; ~$ {1 ^! d

}

DrawMenuBar(Handle);

}

: _* ^8 N0 U( Z/ J3 a' w) V- b

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

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

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

7 j" y* E5 A+ L8 O

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

Msg.MeasureItemStruct-itemHeight = 20;

" e1 G& C; H Q' \9 ^6 ^

}

* }( W( W8 g2 T0 v' g4 _

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

" m9 f. N3 c: a3 f9 X

{//画出菜单

X5 u" A1 @! U0 `" a7 J# Z# p x

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

TCanvas *pCanvas=new TCanvas;

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

: Z" y. Y( [4 v( `

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

/ a4 @/ |, A# {; p

r1.right+=1;

r1.bottom+=1;

. D- \. J, d, o* A

r1.top-=1;

r1.left-=1;

0 P) ~' {; A3 `

pCanvas-FillRect(r);

::SetBkMode(pCanvas-Handle,TRANSPARENT);

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

r.right-=1;

r.bottom-=1;

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

Msg.DrawItemStruct-itemStateODS_SELECTED )

2 h4 D8 x: i8 b# O. S9 Z

{

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

6 |# Q E1 _, D% X. D% A

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

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

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

8 F" T2 q) p5 D7 w+ o! f

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

]* [ ~8 B" W& k

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

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

}

% P* D6 }2 [ t% r4 D% W

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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