Иконки в ListView

[rakhmet]

Заполняю в рантайме ListView:

procedure TAddForm.ConnectClick(Sender: TObject);
var
LI: TListViewItem;
begin
with Query do
begin
Open;
while not Eof do
begin
LI := ListView1.Items.Add;
LI.Text := Query.FieldByName('Type').AsString;
LI.Detail := Query.FieldByName('Cargo').AsString + #13#10 + Query.FieldByName('Weight').AsString;
Next;
end;
end;
end;

Как видно, Detail разбивается и заполняется в две строки (оказалось, что так удобнее смотреть).

 

Но на обеих строках сухие цифры:

 

Поэтому хотелось бы в начало обеих строчек вставить свои иконки, чтобы в конечном итоге выглядело как-то так:

 

 

Есть идеи, как это можно сделать? А то товарищ kramler в другой теме писал, что не видит масла стоя перед открытым холодильником - так вот я сейчас уже в таком состоянии, что начинаю забывать, где мой собственный холодильник стоит, не говоря уже о масле в нём 

И смешно, и грустно...

Изменено 30 декабря, 2016 пользователем rakhmet

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

есть два варианта

1) использовать FontAwesome и перед текстом ставить подходящую иконку (не рекомендую использовать иконку и текст в одном объекте, будут баги на некоторых девайсах из-за кириллицы)

2) добавить объекты в режиме DynamicAppearance

[rakhmet]

Честно говоря, ни с тем ни с другим не сталкивался. Пошёл искать. Есть какие-нибудь примеры?

 

Увидел ссылку, спасибо.

Изменено 30 декабря, 2016 пользователем rakhmet

[rakhmet]

Посмотрел я...

Попроще решений точно нет? Ради двух повторяющихся из строки в строку иконок не то что огород, а целую ферму городить придётся. Я не против работы головой и ручками, но не хочется микроскопом гвозди забивать или из пушки по блохам стрелять

 

Иконки в png, стандартные 16х16, каждая по паре сотен байт. Неужели их отрисовка НАСТОЛЬКО отжирает ресурсы, что появляются баги?

[krapotkin]

в данном случае Dynamic очевидно решает вашу проблему. не решает только подстройку под ширину девайса

конструирование же в коде каждого из элементов - 5-10 строк кода. итого 25-50 строк. не так уж и много, имхо

[rakhmet]

С редактором разбираюсь прямо сейчас. Но насчёт подстройки под ширину не совсем правильно понимаю - возможны проблемы из-за фиксированного размера Item, или я путаю?

[krapotkin]

у элементов здесь - фиксированный размер

и это имхо проблема, когда мы говорим о поддержке разных разрешений экрана

если строки короткие, и влезают даже на маленький экран, проблем нет

[rakhmet]

Да, тестирую на 320х240 - всё входит, место есть.

[rakhmet]

11 часов назад, ZuBy сказал:

есть два варианта

1) использовать FontAwesome и перед текстом ставить подходящую иконку (не рекомендую использовать иконку и текст в одном объекте, будут баги на некоторых девайсах из-за кириллицы)

2) добавить объекты в режиме DynamicAppearance

Вопрос насчёт решения с кастомным шрифтом:

1. Скачал обновлённый архив 4.7

2. Вытащил из архива файл fontawesome-webfont.ttf и переименовал его в FontAwesome.ttf

3. Положил переименованный файл в \CustomFont\font\ с заменой старого файла (от 4.5, насколько я понимаю)

4. Добавил для тестирования в FontAwesome.pas новую запись (в алфавитном порядке, по аналогии с соседними записями и в соответствии с новой иконкой):

 

5. Исключительно в целях проверки изменил старую ссылку на новую:

 

6. Однако при запуске старые иконки прорисовываются, а новая - нет:

 

 

Что я забыл сделать?