|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Подскажите по listview
День добрый. Подскажите пожалуйста по такому вопросу:
Работаю с Listview в режиме vsReport. Появилась необходимость ассоциировать список с иконками из ImageList. У себя для добавления списка в ListView использую код: Код:
for i := 1 to fileCount do begin fileName := copy(fileClump,1,pos('`',fileClump)-1); fileListView.AddItem(fileName,pointer(self)); fileListView.Update; delete(fileClump,1,pos('`',fileClump)); end; Код:
fileCount - integer Код:
fileClump - string Вот в чем суть вопроса, нашла тут функцию: Код:
function IconNum(strExt: string): Integer; begin else if (strExt = '.txt') or (strExt = '.doc') then Result := 2 else if (strExt = '.exe') or (strExt = '.com') then Result := 3 else Result := 1; end; Как можно её мне применить? |