Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Системные иконки для VirtualStringTree 
:(
    Опции темы
Ftako
Дата 27.12.2013, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 27.12.2013

Репутация: нет
Всего: нет
Как сделать так что бы иконки ассоциированные с файлами отображались у итемов VirtualStringTree ?
PM MAIL   Вверх
kami
Дата 27.12.2013, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72
1.Получить системный ImageList:
Код

SystemLargeImageList := TImageList.CreateSize(32, 32);
SystemLargeImageList.ShareImages := True;
SystemLargeImageList.Handle := SHGetFileInfo(
    PChar(''),
    0,
    fi,
    SizeOf(TSHFileInfo),
    SystemIconsFlag or SHGFI_ICON or SHGFI_LARGEICON);


2.Связать его с VT
3. При каждой отрисовке (или не при каждой, а только изначально - зависит от алгоритма) - получаем индекс иконки по расширению файла:
Код

const
  SystemIconsFlag = SHGFI_ADDOVERLAYS or
    SHGFI_SYSICONINDEX or
    SHGFI_USEFILEATTRIBUTES;
  TempFlag := SystemIconsFlag or SHGFI_LARGEICON;
var
  fi: _SHFileInfo;

SHGetFileInfo(PChar(ExtractFileName(FileName)),
            FILE_ATTRIBUTE_NORMAL,
            fi,
            SizeOf(TSHFileInfo),
            TempFlag);

          imageIndex := fi.iIcon;


Дальше вступает в силу задача: имея PVirtualNode, имея  индекс иконки в ImageList - отрисовать ее. Или оставить это на откуп VT (если оно может само рисовать)

Это сообщение отредактировал(а) kami - 27.12.2013, 16:26
PM MAIL WWW   Вверх
Ftako
Дата 28.12.2013, 06:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 27.12.2013

Репутация: нет
Всего: нет
Спасибо, а как сделать что бы показывалось для не существующих файлов ?

Это сообщение отредактировал(а) Ftako - 28.12.2013, 07:08
PM MAIL   Вверх
kami
Дата 6.1.2014, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72
Цитата(Ftako @  28.12.2013,  06:58 Найти цитируемый пост)
а как сделать что бы показывалось для не существующих файлов ?

что значит - не существующих? Если имеется ввиду - можно ли написать 'ы:\такой_папки_нет\и_файла_тоже.png', то получится валидная иконка png-файла. См. описание SHGetFileInfo, особенно что касается SHGFI_USEFILEATTRIBUTES
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0454 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.