简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
- P+ T" K% @. t# U2 v! e#pragma hdrstop</P>
<>#include "Unit1.h"
//---------------------------------------------------------------------------
9 g1 z! ?0 W' B. J/ ^9 b! i#pragma package(smart_init)
4 B/ Y* X) S. J. M#pragma resource "*.dfm"
% B% i& H: C" Q+ d0 v) W+ T1 `TForm1 *Form1;</P>
1 l; U' m& d  W9 L2 R+ d. J<>Graphics::TBitmap *bmp;                     
# F8 G. X) ^# Y7 G4 F/ g  }//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    bmp = new Graphics::TBitmap;           
  t0 }3 U+ O' n3 S! y    bmp-&gt;LoadFromFile("Bar.bmp");         
, r( S5 Y# o3 J3 n) d/ U}
" J3 S" y# l/ ?' `//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
: B' j9 n5 g* R5 g* k. M' k      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
! ?5 f/ Q6 N( q: \: B& U. P{
" M' e0 H3 q9 {8 R7 h  G4 \    Width += 2;                     </P>
$ W1 K9 o, D+ \% C0 d<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
7 L7 H2 \0 i0 z- Z$ D4 U- L}
//---------------------------------------------------------------------------
9 R6 Z" R; V0 yvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
) M3 c" \+ }0 K# ^  a& o{
/ ^3 W6 s; y! N' j    ACanvas-&gt;Draw(0, 0, bmp);               
}
4 {1 r- {) Q  z3 D3 @" h//---------------------------------------------------------------------------
8 H9 Y; a- I, S9 }! U: lvoid __fastcall TForm1::FormDestroy(TObject *Sender)
# o5 K1 N! P! \* Q{
    delete bmp;                           
}
//---------------------------------------------------------------------------</P>