TListView Как загрузить иконку в итемы TListView, хранящиеся в TStyleBook?

[ovk]

Прошу помощи,как вывести иконки в ListView которые хранятся в StyleBook ?
у меня есть база,в ней хранятся ID иконок, которые нужно выводить,в StyleBook лежат иконки, может у кого есть подобный опыт?!

[Brovin Yaroslav]

1. Устанавливаем отображение итемов в TListView с картинкой:

2. Вытаскиваем по имени картинку из TStyleBook способом, описанным в этой теме: Есть ли в fmx класс TImageList?

function GetImage(const AImageBook: TStyleBook; const AImageName: string): TBitmap;
var
  StyleObject: TFmxObject;
  Image: TImage;
begin
  StyleObject := AImageBook.Style.FindStyleResource(AImageName);
  if StyleObject is TImage then
  begin
    Image := StyleObject as TImage;
    Result := Image.Bitmap;
  end
  else
    Result := nil;
end; 

3. Код по установке картинки в итем:

var
  ListItem: TListViewItem;
begin
  ListItem := ListView1.Items.Add;
  ListItem.Bitmap.Assign(Image1.Bitmap);
end;

4. Наблюдаем результат: