简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
$ S4 M3 [  R" x/ B" [. c3 W( V#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
' B4 u7 u: Y5 P5 N//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
# s7 v0 g0 |! b' U9 O: L    : TForm(Owner)
5 j! ?+ }$ C, n, |/ a{
    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
}
//---------------------------------------------------------------------------
& ~1 n; I5 H1 R& S. Y. {7 y/ ]void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
( m0 ?- Q: d( T! `# L' ^{
    Width += 2;                     </P>
' |1 b8 t: g# J- q3 P1 A! J$ s<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
9 H" O$ ]3 H( C; v: z' Z}
//---------------------------------------------------------------------------
2 C9 B/ Y( p" h. d4 {void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
{
- z$ Y' W- i' E    ACanvas-&gt;Draw(0, 0, bmp);               
+ H5 \7 z$ {( g}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete bmp;                           
}
& ]" h1 o* C" i$ U. _+ R8 J3 M//---------------------------------------------------------------------------</P>