Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Удаление в ShellListView  (Прочитано 7495 раз)
0 Пользователей и 1 Гость смотрят эту тему.
UnRay
Гость
« : 06-11-2004 22:52 » 

Здравствуйте уважаемые форумчане!

У меня возникла проблема, не знаю что и делать. В Delphi 7 я использую компонент ShellListView. мне необходимо выводить файлы в него по маске, подскажите, как это можно реализовать. И еще, можно ли в этом компоненте удалять элементы, обычные способы не помогают.
Надеюсь на вашу помощь, очень нужно узнать, заранее спасибо.
Записан
UnRay
Гость
« Ответ #1 : 08-11-2004 22:55 » 

Если кто здесь, то хай. Я тут покопался и сам решение нашел, вот:
procedure TForm1.ShellListView1AddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
var
  XFilterExt, XExt: string;
begin
  if FilterComboBox1.Mask <> '*.*' then
  begin
    XFilterExt := ExtractFileExt(FilterComboBox1.Mask);
    XExt := ExtractFileExt(AFolder.PathName);
    // Only accept filter and folders
    if (CompareText(XExt, XFilterExt) = 0) or AFolder.IsFolder then
      CanAdd := True
    else
      CanAdd := False;
  end;
end;

// Refresh the ShellListView when the filter changes
procedure TForm1.FilterComboBox1Change(Sender: TObject);
begin
  ShellListView1.Refresh;
end;

работает на ура! Улыбаюсь
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines