W
wind98
Unregistered / Unconfirmed
GUEST, unregistred user!
我查了以前的问答,做法如下:
1.在Form1上放三个控件PopupMenu1,Image1
2.PopupMenu1.ownerdraw:= True;
PopupMenu1的第二个Item的Break:=mbBarBreak;//或mbBreak;
PopupMenu1的每一个Item的OnDrawItem事件中加入以下代码:
ACanvas.Draw(0,0,Image1.Picture.Graphic);
3.Form1.PopupMenu:=PopupMenu1;
4.运行...
发现问题:
在窗体中按鼠标右键弹出的菜单左边图像区太宽了,有三四厘米宽(不知道这样说是否明白?)
而不象Windows本身按开始时弹出的菜单那样,左边蓝色带只有一厘米多一点,我做出来的
是它的两倍(目视)?还有就是如果菜单中有分隔符的话会画到图像中去?
请问如何解决?
1.在Form1上放三个控件PopupMenu1,Image1
2.PopupMenu1.ownerdraw:= True;
PopupMenu1的第二个Item的Break:=mbBarBreak;//或mbBreak;
PopupMenu1的每一个Item的OnDrawItem事件中加入以下代码:
ACanvas.Draw(0,0,Image1.Picture.Graphic);
3.Form1.PopupMenu:=PopupMenu1;
4.运行...
发现问题:
在窗体中按鼠标右键弹出的菜单左边图像区太宽了,有三四厘米宽(不知道这样说是否明白?)
而不象Windows本身按开始时弹出的菜单那样,左边蓝色带只有一厘米多一点,我做出来的
是它的两倍(目视)?还有就是如果菜单中有分隔符的话会画到图像中去?
请问如何解决?