Mmh...bei mir steht da:
Delphi-Quellcode:
try
for x := SolidList.Count - 1 downto 0 do
begin
if Assigned(SolidList[x]) then
begin
CItem := SolidList[x];
SolidList.Remove(CItem);
CItem.Destroy;
end;
end;
for x := TransparentList.Count - 1 downto 0 do
begin
if Assigned(TransparentList[x]) then
begin
CItem := TransparentList[x];
TransparentList.Remove(CItem);
CItem.Destroy;
end;
end;
except
end;
kann sein dass ich das schon gefixxt habe, und nur noch nicht hochgeladen, schau ich gleich mal