Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


x11

Вопрос

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

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

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

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

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 с картинкой привязан.

Screenshot_2.png

 

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

 

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;

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...