delphi像“开始”菜单一样漂亮的菜单项实例

http://www.isstudy.com/delphi/2695.html

 

delphi像“开始”菜单一样漂亮的菜单项实例

来源：原创  作者：小人物  录入时间：2009-10-14

内容导读： delphi像“开始”菜单一样漂亮的菜单项实例:Windows的开始菜单非常独特，在菜单的旁边有一条竖着的彩条，彩条中还写着文字。这种独特的菜单能够使程序的界面看起来更加漂亮。本例就

-

像“开始”菜单一样漂亮的菜单
实例说明
Windows的开始菜单非常独特，在菜单的旁边有一条竖着的彩条，彩条中还写着文字。这种独特的菜单能够使程序的界面看起来更加漂亮。本例就实现了这种菜单，运行本例弹出“我的菜单”。就会看到菜单的左边有一个蓝色的彩条，彩条上面还写着文字。例效果如图1.4所示。

图1.4像“开始”菜单一样漂亮的菜单
技术要点
当菜单的菜单项需要重绘时会触发OnAdvancedDrawItem事件，并且使用该事件的过程对菜单项进行重绘，但是主菜单的OwnerDraw属性为True时，该事件才会起作用。在OnAdvancedDrawItem事件处理过程中先将一幅大小合适的图片绘制到菜单的左面，然后将每个菜单的标题写到菜单对应的菜单项上，最后在左面图片上写入“我的菜单”4个字。向菜单上写入文字可以通过DrewText函数，该函数声明如下：
function DrewText（hDC：HDC；IpString：PChar；nCount:Integer;var IpRect:TRect；uFormat：UINT）：Integer；stdcall;
参数说明：
hDC   设备场景句柄。
Ipstring输出的文字。
nCount 输出文字的字数。
IpRect  输出文字的区域。
uFormat   文字输出的样式，器常用可以选值如表1.1所示。

表1.1  uFormat参数的可选值
实现过程：
1.新建一个标准工程，创建一个新窗体，默认主窗体的Name属性为For1。
2.在窗体中添加TMainMenu和TImage组件。
3.设置TImage组件的Alig属性为alClient,设置Stretch属性为True。
4.程序代码如下：
在窗口单元中的private域中添加位图对象：
procedure TForm1.FormCreate(Sender: TObject);
begin
Mbitmap:=Tbitmap.Create;
mbitmap.LoadFromFile('2.bmp');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mbitmap.Free;
end;

procedure TForm1.N4AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; State: TOwnerDrawState);
var
  Mrect:Trect;
begin
  acanvas.TextWidth(TMenuItem(Sender).Caption);
  mrect:= rect(0,0,mbitmap.Width,mbitmap.Height);
  acanvas.Draw(arect.Left,arect.Top-arect.Bottom,mbitmap);
  acanvas.TextRect(rect(arect.Left+mbitmap.Width+2,arect.Top,arect.Right,arect.Bottom),arect.Left+mbitmap.Width+2,arect.Top+3,TMenuItem(Sender).Caption);
  setbkmode(acanvas.Handle,TRANSPARENT);
  DrawText(acanvas.Handle,'我'+#13+'的'+#13+'菜'+#13+'单',-1,mrect,DT_LEFT+DT_Center);
end;

源代码下载地址：

http://www.pudn.com/downloads107/sourcecode/delphi_control/detail441428.html