如何自画菜单?

韩冰

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

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

/ t& }0 ?# G6 G2 R

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

$ P8 H* \/ x. n1 c! H

//头文件

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

8 n% y- K1 B3 x

#ifndef TestMenuH

! q- M8 l+ F1 k+ r# n3 l

#define TestMenuH

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

W: R8 l0 \" p4 G" @' t9 m7 g

#include Classes.hpp

, q. o! n( ?" d( H4 k) g+ L$ h4 Q; r

#include Controls.hpp

#include StdCtrls.hpp

#include Forms.hpp

/ d ~) e4 \- ?0 w

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

class TForm1 : public TForm

{

$ q; q1 q4 l! W, D+ Z5 h. R

__published: // IDE-managed Components

TMainMenu *MainMenu1;

2 ` s3 o" l5 z+ K& X; p- `; [

TMenuItem *aaa1;

TMenuItem *aaaaaaaaa1;

/ P I* I: P: Q8 S4 H. G- `

TMenuItem *ccc1;

. L9 f- J `8 u9 X: @& ]$ g4 \. b7 f

TMenuItem *ddd1;

/ ?) s+ J! B" F- f( Z; |! l

TMenuItem *eee1;

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

6 D+ F% `$ y! U- R& d5 ~

protected :

2 {$ o3 F1 a Z- E G

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

/ K( M0 s& `: B; J) S/ ?+ R

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

public: // User declarations

__fastcall TForm1(TComponent* Owner);

BEGIN_MESSAGE_MAP//添加消息映射

u& x) ~: h' o) b% w

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

, M/ E; z1 K( q! x+ V$ G% ?+ \

END_MESSAGE_MAP(TForm);

};

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

extern PACKAGE TForm1 *Form1;

c& i L8 p+ w1 U2 E$ A

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

#endif

# \( x: u# G1 }9 \- c" I; \/ ?

//实现文件

# _) w6 [. `; H7 |5 u# a" @

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

. P$ k! K& _( q+ b. H/ P9 d9 [- H

#include vcl.h

# J( X/ u h. n& [1 S

#pragma hdrstop

( g' q J0 y+ t$ s6 s/ r

" |$ [ E: k8 J0 C

#include TestMenu.h

! `" t3 a2 P$ m K& S

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

9 \0 [7 W7 C' f, g3 r7 f

#pragma package(smart_init)

* D O+ i! J/ M+ {3 O& r

#pragma resource *.dfm

TForm1 *Form1;

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

; f0 y w: n) B+ i% q8 P' V4 ` _! X

__fastcall TForm1::TForm1(TComponent* Owner)

+ s1 X3 J( [! x& F; X. X

: TForm(Owner)

{

}

4 x, o) q% o- Y1 X5 u7 e: p

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

' ]# P* _9 M* R$ u8 D. a" M2 O

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

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

$ C4 O& r" b! w+ ?9 p& K8 R4 h$ x

{

MENUITEMINFO mii=

{

1 m$ [# r. T& p% f* P# Z$ p

sizeof(MENUITEMINFO),

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

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

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

! B9 R+ v1 w2 x$ l& k7 }2 x3 B

0,

1 t& l8 K9 h- {6 p0 T1 r& m

0,

+ ~$ Z( ? ^, H3 @. w

};

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

# e. }' H: V. ? m" h: o

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

: W7 N* h1 @4 J& K2 E

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

Modify(pMenuItem-Items);

}

}

void __fastcall TForm1::FormCreate(TObject *Sender)

4 z2 x7 s6 M# e4 A: n/ b# A) o9 t/ t

{

5 i6 |! w+ R. G% |

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

3 W5 x8 Z( Q7 f7 j8 B$ {

{

* [, L* q% Y. I% g, L* g! j( n

Modify(MainMenu1-Items-Items);

}

DrawMenuBar(Handle);

}

* h/ P; T* P$ ]! U6 D+ U+ Q% @

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

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

* [( a) }+ D- @3 }* M T- s H

{//设置菜单大小

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

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

' [3 m' @1 ^3 a+ d

Msg.MeasureItemStruct-itemHeight = 20;

' ?3 X3 N. r* S" t- D+ _

}

$ I6 Y7 o3 r1 c( \$ {# b, o

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

/ b) m( I$ x' j: c" u

{//画出菜单

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

& j! _9 t* { h

TCanvas *pCanvas=new TCanvas;

pCanvas-Handle=Msg.DrawItemStruct-hDC;

% O8 _ U, b- A" G# C

RECT r=Msg.DrawItemStruct-rcItem;

pCanvas-Brush-Color=clBtnFace;

' c6 p( y/ r) V& A& Q8 p

RECT r1=r;

r1.right+=1;

r1.bottom+=1;

8 C8 e/ l5 C- d

r1.top-=1;

r1.left-=1;

pCanvas-FillRect(r);

- y) L7 e8 r1 b7 s& D% ^0 @

::SetBkMode(pCanvas-Handle,TRANSPARENT);

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

! e* S0 y8 b, ?8 L% t# o5 O

r.right-=1;

, w* X* s2 }0 r2 W: y) h

r.bottom-=1;

$ x' w$ a! D: N2 m+ c* ~9 ?1 L

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

; @% b3 M; Z# v% B9 I. x

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

3 G* x; f3 w8 Q) E" A

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

# P5 i; I% p- D# t

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

4 Y r2 w" S4 m& y

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

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

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

K: c, M6 a; M) L# C: }

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

}

9 m* f# n3 G! b0 h8 t ( F! u6 A! c3 t( c3 P Y6 M

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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