简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
#pragma hdrstop</P>
* z" L2 k# A% n- M- t<>#include "Unit1.h"
9 H0 b' d7 m) b8 t4 j//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
9 J/ `% }* ~- i3 cTForm1 *Form1;</P>
5 y8 u) f1 P$ Z- I6 V8 @. j<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
. V4 N& Y4 r4 t, {8 y  y9 A- o7 n__fastcall TForm1::TForm1(TComponent* Owner)
6 D0 x! T/ F, E7 L9 W' z" L    : TForm(Owner)
3 g+ W* y9 {' [2 W% z{
    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
}
//---------------------------------------------------------------------------
7 W. s0 N9 l, a3 B4 Avoid __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
0 \, R: u+ Y" Z4 w4 ?# A, Y{
. ^5 U  ]% n' Z% O8 l    Width += 2;                     </P>
- ?! x+ M  n2 v0 G4 K# G7 L: A8 E<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
) X. A$ t& U  g}
//---------------------------------------------------------------------------
- n7 l! W( `) V- uvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
  Q4 s4 \! o% o) P2 h{
    ACanvas-&gt;Draw(0, 0, bmp);               
  W# c% E) R9 O2 q1 M! A}
5 c4 _7 f# {( j- r- z//---------------------------------------------------------------------------
9 |/ N" r9 K6 s: K/ c+ V5 Y$ I4 ?void __fastcall TForm1::FormDestroy(TObject *Sender)
8 I# C, T% T& g) _{
4 t1 l1 M% P, ?9 m2 ^    delete bmp;                           
. R- A) t/ Q, d' d; \}
//---------------------------------------------------------------------------</P>