如何自画菜单?

韩冰

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

1 O- C' I5 D8 J! G3 z, c0 O. M) x6 _

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

0 H' n) B( ~& G# _

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

+ J/ B+ t& O7 G7 X: ]

//头文件

% R0 w9 _: ^/ `' K

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

#ifndef TestMenuH

#define TestMenuH

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

#include Classes.hpp

#include Controls.hpp

#include StdCtrls.hpp

8 f0 n* a+ e k

#include Forms.hpp

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

7 B3 u7 x& v0 [% @: {% `

; J8 [# A, ~; P, y& T3 j

class TForm1 : public TForm

/ k) @" `$ d/ O0 ?

{

__published: // IDE-managed Components

$ \9 _9 |3 k/ p# l

TMainMenu *MainMenu1;

% W! B, z. l* t% t8 J6 s+ S: D" |% A

TMenuItem *aaa1;

TMenuItem *aaaaaaaaa1;

TMenuItem *ccc1;

) g0 H& J- v- @! T# C

TMenuItem *ddd1;

% i" ^* u% P3 p% B

TMenuItem *eee1;

) H8 g. \6 F6 _" H9 q" y, T! h

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

% z$ h3 |, z6 w5 G

TMenuItem *dddddddd1;

) T7 Z8 u' Z9 H2 a

void __fastcall FormCreate(TObject *Sender);

% V4 n% G9 n5 A, u. O' }) W

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

! D' R# v5 \2 q# p7 Q$ s5 b2 B e7 u$ \

protected :

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

0 T! i- Y* S, `$ t! h7 E& j- O

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

public: // User declarations

__fastcall TForm1(TComponent* Owner);

BEGIN_MESSAGE_MAP//添加消息映射

' E4 C+ d3 \7 N* w3 V6 h

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

END_MESSAGE_MAP(TForm);

};

, l) ^' c' k. E, e) F$ @( F

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

extern PACKAGE TForm1 *Form1;

! B& n% C* O" W( S/ p: N

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

#endif

9 {/ t: g- p' j3 k

% j5 q) K% k! s8 _8 D) v

//实现文件

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

#include vcl.h

#pragma hdrstop

* ?8 \6 N# d3 B( _* `; @: ]

#include TestMenu.h

" L' `$ }% r& |8 `/ `* i7 Q

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

#pragma package(smart_init)

! Q2 s3 U# \* w% \) j& Y+ u; h

#pragma resource *.dfm

8 I) \7 r7 t/ R$ j$ r

TForm1 *Form1;

4 n3 {0 {/ v8 n4 v7 s& f+ C9 a: [

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

__fastcall TForm1::TForm1(TComponent* Owner)

8 i: O$ r, h" f S0 N# Z) E

: TForm(Owner)

; C; h: r1 B2 n1 A3 B3 Y( J' f

{

}

" X& `& g! A. T4 B$ a, l

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

) ^& H1 |0 @5 k! j1 r) R8 l; Y

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

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

- E% H. M+ S+ n; O0 q, `

{

' f+ w# t9 O* R& Y

MENUITEMINFO mii=

{

/ p8 K# f* T* P. d, k3 \

sizeof(MENUITEMINFO),

! r$ f7 v; H* e7 A4 X

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

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

* c/ A- V% k" d! j6 c

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

0,

0,

6 B6 a( }$ g/ `& R' ^/ N

};

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

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

+ ` i: s" a" Q* K8 k; E; K

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

Modify(pMenuItem-Items);

, ~% x5 l3 M# Z2 W& G" {

}

2 E3 [! Q: k9 A7 h9 j# ~) D3 V' a

9 I; C3 v' d- d6 b! j

}

( p5 N* y- c* a% p& f2 m

void __fastcall TForm1::FormCreate(TObject *Sender)

6 \6 X7 \8 p) T7 \% T2 h( |! w

{

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

{

: J3 g# u4 w( q @% c

Modify(MainMenu1-Items-Items);

}

% f' C0 ?- F" _3 q6 E8 S/ `3 Y/ u! J

DrawMenuBar(Handle);

}

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

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

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

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

* k4 O2 ~3 F- S- ^/ d% g

Msg.MeasureItemStruct-itemHeight = 20;

}

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

( W; s! H2 C) P* y

{//画出菜单

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

) w. B2 z4 B8 G! I& H; q' w6 g

TCanvas *pCanvas=new TCanvas;

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

( Q2 `1 h$ y9 S

r1.right+=1;

2 U0 b' g. s# Z

r1.bottom+=1;

& e$ B [3 F# H, ]# U

r1.top-=1;

r1.left-=1;

pCanvas-FillRect(r);

5 y- A; P$ M5 j) P# V

::SetBkMode(pCanvas-Handle,TRANSPARENT);

' _. o' w( f' M% l- w% {

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

r.right-=1;

( ^' D7 v9 u) H4 e8 `7 w& f! F. x

r.bottom-=1;

3 F* ]0 M" a( U" l$ X1 `! d; G' V

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

: k7 u7 A x. H* _& M

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

5 w% M Z! C7 Q9 f

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

- z7 E" b" R8 a R8 \" P. z- @

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

& {5 ? J- }- L( p3 b" a

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

6 W. ~2 b$ ~- q0 Y, g

}

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

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