最简单最苯的办法是使用一个timage控件,将该图片预先装入程序中,这样就可以生成一个很大的包含图片的exevar
horsepic:Tbitmap;
workspace:Tpaintbox;
begin
horsepic:=image1.Picture.Bitmap;
with workspace.canvas do
begin
CopyMode := cmSrccopy;
StretchDraw(Rect(agrid[xnum][ynum].x+12, agrid[xnum][ynum].y+18,
agrid[xnum][ynum].x+47, agrid[xnum][ynum].y+53),horsepic);
end;
end;最科学的方法是使用rc
horsepic:Tbitmap;
workspace:Tpaintbox;
begin
horsepic:=image1.Picture.Bitmap;
with workspace.canvas do
begin
CopyMode := cmSrccopy;
StretchDraw(Rect(agrid[xnum][ynum].x+12, agrid[xnum][ynum].y+18,
agrid[xnum][ynum].x+47, agrid[xnum][ynum].y+53),horsepic);
end;
end;最科学的方法是使用rc
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货