简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
  Q6 k9 B, X5 n#pragma hdrstop</P>
<>#include "Unit1.h"
, ]9 R) q9 O  }8 [1 ^//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
9 e/ B: C' n9 c1 r/ |) R' g    : TForm(Owner)
{
: F+ h2 Z7 D' N) N2 S& w' B& g; w    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
& i- s9 ^) [  x! o  u4 N' H0 c+ y1 H}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
9 [/ e& r/ H) Z. c1 [: z- L' p# H% T      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
5 B; \% l1 K" m7 j4 r    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
, w" @/ D) G4 g      TRect &amp;ARect, bool Selected)
" t  Y4 O! R$ p7 Y# p' q2 x{
9 D1 ~% a1 I1 e8 ]* X2 a; L1 s! i. U    ACanvas-&gt;Draw(0, 0, bmp);               
' E- G- U" o2 X0 L7 W% @* |}
$ K: I" K0 W/ U( ]! g4 U; ]//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
( m- @, O9 k! L3 @! U/ H{
    delete bmp;                           
! Z1 X( A! q' |2 J6 Q}
//---------------------------------------------------------------------------</P>