简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
; @- U- |5 d5 x6 e: v#include &lt;vcl.h&gt;
#pragma hdrstop</P>
# Y6 o9 ?# Q7 N; u, n& P; O<>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
0 E$ j7 n( L/ G4 ~# \" W//---------------------------------------------------------------------------
1 a9 H/ _# E; s6 x' P& V__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
0 n1 f3 H3 w2 }' M; S  N/ q* b7 t/ A    bmp = new Graphics::TBitmap;           
/ A+ @2 L, c7 }0 B3 E    bmp-&gt;LoadFromFile("Bar.bmp");         
* u9 `! B" s: u( c- z}
# |1 O) G: `; [- a//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
    Width += 2;                     </P>
1 T  b& t+ N) e<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
6 M+ e. C4 ~& ^* B1 ^{
    ACanvas-&gt;Draw(0, 0, bmp);               
9 ^; u5 _2 ~0 ]* [2 t- p$ H}
//---------------------------------------------------------------------------
. v: `6 m9 U8 Dvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete bmp;                           
8 V2 b* Z, ]  Y, H}
) z* Z% h- u! W: m$ x//---------------------------------------------------------------------------</P>