如何自画菜单?

韩冰

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

( |' [, @. C; A) _

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

! b$ N( \: e d4 @, F1 W3 R8 t+ O

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

5 @, A- A5 d% a! G' w

//头文件

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

) q* d% S3 v/ K" B

#ifndef TestMenuH

#define TestMenuH

8 p1 G6 c9 V/ @7 x

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

#include Classes.hpp

9 w' \/ i2 ^; B6 }

#include Controls.hpp

#include StdCtrls.hpp

S! J9 G/ B7 c3 E1 b& T! M0 V1 y9 C: B

#include Forms.hpp

q6 X, X" ?1 K) G! z- S

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

/ l% Y) h& I$ J

class TForm1 : public TForm

: Q3 `3 Y) ~7 G7 B* c, I( L

{

) u; i9 H* C% A6 `

__published: // IDE-managed Components

( U6 _$ ?" d/ A! c6 t" Y# P

TMainMenu *MainMenu1;

) p, B2 Y4 s D2 J4 D* C: u

TMenuItem *aaa1;

TMenuItem *aaaaaaaaa1;

& `4 t8 u3 u1 h% K' q

TMenuItem *ccc1;

6 I `3 N4 m; D( h/ d

TMenuItem *ddd1;

" J7 Y( Y. A" O+ H0 x% Y2 n

TMenuItem *eee1;

TMenuItem *ddsds1;

! Y1 a/ D {8 V

TMenuItem *fcdfsss1;

F1 W8 i8 m+ v" P8 F

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

3 w4 R7 M5 f5 K/ q

protected :

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

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);

" G7 P) l$ ]4 O/ R

END_MESSAGE_MAP(TForm);

- O$ z0 ]+ g- h

};

/ {4 |! R U6 G" M$ A% Y

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

extern PACKAGE TForm1 *Form1;

) b* |5 G$ Y: c, M6 z0 c

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

3 h2 w2 D7 S% ~" [" Y" k

#endif

7 [- [8 ?! _3 m. \

//实现文件

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

+ `4 N+ |0 E. B8 w$ {5 ^( u/ w

#include vcl.h

#pragma hdrstop

6 f; Y1 P3 i$ Z/ u6 \0 F

' z! s; g; c |/ v; g1 U' v

#include TestMenu.h

3 F* k3 f. S5 w6 B/ A/ N" o8 I( x5 g

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

#pragma package(smart_init)

#pragma resource *.dfm

TForm1 *Form1;

% A5 Y2 B# i* b% t% K

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

+ [/ j# K: E& I4 v. |; q+ x

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

- g# Y! R8 [' F9 f

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

, D+ m8 y* z5 _! w3 |2 [- |! }4 o

$ u t3 O ?+ _" _7 Q

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

5 Z% K5 G; j( y4 J' j( i' e! i; u7 c

{//修改缺省属性

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

, g8 G4 Y/ d' k( V

{

MENUITEMINFO mii=

: p, j n3 e: n! B' v7 Z

{

: H; c8 T* i$ v: [

sizeof(MENUITEMINFO),

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

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

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

0,

0,

};

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

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

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

Modify(pMenuItem-Items);

8 C$ \2 E$ q/ s4 N

}

}

9 X" H8 j, M7 C- D& f( C/ M

void __fastcall TForm1::FormCreate(TObject *Sender)

{

1 V/ h, M& a6 y3 F& Z# e/ S

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

* [4 ?7 L( p$ T' Z) e

{

Modify(MainMenu1-Items-Items);

}

DrawMenuBar(Handle);

}

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

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;

}

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

' a2 _- V% E2 e- x. J

{//画出菜单

" \* g" b5 [! Z" C

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

* x8 K; L" S# u/ i' R. y

TCanvas *pCanvas=new TCanvas;

, a7 Y3 i8 Z; b+ c( m: u

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

pCanvas-Brush-Color=clBtnFace;

9 \% U w5 @1 O% m( p6 P4 g

RECT r1=r;

r1.right+=1;

' ~' v- V/ q2 Y9 x

r1.bottom+=1;

& d8 m" k% \, q

r1.top-=1;

, M, j; g z9 _5 ^

r1.left-=1;

pCanvas-FillRect(r);

3 x+ k# A q% w0 q

::SetBkMode(pCanvas-Handle,TRANSPARENT);

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

r.right-=1;

/ v4 s( ?" N* y$ p0 [0 u

r.bottom-=1;

3 H# e9 Q! N, {1 K& h

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

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

2 Y0 I( M7 L5 M" J- [' z

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

5 D! H# @' N/ E) \

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

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

& f f, H, |' o) Z" P* _1 X

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

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

- c* R9 i; m; B# `8 @# \

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

" Q' Y$ t( z$ z& @# u

}

% q$ L0 @/ T9 [5 t, I' L* A! f , }- Q% T* P u( \$ J& W9 w

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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