简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
7 A0 `7 O2 z: O" G1 w#include &lt;vcl.h&gt;
4 `# M3 s# ]: c6 I#pragma hdrstop</P>
' x# ]  H  j3 D4 Q5 e6 K% F<>#include "Unit1.h"
//---------------------------------------------------------------------------
2 k, ^2 _) D' U#pragma package(smart_init)
. P8 m* X5 c; W5 ^#pragma resource "*.dfm"
TForm1 *Form1;</P>
9 G; ~0 G9 X) o2 F5 G( m8 [<>Graphics::TBitmap *bmp;                     
/ v/ M% Z: S) l) h4 Y" i5 `//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
( J+ q" l9 R8 M' W- k{
/ g0 z! ?; }/ [: F* P) c    bmp = new Graphics::TBitmap;           
+ k! ^2 X+ R5 D$ K/ a    bmp-&gt;LoadFromFile("Bar.bmp");         
+ w$ G( R0 ]/ R4 l4 w! n' H}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
+ `0 j. Q( @( s5 h8 D" U      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
0 O8 E& c, T& Z/ L* w+ c& U//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
& E7 M* s& i+ H/ D$ F      TRect &amp;ARect, bool Selected)
{
    ACanvas-&gt;Draw(0, 0, bmp);               
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
. f6 r% j8 a8 r! E* g. B    delete bmp;                           
}
% _/ n2 Y5 Y& q. i, ^//---------------------------------------------------------------------------</P>