S
steve0531
Unregistered / Unconfirmed
GUEST, unregistred user!
我的代码如下,这是个为了说明问题而简单写的代码。我发现,将Image控件的宽度和高度设置的稍微大一点,那么在Draw时,便会出现“存储空间不足,无法处理此命令”的错误。前段时间写一个GUI程序,类似地图一类的东西,将众多工程图片数据一次性显示在Image中。但出现了这个问题,Image不能设置的太高和太宽。为此我尝试了另外一种方法,就是使用多个相对较小的Image来组合显示成整个的工程图片。但,只要两个或多个Image的总宽度和高度超过一定数值,同样会出现这个问题,所以,无论使用多个小Image还是使用一个Image,只要其Width和Height的值稍大,就出出现问题。比较着急,现在整个项目都停止了,一直在等待解决这个问题,希望各位富翁能够援手帮忙。非常感谢!procedure TForm1.Button1Click(Sender: TObject);var bmp : TBitmap;begin Image1.Width := 10000; Image1.Height := 10000; Image2.Width := 9600; Image2.Height := 6400; bmp := TBitmap.Create; bmp.LoadFromFile('e:/DelphiLibPath.bmp'); Image1.Canvas.Draw(0, 0, bmp); //Image2.Canvas.Draw(0, 0, bmp);end;