Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TCoolBar с сохранением параметров

Автор: RGirichev 12.7.2006, 12:34

Добрый день, уважаемые мастера!
Подскажите, как мне решить проблему:

Есть существующий TCoolBar с двемя вложенными в него TToolBar'ами:
user posted image

Каким образом можно сохранить/загрузить позиции TToolBar'ов? К примеру:
user posted image

Буду очень признателен!

Автор: Akella 12.7.2006, 13:00

наверное у ToolBar`ов есть Left, Width, Top

Автор: Snowy 12.7.2006, 13:00

Сохранить:

Код

var
  fs: TFileStream;
begin
  try
    fs := TFileStream.Create('C:\cool.sav', fmCreate);
    fs.WriteComponent(CoolBar1);
    fs.Free;
  except end;
end;

Восстановить:

Код

var
  fs: TFileStream;
begin
  try
    fs := TFileStream.Create('C:\cool.sav', fmOpenRead);
    try
      fs.ReadComponent(CoolBar1);
    finally
      fs.Free;
    end;
  except end;
end;

Автор: RGirichev 12.7.2006, 13:13

Snowy, огромное спасибо!