简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
//---------------------------------------------------------------------------
9 Z" @# v. f7 f9 h#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
: l5 k# m; c2 y* q{
% c& w0 o' X; W" F7 Y) @    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
}
//---------------------------------------------------------------------------
* U% ]) {% Y9 m; O* J* Zvoid __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
- f" S& `2 L9 A3 o, h" K    Width += 2;                     </P>
3 x2 E0 H. s0 F3 k, X6 V( |. \<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
; I/ p2 U8 u0 q* f+ a. i" t) ?4 Z}
' d1 j2 A' U  ^) x/ R; {//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
& ~3 @$ U' s8 P+ p6 R* D* q      TRect &amp;ARect, bool Selected)
{
5 \) b9 H& |* C' F: g; e) k    ACanvas-&gt;Draw(0, 0, bmp);               
}
' V; n2 v: g; H* _//---------------------------------------------------------------------------
& B+ Y" w" l* W: F0 S! j5 m. Tvoid __fastcall TForm1::FormDestroy(TObject *Sender)
- B. `3 F" r3 q{
    delete bmp;                           
" C+ A; T1 d. U}
//---------------------------------------------------------------------------</P>