如何自画菜单?

韩冰

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

" W" N4 B# E; E0 ^

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

2 x ]2 K1 r9 F1 A& R, t' x1 X9 \( ^+ \

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

//头文件

" F% s) H! v7 y+ M

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

#ifndef TestMenuH

#define TestMenuH

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

#include Classes.hpp

#include Controls.hpp

1 K, E+ I4 f( U, S2 _! X/ e! L

#include StdCtrls.hpp

#include Forms.hpp

$ s& I( p1 C1 Z: S1 ]

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

& J# y# V5 {8 f: |4 k

class TForm1 : public TForm

5 _3 Y! S7 R: l+ `% W! E$ [

{

__published: // IDE-managed Components

7 @" G7 n" E) c$ I# L& C, q

TMainMenu *MainMenu1;

0 S4 ]5 X& A2 g# x- x; S6 ^$ o1 J1 a6 F% I

TMenuItem *aaa1;

TMenuItem *aaaaaaaaa1;

2 g6 y( Q, n/ J

TMenuItem *ccc1;

TMenuItem *ddd1;

9 p; M) f `' Y: V& U6 V! y/ G7 p

TMenuItem *eee1;

TMenuItem *ddsds1;

/ t. _ Z) `& e

TMenuItem *fcdfsss1;

! O: j9 D2 F4 w( f( H2 Z H9 I% m

TMenuItem *dddddddd1;

, C- c- m9 E! X. b( |" x8 o

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

+ W- D1 n- L% \- g

protected :

5 L( Y- V9 W( |8 q

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

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

1 \9 S; O, X9 f3 O; k0 v# t

public: // User declarations

__fastcall TForm1(TComponent* Owner);

$ N$ Y( U3 B! I5 l

BEGIN_MESSAGE_MAP//添加消息映射

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

9 u& W! h7 O9 i& g

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

END_MESSAGE_MAP(TForm);

6 R+ l3 c/ T$ }" R, _8 @/ W

};

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

extern PACKAGE TForm1 *Form1;

$ `( b7 b5 `) C4 u6 J

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

( Y# Q6 q, }+ q0 ]+ ]! P

#endif

, W7 `% O1 C! l! `- V

; S+ L, u$ O: v# H( o7 t

//实现文件

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

1 B) I; f/ E K6 s& ?4 K% u y

#include vcl.h

#pragma hdrstop

$ G1 m+ h! X4 H# H

#include TestMenu.h

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

$ }- _( G8 \5 x, {" O3 t6 n

#pragma package(smart_init)

#pragma resource *.dfm

TForm1 *Form1;

6 b! F- @2 \7 Y2 [! E! j- x' I0 @# ^

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

% Z' S& c/ L) y

{

}

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

3 c7 E% T/ Q3 W! m% r

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

8 V0 {1 b' L. I' |/ ^

{//修改缺省属性

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

8 _6 M7 u- M2 D2 X* ^

{

MENUITEMINFO mii=

) J' z- U4 E4 |

{

sizeof(MENUITEMINFO),

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

$ M( E; J# S( A8 Y8 q. d3 D% R

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

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

0,

0,

" _# L$ L$ I1 u) D$ y, i) ?

};

% @2 C! \- n8 Q B

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

+ R9 [. ~& y6 x. {9 @

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

6 E) S6 r( c5 z. B% }/ L6 t3 m

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

Modify(pMenuItem-Items);

}

, _5 q# X! Z+ h$ P" u6 G

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

6 _& ?, R+ ^6 R& R! D0 A1 I" ]

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

) q1 { ]% T% H: b9 P3 }9 x

{

Modify(MainMenu1-Items-Items);

# D0 I3 H! O" \) Q( D. N" S5 Q4 F

}

5 n2 R+ r6 c' t9 Y5 @. L

DrawMenuBar(Handle);

3 v, E, K5 O3 N3 |6 j, b

}

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

9 c1 G/ u5 d" m. a; C

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

, D# X. H1 o1 P: d

{//设置菜单大小

6 c# t3 V' F, C

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

3 u# E) Q( w3 E0 C* S( A

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

Msg.MeasureItemStruct-itemHeight = 20;

0 W# @' q0 J: W% J

}

t$ b3 m; E* W5 A. R- L$ T

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

{//画出菜单

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

$ a" g! j; h6 y7 e

TCanvas *pCanvas=new TCanvas;

pCanvas-Handle=Msg.DrawItemStruct-hDC;

9 S: w+ F- u7 \

RECT r=Msg.DrawItemStruct-rcItem;

9 U" u. ^+ w0 z4 ^* ?/ I6 H F# _) J

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

r1.right+=1;

. `) o# I3 R' R4 p

r1.bottom+=1;

0 }" v5 [, N9 u( B7 A+ V

r1.top-=1;

& J: g/ |: [( u4 `8 u+ G

r1.left-=1;

pCanvas-FillRect(r);

::SetBkMode(pCanvas-Handle,TRANSPARENT);

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

r.right-=1;

9 x! i3 [* ^2 d% r; A! V* I

r.bottom-=1;

6 s% H' \' C& H f) t* i5 s

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

- l0 v. B% \1 M( y$ k& E5 A

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

: W- U6 }3 {# c

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

7 J, L3 Q# W5 @3 ?: }1 ?

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

1 U, t+ o$ I0 z7 L) I) ?% R( G

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

; v% j1 m4 M1 n9 k& w

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

! f6 @! Y6 ]- ?# M

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

! @; `) S: M. z' e& s# E' x# L

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

* P0 Z) ~' q; J

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

6 [7 c, M0 \- j7 f! H5 u

}

' }& f0 S2 V' V8 b. K0 V) \* B& W

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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