如何自画菜单?

韩冰

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

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

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

9 Q' Z6 e# I e. V; H0 e6 D( x( ] z9 P

//头文件

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

#ifndef TestMenuH

#define TestMenuH

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

#include Classes.hpp

- ~& a n/ V9 C" Z5 G Q1 K

#include Controls.hpp

#include StdCtrls.hpp

, R! h6 T2 s( c0 z% y* v

#include Forms.hpp

6 c5 L1 w4 z! S' J- K2 c

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

$ S' n! Q0 N% m5 V6 W3 g, Y6 v

6 p7 c2 X1 A6 K: k

class TForm1 : public TForm

6 N, a0 {2 M: _: A6 y% q3 ?# u

{

__published: // IDE-managed Components

t- S" }9 ^7 V) l! u& `

TMainMenu *MainMenu1;

TMenuItem *aaa1;

! z$ w% }# ]. _0 f2 a& O

TMenuItem *aaaaaaaaa1;

TMenuItem *ccc1;

2 U' a$ d7 a4 h/ |: m7 c

TMenuItem *ddd1;

TMenuItem *eee1;

# i2 `4 T9 q+ j) l0 Q- u

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

9 [, T+ w" {' E+ O3 Z

TMenuItem *dddddddd1;

. e# @% t4 H* P3 r

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

% K @4 k3 [) E- s6 j B# i' V

protected :

4 d" }; ?9 T7 v% S( r" A

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

9 K. N! g H2 I

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

/ n ~* B4 q; \, [. b1 ?- {2 ?

public: // User declarations

9 A$ B3 R1 }1 |* J3 m! k; z

__fastcall TForm1(TComponent* Owner);

BEGIN_MESSAGE_MAP//添加消息映射

# @% _1 Q7 m% k- V. ]) [3 x

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

) B5 j, M( K% [) G; Y

END_MESSAGE_MAP(TForm);

};

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

8 {- m8 D; n$ I8 j a3 G

extern PACKAGE TForm1 *Form1;

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

#endif

! V' g5 k+ I! l# X

* v3 i8 ^1 R& u1 Z2 H* c

//实现文件

& T4 o4 n* v+ x5 f3 a, W6 c

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

% j3 s X- F+ {, P. J3 |

#include vcl.h

% n w/ T2 m% i

#pragma hdrstop

$ j* E3 O8 E) J! e* B* \- Q0 A: Z

#include TestMenu.h

* P! M2 {7 c2 P! s9 I/ N: Y

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

#pragma package(smart_init)

- r" U7 X8 }6 |2 `, ]& J

#pragma resource *.dfm

TForm1 *Form1;

) `5 _* D8 K4 [1 V: C

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

- \8 F" c& ^8 T; u7 U4 i# S0 Y& W* ^3 Q

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

: ?' V% r9 ]- v0 N6 q

{

}

9 n; l, g. @) G2 |

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

4 `$ ^1 }; n: E, ]- M' m1 f

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

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

{

( w) | u/ X, o9 G: r8 v

MENUITEMINFO mii=

{

6 `0 @* i1 V8 N7 D

sizeof(MENUITEMINFO),

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

/ F8 O1 y( X4 T9 h

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

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

2 {0 Y& h* Y6 J

0,

0,

& a9 E, J' D9 d# p

};

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

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

- ^. w* d5 I4 Q. [' v$ K

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

Modify(pMenuItem-Items);

}

}

void __fastcall TForm1::FormCreate(TObject *Sender)

8 u* H, O+ w, _# ]

{

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

1 k$ q+ y0 d1 J3 Q% p- Y

{

Modify(MainMenu1-Items-Items);

}

DrawMenuBar(Handle);

+ S0 u8 J: X) H" L0 t

}

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

. {2 v* l w4 j' ~

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

3 X) @2 u' `/ M- V( i. H4 j2 n+ l

{//设置菜单大小

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

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

3 U; `: a1 c5 u2 o2 ?0 n$ {* ]

Msg.MeasureItemStruct-itemHeight = 20;

: Y5 ]5 Q) Q$ Y

}

4 ?$ Q- \3 [% a+ E9 ]( x

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

9 m/ I3 h c1 F$ \

{//画出菜单

: J1 }9 m: W+ \' _2 O: z6 p$ t

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

TCanvas *pCanvas=new TCanvas;

pCanvas-Handle=Msg.DrawItemStruct-hDC;

+ B9 Y& U7 X/ ?( n

RECT r=Msg.DrawItemStruct-rcItem;

m S9 o7 z9 R7 r1 e( i& s; k) m

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

; [- k2 m6 Q% u3 k% p* l4 ], m. _

r1.right+=1;

r1.bottom+=1;

1 R- l. v" `+ B

r1.top-=1;

r1.left-=1;

( A) M3 h) I, @5 A3 e, s% |" {$ c

pCanvas-FillRect(r);

; x. t* A7 b9 S( \, u: t

::SetBkMode(pCanvas-Handle,TRANSPARENT);

& h# |+ f$ R. d) l

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

3 D+ g- F6 I1 d4 w" a; T1 n" s# ~; R

r.right-=1;

r.bottom-=1;

6 ^7 R4 v* G" M

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

) o6 i8 @6 k9 [2 ]5 K' I

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

% O7 Q% @& S% L, t

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

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

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

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

/ y( {' I% s5 u) q0 ^

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

9 X! F W, E. j! q* N* w a

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

6 w, @4 g% Z( f( }

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

}

0 q2 B/ n4 Z: f0 _) N% h

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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