Вставка картинки в листбокс Delphi XE5 Android

@First · Регистрация: 09.06.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте! Ребята подскажите как вставить 2 картинку в итем лист бокса. Одну основную я вставил но по условию нужно вставить в некоторых еще одну. Подскажите буду очень признателен. Заранее благодарен.

@volvo · 01.10.2013, 11:13

Сообщение от First

по условию нужно вставить в некоторых еще одну

Значит, выбран неправильный компонент. TListBox для этого не предназначен.

@First · 01.10.2013, 11:48 **[ТС]**

Я вставлял label помимо основных итем.текст и итем.детал так же есть уже итем.битмап и думал что аналагично можно впихнуть еще одну картинку...

Добавлено через 30 минут
Как я понимаю нет возможности вставить картинку да?

@volvo · 01.10.2013, 20:35

First, о чем это ты?.. Я не сказал, что нет возможности, я сказал, что нет встроенной возможности. Работая со StyleBook-ами хоть 10 картинок назначай каждому TListBoxItem-у. Только вручную, через Binding-и...

@First · 02.10.2013, 14:55 **[ТС]**

Сообщение от UI

First, о чем это ты?.. Я не сказал, что нет возможности, я сказал, что нет встроенной возможности. Работая со StyleBook-ами хоть 10 картинок назначай каждому TListBoxItem-у. Только вручную, через Binding-и...

А есть пример как такое можно сделать. Буду очень признателен.

@volvo · 02.10.2013, 15:38

Такое можно сделать даже под XE2, с первым Firemonkey. XE5 сейчас под рукой нет, но там все будет аналогично:

1. Кладем на форму TStyleBook
2. В нем создаем новый TLayout и на него бросаем 2 (или больше) TImage и TLabel (каждому лежащему на TLayout-е элементу надо назначить еще и BindingName):

3. Всё, "Apply and Close", и добавляем в рантайме элементы в ListBox:

Delphi

var
  Item : TListBoxItem;
begin
  Item := TListBoxItem.Create(nil);
  Item.Parent := ListBox1;
  Item.OnApplyStyleLookup := MyApplyStyleLookup;
  Item.Text := 'item #' + IntToStr(Random(100));
  Item.StyleLookup := 'LBItemStyle';
end;
 
 
// где MyApplyStyleLookup будет применять выбранный стиль к ListBoxItem-у:
 
procedure TForm1.MyApplyStyleLookup(Sender : TObject);
var it : TListBoxItem;
begin
  it := Sender as TListBoxItem;
  it.Binding['TheText'] := it.Text;
  // Здесь же можно затолкать любые картинки в it.Binding[название_байндинга_картинки]
end;

Результат - ListBox с двумя картинками:

Можно сделать 2 стиля, один с одной картинкой, один - с двумя, и применять тот, который нужен...

@sg-ua · 20.05.2015, 13:25

Пользуюсь Rad Studio XE8...там нету параметра BindingName, что делать?

@First · 20.05.2015, 14:55 **[ТС]**

Сообщение от sg-ua

Пользуюсь Rad Studio XE8...там нету параметра BindingName, что делать?

В Delphi по моему есть Bind Visuale посмотрите там....

@sg-ua · 20.05.2015, 15:12

Я смотрел уже но не могу понят как ее заполнить

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
		1
	Вставка картинки в листбокс Delphi XE5 Android 01.10.2013, 10:37. Показов 3960. Ответов 8 Метки нет (Все метки) Здравствуйте! Ребята подскажите как вставить 2 картинку в итем лист бокса. Одну основную я вставил но по условию нужно вставить в некоторых еще одну. Подскажите буду очень признателен. Заранее благодарен. 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	01.10.2013, 11:13	2
	Сообщение от First по условию нужно вставить в некоторых еще одну Значит, выбран неправильный компонент. TListBox для этого не предназначен. 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	01.10.2013, 11:48 [ТС]	3
	Я вставлял label помимо основных итем.текст и итем.детал так же есть уже итем.битмап и думал что аналагично можно впихнуть еще одну картинку... Добавлено через 30 минут Как я понимаю нет возможности вставить картинку да? 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	01.10.2013, 20:35	4
	First, о чем это ты?.. Я не сказал, что нет возможности, я сказал, что нет встроенной возможности. Работая со StyleBook-ами хоть 10 картинок назначай каждому TListBoxItem-у. Только вручную, через Binding-и... 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	02.10.2013, 14:55 [ТС]	5
	Сообщение от UI First, о чем это ты?.. Я не сказал, что нет возможности, я сказал, что нет встроенной возможности. Работая со StyleBook-ами хоть 10 картинок назначай каждому TListBoxItem-у. Только вручную, через Binding-и... А есть пример как такое можно сделать. Буду очень признателен. 0

@sg-ua 0 / 0 / 1 Регистрация: 17.09.2012 Сообщений: 113
	20.05.2015, 13:25	7
	Пользуюсь Rad Studio XE8...там нету параметра BindingName, что делать? 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	20.05.2015, 14:55 [ТС]	8
	Сообщение от sg-ua Пользуюсь Rad Studio XE8...там нету параметра BindingName, что делать? В Delphi по моему есть Bind Visuale посмотрите там.... 0

@sg-ua 0 / 0 / 1 Регистрация: 17.09.2012 Сообщений: 113
	20.05.2015, 15:12	9
	Я смотрел уже но не могу понят как ее заполнить 0