ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 用Delphi制作个性化的菜单 (转)

用Delphi制作个性化的菜单 (转)

原创 Linux操作系统 作者:worldblog 时间:2007-12-12 16:29:39 0 删除 编辑
用Delphi制作个性化的菜单 (转)[@more@] 

 XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />


Delphi制作个性化的菜单

.NETgocn.com">www.netgocn.com


在应用程序编写中,使用个性化的菜单可以美化界面,展示个性风彩。例如3721网站推出的《3721网络特快》应用程序中的菜单就是一例。从其windows编程的角度来说它仅是一个自绘式菜单而已。本文就使用Delphi制作这样的个性化菜单作出说明(本文以Delphi4.0为例),制作一个可以有背景图、鼠标在上移动选择时的背景色有渐变色效果的彩色菜单。


一、关于Delphi中的自绘式菜单


要将Delphi的菜单(TMainMenu 或TPopupMenu)控件(Component)设为自绘式,有两种不同的情况:
  ① 如果菜单上没有图标(即,没有设定其Images属性),则必须将菜单控件的OwnerDraw属性设为True,菜单为自绘式。
  ② 菜单上有图标(即,已设定其Images属性),菜单为自绘式。


在此,我们必须首先把准备将其制作成有个性特征的菜单设为自绘式。


二、关于背景的重绘


通常Windows程序的标准菜单,在其被下拉或弹出时,鼠标在上移动时出现的选择条背景是一单一的颜色,现在我们要将其重绘为有渐变色效果的背景,另外如果要在其背景上绘制图形(您见过这样的菜单吗?),则应先绘图、后绘渐变的背景。这些绘制工作的完成只需简单使用Delphi提供的画布(Canvas)对象


三、关于重绘图标


如果菜单上有图标,则最好为各菜单项指定ImageIndex索引号,而不要使用其Bitmap属性。这样在为各菜单项指定了ImageIndex索引号后,可以直接用其TImageList的Draw方法在同一个画布上绘制相应的图标。


四、关于重绘菜单文本


  在重绘菜单时,为了不破坏其背景,应将文本的背景模式设为透明,这要用到一个Windows api函数SetBkMode(),其在C++中定义的原形如下:
  int SetBkMode(


  HDC hdc, 


  int iBkMode   // flag specifying background mode


  );


  其中:hdc – 是绘图设备句柄,在Delphi中可为Tcanvas的Handle属性;


  iBkMode – 指定的背景模式标识符,有OPAQUE 和TRANSPARENT两个
   常量取值,取TRANSPARENT时,为透明模式。


设置了背景模式后,可以使用TCanvas的TextOut方法绘制菜单文本。


五、响应自绘式菜单的OnDrawItem事件
  为菜单项的OnDrawItem事件添加代码,完成想要完成的重绘工作,如下所示(M_Item1_1是菜单项名称):


 


procedure TForm1.M_Item1_1DrawItem(Sender: Tobject; ACanvas: TCanvas;


   ARect: TRect; selected: Boolean);


  begin


   //调用自定义过程--重绘菜单项


   DrawItem(TMenuItem(Sender), ACanvas, ARect,Selected);


  end;


六、二个示例


㈠ 以下是实现上述个性化菜单的自定义过程DrawItem的一个示例的代码。但需作如下说明:


①  在其Delphi工程的主窗口上有一个TCoolBar控件CoolBar1,其上又放了一个TToolBar控件,并且TCoolBar的Bitmap属性不为空(即为其指定了图象)。


②  主窗口上有一个TPopupMenu 控件PopupMenu1、一个TImageList控件ImageList1,其PopupMenu1的Images属性等于ImageList1。


③  TToolBar的Transparent属性为True,并且上面的工具按钮的MenuItem属性分别与相应的菜单项相关联(注意,这是用工具条、工具按钮和弹出式菜单制作主菜单的方法,应将工具按钮的Grouped属性全部设为True)。


代码如下:


procedure TForm1.DrawItem(Item:TMenuItem; ACanvas: TCanvas; ARect: TRect;


  Selected: Boolean);


