H
hitman007260
Unregistered / Unconfirmed
GUEST, unregistred user!
for i:=0 to imagelist.Count-1 do
begin
image:=imagelist.items;
w:= image.Picture .Bitmap.Width ;
h:=image.Picture.Bitmap.Height ;
hdc2:=image.Canvas.Handle;
hdc1:=image.Canvas.Handle ;
bitblt(hdc2,0,0,w,h,hdc1,0,0,notsrccopy);
image.repaint();
end;
imgelist:tlist;
我的是从链表里弄出来的image 每repaint()估计就生成个新的image
我屏壁掉image.repaint() 内存就不泄了
如何解决?
begin
image:=imagelist.items;
w:= image.Picture .Bitmap.Width ;
h:=image.Picture.Bitmap.Height ;
hdc2:=image.Canvas.Handle;
hdc1:=image.Canvas.Handle ;
bitblt(hdc2,0,0,w,h,hdc1,0,0,notsrccopy);
image.repaint();
end;
imgelist:tlist;
我的是从链表里弄出来的image 每repaint()估计就生成个新的image
我屏壁掉image.repaint() 内存就不泄了
如何解决?