简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
+ F" p- W5 o8 Y$ |: Q#pragma hdrstop</P>
<>#include "Unit1.h"
//---------------------------------------------------------------------------
: H1 E: y) F# p! H( Q#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;</P>
/ K+ O3 e! z; }<>Graphics::TBitmap *bmp;                     
2 R, D4 m, ~7 b: Q- d//---------------------------------------------------------------------------
4 x5 e: D- H: ^( o- A7 r8 M( v__fastcall TForm1::TForm1(TComponent* Owner)
7 H# @+ Z# a0 Y. L    : TForm(Owner)
- J9 _4 v: U# t1 ?3 p  O{
    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
! I( o. M6 P# I! |' c4 K      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
  q0 [% \6 k+ r, ]2 }. ]* Z}
1 g0 _6 a7 \; S0 g//---------------------------------------------------------------------------
" M' Z8 A% @9 [8 K4 w$ W0 J6 Xvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
! f, I- _+ I* Q3 y; z4 J8 {1 h      TRect &amp;ARect, bool Selected)
6 U4 E2 B7 u; f& y{
5 k9 z7 q2 m# R' T7 {& r3 b2 q+ I    ACanvas-&gt;Draw(0, 0, bmp);               
$ [& [6 I+ K5 }9 p  Y' R}
! h4 L# E9 D9 j; e0 g( H  }: W$ X//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete bmp;                           
/ z* p  t3 h, ]( m, s- c}
//---------------------------------------------------------------------------</P>