[Corwin13]

Делаю подобие каталогизатора файлов, большая часть готова, но застрял на обработке в listview. Смысл в том, чтобы можно было загонять файлы через Opendialog и в listview можно было бы двойным кликом открывать файлы.
1. Файлы закидываются.
2. Двойным кликом открываются.
3. Список файлов сохраняется в файл.

А вот при следующем запуске программы и загрузке списка файлов из файла - всё подгружается, но двойной клик не работает.

Выкладываю часть проги, которая относится именно к listview.

Прошу помощи, listbox на форме чисто для проверки.

[Alegun]

Сообщение от Corwin13

...при следующем запуске программы и загрузке списка файлов из файла - всё подгружается, но двойной клик не работает...

Код:

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
ShellExecute(Application.MainForm.Handle,'Open',PChar(ListView1.Selected.SubItems[0]),Nil,Nil,SW_SHOW);
end;

[Corwin13]

Сообщение от Alegun

Код:

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
ShellExecute(Application.MainForm.Handle,'Open',PChar(ListView1.Selected.SubItems[0]),Nil,Nil,SW_SHOW);
end;

Вот большое спасибо, уже дня 3 с этой засадой сидел, вся работа встала. Благодарю.

[Corwin13]

Почему-то не сохраняются, и не загружаются иконки файлов. Пробовал сохранять поток тоже не выходит:

Код:

var
Writer : TWriter;
FileStream : TFileStream;

begin

if SaveDialog1.Execute then begin
FileStream:=TFileStream.Create(SaveDialog1.FileName,fmOpenWrite or fmCreate);
Writer := TWriter.Create(FileStream, SizeOf(ListView1));
Writer.WriteRootComponent(ListView1);
Writer.Free;
FileStream.Free;

Загрузка:

Код:

var
reader : TReader;
FileStream : TFileStream;
begin

if OpenDialog1.Execute then begin
FileStream:=TFileStream.Create(OpenDialog1.FileName,fmOpenread);
Reader := TReader.Create(FileStream, SizeOf(ListView1));
Reader.ReadRootComponent(ListView1);
Reader.Free;
FileStream.Free;

[Alegun]

Сообщение от Corwin13

...не сохраняются, и не загружаются иконки файлов...

И не будут - при загрузке ListView "подсовывается" пустой ImageList, иконок там нет и нечего грузить. Чтоб это исправить, замените в своём коде процедуры сохранения\загрузки на эти

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  FStr: TFileStream;
  MemStr: TMemoryStream;
  i: integer;
begin
  FStr:= TFileStream.Create('c:\ImageList1.sav', fmCreate);
  MemStr:= TMemoryStream.Create;
  MemStr.WriteComponent(ImageList1);
  MemStr.Position:= 0;
  ObjectBinaryToText(MemStr, FStr);
  MemStr.Free;
  FStr.Free;

  SaveListViewToFile1(ListView1, 'C:\1.sav');
 ListBox1.Items.SaveToFile('c:\lisbox.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);

var
  FStr: TFileStream;
  MemStr: TMemoryStream;
ListItem: TListItem;
begin

    FStr:= TFileStream.Create('c:\ImageList1.sav', fmOpenRead);
    MemStr:= TMemoryStream.Create;
    ObjectTextToBinary(FStr, MemStr);
    MemStr.Position:= 0;
    MemStr.ReadComponent(ImageList1);
    MemStr.Free;
    FStr.Free;

   ListView1.SmallImages:= ImageList1;
ListView1.Items.BeginUpdate;
LoadListViewToFile1(ListView1, 'C:\1.sav');
ListBox1.Items.LoadFromFile('c:\lisbox.txt');
ListView1.Items.EndUpdate;
 end;

замечание - файлов сохранения становится всё больше и хранить их, наверное, лучше в отдельной папке.

[Corwin13]

Спасибо, все получилось, а с файлами потом разбираться буду, пока так быстрей.

[Страдалецъ]

Большой сюрпиз вам приподнесет OpenDialog. Попробуйте выделить в нем скажем 1000 файлов и загнать в ваш ListView.