简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
1 H* T' `" q! j7 ^3 |0 K2 i# P% T#include &lt;vcl.h&gt;
" k! Z  q" D) F#pragma hdrstop</P>
<>#include "Unit1.h"
//---------------------------------------------------------------------------
* V' C* B! D8 ]* u% N#pragma package(smart_init)
7 w- A. l, ?! [7 v#pragma resource "*.dfm"
TForm1 *Form1;</P>
5 J8 i- u. i$ X6 x2 |$ l* Q- o<>Graphics::TBitmap *bmp;                     
& @" A6 O8 \0 R' Q) b0 Q8 O3 q//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
& n: o  Q$ w- t    : TForm(Owner)
& N% S( r) q5 B7 b/ C{
    bmp = new Graphics::TBitmap;           
0 I3 @6 j* S9 R    bmp-&gt;LoadFromFile("Bar.bmp");         
}
//---------------------------------------------------------------------------
' K- h: `9 ]  V! b2 @( c& w5 ^void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
    Width += 2;                     </P>
; }' |" @: e/ S5 |6 O# d<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
//---------------------------------------------------------------------------
, C- p7 x6 U5 H$ w9 Jvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
7 y* H: v: Q/ H+ s      TRect &amp;ARect, bool Selected)
2 r, n. w& d& k) R0 `) o4 _$ S" X{
( [5 T2 R7 I  ~* P  S    ACanvas-&gt;Draw(0, 0, bmp);               
: p  a) u4 H, F  d4 `( E+ I+ {5 p}
//---------------------------------------------------------------------------
* k% B" T( N) P1 Zvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete bmp;                           
4 h- e  h7 g, f}
//---------------------------------------------------------------------------</P>