自画菜单的问题

首先将菜单的ownerdraw属性设置为true;然后在菜单项的drawitem中写入代码即可。

procedure TForm1.New1DrawItem(Sender: TObject; ACanvas: TCanvas;

ARect: TRect; Selected: Boolean);

begin

acanvas.Font.Color:=clred;

if selected then

SetBkColor(acanvas.handle,clgreen)

else

setBkcolor(acanvas.handle,clblue);

acanvas.TextRect(arect,0,0,new1.caption);

end;

你是否发现了，当对菜单上一个按键的菜单项的drawitem写下如上代码后，其它的按键不写，是可以的，但只能写了的按键会变色。当对所有的按键都写的话，就只有一个按键是正常的，其它按键的caption都不见了，就是说是些没有字显示的空键，虽然能也变色，但上面不显示菜单项的文字！！真是怪了，昨晚发现的。

你早上 不在吧？下午我再发上来，希望你在。

　回复人：Kingron(ＷｉｎＡＰＩ)　(2001-3-14 15:45:00) 得0分

上午来了一下，匆匆地走了。

呵呵，我一般只测试第一个，既然你提出了这个问题，应该不难解决！

你的问题是因为坐标计算有误：

acanvas.TextRect(arect,0,0,new1.caption);

修改如下：

acanvas.TextRect(arect,arect.Left,arect.Top,(sender as tmenuitem).Caption);

还有一点要提醒你的是，必须自己处理好Caption中快捷方式字母的显示问题，这个你自己应该可以搞定，我就不多说了。

************

先 PopupMenu1.OwnerDraw := True; 用 OnMeasureItem 事件设置好菜单项 n1 的大小后，再用 n1 的 OnDrawItem 事件中添入 ACanvas.Draw(1, 1, Image1.Picture.Graphic);

再将 n2.Break := mbBreak;

n3.Caption := '-';

为什么运行后菜单中图片被水平分割条“-”无情地穿透了？？

还有：在 FormCreate 中添加一句 Screen.MenuFont.Color := clRed; 对于 PopupMenu1 没有任何反应，而添加一句 Screen.MenuFont.Style := [fsBold]; 却有效果？？

　

一看就知道你想编个左边带有图像条的菜单，就和“开始”菜单中的一样，不是吗？

原因是这样的：在画完N1后，即画完了你指定的图像后，才开始画其它的菜单，包括菜单的分隔线，所以会出现这样的情况。建议你将画图像的那一句放在N3的OnDrawItem事件中，这样就保证此图像是最后画的，而不会被覆盖。

至于第二个问题，相信你是没有查看过Screen对象的源代码，因为在其Paint方法中又重新设置了字体的颜色，所以无论你设置为什么颜色也不会有效果的。建议你创建一个Screen的派生类，只重写其Paint事件即可。当然，最好的方法还是在OnDrawItem事件中改变颜色。