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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TTreeView и Explorer, Проблема с иконками 
:(
    Опции темы
BpIstorick
  Дата 30.5.2006, 05:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Пытаюсь создать в своей программе аналог левой части проводника

Вопрос в том как поступить с файлами! как присвоить файлам разного типа соотв. иконки

Допустим для *.rar - значек архива и т.д.

моя мысль - забить иконки основных типов в TImageList, а потом файлы по расширению выискивать и соотв. присваивать иконку, а неизвестным файлам иконку по умолчаниюsmile


Но ведь наверняка есть способ лучше ;) smile  
PM MAIL   Вверх
Coder
Дата 30.5.2006, 05:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 11
точно не помню (под рукой нет), но кажется такой пример есть в DRKB. Я такое делал у себя в одной программе и брал пример кажется оттуда. 
PM MAIL   Вверх
~FoX~
Дата 30.5.2006, 08:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
BpIstorick, TShellTreeView чем не нравиться? 


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Mechanic
Дата 30.5.2006, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7
Код

var     FileInfo: TSHFileInfo;  I1:TIcon;
                       I1:=TIcon.Create;

                        //Get associated image to IML1
                        FillChar(FileInfo, SizeOf(FileInfo), #0);
                        SHGetFileInfo(PChar(P^.Name), 0, FileInfo, SizeOf(FileInfo),
                                SHGFI_ICON or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES);
                        I1.Handle := FileInfo.hIcon;
                        ImageIndex := IML1.AddIcon(I1); //IML1: TImageList
 
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
BpIstorick
Дата 31.5.2006, 10:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Все супер! все работаетsmile

Mechanic - спасибо smile

вот только вопрос! а подтолкнуть к инфе про ShellApi вообще и SHGetFileInfo не проблема???

Fox!!!!
Я просто не знаю откуда и как его жуют! если опять же к инфе подтолкнешь то спасибо скажу smile

Coder- В DRKB не нашел smile 
PM MAIL   Вверх
Mechanic
Дата 31.5.2006, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7
Цитата(BpIstorick @  31.5.2006,  10:42 Найти цитируемый пост)
вот только вопрос! а подтолкнуть к инфе про ShellApi вообще и SHGetFileInfo не проблема???

Не, не проблема! ;) 
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
BpIstorick
Дата 1.6.2006, 09:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
ссылка хорошая и я ее запомнил! но есть ли возможность закачать это на хард чтоб в инете не висеть постоянно? 
PM MAIL   Вверх
Mechanic
Дата 1.6.2006, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7
Есть офф-лайн версия MSDN. Она распространяется на DVD (2004 весит около 3х CD). Поспрашивай у знакомых.  smile 

А исчо браузер умеет сохранять кешировать страницы.. smile 
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
BpIstorick
Дата 1.6.2006, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Mechanic @ 1.6.2006,  09:47)
Есть офф-лайн версия MSDN. Она распространяется на DVD (2004 весит около 3х CD). Поспрашивай у знакомых.  smile 

А исчо браузер умеет сохранять кешировать страницы.. smile

DVD надо поискать у нас на барахолке какой нить smile

а насчет выкачать - попробовал с помощью Offline Explorer, но что-то не заладилось smile

Всирано спасиба 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

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

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


 




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


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

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