var


  dc,y,i,j,xb,xe:integer;


begin


  //设置字体和其前景色


  ACanvas.Font := Screen.IconFont;


  SetBkMode(ACanvas.Handle,TRANSPARENT);  //设背景为透明


 


  //根椐菜单宽度计算渐变背景色的填充色增量;当菜单宽度大于256时没有渐变较果


  dc:=ACanvas.ClipRect.Right-ACanvas.ClipRect.Left;


  dc:=(256 div dc);


  dc:=dc*256;


 


  //计算渐变背景色的填充起点


  xb:=ARect.Left + ImageList1.Width+2;


 


  //计算渐变背景色的填充终点


  xe:=ARect.Right-xb;


 


  //绘制背景图


  ACanvas.StretchDraw(Rect(0,0,ACanvas.ClipRect.Right,ACanvas.ClipRect.Bottom),


  CoolBar1.Bitmap);//非平辅方式绘制


 


  //绘制菜单项文本


  for j:=0 to Item.Parent.Count -1 do


  begin


  y:=19*j+4;


  ACanvas.TextOut(ARect.Left+20,y,Item.Parent.Items[j].Caption);//front color is black font


  end;


 


  //绘制当前选择的菜单项


  if Selected then begin


  for i:=0 to  xe do begin


  ACanvas.Brush.Color := $002222FF+i*dc;  //背景的填充色,$002222FF为起始色


  ACanvas.FillRect(Rect(xb,ARect.Top,xb+1,ARect.Bottom));


  inc(xb);


  end;


  ImageList1.Draw(ACanvas,ARect.Left+1,ARect.Top+1,0,true);  //在左边绘制图标


  ACanvas.Font.Color:=clWhite;  //被选中时的字体前景色是白色


  SetBkMode(ACanvas.Handle,TRANSPARENT);  //必须重设背景模式为透明


  ACanvas.TextOut(ARect.Left+20,ARect.Top+4,Item.Caption);//front color,which is white font


  end;


end;


在各菜单项的OnDrawItem事件处(如五所示)均调用此过程,运行程序可以看到一个有背景图、所选菜单项左边有一个图标且背景色是由红到黄渐变的菜单。


㈡ 以下是实现上述个性化菜单的自定义过程DrawItem的另一个示例的代码。为一个有图标的弹出式菜单,不作过多的说明了。


procedure TForm1.DrawItem(Item:TMenuItem; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);


var


  i,xb:integer;


begin


  //设置字体和其前景色


  ACanvas.Font := Screen.IconFont;


  ACanvas.Brush.Color := clBtnFace;


  ACanvas.FillRect(ARect);


  ACanvas.TextOut(ARect.Left+20,ARect.Top+4,Item.Caption);


 


  if Selected then begin


  //绘制当前选择的菜单项


  xb:=0;


  for i:=0 to ARect.Right do begin


  ACanvas.Brush.Color :=clTeal+i*$100;//gradient back color


  ACanvas.FillRect(Rect(xb,ARect.Top,xb+1,ARect.Bottom));


  inc(xb);


  end;


  ACanvas.Font.Color:=clWhite;//被选中时的字体前景色是白色


  SetBkMode(ACanvas.Handle,TRANSPARENT);


  ACanvas.TextOut(ARect.Left+20,ARect.Top+4,Item.Caption);


  end;


  ImageList1.Draw(ACanvas,ARect.Left+1,ARect.Top+1,Item.ImageIndex,true);//绘制左边的图标


end;


同理,应在各菜单项的OnDrawItem事件处均调用此过程。



七、小结


使用自绘式菜单,对整个菜单进行全面的重绘,可以任其想象发挥,绘出五颜六色的个性化菜单,极大地丰富程序界面。
  此外,用此方法虽然简单但较率较低,不适合做要求较高的软件。高级的做法是全部使用WindowsAPI和消息。
  需要示例示源代码的,请到www.netgocn.com留言,一定给你。


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-992264/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 视图切换 (转)
请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2411060