关于菜单加入图片后不能改变高度的问题。(100分)

  • 主题发起人 zq_hunan
  • 开始时间
Z

zq_hunan

Unregistered / Unconfirmed
GUEST, unregistred user!
我想把主菜单用图片来显示,菜单caption也做在了图片上,比如说
菜单1 菜单2…… 用
图片1 图片2…… 代替,菜单1菜单2下的子菜单显示方式不变,就用MainMenu的默认显
示方式。
我试着用以下方法:
MainMenu1.OwnerDraw := True;

procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
Image2.Picture.LoadFromFile( ExtractFilePath(Application.ExeName)+'/main/'+'N1.bmp');
Acanvas.Draw(ARect.left,ARect.top,Image2.picture.bitmap);
end;
图片可加进去,但问题就出现在不能控制菜单的宽和高。图片大小为60*25的话,
procedure TForm1.N1MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
width := 62;
height := 25;
end;
但菜单高总是为18(系统小字体情况),宽>62,显示出一灰色块,请问大家有什么好的
办法解决吗?小弟万分感谢。
 
没人来吗?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
625
import
I
I
回复
0
查看
557
import
I
I
回复
0
查看
461
import
I
顶部