如何自画菜单?

韩冰

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

" X3 F, T7 k9 C4 g

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

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

7 h( ?6 z) T8 P. v/ A

//头文件

( W& l) H+ H& h. S2 e) h

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

#ifndef TestMenuH

#define TestMenuH

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

! a3 t0 E+ c! ~4 v R

#include Classes.hpp

- T% R/ _0 J5 ]# R

#include Controls.hpp

2 [ x1 x4 {+ f; W, L. Q1 _

#include StdCtrls.hpp

#include Forms.hpp

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

$ D% m0 D+ N0 }* j& [; P

class TForm1 : public TForm

9 @$ z# R2 q( K8 u! n' A4 Q

{

0 r9 f4 y; A. H X

__published: // IDE-managed Components

% `8 f9 F' R& {; e+ V6 r5 x% \& i `

TMainMenu *MainMenu1;

TMenuItem *aaa1;

, n0 R9 `: z8 U: f

TMenuItem *aaaaaaaaa1;

TMenuItem *ccc1;

) {5 i( ^( D5 L% m

TMenuItem *ddd1;

\% Y) g' G/ z3 e

TMenuItem *eee1;

5 K* ?; T f! I* Y: N$ J4 M

TMenuItem *ddsds1;

' ~5 J s4 {5 ?3 s. d) [/ ^

TMenuItem *fcdfsss1;

# o) B* {- {5 k5 a9 r3 f: Q

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

0 P1 H; V; S* b: [

void __fastcall Modify(TMenuItem *pMenuItem);

protected :

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

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

# N9 |, [ Z; K1 E8 e& B9 R( ]/ Q

public: // User declarations

6 q1 [* b" Z0 R7 S* r

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

1 e5 h# R4 y8 _2 M

};

! t% M: ~! h+ D3 i; ^% I: u- @

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

extern PACKAGE TForm1 *Form1;

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

#endif

8 G* ]( ^9 p! A' ^

//实现文件

4 U* e% e4 s4 d. h3 e8 Y

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

#include vcl.h

8 W3 x: d6 N" e: I5 a* |5 y3 J

#pragma hdrstop

0 H# [) a1 J! N7 \! Q

% V5 |+ E, w+ F; g( m+ S* G3 P

#include TestMenu.h

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

#pragma package(smart_init)

#pragma resource *.dfm

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

7 V- s" K, e ^# G

: TForm(Owner)

% J1 V4 d* ~0 u/ K% ?+ t

{

9 p M4 P: u8 h" Q1 j

}

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

# W" X& t/ h# Q8 F. o5 J0 u$ q

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

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

{

MENUITEMINFO mii=

{

4 N8 l# k E; U9 Q* c

sizeof(MENUITEMINFO),

4 |9 s Z' g W

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

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

! L1 G8 l2 m* g t

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

0,

# i! ~; }1 x5 b. N

0,

};

3 \% e. U3 z6 c! v4 e- a7 k% w

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

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

% h* Q6 A+ z; p9 V

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

) G0 f7 d' Q! @7 v- S T! M

Modify(pMenuItem-Items);

8 L. E, O, n2 O" g( G/ u

}

}

. X h0 o+ w. f0 Q0 q

void __fastcall TForm1::FormCreate(TObject *Sender)

{

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

9 f) u& W) q. G2 F2 E

{

Modify(MainMenu1-Items-Items);

2 p G4 s9 o2 \! Q

}

2 B# b, E$ [- i9 @( J

DrawMenuBar(Handle);

}

) q) y/ B8 k5 P

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

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

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

/ P" U( L7 v! T( ~, n9 s$ @

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

) G9 _3 F$ C; `3 w

Msg.MeasureItemStruct-itemHeight = 20;

}

( j& o# M) M! c) |

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

! B4 L! R1 N' t+ l

{//画出菜单

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

TCanvas *pCanvas=new TCanvas;

7 ?7 K+ j: O, q9 M

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

1 }9 k5 i" ?6 o& p* a- S

r1.right+=1;

r1.bottom+=1;

r1.top-=1;

; f/ `" w) G: s

r1.left-=1;

) D! X7 ?$ Q! T: S

pCanvas-FillRect(r);

1 K* x7 A* {8 |: X9 i$ } C

::SetBkMode(pCanvas-Handle,TRANSPARENT);

* A; f( U: R: j( n: H7 I9 \# R

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

r.right-=1;

, G4 n1 ]* G6 r5 u8 L& q; K

r.bottom-=1;

; E1 y( w) K# c# e$ c

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

! F; ~" H9 A- \. O) S7 \

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

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

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

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

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

' |# `' t: [! H3 x5 s& ?

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

" Q7 o( Q& G4 @5 C5 {% [/ g8 R

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

]: N# @5 ?" B7 `

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

}

# k7 T; S4 @) }( o/ ]. `3 v+ V

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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