简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
3 A$ Y6 Y9 {1 b  h#include &lt;vcl.h&gt;
  ]. C; B. m1 D" R7 z* R8 K3 S0 C9 T#pragma hdrstop</P>
5 ]4 O9 ]) i8 J! c0 \<>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
  Y* o  m3 J: J' n8 O$ f. W#pragma resource "*.dfm"
8 O- g& ^: A9 p* d0 eTForm1 *Form1;</P>
  n; {: q7 R) U5 Y! z<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
, A0 U$ R7 U+ M$ n" R- G% E__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    bmp = new Graphics::TBitmap;           
9 N3 ?* |* d0 q( P) Z  |    bmp-&gt;LoadFromFile("Bar.bmp");         
}
( L& j  w! C. d$ k" s+ \//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
# }5 b* u: O6 t' I+ [* Y{
7 M! L  C8 V; S6 T6 x3 {    Width += 2;                     </P>
  E( G. v) m" B' L/ T; j  p<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
4 Q' J6 Y; b6 c: d" |, d//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
: n% d: N. z1 v- ?" {, }{
' w% B3 g) C! S  y( q8 E- {    ACanvas-&gt;Draw(0, 0, bmp);               
2 Y8 n/ p# a+ B. k+ D( ]2 K3 C}
0 y( R% f3 Z. S7 u, s* F3 C//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete bmp;                           
}
//---------------------------------------------------------------------------</P>