简单自画菜单效果

kmusttywyc

<>//---------------------------------------------------------------------------
#include &lt;vcl.h&gt;
4 K# e' w. E; p! l8 W#pragma hdrstop</P>
. B$ M) g0 X$ J5 W' r+ l/ T<>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;</P>
+ C4 v( {$ A8 q. V<>Graphics::TBitmap *bmp;                     
//---------------------------------------------------------------------------
5 O9 t/ @5 x0 v  t. c7 j__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    bmp = new Graphics::TBitmap;           
    bmp-&gt;LoadFromFile("Bar.bmp");         
% ?$ S3 f4 o, T$ N8 R* R! l. O* t}
, }+ k. ]7 ~- Z  K  x: i% Q' W% Y$ i//---------------------------------------------------------------------------
- }  ?! n4 w4 A7 Zvoid __fastcall TForm1::BarItemMeasureItem(TObject *Sender,
% V  r) x. s9 {7 k0 e, z" w" `0 w      TCanvas *ACanvas, int &amp;Width, int &amp;Height)
9 V% t1 P9 @5 P0 ]/ S: B{
    Width += 2;                     </P>
<>  Height *= BarItem-&gtarent-&gt;Count - 1;   
}
4 M  Q! r/ Q1 d) g//---------------------------------------------------------------------------
& ^% y; l/ }; d" C' N7 t# fvoid __fastcall TForm1::BarItemDrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &amp;ARect, bool Selected)
! P8 w+ B7 C4 [& a4 c{
    ACanvas-&gt;Draw(0, 0, bmp);               
. s, {, S: _3 B8 n% ]! n}
//---------------------------------------------------------------------------
" _8 U; H6 l+ c. dvoid __fastcall TForm1::FormDestroy(TObject *Sender)
$ \& c& f1 K/ k5 ], F! |{
8 O1 x4 J/ P* s3 x2 ?. Z0 r/ u( G    delete bmp;                           
}
8 u# {4 b; \# s//---------------------------------------------------------------------------</P>