如何自画菜单?

韩冰

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

6 a, g) @. o1 \: ^* h: F+ p* Z

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

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

" M g1 u! J q' Y! x

//头文件

2 N+ S/ Y% @$ T

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

#ifndef TestMenuH

' W6 B7 u! T s$ _! R; j, r; E

#define TestMenuH

7 ^+ C7 u) h {8 T3 q O( ~2 }% J* p8 |

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

#include Classes.hpp

L: s- j" C8 K7 M# u# ?. q

#include Controls.hpp

#include StdCtrls.hpp

8 x( G) \# v N T* {* |

#include Forms.hpp

# B6 u: i2 P1 l

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

class TForm1 : public TForm

{

. m( I6 l; Q$ Z

__published: // IDE-managed Components

TMainMenu *MainMenu1;

TMenuItem *aaa1;

h) J! a4 U* o0 f( L: w# M

TMenuItem *aaaaaaaaa1;

' O& r$ d4 ]& T4 _. ~$ U1 g

TMenuItem *ccc1;

TMenuItem *ddd1;

TMenuItem *eee1;

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

/ T6 V! _4 S2 \

private: // User declarations

" r9 X k+ I, @( |# O3 ]8 J3 m

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

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

/ O; L# ] a5 {$ N& ?+ d

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

public: // User declarations

% S/ k$ U4 Q6 @& y; p* K0 _

__fastcall TForm1(TComponent* Owner);

- B! T u) {" D) T( v: S3 {

BEGIN_MESSAGE_MAP//添加消息映射

p1 q2 O6 W; p; \

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

& |6 q! M- P" ]) }( ~3 a

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

' F& O% f1 R5 P

END_MESSAGE_MAP(TForm);

};

+ T" M5 r, n8 G. Y0 U( p9 K: ]7 Q; S) H

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

" Q o- J1 ~! ~8 a

extern PACKAGE TForm1 *Form1;

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

#endif

( P" I l4 @7 l! U5 S7 I

//实现文件

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

#include vcl.h

#pragma hdrstop

5 ]& T5 e* C2 Q3 w0 E9 {2 |

#include TestMenu.h

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

- Y$ h% h2 M; U

#pragma package(smart_init)

7 m' C! F3 z' p0 H# R7 x

#pragma resource *.dfm

TForm1 *Form1;

# S ]- K5 |2 e

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

5 _0 ] i! G6 \" J; ?/ z

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

9 h! O' w' Y! N% F' P

{

}

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

( Y' J# R0 T. x; z5 Q! Q

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

* m9 n' D( O- E" J# }

{//修改缺省属性

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

{

MENUITEMINFO mii=

s; `, {& d+ k* K; Y

{

# |/ T3 d( \, f1 F& j" j# W8 n

sizeof(MENUITEMINFO),

! W6 z/ J" ]. U; K6 b" D

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

6 N9 q' M1 m( O F" b! g

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

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

0,

1 d |; U+ Y! I) S5 F

0,

$ `$ Y" M# Q Q: ] i3 a

};

* N$ b! m1 C) }- M1 g+ {: v

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

3 c( d3 Y' f; W5 c

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

3 k- ]$ c# H8 }9 M

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

) u' n/ l) g- C) m4 P! B

Modify(pMenuItem-Items);

}

8 \6 R6 |! q+ z6 z

) ~, w7 ^! R" V( D2 ]

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

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

9 c6 i- ?0 d0 n R

{

Modify(MainMenu1-Items-Items);

& S( E, n, S- h4 m: ^+ X

}

DrawMenuBar(Handle);

1 R9 F# v, f" X& t2 H

}

7 K/ Z0 I% U9 |/ P) V/ U1 R- j

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

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

1 w: @7 ]/ r* G$ X

{//设置菜单大小

: M; F. G# x' p9 l6 ~ T8 J1 w

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

+ V! _4 R7 g C

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

Msg.MeasureItemStruct-itemHeight = 20;

}

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

% |3 h3 M) r0 K; O5 b9 I

{//画出菜单

, N& K+ \1 Y: i; u r

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

6 R, g, d! i1 q" t X# M

TCanvas *pCanvas=new TCanvas;

" m6 c* B3 K& L3 l0 Z

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

pCanvas-Brush-Color=clBtnFace;

, w: B$ V t2 p. N

RECT r1=r;

r1.right+=1;

r1.bottom+=1;

r1.top-=1;

r1.left-=1;

pCanvas-FillRect(r);

- }; B8 b; s' j; x5 i. ^% o

::SetBkMode(pCanvas-Handle,TRANSPARENT);

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

r.right-=1;

r.bottom-=1;

$ o# K+ V# p( g0 ^5 O; q

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

Msg.DrawItemStruct-itemStateODS_SELECTED )

* _ K& M# a8 l4 M

{

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

5 S8 R( C) ^& d, V+ o K. ^

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

0 z; Q f( r5 X2 t4 i4 Q

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

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

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

, q. j+ f7 u9 n: n+ n9 Z

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

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

}

: }1 M" D/ T# h* F" V' m

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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