求这样的软件皮肤 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 又不好看... 还没COOLBAR看的舒服 不是xpmenu xpmenu没这么好看bsSkin你在盒子上找找 xpmenu bsSkin dxBarManager我去试一下 自己可以做的主要代码如下:procedure TForm1.FormCreate(Sender: TObject);beginMbitmap:=Tbitmap.Create;mbitmap.LoadFromFile('2.bmp');end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginmbitmap.Free;end;procedure TForm1.N4AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);var Mrect:Trect;begin acanvas.TextWidth(TMenuItem(Sender).Caption); mrect:= rect(0,0,mbitmap.Width,mbitmap.Height); acanvas.Draw(arect.Left,arect.Top-arect.Bottom,mbitmap); acanvas.TextRect(rect(arect.Left+mbitmap.Width+2,arect.Top,arect.Right,arect.Bottom),arect.Left+mbitmap.Width+2,arect.Top+3,TMenuItem(Sender).Caption); setbkmode(acanvas.Handle,TRANSPARENT);// DrawText(acanvas.Handle,'我'+#13+'的'+#13+'菜'+#13+'单',-1,mrect,DT_LEFT+DT_Center);end;图片为你想要的左边的图片 有没有把多个GRID打印到同一页面的控件? 请教字符集的问题 将DBF表中的60分以上的内容合并打印 很简单的问题,马上给分 请教一个记录值查询的问题,急!! 初学者的数据库连接问题,非常急!!!!!!!!!!!!!!! 请各位发表——程序员速成之一句话经验 欢迎各位高手进来发表高见 google彻底被封杀了 有没有和DBComboBox之类的数据库组件有OnChange事件的? 关于delphi的iocp的WSARecv调用问题请教 难题!为有请教高手们帮帮小弟! delphi 2007中用Import Type Library导入的控件怎么看不到?谢谢!
bsSkin
你在盒子上找找
bsSkin
dxBarManager
我去试一下
主要代码如下:
procedure TForm1.FormCreate(Sender: TObject);
begin
Mbitmap:=Tbitmap.Create;
mbitmap.LoadFromFile('2.bmp');
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mbitmap.Free;
end;procedure TForm1.N4AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; State: TOwnerDrawState);
var
Mrect:Trect;
begin
acanvas.TextWidth(TMenuItem(Sender).Caption);
mrect:= rect(0,0,mbitmap.Width,mbitmap.Height);
acanvas.Draw(arect.Left,arect.Top-arect.Bottom,mbitmap);
acanvas.TextRect(rect(arect.Left+mbitmap.Width+2,arect.Top,arect.Right,arect.Bottom),arect.Left+mbitmap.Width+2,arect.Top+3,TMenuItem(Sender).Caption);
setbkmode(acanvas.Handle,TRANSPARENT);
// DrawText(acanvas.Handle,'我'+#13+'的'+#13+'菜'+#13+'单',-1,mrect,DT_LEFT+DT_Center);
end;
图片为你想要的左边的图片