利用c++builder制作仿Oicq菜单

作者:马明臣

目前一些前卫的软件都使用自画功能来美化程序的界面，比如QQ的菜单就是一例。他采用了仿windos开始界面，即左面显示一个位图，然后是每个菜单项前面加上一个漂亮的图标。当鼠标悬浮在每一个菜单项上时图标就凸出显示，而菜单项的文字部分则凹下去显示，非常漂亮。（效果如图1所示)
你是否也想在你的程序中制作出这样的菜单呢？那么就跟我一起来制作吧。
新建一工程文件，窗体单元以CoolMenu.cpp存盘，工程文件以CoolMenuPrj.bpr存盘
在对象浏览器中把窗体的Caption设为CoolMenu，Name属性设为CoolMenuForm,Menu属性设为CoolMenu。激活Standard组件页增加一个TMainMenu组件，设置name属性为CoolMenu,OwnerDdraw属性为true,images属性为MenuImage,再激活Win32组件页增加一个TImageList组件，设置name属性为MenuImage.双击该ImageList在其中添加如图1所示的9个图标文件（显示在子菜单前的图标）。双击CoolMenu菜单控件添加如图所示的子菜单。(分别为消息管理、BP机短讯、手机短讯、更改用户、注册向导、个人设定、系统参数、退出）并分别设置其imageIndex为0,1,2,3,4,5,6,7,8。

打开CoolMenu.h文件在其头部加入如下代码：
#include <Graphics.hpp>

在private:// User declarations下加入如下代码：
 Graphics::TBitmap *Bmp1;
 void __fastcall DrawBevel(TRect &rect, TCanvas *Canvas, bool bBevel);

打开CoolMenu.cpp文件添加一个自定义函数如下：

void __fastcall TCoolMenuForm::DrawBevel(TRect &rect, TCanvas *Canvas, bool bBevel)
{
   TColor c1, c2;
   if (bBevel == true)
   {
      c1 = clWhite;
      c2 = clGray;
   }
   else
   {
      c1 = clGray;
      c2 = clWhite;
   }
   Canvas->Pen->Color = c1;
   Canvas->MoveTo(rect.Left, rect.Top);
   Canvas->LineTo(rect.Right, rect.Top);
   Canvas->MoveTo(rect.Left, rect.Top);
   Canvas->LineTo(rect.Left, rect.Bottom);
   Canvas->Pen->Color = c2;
   Canvas->MoveTo(rect.Right, rect.Bottom);
   Canvas->LineTo(rect.Left, rect.Bottom);
   Canvas->MoveTo(rect.Right, rect.Bottom);
   Canvas->LineTo(rect.Right, rect.Top);
}

然后激活窗口在其OnCreat事件过程中添加如下代码：
void __fastcall TCoolMenuForm::FormCreate(TObject *Sender)
{
   Bmp1 = new Graphics::TBitmap();
/*bmp1.bmp文件为菜单左边的位图文件。其大小为21＊190像素，该文件存放在当前程序目录中*/
   Bmp1->LoadFromFile( \".\\\\BMP1.bmp\");
}

接着激活窗口在其OnDestroy事件过程中添加如下代码：
void __fastcall TCoolMenuForm::FormDestroy(TObject *Sender)
{
   delete Bmp1;
}

紧接着激活\"消息管理\"子菜单在它在OnDrawItem事件过程中加入如下代码：
void __fastcall TCoolMenuForm::oicqDrawItem(TObject *Sender,
      TCanvas *ACanvas, TRect &ARect, bool Selected)
{
   AnsiString str;
   TMenuItem* Item = dynamic_cast<TMenuItem *>(Sender);

   if (Selected == true)
   {
      /*如果用户是选择了一个菜单项，那么则画两个Bevel矩形。一个是凸的，是用来向当中
      画位图用的，另一个是凹的，则为了向当中写文字用的*/
      ARect.Left = ARect.Left + 21;
      DrawBevel(Rect(ARect.Left + 1, ARect.Top + 1,
         ARect.Left + 18, ARect.Bottom - 1), ACanvas , true);
      DrawBevel(Rect(ARect.Left + 20, ARect.Top + 1,
         ARect.Right - 1, ARect.Bottom - 1), ACanvas, false);
   }
   else
   {
      //先向菜单项画位图。感觉象是开始菜单中左边那样的位图
      BitBlt(ACanvas->Handle, ARect.Left, ARect.Top, ARect.Right-ARect.Left,
         ARect.Bottom-ARect.Top, Bmp1->Canvas->Handle, ARect.Left, ARect.Top, SRCCOPY);
      ARect.Left = ARect.Left + 21;

      //以系统的背景色添充菜单中下面要画文字和位图的区域。
      //在光标通过某一菜单项时重绘菜单项
      ACanvas->Brush->Color = clBtnFace;
      ACanvas->FillRect(ARect);
      //由于菜单分割线没有选择状态，所以这里面不必为其考虑选择状态的画法.
   }

   ACanvas->Brush->Style = bsClear;
   str = Item->Caption;
   //判断菜单项是否为分割线

   if (str != \"-\")
   {
      //先画图标到先前画好的第一个矩形框内
      MenuImage->Draw(ACanvas, ARect.Left+2, ARect.Top+4, Item->ImageIndex, true);

      ARect.Left = ARect.Left + 24;