如何自画菜单?

韩冰

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

3 W% j$ O$ o0 g$ H6 A$ Y f

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

; M/ V/ E( f7 g. s

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

3 |! Q' Z! a( D* l+ Q/ ], f. {

//头文件

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

1 _# \5 `; Z0 [0 q# z% _( T3 N

#ifndef TestMenuH

1 P/ l5 u6 K, `1 X/ k

#define TestMenuH

# m4 b7 G2 F% W$ ?2 ^ s) r; H

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

#include Classes.hpp

/ x0 B% f2 x% w4 m# e$ g2 w

#include Controls.hpp

#include StdCtrls.hpp

' d! V) B5 z4 E

#include Forms.hpp

/ y$ i4 e7 ]* b3 n

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

- |1 q: G: D _

class TForm1 : public TForm

{

; Y6 A: ^4 Q* E1 M3 p9 S5 V7 s

__published: // IDE-managed Components

% H, g( Q6 |& m4 G9 I

TMainMenu *MainMenu1;

TMenuItem *aaa1;

TMenuItem *aaaaaaaaa1;

TMenuItem *ccc1;

. x& {( o& I% z: D% q

TMenuItem *ddd1;

TMenuItem *eee1;

4 D4 H1 i; y$ }+ ?* ]6 u; M

TMenuItem *ddsds1;

1 J( ~1 ?- b( ]# a C

TMenuItem *fcdfsss1;

) X( Q( k) L' y" r" D7 L3 l4 Y

TMenuItem *dddddddd1;

" I7 z- v& W2 p- I |

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

2 h7 s0 \9 Z& }/ Y$ F

protected :

* e( T& R6 q2 c; O* t1 X( m# ~

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

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

/ d3 Z: f, T1 B/ ^

public: // User declarations

__fastcall TForm1(TComponent* Owner);

6 X- b% y, c2 [% f" L) T

BEGIN_MESSAGE_MAP//添加消息映射

1 s2 _0 e3 w: K% `4 ^- d8 P! E! h

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

% K& R1 n# j' Z' h

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

1 o( C- ~# O" i4 G. ~5 ^" x

END_MESSAGE_MAP(TForm);

};

' r" V' h" r( N; g l1 J

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

extern PACKAGE TForm1 *Form1;

! H* {" B1 f" c" K3 n

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

0 M, C. N6 @9 o, x- I1 z

#endif

0 V6 M; u# S6 Y e

//实现文件

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

% P" z/ a( N# [6 ~7 y6 D+ d% T4 Y9 f

#include vcl.h

#pragma hdrstop

) Q* H3 Q/ g* _) a# c9 R

#include TestMenu.h

- H% i# P: N# \

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

#pragma package(smart_init)

* S6 l% j7 n1 w

#pragma resource *.dfm

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

3 M! L* a6 M/ |! Q3 {" f- J& N

{

}

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

3 d6 B- H; @: J2 l# m8 v3 ^

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

- [0 g) o# w5 b, p9 s7 r) M# ~$ w# E

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

{

MENUITEMINFO mii=

0 J+ X5 G( N. j0 h- I

{

5 a# E& ^/ L6 j9 h2 M% Y/ ?3 \

sizeof(MENUITEMINFO),

8 }0 N7 w9 s* `3 Z6 [1 m3 p

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

( G7 k. k! `0 u7 Z. `' b4 X" r& ?1 I

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

6 e& Y- F! t$ |

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

0,

0,

: W% g) A! V5 U( C

};

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

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

8 P: x/ \$ Y( F0 R! u

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

. _/ w( I$ }/ m( a% `" _6 d

Modify(pMenuItem-Items);

}

}

void __fastcall TForm1::FormCreate(TObject *Sender)

5 r; s7 r& {2 c; F5 ^

{

% \9 j/ k$ ^& P9 m$ L

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

; D- n$ m$ v5 B4 x+ N

{

/ e: [+ Y1 M8 q: P" N: g/ }( j

Modify(MainMenu1-Items-Items);

}

; V! B2 u& P$ ?

DrawMenuBar(Handle);

' }: X: i: x# K# ~! C o) q

}

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

+ a. L. r0 W- m" U5 K2 ^" A8 c3 \

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

7 }9 i( f+ u/ K! j

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

0 |+ w' T' G) G2 W3 C7 K

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

6 H) f( p$ R* B6 O3 w5 A

Msg.MeasureItemStruct-itemHeight = 20;

}

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

5 H2 R$ V. X1 E

{//画出菜单

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

9 }! `, M8 V2 r) Q6 W

TCanvas *pCanvas=new TCanvas;

0 O9 ^" H" P* F! S

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

pCanvas-Brush-Color=clBtnFace;

; f, H: t9 Y0 H) v" n, |5 S u: V

RECT r1=r;

r1.right+=1;

~; i$ w. ]; {+ i+ O

r1.bottom+=1;

r1.top-=1;

# V2 h3 T) b& `

r1.left-=1;

, b+ B: p. c: N

pCanvas-FillRect(r);

::SetBkMode(pCanvas-Handle,TRANSPARENT);

7 ~; p& x# S2 V" r4 t

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

r.right-=1;

. I" A5 Q( B1 U6 O$ o

r.bottom-=1;

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

& g0 r$ U' g1 P0 k0 Y

Msg.DrawItemStruct-itemStateODS_SELECTED )

- z- Q% Z0 _, [/ W' k

{

% {7 a4 G* A" \+ W

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

0 @6 [, m1 m, P3 _6 X

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

$ I6 ]4 v3 J( u/ W1 }7 \( E

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

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

1 d, l1 t0 B! U

}

8 w5 V# @- ~( `: F0 s7 x

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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