Кнопка с картинкой

[x11]

Данные в ListView грузятся из таблицы через BindSourceDB1.

Добавил кнопку TImageObjectAppearance, но у кнопки нет свойства, отвечающего за картинку. Как добавить картинку в моём случае?

[x11]

Вот так сделал.

procedure TfmReference.ListView1UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
begin
  AItem.Objects.FindObjectT<TListItemImage>('Image4').Bitmap := ImageList1.Source.Items[0].MultiResBitmap[0].Bitmap;
end;

 

Так правильно?

 

Вопрос ещё. Если у картинки указать Align := Trailing, то картинка исчезает.

Как приклеить картинку к правому краю Item`а?

 

Ещё один способ нашёл

 

ListView1.Images := ImageList1;
...
...
...


procedure TfmReference.ListView1UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
begin

  AItem.Objects.FindObjectT<TListItemImage>('btnEdit').ImageIndex := 1;
end;

 

 

Сделал такое же и на другой форме с другим TListView.

Вываливается AV.

Хотя имя "img" совпадает и ImageList с картинкой привязан.

 

В общем, переделал так

 

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

    if Assigned(AItem.Objects.FindObjectT<TListItemImage>('img')) then
      AItem.Objects.FindObjectT<TListItemImage>('img').ImageIndex := 0;
  end;
end;