T
twosunsun
Unregistered / Unconfirmed
GUEST, unregistred user!
我的应用是在一个大的图片叠加很多小的图片,大图片是jpg格式,小图片是
bmp格式。
我采用的方法是:
大图片使用TDBimage
小图片使用Timage,Timage是动态创建.
在一个循环中创建多个小图片
代码如下:
img:=Timage.create(nil);
img.Top := FieldByName('fx').AsInteger;
img.left := FieldByName('fy').AsInteger;
img.Visible := true;
img.parent :=DBImage1;
存在的问题是:当使用大一点的图片时,会出现显示不全的现象。
我测试了一下:当我不向TDBimage上创建小图片时,是可以显示全的。
并且当大图片显示不全之后,只要将小图片清除那么大图片仍然是可以显示全
的。
清除用代码如下:
for i:=1 to n do
begin
if img<>nil then
begin
img.free;
imgi]:=nil;
end;
end ;
想请问各位大虾,如何解决上述问题?有没有什么替代方案?
bmp格式。
我采用的方法是:
大图片使用TDBimage
小图片使用Timage,Timage是动态创建.
在一个循环中创建多个小图片
代码如下:
img:=Timage.create(nil);
img.Top := FieldByName('fx').AsInteger;
img.left := FieldByName('fy').AsInteger;
img.Visible := true;
img.parent :=DBImage1;
存在的问题是:当使用大一点的图片时,会出现显示不全的现象。
我测试了一下:当我不向TDBimage上创建小图片时,是可以显示全的。
并且当大图片显示不全之后,只要将小图片清除那么大图片仍然是可以显示全
的。
清除用代码如下:
for i:=1 to n do
begin
if img<>nil then
begin
img.free;
imgi]:=nil;
end;
end ;
想请问各位大虾,如何解决上述问题?有没有什么替代方案?