如何自画菜单?

韩冰

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

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

( d# E# E& D/ U3 E6 U

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

8 Y2 p4 [6 X8 S

6 h0 U# I' [% A8 z" t* L, s5 r

//头文件

2 r E y, ` B/ J& j

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

#ifndef TestMenuH

#define TestMenuH

8 x5 f; m. O. a% }. V

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

#include Classes.hpp

$ |# S; u, }6 J2 E3 s

#include Controls.hpp

#include StdCtrls.hpp

$ i% o7 `. U/ M( P$ Y

#include Forms.hpp

1 @3 M. m8 o& m; m, B

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

) d- J3 T3 u5 Y0 H/ I. X

class TForm1 : public TForm

{

9 `$ v- f9 ]/ a2 P0 G- Q: j [

__published: // IDE-managed Components

TMainMenu *MainMenu1;

TMenuItem *aaa1;

" |4 N4 T0 G* l* ^( ~8 O

TMenuItem *aaaaaaaaa1;

TMenuItem *ccc1;

# g6 p- H/ N" @% ~! T- D

TMenuItem *ddd1;

TMenuItem *eee1;

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

f. t/ i+ N! j3 p) n) [

void __fastcall FormCreate(TObject *Sender);

( {6 I+ N) G3 M3 j' H

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

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

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

3 K5 t( @8 p" u4 `! _" v; n

public: // User declarations

* B6 X, J3 q" Z( M) q, M- l

__fastcall TForm1(TComponent* Owner);

' g' j/ M% L0 h& K# T

BEGIN_MESSAGE_MAP//添加消息映射

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

2 V$ B4 |3 v) b4 u: h) {

END_MESSAGE_MAP(TForm);

};

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

( b2 M9 i8 a/ x0 h! I( c# o3 G4 i& Q

extern PACKAGE TForm1 *Form1;

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

a& `8 g; Q7 J1 {/ U- D

#endif

4 E. V1 V- ?0 o8 K

$ ?1 N0 e3 ~! ^6 y

//实现文件

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

#include vcl.h

( o& k7 h6 {- F; s" G/ H3 n

#pragma hdrstop

#include TestMenu.h

7 Q( i1 Z7 m- K' E0 g

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

#pragma package(smart_init)

3 ]+ }0 A. }& q* {3 ]# N* A

#pragma resource *.dfm

4 T, E4 a4 r3 m

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

* ~2 j( z) Q, F. q" ]

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

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

3 D+ X9 @% ?* E0 ?

{//修改缺省属性

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

" J: { V3 n( T5 b4 T% R

{

+ P8 R- T# ?& Z5 a6 A' c; k

MENUITEMINFO mii=

{

; E0 y4 \/ i O8 E& I1 q

sizeof(MENUITEMINFO),

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

! y* @9 W/ Z- P5 T9 O1 K- k

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

& O" F7 ?8 u( F& \0 r

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

0,

7 n6 m3 X2 M* P1 h

0,

};

, q9 G9 i- n6 r( X8 U9 l! \7 r; G6 @

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

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

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

) L, k& ~3 ], Q7 |- `

Modify(pMenuItem-Items);

}

4 }7 f. R; N" I, E* f

8 \( [$ v' X5 u4 _5 ?5 R9 J

}

8 v$ ?5 a$ Z y+ F, n" h6 c

void __fastcall TForm1::FormCreate(TObject *Sender)

! h% z" m" {) [' A! ^; j2 _ o( ]

{

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

8 u- h3 |0 V( a, k8 p! i

{

2 \; c8 `% E( I" L

Modify(MainMenu1-Items-Items);

& K" h4 u& d- s3 {# w- w. i4 _

}

DrawMenuBar(Handle);

: P: L6 a) F* f d9 y! d# H6 ]

}

( `& F( S, L" j2 q

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

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

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

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

Msg.MeasureItemStruct-itemHeight = 20;

}

5 n9 W2 _/ P" ]- x( c- T

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

{//画出菜单

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

TCanvas *pCanvas=new TCanvas;

, i/ l& c" m6 w- ~# T9 ~

pCanvas-Handle=Msg.DrawItemStruct-hDC;

6 V+ ~+ w9 n& L. y2 k

RECT r=Msg.DrawItemStruct-rcItem;

7 A+ e! o7 A' K8 P; M, N/ ~- q1 R

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

r1.right+=1;

r1.bottom+=1;

r1.top-=1;

6 P) o, O/ h4 m* O. E2 U/ S$ x! }

r1.left-=1;

6 n- B2 w' t* G7 G/ Y4 y

pCanvas-FillRect(r);

5 B! w9 N: T, B3 B

::SetBkMode(pCanvas-Handle,TRANSPARENT);

4 ]+ `( u5 N9 I+ \& \- W

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

' l, u4 \6 t3 O0 W

r.right-=1;

r.bottom-=1;

: |. H- l% y: u7 M8 l0 k, f

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

8 y8 w( y0 H3 k( U* H

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

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

$ s/ ~7 N3 p) [# V, {

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

( H4 c+ G, R2 Z

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

! ^ O0 }5 U4 R# A) C

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

4 ]/ c! D5 J% P* c$ r" @1 ~

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

& T& K4 R. _% i+ J$ R- v8 }- E

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

2 o9 C# j {9 c

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

}

# t# G, ?, f: N

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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