简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
1 h: E9 y- E4 J' u6 E#pragma hdrstop</P>
<>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
! a: a9 C3 o* q" ~. g4 g#pragma resource "*.dfm"
. H# c6 N$ B2 Y0 F. _$ WTForm1 *Form1;</P>
. V9 o) r; g& R& C' Q8 `<>Graphics::TBitmap *bmp;                     
3 @3 e  T; E, c. S5 m" a//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
+ t/ u/ L5 F) M7 N    : TForm(Owner)
) y0 b3 ]8 F) Y3 J$ J' e{
% J5 I/ q7 u7 m, G4 e9 O    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
}
, f' J* A5 e6 J" Z' @. A0 |//---------------------------------------------------------------------------
/ p9 @2 d0 o' U( n0 fvoid __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
' ^5 [% g0 X6 V5 U) l6 g. p6 G0 z    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
//---------------------------------------------------------------------------
6 c  h  z9 l# u5 M: qvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
/ s/ E, Y6 V# y1 {      TRect &amp;ARect, bool Selected)
{
    ACanvas-&gt;Draw(0, 0, bmp);               
$ c! v8 x4 i" x# o. f}
. R0 a8 r2 j% [' v8 V//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete bmp;                           
}
6 m$ ~( c& [' C4 R0 ]% O1 p//---------------------------------------------------------------------------</P>