用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;
ARect.Top = ARect.Top + 5;
ARect.Right = ARect.Right - 8;
ACanvas->Font->Color = clBlack;
//然后将文字和快捷键字符串画到上面画好的第二个矩形框内
DrawText(ACanvas->Handle, str.c_str(), str.Length(), &ARect, DT_LEFT);
str = ShortCutToText(Item->ShortCut);
DrawText(ACanvas->Handle, str.c_str(), str.Length(), &ARect, DT_RIGHT);
}
else
{
//如果当前要画的是菜单分割线的话，那么使用DrawBevel函数模拟画一个菜单分割线
DrawBevel(Rect(ARect.Left + 1, ARect.Top + 2, ARect.Right - 1,
ARect.Top + 3), ACanvas, false);
}
}
然后激活"消息管理"子菜单的OnMeasureItem事件过程中加入如下代码：
void __fastcall TCoolMenuForm::oicqMeasureItem(TObject *Sender,
TCanvas *ACanvas, int &Width, int &Height)
{
TMenuItem* Item = dynamic_cast<TMenuItem *>(Sender);
/*这个函数用来指定画模拟OICQ菜单时每个菜单项的宽和高.请将要画成模拟OICQ菜单的每个菜单项的OnMeasure事件都指定为它*/
Width = 140;
//此处判断是否为分割线，如果是线割线的话，那么将分割线的宽度置为5
if (Item->Caption == '-')
Height = 5;
else
Height = 22;
}
最后把几个子菜单的OnDrawItem事件过程都指向oicqDrawItem代码，把OnMeasureItem事件过程都指向oicqMeasureItem代码。
按F9运行一下，怎么样效果不错吧！（注：在程序当前目录中应有BMP1.bpm文件该文件为菜单左边的位图文件。其大小为21＊190像素）
