简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
9 @' {2 v& [1 x# j" `. ?" D. C#pragma hdrstop</P>
<>#include "Unit1.h"
//---------------------------------------------------------------------------
% D5 O- E7 b( M% ]! _& j  w! l$ A#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
) e5 q: D+ h( x//---------------------------------------------------------------------------
) N; l0 z/ Q" ]! [1 E5 e__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
2 p6 @2 d% A% Q! t8 ^* L" b}
//---------------------------------------------------------------------------
. i7 a. N# e2 l9 T* i, l/ Bvoid __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
4 i. C; Z4 X0 |5 m, Q& R: ?    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
* ]' p6 _- F0 K, \# E; i7 C5 q$ `7 n}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
. S. G4 B2 i1 z" o' }9 x& A1 }  H) p      TRect &amp;ARect, bool Selected)
9 ?/ o3 a7 u8 w! G& r: g{
    ACanvas-&gt;Draw(0, 0, bmp);               
}
//---------------------------------------------------------------------------
/ G" {8 Y( Y+ lvoid __fastcall TForm1::FormDestroy(TObject *Sender)
5 P5 p1 }0 T( L" i6 y{
    delete bmp;                           
% E" k5 ^. M9 P/ K}
5 E0 }' p  r" W& v( @4 v8 R/ t//---------------------------------------------------------------------------</P>