如何自画菜单?

韩冰

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

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

! p3 r8 r5 o/ @- X ?% I8 E

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

//头文件

( I4 t& r6 q/ H$ f3 O' J6 F0 x

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

#ifndef TestMenuH

#define TestMenuH

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

#include Classes.hpp

#include Controls.hpp

0 h" K/ ^7 J5 D& z" H1 b/ L

#include StdCtrls.hpp

( _) n' {/ W/ e6 e$ ]- F! h

#include Forms.hpp

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

- ]: H) u5 \" m5 F# H* i5 T* b9 v

- W ]7 g; l* u# c+ ?, G9 l1 C

class TForm1 : public TForm

{

__published: // IDE-managed Components

TMainMenu *MainMenu1;

TMenuItem *aaa1;

/ M" |7 R. P Y7 \% D

TMenuItem *aaaaaaaaa1;

; v' o/ u6 ?( F; o. q8 X* Z5 e

TMenuItem *ccc1;

TMenuItem *ddd1;

8 a$ m7 F7 E: I5 l0 p1 f8 r

TMenuItem *eee1;

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

9 h, W2 p- u$ H- f/ {/ C

TMenuItem *dddddddd1;

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

) V9 R% C/ C4 R+ j" B( @% a* G

void __fastcall Modify(TMenuItem *pMenuItem);

* s8 Z, j) ]0 X' T

protected :

5 ?8 t8 E% {9 m9 ]& c3 w; T# J

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

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

public: // User declarations

__fastcall TForm1(TComponent* Owner);

7 N, D' U3 r6 B) u6 h' P+ O% D

BEGIN_MESSAGE_MAP//添加消息映射

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

1 b, E1 y( @& F. \' }. {

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

END_MESSAGE_MAP(TForm);

/ s9 S5 j% y1 O+ S" h1 l; r- u

};

) W" R; {0 ?4 a1 O \

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

9 b K* m/ t, R. X- j+ }

extern PACKAGE TForm1 *Form1;

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

9 B% v# R! l l& k

#endif

7 F- Y* |' M4 i4 f- X

//实现文件

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

* p, x) N, q% ]. ~% m5 s

#include vcl.h

#pragma hdrstop

" o1 A+ O5 W# ^5 g% i- K

#include TestMenu.h

q# @! e2 Q: t" H5 g0 T: b( D) L

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

#pragma package(smart_init)

: Z! S% r6 m ?6 ~0 e' ?

#pragma resource *.dfm

5 @: ~2 l! x7 u K+ _- V2 m

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

' M r6 e. {$ ~6 P" ]* P: P

: TForm(Owner)

{

3 \. J0 T% k8 D+ o; h

}

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

8 r- |8 g# |' H

; N, m" }# Z' y

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

1 m+ a, V8 S7 X; {

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

{

MENUITEMINFO mii=

{

5 h+ `% h( R7 N

sizeof(MENUITEMINFO),

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

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

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

( r) p3 W- @0 J& E8 D! a4 M

0,

) D) b: X% q" M8 a% d

0,

9 _" i* Y- O3 r

};

& E' x" _+ @8 n6 t

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

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

2 L3 a; L$ {/ E1 k

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

Modify(pMenuItem-Items);

}

4 @# g) y) f; y: e1 E9 c

}

: e( {) c' y: X) e) B8 q/ [

void __fastcall TForm1::FormCreate(TObject *Sender)

/ D/ `1 {/ v" W5 s( ^* v0 O

{

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

1 G; M5 q5 i+ i& [6 \

{

# c, h$ |1 L* D5 |1 w8 O+ m

Modify(MainMenu1-Items-Items);

}

DrawMenuBar(Handle);

}

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

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

1 t/ f7 P! ?6 W$ H0 J

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

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

Msg.MeasureItemStruct-itemHeight = 20;

# j/ F) A, M9 o/ C

}

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

2 v9 g( A! n5 X7 P4 X- D( ~" A- I

{//画出菜单

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

2 e, ]' u u7 h! ?& X7 P% x2 {

TCanvas *pCanvas=new TCanvas;

" T7 [9 L8 ?2 O* W* L

pCanvas-Handle=Msg.DrawItemStruct-hDC;

7 a* S8 J- {) ]1 p

RECT r=Msg.DrawItemStruct-rcItem;

4 |% Z! W( I$ o: r/ a0 ^; N

pCanvas-Brush-Color=clBtnFace;

( K6 n0 _- G" d+ X* r3 ?5 r

RECT r1=r;

* t6 g7 I f G* D/ E8 Q& D( N

r1.right+=1;

4 {* l2 K9 ?/ o( |7 h

r1.bottom+=1;

* l G7 V8 J4 C* r! {

r1.top-=1;

r1.left-=1;

1 ~! H. i4 S1 M/ _% B* [

pCanvas-FillRect(r);

" P* C) P+ s. [. g

::SetBkMode(pCanvas-Handle,TRANSPARENT);

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

r.right-=1;

r.bottom-=1;

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

% y# N% k( \6 S F6 r d2 c

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

9 a: O- u3 c! s& g% I8 H

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

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

* \$ d$ o2 ^- D* A

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

}

- K$ m# S( k3 D2 o' D) A+ S! ]

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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