如何自画菜单?

韩冰

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

9 E7 M0 _1 r3 X4 [! A! z- E' g/ t9 ^

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

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

7 `0 i7 E* j6 s

//头文件

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

) l% V2 m5 c1 w3 U8 p" v

#ifndef TestMenuH

W9 [9 x! K9 g0 @% N r

#define TestMenuH

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

4 Y" |8 r4 A! v5 Z. @" e3 [

#include Classes.hpp

' x. {; g9 d: w+ |9 e0 c1 w( c

#include Controls.hpp

3 q, s3 P3 Y! b6 O9 Q

#include StdCtrls.hpp

#include Forms.hpp

/ w. v+ a# U- m7 C/ ~% {5 X* B0 G& K

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

" M3 ^1 h r2 \+ q) ^) Z/ a

class TForm1 : public TForm

; z: ?' {3 p4 Q! ~+ ?3 j

{

; R0 a- y1 n% L3 H& f' x( ~) L

__published: // IDE-managed Components

TMainMenu *MainMenu1;

TMenuItem *aaa1;

+ T, U3 _4 K7 Q0 H: A

TMenuItem *aaaaaaaaa1;

* p0 w, ]4 R5 a, C( B# C$ S6 ?& I

TMenuItem *ccc1;

8 ~, ?! p# E; a( G6 q+ t& y

TMenuItem *ddd1;

TMenuItem *eee1;

TMenuItem *ddsds1;

+ K' o3 t) ?$ z: B; Y$ n h+ X

TMenuItem *fcdfsss1;

: K) i3 R, O6 w7 G G

TMenuItem *dddddddd1;

9 W: T9 l* b/ U N

void __fastcall FormCreate(TObject *Sender);

5 L# |3 \9 z" B1 t& K& }: A# |; ~

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

. \' V# _$ O5 C* @

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

, E$ j: B/ s+ o

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

, F( t, `4 z/ m5 I& m

public: // User declarations

__fastcall TForm1(TComponent* Owner);

BEGIN_MESSAGE_MAP//添加消息映射

0 e0 Y" B6 z2 h) |8 Z4 C. P

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

END_MESSAGE_MAP(TForm);

* W6 f$ H2 A ~8 J* N

};

: j n. K6 q" U5 O2 w, R8 x {# a

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

extern PACKAGE TForm1 *Form1;

7 x4 ^) L2 \) g

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

# j- E8 R8 t3 @- @: D

#endif

' L# x. B+ ^; Q% Z

//实现文件

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

4 G5 Y/ f: G( X& @2 a9 {8 S/ Y

#include vcl.h

#pragma hdrstop

, T7 ~+ z5 N0 c1 B" l' b

' W$ C+ ~/ k! o. G7 c9 r7 b' l$ h

#include TestMenu.h

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

1 Y: Q% ^% F( Z5 V2 s

#pragma package(smart_init)

% ?2 R6 Z: ~9 Y4 A# r7 t- G

#pragma resource *.dfm

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

: [: s+ r1 p# F* ?# [3 O

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

- N# t8 `- j3 X4 |0 a. k

4 v5 O* b+ I0 q; U# Q' m

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

% ~6 w/ y' [9 R5 y \

{//修改缺省属性

9 ^/ \/ s6 l2 C; A( v

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

{

MENUITEMINFO mii=

7 }; a @) {7 X0 q

{

sizeof(MENUITEMINFO),

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

$ o4 c1 A3 J$ S& m

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

+ l% y+ q8 ?8 }

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

0,

+ o0 V% p; V, I `

0,

};

7 p$ s1 I' U2 \! |' s/ Z

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

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

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

Modify(pMenuItem-Items);

}

P6 a5 H/ q. J( Z ]! O5 j* _" I; T

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

9 q2 h0 ] `4 c- x v

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

2 e8 q! q. J0 _

{

: [# v3 u8 i' H! ^0 G9 h

Modify(MainMenu1-Items-Items);

. K) G( M# W0 J0 P* E

}

DrawMenuBar(Handle);

! \- v6 \3 ?; V$ |+ u u; Q

}

0 l/ k; J) g: R& y( q) l- k, D- t- G

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

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

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

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

Msg.MeasureItemStruct-itemHeight = 20;

}

4 H8 Y7 @% O6 c

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

; d9 Q5 s3 U4 v6 R, d

{//画出菜单

* }+ W" {2 T6 ]1 i

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

' B1 \! e A0 N. H

TCanvas *pCanvas=new TCanvas;

pCanvas-Handle=Msg.DrawItemStruct-hDC;

* L+ ]8 i6 ~/ J) [8 y$ B, u4 n0 o

RECT r=Msg.DrawItemStruct-rcItem;

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

) g* S8 K5 y$ c0 [

r1.right+=1;

r1.bottom+=1;

r1.top-=1;

" O2 K1 T: A( K$ O L2 G

r1.left-=1;

pCanvas-FillRect(r);

" l4 u ? h! _4 A1 b

::SetBkMode(pCanvas-Handle,TRANSPARENT);

7 c+ \$ D9 o% g& ^: e1 R( A

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

: l h( P7 e. j

r.right-=1;

r.bottom-=1;

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

' P6 T9 p6 O: |

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

) O* e8 _6 a$ S

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

" p& H- Y, ?3 g% u+ I) Q; W' g

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

" a ]! g# C# C, @3 @

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

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

$ y: `# }5 P$ ?* K

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

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

9 m4 g5 k) \5 O2 h+ m) X

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

7 U0 G) {, b* b3 @! w1 |8 l+ Y- ~

}

" K. x. L n/ i- ?$ S1 {, Z0 E

}

nishhao

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

lynli

这个不错。。。

Z7XOB

可以研究一下 ！！！！！

凼凼