用Delphi制作个性化的菜单

//设置字体和其前景色

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; //

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!