解决方案 »
- 请问用Delphi6做的ActiveX的方法,在Htm中无法调用是怎么回事?
- TidTCPClient的List index out of bounds(0)问题!!!
- 小女子问简单问题,急,达人乱入,先拜谢了。。。
- 一个编译的冲破题:
- 需求一份软件(asp)项目合同样本
- ///////相对路径问题/////// 送分啦,100分哦!!!
- zswang 哪儿去了??????
- 我用batchmove备份数据库,如何在delphi内压缩备份后的数据库?
- 怎么这个论坛回复的这么快,回复的菜鸟们都是专门干这个吗,还是路过帮帮忙
- 如何实现数据的倒序和升序?
- 难题!为有请教高手们帮帮小弟!
- 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;
图片为你想要的左边的图片