Скрытые файлы в ShellListView

[artemavd]

Собственно говоря, как показать скрытые файлы/папки в ShellListView?

[Sensizu]

в параметрах смотри ObjectTypes. Там есть свойство otHidden. Ставишь на True - и будет показывать скрытое. Там же идёт и отображение папок.

[artemavd]

Да, верно. А как правильно программно записать? Я пробовал так:

  Form1.ShellListView1.ObjectTypes:=otHidden;

Но не канает, ошибка.

[Sensizu]

Не так. Вот так:

Form1.ShellListView1.ObjectTypes:=[otHidden];

[artemavd]

Cстранно, если выставлю в параметрах компонента, то отображается скрытый файл, а если написано так:

 if Form1.CheckBox11.Checked = True then
 begin
  Form1.ShellListView1.ObjectTypes:=[otHidden];
//  Form1.ShellListView1.ObjectTypes:=[otFolders];
  Form1.ShellListView1.ObjectTypes:=[otNonFolders];
 end;

То нет.

[Sensizu]

Все написано правильно, значит не в нужном месте стоит.
Поставьте код

 if Form1.CheckBox11.Checked = True then
 begin
  Form1.ShellListView1.ObjectTypes:=[otHidden];
//  Form1.ShellListView1.ObjectTypes:=[otFolders];
  Form1.ShellListView1.ObjectTypes:=[otNonFolders];
 end;

в CheckBox11.Click и всё должно работать.

[Пепел Феникса]

может потому что это множество и к нему надо добавлять значение?

  Form1.ShellListView1.ObjectTypes:=Form1.ShellListView1.ObjectTypes+[otHidden];
  Form1.ShellListView1.ObjectTypes:=Form1.ShellListView1.ObjectTypes+[otNonFolders];

включаем(возможно [] там не нужны)

  Form1.ShellListView1.ObjectTypes:=Form1.ShellListView1.ObjectTypes-[otHidden];
  Form1.ShellListView1.ObjectTypes:=Form1.ShellListView1.ObjectTypes-[otNonFolders];

выключаем.

[artemavd]

Там и находится. Я просто шапку не написал процедуры, думал, что понятно будет. Вот так написано:

procedure TForm1.CheckBox11Click(Sender: TObject);
begin
 if Form1.CheckBox11.Checked = True then
 begin
  Form1.ShellListView1.ObjectTypes:=[otHidden];
//  Form1.ShellListView1.ObjectTypes:=[otFolders];
  Form1.ShellListView1.ObjectTypes:=[otNonFolders];
 end;
end;

И это не работает.

[artemavd]

Пепел Феникса, Вы правы. Sensizu, спасибо Вам за указание на мою ошибку

[Sensizu]

artemavd, всегда рад помочь.