如何自画菜单?

韩冰

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

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

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

2 l' b- ^' L# f' D% r( c: b& J1 P

8 |6 s3 y, l7 O

//头文件

9 G. u3 C( k6 G* g8 B

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

: \5 h! F3 e" p

#ifndef TestMenuH

#define TestMenuH

0 w0 ]8 i( O% R: n l5 d* k

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

: o/ ]3 e6 }8 \

#include Classes.hpp

#include Controls.hpp

: U. Q, o5 s4 W: j7 P' N/ i

#include StdCtrls.hpp

#include Forms.hpp

8 [2 a9 Z2 x+ N: ?( i+ y# ?

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

class TForm1 : public TForm

{

__published: // IDE-managed Components

0 S) a7 B0 D. \: k9 B4 R0 X1 k

TMainMenu *MainMenu1;

TMenuItem *aaa1;

# s) X! B9 Y5 F. F \. n ^

TMenuItem *aaaaaaaaa1;

& ^2 t/ B" l8 s* I9 t

TMenuItem *ccc1;

TMenuItem *ddd1;

TMenuItem *eee1;

TMenuItem *ddsds1;

7 V0 ^! v. b. _4 t/ Y* [

TMenuItem *fcdfsss1;

1 u: T- N4 d' T$ Z: R# h4 B

TMenuItem *dddddddd1;

2 c7 ~. D$ l Q

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

: W$ b6 c5 L- N( m

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

- M5 ?0 P2 d$ m, U; [" r4 u# ^

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

public: // User declarations

__fastcall TForm1(TComponent* Owner);

BEGIN_MESSAGE_MAP//添加消息映射

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

END_MESSAGE_MAP(TForm);

! k! i% t# m4 l

};

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

: |# Y% p6 Y) R8 R2 j* I

extern PACKAGE TForm1 *Form1;

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

#endif

, G( I) m( W7 {2 W8 b

//实现文件

, Q u3 j" Y) U R- B) @

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

% W+ s- d1 O* c1 N

#include vcl.h

#pragma hdrstop

4 {* h6 i: X9 m: N. h

#include TestMenu.h

7 ~: ~; Y4 f5 i" D5 e, Y5 y; K" J- e

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

' c9 ]2 y0 H5 U" M N d6 l' v

#pragma package(smart_init)

#pragma resource *.dfm

( ]5 a/ |2 T P5 [% E4 Y

TForm1 *Form1;

) V1 ?1 b& x+ K5 ?

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

__fastcall TForm1::TForm1(TComponent* Owner)

+ T3 ~. X. T _: ~( V# k

: TForm(Owner)

# \" s6 R% z7 G4 q! W

{

}

$ }' R+ |; S1 G" O" Y* L$ D+ b+ M5 C

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

2 ^2 r0 \; C5 }3 ~/ {0 o

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

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

{

MENUITEMINFO mii=

! G0 g- _3 u d

{

sizeof(MENUITEMINFO),

/ t/ { L8 ^* o; @* y6 d

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

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

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

9 b) v* F! o N- @1 V

0,

7 m& _& t: z2 c9 a( R3 [

0,

};

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

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

, N( Y! f0 i1 b( K, F! q2 f+ r6 h

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

% [$ b# y U8 b0 C* W4 C

Modify(pMenuItem-Items);

7 Y5 h7 K: m f2 a/ k1 H

}

9 i+ y* l4 d# L: H* ]

}

void __fastcall TForm1::FormCreate(TObject *Sender)

" J$ l' n2 O& j; ]+ J Q( @

{

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

{

Modify(MainMenu1-Items-Items);

1 i/ \, s4 a1 `9 c

}

DrawMenuBar(Handle);

}

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

6 Q! Q6 E a* Q/ x' y

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

) C& s9 @( F- y. Q$ M$ t7 G4 ?

{//设置菜单大小

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

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

Msg.MeasureItemStruct-itemHeight = 20;

}

! U3 s3 L+ Y; U0 h

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

{//画出菜单

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

3 q" P8 b I' c V, `! p# j, V

TCanvas *pCanvas=new TCanvas;

5 I* H- u! i, `: Q7 a' Q( N- w

pCanvas-Handle=Msg.DrawItemStruct-hDC;

* z) @4 E+ K( A

RECT r=Msg.DrawItemStruct-rcItem;

- ~% P+ h3 ]1 t2 h8 J; i, ]5 w ?) g5 ^

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

r1.right+=1;

; a+ B- P% ~7 l( u6 f; \1 y* D

r1.bottom+=1;

r1.top-=1;

r1.left-=1;

! ~, i6 i/ Q& H

pCanvas-FillRect(r);

::SetBkMode(pCanvas-Handle,TRANSPARENT);

. {: c1 u& _' J6 l4 P( b# d

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

% V( {) ?" N; g+ Z1 r

r.right-=1;

r.bottom-=1;

: c9 Z. B* J; C; D7 x# f

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

Msg.DrawItemStruct-itemStateODS_SELECTED )

) N$ `4 i' c% C4 a% p) o

{

$ r! W% [$ C( Y& D3 u. B

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

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

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

' ?# ^6 u% w5 t5 W+ C# v

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

/ X7 u* H- M1 m2 z/ Q

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

: Q3 e6 M7 ]! m- ^/ L" ^5 S

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

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

}

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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