简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
1 D' M3 s6 i$ C) k, M  C4 m# A2 M#include &lt;vcl.h&gt;
; ?& i3 k0 ]4 d( [! x#pragma hdrstop</P>
) Q- D, h7 p0 c" J$ E( R8 b; q<>#include "Unit1.h"
' b( p+ b; i" ^8 p/ P//---------------------------------------------------------------------------
#pragma package(smart_init)
$ ~  [- R" M( C* |( n* [2 I$ P% D#pragma resource "*.dfm"
TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
2 W; _, L, K* K7 x__fastcall TForm1::TForm1(TComponent* Owner)
6 G/ ^  p% N- o  b    : TForm(Owner)
{
, y6 l0 S+ D, s. h5 p    bmp = new Graphics::TBitmap;           
/ `& q5 {; C: N    bmp-&gt;LoadFromFile("Bar.bmp");         
}
' c' |' s. r  S% f5 K" H; w//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
1 }0 g' F2 G$ G$ K. w7 r5 g- B      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
3 y" z, m8 b$ S# ]0 p    Width += 2;                     </P>
& L, C8 ?: N  f0 p- o2 c<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
- V! I2 j0 @  |1 A      TRect &amp;ARect, bool Selected)
{
    ACanvas-&gt;Draw(0, 0, bmp);               
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
- h- a$ D* f2 R{
" O5 y; r' b: U7 ~    delete bmp;                           
}
//---------------------------------------------------------------------------</P>