如何自画菜单?

韩冰

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

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

! M' _6 z$ e# V5 ?

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

" Z% C2 c j D9 S/ _+ C

//头文件

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

#ifndef TestMenuH

$ ?, \7 ^$ s- g6 h( T1 R/ e

#define TestMenuH

3 ]3 ~4 r* _+ S8 H

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

* s6 c9 j* U3 y+ c: J, ~4 l# d& h

#include Classes.hpp

#include Controls.hpp

#include StdCtrls.hpp

#include Forms.hpp

" Z5 N: q% E; x T* Y

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

( N; L1 ~2 S1 q8 p" f9 D; g9 e9 Q

( D! [9 T, Y1 Z7 V) I1 Q+ Q+ S

class TForm1 : public TForm

0 l& K, z9 [, ~) R

{

__published: // IDE-managed Components

( }2 ?' y. Q K0 r U; z" W3 w

TMainMenu *MainMenu1;

TMenuItem *aaa1;

" j T; q( I% _

TMenuItem *aaaaaaaaa1;

TMenuItem *ccc1;

0 u0 H* t5 t. \2 [4 ?

TMenuItem *ddd1;

TMenuItem *eee1;

0 t9 W. D7 f1 G1 T; `

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

6 b) X* ]4 ]! C9 S Q4 d

private: // User declarations

: _; s$ p9 H- [$ A& |

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

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

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

$ U0 M W/ U: z |* y) w

public: // User declarations

* M; D& x/ \9 l: c) `4 c, t

__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);

- I- ~; D8 P ^" q6 g0 G

};

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

extern PACKAGE TForm1 *Form1;

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

4 w) I+ {9 q; T

#endif

8 z7 ^( j8 S/ N. f1 ]8 v- F

//实现文件

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

#include vcl.h

#pragma hdrstop

! Y& j4 ^/ n$ E, `, J

% B+ D( Y8 W; ^, P4 i8 i9 ^; F. n0 ^

#include TestMenu.h

9 G/ p' l3 u9 L

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

#pragma package(smart_init)

, n: {4 a( ^' j) Y& M

#pragma resource *.dfm

+ {& C G1 m. c% r: y8 `6 h, s: N

TForm1 *Form1;

- M. a5 U# z% f1 H$ X2 j4 c

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

- t0 h( c9 Z8 e/ X7 \ A H

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

$ A+ O. k0 P1 J& L* V0 a# d$ n6 e

{

3 q' e8 K3 M% L( I; f' R6 g

}

$ H0 x+ u7 r3 R/ \ V+ j9 h/ G

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

* l: V) b8 m6 V7 e! P- }) N& z

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

# E$ K* U7 X% q$ [ e

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

{

MENUITEMINFO mii=

1 w: C+ h- T6 S0 _! |

{

sizeof(MENUITEMINFO),

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

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

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

/ x+ ]2 F4 P1 u+ m$ _0 X* [: Z

0,

' y( z/ Y* b. Z7 |4 B* P. K3 K) r

0,

};

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

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

- x9 D* B5 x+ I$ t2 [

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

& F/ A; y0 F% I: u) r7 Z

Modify(pMenuItem-Items);

0 V+ l* e: `4 k1 j% E

}

* g4 u7 |+ @" _' e6 `- S9 B

}

void __fastcall TForm1::FormCreate(TObject *Sender)

L2 k; { j' [" k! Y* E& F

{

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

{

Modify(MainMenu1-Items-Items);

}

8 j: A' ], F# l n! k1 d$ M

DrawMenuBar(Handle);

}

2 T2 w$ ^" R4 M6 E- Z8 n

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

5 \* r$ M/ ^% N

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

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

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

+ m* O& h1 L3 f

Msg.MeasureItemStruct-itemHeight = 20;

$ n2 J5 v8 f8 I3 z# n( j7 u5 h

}

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

{//画出菜单

4 ^8 u# Z! M9 b" Z, y# r

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

TCanvas *pCanvas=new TCanvas;

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

/ V; R4 \9 @( _. ?+ h% w

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

r1.right+=1;

r1.bottom+=1;

r1.top-=1;

r1.left-=1;

pCanvas-FillRect(r);

::SetBkMode(pCanvas-Handle,TRANSPARENT);

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

7 y0 H9 L# _) o+ s+ I# m

r.right-=1;

) r; ]/ M% B# n

r.bottom-=1;

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

- D) G$ h: K% s0 @$ u+ Q. m

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);

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

) I2 p, B* g4 m" J, T! N! t

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

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

$ G, u; I" c) b9 q* L3 _) A

}

2 |4 @, J+ _; ]; w0 i$ e; T a

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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