Сохранение положения сплиттеров в ини файле

[mutabor]

Всем привет, нужна помощь.
Имеется такое окно (см. вложение), никак не получается сохранить положение сплиттеров. Первая панель восстанавливается без проблем, сохраняю Panel1.Width, т.е. с вертикальным сплиттером проблем нет. А вот горизонтальный никак не могу сохранить, или не работает вообще или статусбар "всплывает" и становится выше Panel2, так происходит если менять Panel2.Height.

[Utkin]

Не понял, Вы не можете сохранить положение в файле, или потом его восстановить?

[mutabor]

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

Не понял, Вы не можете сохранить положение в файле, или потом его восстановить?

Могу и то и другое, не работает правильно. Суть проблемы в этой фразе - "или не работает вообще или статусбар "всплывает".

Поставлю вопрос по другому - что именно нужно сохранять, какие параметры? Чтобы можно было потом восстановить их положения (сплиттеров) до закрытия окна, и чтобы ничего не "уехало" при этом.

[Utkin]

Точное решение проблемы я не знаю, но могу предложить сохранять положение статусбара и возвращать его на место после всех манипуляций со сплиттерами. И еще как вариант попробуйте приклеить статусбар, сделав для него другого родителя (не форму).

[Баламут]

Может все-таки стоит сохранять размеры Панелей, а не положение сплитеров?

ЗЫ. Поспешил...

[mutabor]

И еще как вариант попробуйте приклеить статусбар, сделав для него другого родителя (не форму)

Это на крайний случай, хотелось бы чтобы родителем была форма.

сохранять положение статусбара и возвращать его на место

Каким образом? Align:=alBottom не помогает. Низом для него почему-то становится Panel2.

[apocalypce]

попробуй так:

type
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);

...

implementation

{$R *.dfm}

...

procedure TForm1.FormResize(Sender: TObject);
begin
  Panel2.Width := Panel1.Width div 2;
  Panel3.Width := Panel1.Width div 2;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel2.Width := Panel1.Width div 2;
  Panel3.Width := Panel1.Width div 2;
end;

думаю с третьей панелькой разберешься, сплиттеры думаю прикрутишь сам!

[SERG1980]

У меня решилась проблема следующим образом.
для начала выравнивание (в соотв с твоей схемой) панель2 ботом
панель1 лефт
панель 3 сайлент
панель 2 оставляем в покое.
у панель 1 сохраняем ширину
у панель 3 высоту. итогда нормально, а когда у панели 2 сохранял высоту то при загрузке статусбар всплывал вверх

[mutabor]

SERG1980, твой способ у меня не работает, запустил твой екзешник из архива не компилируя, такая же ситуация как и была у меня, горизонтальный сплиттер не меняет положения после загрузки, т.е. каким ты его при дизайне выставил, такой он и остается. В любом случае, спасибо за попытку помочь.

А на твоей машине что, работает? К примеру если потянуть гориз. сплиттер почти к самому верху окна, закрыть программу, открыть опять, и что, он у тебя будет наверху?

Решил проблему методом тыка. Вот такие манипуляции после изменения Panel2.Height помогают:

  Panel1.Width:=IniFile.ReadInteger('Panel1 Settings','Width',417);
  Panel2.Height:=IniFile.ReadInteger('Panel2 Settings','Height',107);
  Panel2.Align:=alTop;
  Panel2.Align:=alBottom;
  Splitter2.Align:=alTop;
  Splitter2.Align:=alBottom;

[Баламут]

Вчера дома уже тоже немного поэксперементировал с этим и пришел к такому решению

procedure TForm1.FormShow(Sender: TObject);
begin
  Splitter1.Align := alNone;
  Panel1.Align := alNone;
  Panel1.Align := alBottom;
  Splitter1.Align := alBottom;
end;

Несколько некрасиво, до думаю без переделки стандартного сплиттера в данном случае иначе не сделать.