type
TFileViewStyle = (fvsIcons, fvsList, fvsDetails, fvsThumbnails, fvsTiles);
function SetFileDialogViewStyle(Handle: THandle; ViewStyle: TFileViewStyle): Boolean;
const
CommandIDs: array[TFileViewStyle] of Word = ($7029, $702B, $702C, $702D, $702E);
var
NotifyWnd: THandle;
begin
Result := False;
NotifyWnd := FindWindowEx(GetParent(Handle), 0, 'SHELLDLL_DefView', nil);
if NotifyWnd <> 0 then
begin
SendMessage(NotifyWnd, WM_COMMAND, CommandIDs[ViewStyle], 0);
Result := True;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Tag := 0;
OpenDialog1.Execute;
end;
procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
begin
if OpenDialog1.Tag = 0 then
begin
SetFileDialogViewStyle(OpenDialog1.Handle, fvsIcons)
OpenDialog1.Tag := 1;
end;
end;
Статья Список файлов в диалоге раздела Программа и Интерфейс Диалоги и Фреймы может быть полезна для разработчиков на delphi & pascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.