如何自画菜单?

韩冰

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

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

* t v- v: {% j; q" | Q2 _, e

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

& E: f' a8 M8 z$ M, h' H' f

//头文件

1 d5 M% K( ^1 q" m) N$ A2 g/ ^

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

#ifndef TestMenuH

. R- _4 T& G' w1 A( J. D

#define TestMenuH

8 y3 a- `1 C+ J1 @* b9 `$ h

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

#include Classes.hpp

$ p( G6 y4 F, ?7 B8 l; d: q

#include Controls.hpp

#include StdCtrls.hpp

#include Forms.hpp

8 g" x& C" H) w0 y7 w0 X

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

6 p" r: A4 Z+ w% l9 j* I2 _

class TForm1 : public TForm

7 S4 ?: l- A4 u6 g! K0 B

{

__published: // IDE-managed Components

TMainMenu *MainMenu1;

0 p' d/ x# J- N6 ?- Z3 V3 T

TMenuItem *aaa1;

; C* \: E0 t+ w

TMenuItem *aaaaaaaaa1;

3 l5 i; l. o7 P& E+ O

TMenuItem *ccc1;

8 x& A; j5 ]5 {3 G

TMenuItem *ddd1;

7 m6 b( J* g! w" |; l3 X# m2 D

TMenuItem *eee1;

TMenuItem *ddsds1;

* m5 H3 j! H8 K; t* S/ Z- C

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

. _/ m- ~: w( ^! U5 Z) j+ W

private: // User declarations

/ A$ |( {1 n/ a+ q! W3 i

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

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

7 x% F, |& B N; `6 r4 J

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

public: // User declarations

__fastcall TForm1(TComponent* Owner);

7 r0 S$ _' R E0 I+ W4 E

BEGIN_MESSAGE_MAP//添加消息映射

: y* @0 |, z! ]- V$ n# Y' m J$ @

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

, o0 N; p- U# {* ^2 j

END_MESSAGE_MAP(TForm);

8 k5 g6 K+ s; |' S/ c0 N7 X. X

};

8 Q% S" p8 g" b

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

extern PACKAGE TForm1 *Form1;

/ ?7 M6 D( A& H5 w" D

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

#endif

* Q9 L" [" I: L

- c; w( J" P, ]: C. n! a4 v

//实现文件

# E) [ s7 i' }& |: A

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

#include vcl.h

#pragma hdrstop

, g! o. o! I) H3 m

#include TestMenu.h

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

' N1 M4 x2 k9 D H; n3 x

#pragma package(smart_init)

#pragma resource *.dfm

TForm1 *Form1;

$ ^7 q9 T1 e2 ?1 {. G

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

' L9 b7 z3 N3 c5 ^9 S

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

5 H* L# ^9 W- u& g, b

{

}

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

" e+ m' @, d, S

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

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

. [) a3 N9 V" a, j, h8 \

{

f+ A" b5 N; z: Y' `) _

MENUITEMINFO mii=

8 u6 X7 w- U& f6 u( U7 K) k

{

: x: w6 z% Q) _2 } F B0 q$ N) @

sizeof(MENUITEMINFO),

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

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

3 a2 H5 U B+ S: A5 I: y

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

- k" |0 E0 k5 E9 C

0,

0,

- e6 X' G# c' f% n! `% a3 X

};

5 G+ h0 j3 g2 V8 t6 H+ k. r

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

8 M3 m( ~- {/ Z4 f

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

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

( X6 K2 k+ g& I' B0 _

Modify(pMenuItem-Items);

}

}

# z) e. Z4 E$ r+ d

void __fastcall TForm1::FormCreate(TObject *Sender)

{

, q& e8 P2 u. Y. T

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

4 r) y) b" @2 r. ?/ ^8 k1 @4 V

{

+ ]) s% D j8 \! w- ` x1 S& }

Modify(MainMenu1-Items-Items);

}

DrawMenuBar(Handle);

}

$ j4 O( |: R; |) k! _0 ]6 i0 O

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

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

, i0 w5 X: V" [! e

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

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

/ Y \, E) H% s2 ]# x V

Msg.MeasureItemStruct-itemHeight = 20;

& {8 Q9 j7 S. x9 C: y' P% i8 w, e

}

( Q! |0 }8 Y, S" g8 O1 ~( L$ V8 X

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

{//画出菜单

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

TCanvas *pCanvas=new TCanvas;

pCanvas-Handle=Msg.DrawItemStruct-hDC;

: Y3 n$ H0 ~2 G0 Y1 |

RECT r=Msg.DrawItemStruct-rcItem;

. h% M5 ^ a$ _9 W5 C6 L

pCanvas-Brush-Color=clBtnFace;

! Y' v8 c( b! A6 m0 c

RECT r1=r;

; D$ }/ ]* ]* i/ I. e

r1.right+=1;

r1.bottom+=1;

" u! O* |) K M1 |" H0 B

r1.top-=1;

8 C6 B9 k' O* k8 }) z

r1.left-=1;

/ W! U0 i" `' `

pCanvas-FillRect(r);

0 } P% s) n* U& u' `1 a

::SetBkMode(pCanvas-Handle,TRANSPARENT);

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

5 O+ Q) C- }4 T ?0 k6 ]( @

r.right-=1;

: p; e/ t* X2 X7 F, J; F+ N8 p

r.bottom-=1;

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

7 g" I" T7 C. \1 z6 w0 _; |! o

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

1 r+ C$ i' T9 }

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

+ s, m! X$ i, ]3 J6 d

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

9 ~+ e7 [5 [8 h, G

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

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

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

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

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

' n. x3 X$ |$ D( V1 c m7 U2 q8 V

}

: F3 A# b6 }: U- d" D

}

nishhao

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

lynli

这个不错。。。

Z7XOB

可以研究一下 ！！！！！

凼凼