VPF::Virtual ListView еше один баг - Форум программистов

Ak47black

Дата 30.3.2007, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 1
Всего: 0

С Delphi даеться пример Virtual ListView.
Все-бы хорошо ,но при просмотре директории где храниться много файлов, например просматривать папку куда все файлы с интерента сливаем. То некоторые файлы не имеют размера(не папки) , тоесть в проводнике нормально показываються ,а там в Listview пустое место.
Например
user posted image

Подскажите в чем тут дело и как мне исправить?

Это сообщение отредактировал(а) Ak47black - 30.3.2007, 12:56

MetalFan

Дата 30.3.2007, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

не замечал такого...
а отладка на что дана?! ;) вот и посмотри, что происходит)

--------------------

There are always someone smarter than you...

Yanis

Дата 30.3.2007, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 72
Всего: 111

Не отображается размер zip архивов, потому что винда (IMHO проводник) считает их каталогами.
После этого она так считать перестаёт:

Код

regsvr32 /u zipfldr.dll

Добавлено @ 13:16

Цитата(MetalFan @ 30.3.2007, 14:06

)

а отладка на что дана?! ;)

Горе от ума smile

Добавлено через 6 минут и 34 секунды

Цитата(Yanis @ 30.3.2007, 14:15

)

потому что винда (IMHO проводник) считает их каталогами.

Ну точно.

Код

function IsFolder(ShellFolder: IShellFolder; ID: PItemIDList): Boolean;
var
  Flags: UINT;
begin
  Flags := SFGAO_FOLDER;
  ShellFolder.GetAttributesOf(1, ID, Flags);
  Result := SFGAO_FOLDER and Flags <> 0;
end;

Это сообщение отредактировал(а) Yanis - 30.3.2007, 13:16

--------------------

*щёлк*

Ak47black

Дата 30.3.2007, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 1
Всего: 0

Yanis,
Да ты прав. Спасибо +
Проблема решена. smile

Yanis

Дата 30.3.2007, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 72
Всего: 111

Ak47black,
Предлагаю такой вариант исправления:

Код

function IsFolder(ShellFolder: IShellFolder; ID: PItemIDList): Boolean;
var
  lpName: TStrRet;
  h: DWORD;
begin
  Result := False;
  lpName.uType := 0;
  ShellFolder.GetDisplayNameOf(ID, SHGDN_FORPARSING, lpName);
  Result := (GetFileAttributes(PChar(string(lpName.pOleStr))) and FILE_ATTRIBUTE_DIRECTORY) <> 0;
end;

Это сообщение отредактировал(а) Yanis - 30.3.2007, 14:01

--------------------

*щёлк*

Ak47black

Дата 30.3.2007, 15:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 1
Всего: 0

Я немного по другому исправил.
Нормально у меня работает smile

Еше раз Thx.

Это сообщение отредактировал(а) Ak47black - 30.3.2007, 15:17

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »