简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
#pragma hdrstop</P>
! Z3 s, }6 S% v) t, x<>#include "Unit1.h"
: e, u% r: N9 a7 M//---------------------------------------------------------------------------
6 U, l8 n: H- u4 T: ?: h# N#pragma package(smart_init)
#pragma resource "*.dfm"
3 ~6 D- ~3 i4 D+ JTForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
; z- V  A8 Q) A! Z3 f3 X5 l{
  J/ ^& d) L: l" n: U9 N. ?    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
    Width += 2;                     </P>
; o) S" {- ?, G& U/ B<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
; N3 W, |9 j" U: t" x) m; J}
//---------------------------------------------------------------------------
2 L$ p. K' j5 q7 f2 Tvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
3 p: ~: T2 Z9 j8 n1 K- R( [{
; K/ a" M7 W3 o! U9 G; ?    ACanvas-&gt;Draw(0, 0, bmp);               
7 a; T5 t$ `" K4 O' Q4 X6 l8 U}
0 b4 t8 b: ~8 d& i: ~//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete bmp;                           
}
//---------------------------------------------------------------------------</P>