简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
7 T# L# v* E! R#include &lt;vcl.h&gt;
; e- @, N) X3 r" \#pragma hdrstop</P>
  H0 y4 {3 w5 H! g' H) a<>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
' y; g  R1 k2 U; t* r#pragma resource "*.dfm"
TForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
. O; ~, a' I  @1 H    : TForm(Owner)
{
    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
1 a1 e! R) z( }7 G* F) m; w; ?7 o}
//---------------------------------------------------------------------------
: S% i: r  e; w% _9 G$ C& uvoid __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
    Width += 2;                     </P>
% U9 _* q: F, C" B<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
* ?2 E$ M4 {# s/ y" K6 t9 L}
$ Z' w+ |9 N3 J7 H* H//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
0 G! a  A1 F. x2 b0 a% B      TRect &amp;ARect, bool Selected)
{
    ACanvas-&gt;Draw(0, 0, bmp);               
}
6 H$ C, K2 C+ H1 X' u//---------------------------------------------------------------------------
: v9 g  E* B  |" t4 p! Avoid __fastcall TForm1::FormDestroy(TObject *Sender)
  b3 _3 k: D" ?% W/ L{
    delete bmp;                           
) B6 o- @# l% z0 [8 d' A& a# ?) E}
//---------------------------------------------------------------------------</P>