Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.03.2024, 03:40   #1
kuzduk
Пользователь
 
Регистрация: 02.01.2010
Сообщений: 61
Стрелка Компоненты файловые менеджеры

Какие компоненты для отображения файлов и папок вы знаете? Какие используете? Почему? Порекомендуйте.

Вот что мне известно:

TShellListView из пакета ShellControl, который выпилили из палитры компонентов после Delphi 7, а жаль, ибо нужная вещь. Легко ищется в интернетах. Нет встроенного Drag-Drop, нет контекстного меню Shell, нет показывает Thumbs.


JamShellBrowser - умеет всё и даже больше, но платный. Можно 30 дней попользоваться биплатно без доступа к исходникам, потом die или дай денег.
https://www.jam-software.com/shellbrowser_net


VELVEx 1.4.9 - наверное лучшее что я встречал, бесплатный, умеет всё то нужно что отсутсвует в вышеперечисленных: готовый Drag-Drop, контекстного меню Shell для нескольких выделенных файлов, показывает Thumbs. Однако Нарыть исходники не получилось: на офсайте только часть необходимого, а то что прописано в uses найти не нашлось, кому посчастливиться нарыть полный фарш, будьте любезны поделиться.
https://www.silverpointdevelopment.com/velvex/


kuShellListView - мой компонент, который угораздило мну разрабатывать. Готовый Drag-Drop, с 2024 года имеет показывает Thumbs, НЕ показывает контекстного меню Shell, но имеет своё упрощённое. Основой для оного была и есть эта функция "как из TListView сделать проводник", которой делюсь:
https://kuzduk.ru/delphi/kushelllistview

Код:
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ icoShell Index
function Shell_ico_Index(FullPath: string): integer;
//uses ShellApi
var ShInfo: TSHFileInfo;
begin

SHGetFileInfo( PChar(FullPath), 0, ShInfo, SizeOf(ShInfo), SHGFI_TYPENAME or SHGFI_SYSICONINDEX );
Result := ShInfo.iIcon;

end;



//------------------------------------------------------------------------------ icoShell Load All
procedure Shell_ico_LoadAll(MyImageList: TImageList; icoSmall: Boolean);
//загружаем системные иконки типов файлов в ImageListы
//uses ShellApi
var
 SysImageList: uint;
 Flags: Cardinal;
 ShInfo: ShFileInfo;

begin

if icoSmall
then Flags := SHGFI_SYSICONINDEX or SHGFI_SMALLICON {or SHGFI_USEFILEATTRIBUTES}
else Flags := SHGFI_SYSICONINDEX or SHGFI_LARGEICON {or SHGFI_USEFILEATTRIBUTES};


//Запрашиваем иконки
SysImageList := SHGetFileInfo('', 0, ShInfo, SizeOf(TSHFileInfo), Flags);


if SysImageList <> 0
then MyImageList.Handle := SysImageList;

end;



//------------------------------------------------------------------------------ LV as Explorer
procedure LVasExplorer(LV: TListView; Path: string; HideShow: Boolean);
var
  sr: TSearchRec;
  xItem: TListItem;
  icoListSmall, icoListLarge: TImageList;
  Atrib: integer;

begin

if Length(Path) = 1
then Path := Path + ':\'
else Path := IncludeTrailingBackSlash(Path);


if not DirectoryExists(Path) then exit;


if HideShow
then Atrib := faDirectory + faAnyFile + faVolumeID
else Atrib := faDirectory + faAnyFile + faVolumeID - faHidden - faSysFile;

if FindFirst(Path + '*.*', Atrib, sr) <> 0
then
begin
//  ShowMessage(Path+' - ПАПКИ НЕ СУЩЕСТВУЕТ!'); //uses Dialogs 
  exit;
end;


LV.Cursor := crHourGlass;

LV.Items.BeginUpdate;

while LV.Columns.Count < 3 do
 LV.Columns.Add;


 
{$REGION ' иконки '}



//Создаем списки маленьких иконок типов файлов
if LV.SmallImages = nil

then
begin
  icoListSmall := TImageList.Create(LV.Owner);
  LV.SmallImages := icoListSmall;
end

else icoListSmall := LV.SmallImages as TImageList;


//Создаем списки больших иконок типов файлов
if LV.LargeImages = nil

then
begin
  icoListLarge := TImageList.Create(LV.Owner);
  LV.LargeImages := icoListLarge;
end

else icoListLarge := LV.LargeImages as TImageList;

Shell_ico_LoadAll(LV.SmallImages as TImageList, True);
Shell_ico_LoadAll(LV.LargeImages as TImageList, False);


{$ENDREGION}



LV.Items.Clear;

repeat
      if sr.Name = ''   then Continue;
      if sr.Name = '.'  then Continue;
      if sr.Name = '..' then Continue;

      if sr.Attr and faDirectory = faDirectory

      then//папка
      begin
          xItem := LV.Items.Add;
          xItem.Caption := (sr.Name);          //Name
          xItem.SubItems.Add('\Folder'); //Folder type
          xItem.SubItems.Add( inttostr(sr.Size) );
          xItem.ImageIndex := Shell_ico_Index(Path + sr.Name); //ico
      end

      else//файл
      begin
          xItem := LV.Items.Add;
          xItem.Caption := sr.Name;  //Name
          xItem.SubItems.Add( Copy(ExtractFileExt(sr.Name), 2) ); //Ext
          xItem.SubItems.Add( inttostr(sr.Size) ); //Size
          xItem.ImageIndex := Shell_ico_Index(Path + sr.Name); //ico
      end;


until FindNext(sr) <> 0;

FindClose(sr);

LV.Items.EndUpdate;

LV.Cursor := crDefault;
end;





procedure TForm1.Button1Click(Sender: TObject);
begin
LVasExplorer(ListView1, 'D:\Рабочий стол\123', True)
end;
мой сайт: kuzduk.ru

Последний раз редактировалось kuzduk; 20.03.2024 в 08:14.
kuzduk вне форума Ответить с цитированием
Старый 22.04.2024, 02:43   #2
divmone
Новичок
Джуниор
 
Регистрация: 20.02.2024
Сообщений: 1
По умолчанию

можно ли где-нибудь получить компонент shelllistview?
divmone вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Менеджеры закачек foxes Общие вопросы Delphi 10 09.05.2012 00:46
Менеджеры загрузки? S_Yevgeniy Свободное общение 10 02.09.2010 04:43