Как определить, загружена ли картинка в TListItemImage?

[x11]

Через LiveBinding загружаются данные в ListView, в том числе и в ListItemImage.

Но у некоторых Item`ов нет картинки. И в этом случае нужно показать "пустышку" типа No image.

Делаю в событии UpdateObjects

procedure TfmMain.lvObjectsUpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
Var
 ListItemImage: TListItemImage;
begin
  if Assigned(AItem) then
  begin
    ListItemImage := AItem.Objects.FindObjectT<TListItemImage>('img');
    if Assigned(ListItemImage) then
      if not assigned(ListItemImage.Bitmap) then
        ListItemImage.ImageIndex := 0;
  end;
end;

 

Но теперь у всех ListItemImage отображается пустышка, даже там, где должна быть правильная картинка.

Пробовал использовать событие UpdatingObjects, но в этом случае грузится правильная картинка, а пустышка не грузится.

[Alexander]

Если гора не идёт к..... 

Может тогда в базу загрузить "пустышку"? 

[Равиль Зарипов (ZuBy)]

ListItemImage.Bitmap.isEmpty

 

[x11]

Не помогло. Выводится картинка из базы, а пустышка - нет.

 

procedure TfmMain.lvObjectsUpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
Var
 ListItemImage: TListItemImage;
begin
  if Assigned(AItem) then
  begin
    if Assigned(AItem.Objects.FindObjectT<TListItemText>('btnEdit')) then
      AItem.Objects.FindObjectT<TListItemText>('btnEdit').Text := '...';

    ListItemImage := AItem.Objects.FindObjectT<TListItemImage>('img');
    if Assigned(ListItemImage) then
      if assigned(ListItemImage.Bitmap) then
        if ListItemImage.Bitmap.IsEmpty then
          ListItemImage.ImageIndex := 0;

  end;// if
end;

 

без строки "if assigned(ListItemImage.Bitmap) then" вываливается AV

 

эта строка всегда возвращает FALSE

 

if assigned(ListItemImage.Bitmap) then

поэтому-то и не доходит дело до

ListItemImage.ImageIndex := 0;

 

 

Может картинку-пустышку можно подсунуть через  LiveBindings?

Изменено 6 августа, 2017 пользователем x11

[#WAMACO]

if assigned(ListItemImage.Bitmap) then

вот эту строчку убери

[x11]

В 06.08.2017 в 09:31, x11 сказал:

без строки "if assigned(ListItemImage.Bitmap) then" вываливается AV

 

обратите внимание, что я написал выше