如何自画菜单?

韩冰

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

" w% z9 C8 e$ q- V! t4 R) ?

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

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

1 _/ o0 F$ N) W0 K& f

//头文件

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

4 b6 _0 @0 x n4 M' [

#ifndef TestMenuH

#define TestMenuH

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

#include Classes.hpp

#include Controls.hpp

* n. N/ q' n q

#include StdCtrls.hpp

7 u& k- W4 q9 z) m

#include Forms.hpp

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

6 `3 W+ y8 t3 i F- F: G! m( B7 Z

class TForm1 : public TForm

{

__published: // IDE-managed Components

7 ?# R9 l2 W6 a2 x1 b

TMainMenu *MainMenu1;

TMenuItem *aaa1;

. C9 C }: P5 c \6 D

TMenuItem *aaaaaaaaa1;

" X9 P0 s$ B& x" {) ]* k

TMenuItem *ccc1;

TMenuItem *ddd1;

# R! Y$ G8 c% q! c) d

TMenuItem *eee1;

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

7 x( ~: u4 k9 j/ K |% M* {

void __fastcall FormCreate(TObject *Sender);

2 V. S( _1 I9 N; m* b* A" ]

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

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

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

public: // User declarations

__fastcall TForm1(TComponent* Owner);

BEGIN_MESSAGE_MAP//添加消息映射

, Z3 p) v S7 s7 g' ?

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

1 }2 K& d" Z1 j% @1 ^& `. U8 L

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

" ]2 F6 E: x0 w' s2 u4 E3 ]

END_MESSAGE_MAP(TForm);

};

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

1 H; o! Q$ }. F0 T3 H( H9 x

extern PACKAGE TForm1 *Form1;

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

#endif

/ X# E( R" \% _$ ` D/ q

//实现文件

5 R' u; ^' ~! d5 k

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

1 h) ^8 O8 k; X% W* D; a4 Q9 J

#include vcl.h

#pragma hdrstop

3 @" X0 z$ C4 @& Y. ?7 p+ b/ W% m

#include TestMenu.h

& ], O* s# Y7 E e& \

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

#pragma package(smart_init)

W+ P+ C5 H9 T4 T% E& Y/ ^

#pragma resource *.dfm

TForm1 *Form1;

: |% R/ U+ I9 U2 W2 U

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

9 X6 v) K: y1 n- G

__fastcall TForm1::TForm1(TComponent* Owner)

7 q- k5 @& `: r2 S' c

: TForm(Owner)

3 ]1 O6 ?7 n# |! l9 X0 M

{

}

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

) p8 S6 `$ v5 o* {& W: A& }2 @

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

7 G. ^( P6 x. D, l

{//修改缺省属性

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

{

MENUITEMINFO mii=

0 t6 u* Z# U/ T

{

sizeof(MENUITEMINFO),

x1 J" s% ]; q0 w

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

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

2 W7 ^, _# h( y

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

0,

, x- D/ a+ n3 P* L

0,

! |$ m7 y+ X n$ s& b) _

};

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

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

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

Modify(pMenuItem-Items);

+ v" u) l8 ]/ c$ B, }

}

8 M4 g! v* m- v) b

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

0 ]4 L% z( @ c! v* D

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

{

Modify(MainMenu1-Items-Items);

}

e4 c8 j1 g3 V9 a$ U

DrawMenuBar(Handle);

( n/ M: q: z+ @# h) G A: ?

}

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

0 m. H; a5 j! U+ X

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

9 X4 s4 D; Y$ _/ J3 ]- ?! ?1 P

{//设置菜单大小

% ?0 s7 i( t7 O- m. a3 a5 z4 x* X

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

0 V8 K9 w9 T f3 o; \- F4 m$ s4 e

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

Msg.MeasureItemStruct-itemHeight = 20;

% ^" V, T' O3 {, _# P$ G2 B: N/ x) C0 L

}

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

{//画出菜单

Q- w3 }2 y X8 _5 R- X& W

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

. p% ] S. L! k: i: K c, O

TCanvas *pCanvas=new TCanvas;

& @+ ]; K: I: j( V' A7 e* O

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

r1.right+=1;

r1.bottom+=1;

r1.top-=1;

r1.left-=1;

pCanvas-FillRect(r);

: ?/ M. M" T* q1 v7 z% a& 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

2 e0 g9 B! @. r# }3 a

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

4 I; Q3 r4 \, C4 f9 W4 }! L1 F

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

x% _4 g% m/ w* |9 `) L

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

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

8 ?, Z3 V( t& @: p& j

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

5 t0 j* `# I+ j$ H4 K, i2 k# R

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

( ^. S# X! a1 R

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

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

2 E; Q- ?, y* f- e4 S

}

/ K& N8 o2 F. P2 X4 G

}

nishhao

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

lynli

这个不错。。。

Z7XOB

可以研究一下 ！！！！！

凼凼