简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
% f1 ^/ V- g% O& o#pragma hdrstop</P>
  h( [/ Q  B0 W9 q7 I+ r) m4 m1 b<>#include "Unit1.h"
  [$ H8 @$ ~1 x/ e//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
4 B0 d' z2 d$ j* WTForm1 *Form1;</P>
<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
7 j# l  ?) V+ s5 H4 w4 ~! ~/ h__fastcall TForm1::TForm1(TComponent* Owner)
' e6 r+ z& ?# I7 b    : TForm(Owner)
{
    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
# J/ v+ E# T- y) Z      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
{
' }) Y% {5 X( k" Y5 a% ]    Width += 2;                     </P>
% A1 i5 C3 g! _! Y" M* t2 z5 r<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
+ E' _9 q' o6 g6 N& k. t) b}
//---------------------------------------------------------------------------
2 C8 r. w3 W0 G* pvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
{
( F- q0 q% ]+ K- T! f' H    ACanvas-&gt;Draw(0, 0, bmp);               
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
1 X4 `0 W, d4 Y, o9 F{
    delete bmp;                           
3 l1 s& \4 q. p( {- X}
//---------------------------------------------------------------------------</P>