DirectoryListBox - Общие вопросы Delphi

Rahim1993 · 03.01.2009, 19:30

Доброе время суток Вам! Подскажите, пожалуйста, как сделать так, чтобы DirectoryListBox1 показывал скрытые файлы(Если это возможно)?

ViktorXP · 03.01.2009, 19:54

лудше переходи на новое TShellTreeView. просто те контролы оставленые для совместимости. А тут и иконки нормально покажет и настройки гибкие.
пс. чтобы там добавит возможность показа скрытых нужно изменить сам исходник контролов

Rahim1993 · 03.01.2009, 20:27

А как изменить этот исходник, скажи если не трудно. Я новичок, и не очень хорошо разбираюсь.

Rahim1993 · 03.01.2009, 20:29

Все понял. Спасибо тебе!!!

ViktorXP · 03.01.2009, 20:58

заходиш в модуль FileCtrl и в процедуре

Код:

function TDirectoryListbox.ReadDirectoryNames(const ParentDirectory: string;
  DirectoryList: TStringList): Integer;

в строчке

Код:

  Status := FindFirst(SlashSep(ParentDirectory, '*.*'), faDirectory, SearchRec);

ко второму параметру FindFirst добавляеш новые атрибуты. (например для показа скрытых папок пишеш так faDirectory or faHidden)

и так в кажодом контроле нужно будет пересмотреть и поцепить то что тебе нужно (их там кажется три, хотя могу ошибатся)

03.01.2009, 19:30	#1
Rahim1993 Пользователь Регистрация: 27.12.2007 Сообщений: 67	DirectoryListBox Доброе время суток Вам! Подскажите, пожалуйста, как сделать так, чтобы DirectoryListBox1 показывал скрытые файлы(Если это возможно)? S.R.H.(Rahim)

03.01.2009, 20:27	#3
Rahim1993 Пользователь Регистрация: 27.12.2007 Сообщений: 67	А как изменить этот исходник, скажи если не трудно. Я новичок, и не очень хорошо разбираюсь. S.R.H.(Rahim)

03.01.2009, 20:29	#4
Rahim1993 Пользователь Регистрация: 27.12.2007 Сообщений: 67	Все понял. Спасибо тебе!!! S.R.H.(Rahim)

03.01.2009, 20:58	#5
ViktorXP Форумчанин Регистрация: 24.11.2006 Сообщений: 108	заходиш в модуль FileCtrl и в процедуре Код: `function TDirectoryListbox.ReadDirectoryNames(const ParentDirectory: string; DirectoryList: TStringList): Integer;` в строчке Код: `Status := FindFirst(SlashSep(ParentDirectory, '.'), faDirectory, SearchRec);` ко второму параметру FindFirst добавляеш новые атрибуты. (например для показа скрытых папок пишеш так faDirectory or faHidden) и так в кажодом контроле нужно будет пересмотреть и поцепить то что тебе нужно (их там кажется три, хотя могу ошибатся) Последний раз редактировалось rpy3uH; 04.01.2009 в 12:52.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
DirectoryListBox	Stanislav	Общие вопросы Delphi	2	02.04.2008 20:02

03.01.2009, 19:54	#2
ViktorXP Форумчанин Регистрация: 24.11.2006 Сообщений: 108	лудше переходи на новое TShellTreeView. просто те контролы оставленые для совместимости. А тут и иконки нормально покажет и настройки гибкие. пс. чтобы там добавит возможность показа скрытых нужно изменить сам исходник контролов