如何自画菜单?

韩冰

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

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

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

$ P% N6 K9 w- E9 j/ r; A# u1 w

//头文件

* g( B+ ?9 [- K$ _

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

#ifndef TestMenuH

* @' r& r5 y" k! f) Z

#define TestMenuH

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

#include Classes.hpp

& G q% B) c3 V" x/ a: [( ]& z- U( R9 H

#include Controls.hpp

#include StdCtrls.hpp

9 r, m- W' J* _6 F0 w L E& ~

#include Forms.hpp

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

class TForm1 : public TForm

0 |7 c' l9 W5 x! O

{

: M f& R* C3 @4 X' s4 w, o

__published: // IDE-managed Components

" b: u. u1 v$ B0 E4 v9 E; X6 @. D4 t

TMainMenu *MainMenu1;

$ N( v! o4 y* L c6 O/ j

TMenuItem *aaa1;

. [5 ~9 w' n& X/ i2 y$ M( ]2 g

TMenuItem *aaaaaaaaa1;

$ Q1 F7 t' {1 D/ R8 N/ p- o

TMenuItem *ccc1;

/ r: C! I# U/ w) {' e$ R

TMenuItem *ddd1;

% B- A' e3 D( O: J& l" T! p

TMenuItem *eee1;

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

% p* z0 V4 ^! J

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

0 ?. {8 I+ d C0 m( P

void __fastcall Modify(TMenuItem *pMenuItem);

7 u; c$ y" s+ {) K# W

protected :

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

- O) N0 M5 Z6 K3 H

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

" J9 v8 T& U% s" m

public: // User declarations

__fastcall TForm1(TComponent* Owner);

& r- [5 `5 t- t, R* v

BEGIN_MESSAGE_MAP//添加消息映射

5 l* c% Q) V. l8 W$ g- I

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

' k! E* [; X4 R3 V+ J

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

END_MESSAGE_MAP(TForm);

};

% K- p/ P: u. s, d6 F4 l

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

extern PACKAGE TForm1 *Form1;

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

3 j' \( Z, Y% R

#endif

; P5 J; _. x$ o; f* T0 j

m" H1 @3 S8 B" T- P

//实现文件

+ O* b- K4 G" T: T

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

' u, H; C5 i6 y) ^3 C

#include vcl.h

#pragma hdrstop

% p Y y; {2 A9 e

#include TestMenu.h

4 z. W, L0 {& m6 V

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

. K- W/ x8 G) `/ t8 X' O5 W2 x& ^, _

#pragma package(smart_init)

4 [1 L4 A K5 ~( d/ @

#pragma resource *.dfm

5 D4 ], P7 I, Z+ r$ b0 S B) C

TForm1 *Form1;

5 y* [4 N) K1 G _

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

( u7 S9 e; F$ w+ S& ^* J/ r( U" X

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

6 ]7 k: F- h: l- I0 u

{//修改缺省属性

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

{

MENUITEMINFO mii=

# z6 C0 L5 W- o1 s( j& I/ m

{

( `) Z8 N: P' N( ?6 O, J

sizeof(MENUITEMINFO),

6 K! g6 I& \' R& o. l

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

7 n" J% v: M1 B: b' K

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

! S# N8 M+ M" M4 \( B* ~

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

! N0 |, c4 h. K! `

0,

8 z& E" _) N5 G9 y3 ~. ]

0,

4 ?3 D9 ~ G, ^2 o. C

};

5 T& Q J' Q, d7 u' v g

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

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

, \' y9 |1 B; G1 ]; }- F

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

Modify(pMenuItem-Items);

}

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

5 @& T, K# `, `' z

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

{

* `4 L6 p8 Z5 z/ T! z

Modify(MainMenu1-Items-Items);

% s/ f* c3 R! t" ~ P1 E9 ^

}

! H! V/ L* _0 Z

DrawMenuBar(Handle);

/ Q) G8 n4 [! |: E

}

- V, W8 x3 F5 B% q) \, I# }

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

8 v) Z5 P, l; ?- z# S

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

. U2 y5 p! r l7 c& [# ?

{//设置菜单大小

8 N7 V6 B6 ]" e' N1 z9 G! G% c

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

- v& i$ V& I7 B# b0 s

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

Msg.MeasureItemStruct-itemHeight = 20;

7 d7 T7 I8 |/ d

}

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

. x4 H" _* Y0 _/ d2 B$ b

{//画出菜单

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

TCanvas *pCanvas=new TCanvas;

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

r1.right+=1;

* t2 s* x8 Q) m6 U7 C

r1.bottom+=1;

r1.top-=1;

r1.left-=1;

0 W1 H1 k9 D3 k) w. L) M6 {# f0 W

pCanvas-FillRect(r);

* J" A' u1 J' Q( d" `

::SetBkMode(pCanvas-Handle,TRANSPARENT);

) W @4 o" b" x4 P* t6 d

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

/ S$ g- q5 N& x `* i: Z1 b

r.right-=1;

4 S6 y i; a- Z/ c. ~

r.bottom-=1;

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

) e" Q: N- ]6 l% y( U

Msg.DrawItemStruct-itemStateODS_SELECTED )

+ z7 X( r) `' |

{

$ \5 f6 u, \8 y5 x

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

- K; x, O/ C) {% X; l

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

: [, h+ b6 M c; ~% Q( }: Y

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

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

' z7 ?3 k# i" V% Y; w+ V/ L

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

5 P! ^# x# K" _1 w' U& [

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

3 r' E2 Z6 ^" _* X9 b0 q

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

, l5 W P# o3 e3 P) b7 C

}

& F+ y! k7 [: E8 I) `& L

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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