简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
0 \% C/ ^& e7 d8 c5 V* C#include &lt;vcl.h&gt;
* m8 w7 X/ Q. S: R& p3 H& }1 S* G4 [#pragma hdrstop</P>
% c+ v) b( u' \<>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
& \1 h- }- w9 |% U1 E" ]TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
& R+ i6 M; q9 S: a//---------------------------------------------------------------------------
7 l/ o" x% m% W__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
4 m/ m% x& X+ S$ T5 L{
7 i& [. ~* s0 f: e  P8 z    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
5 s9 U: M& Q2 v9 U4 u# {  T/ V4 ?}
//---------------------------------------------------------------------------
$ [% b  ~2 o1 d7 \void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
3 [4 g7 I5 W+ Q      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
2 @7 A+ [; n0 H$ V9 j; E3 S{
    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
//---------------------------------------------------------------------------
+ F, q( {, _4 {" s( tvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
" c3 F1 j/ K0 D; r6 M0 O      TRect &amp;ARect, bool Selected)
( @0 f6 u7 E0 c( H{
    ACanvas-&gt;Draw(0, 0, bmp);               
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
$ G+ n9 Q3 j2 i' x{
! U, }5 f# o' y5 I4 K    delete bmp;                           
}
# }4 o: ~/ g& ^; i9 m//---------------------------------------------------------------------------</P>