|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.02.2010, 13:01 | #1 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 17
|
ShellListView - отображение файлов
есть ShellListView, подключенный к ShellTreeView, выбераю папку в ShellTreeView, файлы отображаются в ShellListView. Но, если в директории находится файл Корела (*.cdr) - выдает ошибку (Floating point division by zero). Может и сдругими расширениями есть проблемы - не проверял. Кто знает, как решить эту проблему?
|
20.11.2011, 06:44 | #2 | |
Новичок
Джуниор
Регистрация: 20.11.2011
Сообщений: 1
|
Цитата:
У меня очень давно был установлен аналогичный компанент - JamiShellListView, видимо созданный на базе стандартного. Понадобился - вскрылась эта проблема. Решил так: пошагово (F7) дошел до места, пока не открылся файл ShellControls. Там, в procedure TJamShellList.CNNotify(var Message: TWMNotify); вместо строки iImage := FShellBrowser.IconNumber; я вставил if (ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.pat ')or (ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.cdr ')or (ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.dat a')or (ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.cmx ')or (ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.cpt ')then iImage :=5 else iImage := FShellBrowser.IconNumber; То есть, компанент ругался на иконку, и вместо кореловской он сейчас подставляет какую то другую, зато не вылазят ошибки. Не знаю, как правильно, но я вышел из положения так |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Показать расширение файлов в ShellListView | artemavd | Общие вопросы Delphi | 8 | 12.01.2010 12:06 |
Отображение файлов tif на форме | AlexandrSid | Общие вопросы Delphi | 7 | 28.05.2009 16:15 |
Отображение скрытых файлов и папок и отображение розширения всех файлов | beegl | Общие вопросы Delphi | 10 | 14.12.2008 22:02 |
ShellListView | ant_f_moro | Компоненты Delphi | 0 | 06.01.2008 22:42 |
Запуск файлов в ShellListView двойным щелчком | Македонский | Компоненты Delphi | 2 | 31.08.2007 11:54 |