VPF::Как сохранить размеры и т.д. в ListView

ZBugz

Дата 14.7.2006, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Привет всем. Вопрос такой, а можно ли стандартными средствами сохранить ширину колонок, сортировку или еще что нибудь, что пользователь менял в ListView в режиме vsReport ? smile

Если нельзя, то может компонент подскажите, только желательно небольшой.

Snowy

Дата 14.7.2006, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Если только выбранные свойства, то вручную.
Если всё, то TStream.WriteComponent / TStream.ReadComponent

Gershkovich

Дата 14.7.2006, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

В дополнение Snowy :
http://forum.vingrad.ru/index.php?showtopic=88711

правда речь идет там про TFont, но приведено и общее решение для TComponent.

ZBugz

Дата 14.7.2006, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Цитата(Snowy @ 14.7.2006, 14:49)

Если только выбранные свойства, то вручную.
Если всё, то TStream.WriteComponent / TStream.ReadComponent

А я этим никогда не пользвался, может примерчик накидаете ? smile

Snowy

Дата 14.7.2006, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Примерчик чего именно?

Добавлено @ 15:01
http://forum.vingrad.ru/index.php?act=Sear...nt&skipped=

ZBugz

Дата 14.7.2006, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Цитата(Snowy @ 14.7.2006, 14:59)

Примерчик чего именно?

Добавлено @ 15:01
http://forum.vingrad.ru/index.php?act=Sear...nt&skipped=

Тут не то или я не нашел.

Код


var
  fs: TFileStream;
begin
  Memo1.Lines.Clear; // без этой строки будет сохраняться вместе с текстом
  fs := TFileStream.Create('C:\font.par', fmCreate);
  fs.WriteComponent(Memo1);
  fs.Free;
end;

и

потом

Код


var
  fs: TFileStream;
begin
  fs := TFileStream.Create('C:\font.par', fmOpenRead);
  fs.ReadComponent(Memo1);
  fs.Free;
end;

не работает.

Точнее работает, но крива, я изменяю размер 2-х, 3-х колонок, сохраняю, но востанавливается только 1-я колонка, а остальные сбиваются smile

Это сообщение отредактировал(а) ZBugz - 14.7.2006, 15:09

Snowy

Дата 14.7.2006, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Отлично работает:

Код

const FileName = 'C:\zzzzz.zzz';

procedure TForm1.FormDestroy(Sender: TObject);
var
  fs: TFileStream;
begin
  try
    fs := TFileStream.Create(FileName, fmCreate);
    fs.WriteComponent(ListView1);
    fs.Free;
  except end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  fs: TFileStream;
begin
  if FileExists(FileName) then
  try
    fs := TFileStream.Create(FileName, fmOpenRead);
    try
      fs.ReadComponent(ListView1);
    finally
      fs.Free;
    end;
  except end;
end;

ZBugz

Дата 14.7.2006, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Спасибки, от предыдущего почти не чем не отличается. Я понял, это и это не работает, когда в сваойствах колонки стоит autosize/
Все спасибки, то что нужно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »