[Agat330]

Доброго времени суток!
Собственно, вопрос в сабже.
Пытаюсь содержимое ImageList'a (иконки 16х16) сохранить в один файл. Пишу portable-программу, по этому хочется минимизировать комплект переносимых файлов. Вариант задать иконки в процессе разработки отпадает, т. к. пользователь должен иметь возможность их изменять, следовательно, они должны после этого сохраняться и грузиться при следующем запуске программы.

[poli-smen]

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

Собственно, вопрос в сабже.
Пытаюсь содержимое ImageList'a (иконки 16х16) сохранить в один файл.

Сохранение:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create('D:\ImageList1.comp', fmCreate);
  try
    fs.WriteComponent(ImageList1);
  finally
    fs.Free;
  end;
end;

Восстановление:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create('D:\ImageList1.comp', fmOpenRead or fmShareDenyNone);
  try
    fs.ReadComponent(ImageList1);
  finally
    fs.Free;
  end;
end;

[Agat330]

Ух ты! Не знал, спасибо Буду пробовать, экпериментировать