简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
0 g2 N& e1 u0 V* k6 s#pragma hdrstop</P>
<>#include "Unit1.h"
//---------------------------------------------------------------------------
8 J9 h8 n; q- @+ _2 t#pragma package(smart_init)
; K  r2 m$ i: c4 R* |#pragma resource "*.dfm"
TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
6 }# R# U/ T3 r! a* ~    : TForm(Owner)
, R, s( J  o+ t# O1 }{
    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
    Width += 2;                     </P>
/ k8 c7 z7 ]0 f) m  |$ r1 C+ [<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
0 S) o( G, Q% _5 {//---------------------------------------------------------------------------
9 W# q9 h" i. `1 ]# N0 Tvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
+ h' |- ^' x) b( y6 i  d7 c5 u* N$ A{
    ACanvas-&gt;Draw(0, 0, bmp);               
}
2 K0 ^4 C7 ~2 N; p4 Z' e//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
' i7 q# H% Q; U+ c& r{
; M  i- T) Q) S5 K' j& G    delete bmp;                           
% j# u: X; ~( M% ?) N: q}
4 W' L1 a4 P( s3 B//---------------------------------------------------------------------------</P>