简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
#pragma hdrstop</P>
; n! ~+ o& u0 |4 D6 @0 r9 s! ?<>#include "Unit1.h"
//---------------------------------------------------------------------------
& W( q- ?. _8 I  C2 `5 Z1 W/ |( ^#pragma package(smart_init)
#pragma resource "*.dfm"
1 A' |% B2 j# q9 c. J+ v- ]TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
9 k' D$ \6 G9 |) q__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
9 M& w& m& G( C+ g6 g" D    bmp = new Graphics::TBitmap;           
) M; a+ n, Q5 N5 g. d- D2 [    bmp-&gt;LoadFromFile("Bar.bmp");         
+ e  Z) g$ z) F2 l% ~6 n0 ~}
' m+ I! k$ h/ z* s! S8 e3 u//---------------------------------------------------------------------------
- ?8 }! C  r. y( P# Wvoid __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
& l; N- u. v/ F& h  T}
7 g) q3 ^0 L  h! }6 E1 o5 U//---------------------------------------------------------------------------
: P5 d9 a& G6 n/ R( z  o3 kvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
6 Q  q1 c! P+ l      TRect &amp;ARect, bool Selected)
{
    ACanvas-&gt;Draw(0, 0, bmp);               
}
; a2 P# i5 @' _7 L" p//---------------------------------------------------------------------------
3 W; ~2 i6 h' c3 Q' w. Uvoid __fastcall TForm1::FormDestroy(TObject *Sender)
( r: [) o! P/ S4 ~  a+ N& A{
    delete bmp;                           
}
% e. m' O: |  O9 t//---------------------------------------------------------------------------</P>