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,显示出一灰色块,请问大家有什么好的
办法解决吗?小弟万分感谢。
菜单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,显示出一灰色块,请问大家有什么好的
办法解决吗?小弟万分感谢。