简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
#pragma hdrstop</P>
! o: W4 W% E. r/ l0 Q& q<>#include "Unit1.h"
; E4 L' G. B- v//---------------------------------------------------------------------------
; b" ~3 ~' b7 U: ~% S0 c" ^#pragma package(smart_init)
7 _' ]! d) t4 Q3 ?#pragma resource "*.dfm"
TForm1 *Form1;</P>
; R0 Z5 {) T5 u6 d<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
1 A* O4 r" z+ I! H! I! y! K" f    : TForm(Owner)
8 l/ N2 J0 d4 D# c" ~, Z+ |{
2 w# e" j; R* b# j: F" B    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
* l0 y: _  t" C}
1 H4 `4 c4 u' g' ~2 ?//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
6 J) o( q! n, d{
* i  h' ]) ~, \7 c: C5 b: s& m; @    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
6 n8 ]7 q) g6 r8 s9 t}
//---------------------------------------------------------------------------
' m& O  q8 F; Ovoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
, T1 b. S* f# p0 o      TRect &amp;ARect, bool Selected)
{
/ _- L) O) x$ i: L: q+ Q! }    ACanvas-&gt;Draw(0, 0, bmp);               
}
& D- z) D+ ^0 `% D' x4 U3 S//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
: w* J9 D0 b. G" {    delete bmp;                           
1 Z$ {% ]+ \9 M' S+ l7 j}
//---------------------------------------------------------------------------</P>