在Tshap上输出图标,在线等你 如题: 想在Shap上贴上图标,要求可以自适应shap的大小 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Tshap有shap.Brush.Bitmap.Canvas属性 shap.Brush.Bitmap.Canvas好像不能用StretchDraw方法哦我这样用过,刚写的不知道procedure TForm1.Button1Click(Sender: TObject);var Img:TImage; Grap:TBitmap;begin try Grap:=Tbitmap.Create; Img:=TImage.Create(nil); grap.LoadFromFile('splash.bmp'); Img.Height:=shape1.Height; Img.Width:=shape1.Width; Img.Canvas.StretchDraw(Img.ClientRect,Grap); shape1.Brush.Bitmap:=Img.Picture.Bitmap; finally Grap.Free; end;end; hmzgz81(哩翱) :我试了好像不行 为什么不用image呢?应该是Tshape的没有canvas属性的原因吧,而他的shap.Brush.Bitmap.Canvas我用了会不行,而image可以直接用canvas。下面是image的,我试了可以的。procedure TForm1.Button1Click(Sender: TObject);var grp:TBitmap;begin grp:=TBitmap.Create; grp.LoadFromFile('splash.bmp'); image1.Canvas.StretchDraw(image1.ClientRect,grp);end; hmzgz81(哩翱) : 是啊,谢谢,我代码已写完了,不想改太多那听你的就用image了,呵呵,谢谢哦!20分给你,早日变猩猩! 文件菜单中的历史文件名有没有简便的处理方法 cxGrid的onEditValueChanged问题 关于程序窗口自已刷新的问题? 各位前辈,随着技术的发展,delphi会长久茁壮的发展下去吗,至少在未来5-10年内,入内探讨谢了先 数据库还原,高分求救! 高手们,Webbrowser问题帮忙解决一下 关于.dfm文件中的中文字符问题 奇怪,Win2000下CMD下 Ping命令 不认识,可是 Ping.exe 认识。 如何将access和excel中的数据导入到delphi中,在delphi中能直观的看到里面的数据 sql编写 vhd,vmc后缀的文件用什么工具打开?? 一个简单的问题?
我这样用过,刚写的不知道procedure TForm1.Button1Click(Sender: TObject);
var
Img:TImage;
Grap:TBitmap;
begin
try
Grap:=Tbitmap.Create;
Img:=TImage.Create(nil);
grap.LoadFromFile('splash.bmp');
Img.Height:=shape1.Height;
Img.Width:=shape1.Width;
Img.Canvas.StretchDraw(Img.ClientRect,Grap);
shape1.Brush.Bitmap:=Img.Picture.Bitmap;
finally
Grap.Free;
end;
end;
我试了
好像不行
应该是Tshape的没有canvas属性的原因吧,而他的shap.Brush.Bitmap.Canvas我用了会不行,而image可以直接用canvas。
下面是image的,我试了可以的。
procedure TForm1.Button1Click(Sender: TObject);
var
grp:TBitmap;
begin
grp:=TBitmap.Create;
grp.LoadFromFile('splash.bmp');
image1.Canvas.StretchDraw(image1.ClientRect,grp);
end;
是啊,谢谢,我代码已写完了,不想改太多
那听你的就用image了,呵呵,谢谢哦!20分给你,早日变猩猩!