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

类别:编程语言 点击:0 评论:0 推荐:


  用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像素)

    

本文地址:http://com.8s8s.com/it/it29536.htm