简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
#pragma hdrstop</P>
: T4 f+ a( A8 q- `4 h<>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
9 h* D9 z% n) I+ Z2 j! S+ ETForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
, a8 z/ B. {6 X  E5 C, k/ \//---------------------------------------------------------------------------
* H- k0 M1 v7 R/ S  n' H__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
. c; E9 e# O5 k* p9 H    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
" i6 E" I3 ?' y7 V{
    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
, g" \4 {# n) S) a7 F* l1 I}
//---------------------------------------------------------------------------
1 i3 S7 M3 ?$ Y" F' V' {) t4 P! hvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
{
    ACanvas-&gt;Draw(0, 0, bmp);               
- ]  a5 M, D$ s6 ~. O9 x}
4 a. U; e) f6 J* N//---------------------------------------------------------------------------
3 g! s: e0 P: t/ n2 A- f/ Lvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete bmp;                           
8 v1 p( g, Q- h}
//---------------------------------------------------------------------------</P>