简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
( ?2 O$ `3 {* B, o& T$ j#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
//---------------------------------------------------------------------------
8 _* F1 Q/ G, v: I0 `4 [#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
1 G( R4 @$ k5 s& X1 ^" Z5 P) Z}
//---------------------------------------------------------------------------
8 u8 j% W( v+ Y. {3 p8 ovoid __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
, T$ Z9 o# Y; @6 O/ G, C" x      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
; I7 ?4 F" K: T. y    Width += 2;                     </P>
6 K0 ?$ }& m" |/ a- M1 }( z( Q<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
, }! e5 f9 _7 R2 H4 q: s2 o      TRect &amp;ARect, bool Selected)
{
# A( [- }( o0 T/ @5 N    ACanvas-&gt;Draw(0, 0, bmp);               
}
4 z- b1 M7 d7 ]/ l/ N//---------------------------------------------------------------------------
" z1 P5 e: s0 i6 L  cvoid __fastcall TForm1::FormDestroy(TObject *Sender)
2 `* v+ t0 \  o& N5 v$ K{
    delete bmp;                           
+ N) H2 Z6 h$ o  a8 z6 q; {( G, e$ o}
//---------------------------------------------------------------------------</P>