简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
//---------------------------------------------------------------------------
; h$ x) V& |0 h3 x& v1 v#pragma package(smart_init)
#pragma resource "*.dfm"
8 i5 F0 N& b/ a8 _3 {' f7 {; qTForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
' i7 [$ Y* n! W//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
! m- y0 M# d$ L. w2 j{
  ~- V3 a2 {0 k4 u4 y    bmp = new Graphics::TBitmap;           
& }3 P  u+ g. N0 z# e0 ]    bmp-&gt;LoadFromFile("Bar.bmp");         
3 [, r# a8 t$ o, P- n) K8 E& ^: n}
//---------------------------------------------------------------------------
4 i' ~) s$ o( {6 O( ]void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
0 F- h8 m' @+ X. H3 Y' ?      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
+ }- k4 r: _4 l3 P( i    Width += 2;                     </P>
: C+ {9 [6 ?4 T8 w<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
- p+ \1 R) T/ R, x" c      TRect &amp;ARect, bool Selected)
4 q+ ~3 c6 G% \. v5 Z{
9 ]* o% R. a4 w- Y! V8 O/ u    ACanvas-&gt;Draw(0, 0, bmp);               
9 C) `; `. h2 Z% R- C1 D}
; T9 N0 f" _8 W- F) y* D# }! H//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete bmp;                           
8 d: Q4 o5 S( T/ n}
//---------------------------------------------------------------------------</P>