Fixed: previous bug-fix invalidated ImageList updating

This commit is contained in:
Mark van Renswoude 2004-10-07 19:34:57 +00:00
parent 4e24a4cd67
commit 713484f798
1 changed files with 5 additions and 3 deletions

View File

@ -523,11 +523,13 @@ var
begin
Result := False;
if (AIndex < 0) or (AIndex >= Count) then
if not Assigned(FContainer) then
exit;
if (not Assigned(FContainer)) or
(not Assigned(FContainer.Graphics[AIndex].Picture.Graphic)) or
if (AIndex < 0) or (AIndex >= FContainer.Graphics.Count) then
exit;
if (not Assigned(FContainer.Graphics[AIndex].Picture.Graphic)) or
(FContainer.Graphics[AIndex].Picture.Graphic.Empty) then
exit;