Плавное изменение размеров панелей

[Xo66um]

Доброго всем времени суток.

Скажите, пожалуйста, как можно реализовать нечто подобное, как в Total Commander, т.е. когда изменяешь размеры главного окна, то две основные панели (с ListView) плавно изменяют свои размеры по отношению друг к другу?

Я пробовал сделать сам, но у меня панели "дергаются" при изменении окна, а при нажатии на кнопку "развернуть" или "свернуть" - панели вообще раскидывает на over9000 % в сторону, так, что выскакивает ошибка "A call to an OS function falled".

[Человек_Борща]

Скажите, пожалуйста, как можно реализовать нечто подобное, как в Total Commander, т.е. когда изменяешь размеры главного окна, то две основные панели (с ListView) плавно изменяют свои размеры по отношению друг к другу?

Якорями(Anchors) это называется. Есть у любого компонента delphi(визуального).

[Stilet]

у меня панели "дергаются" при изменении окна

Тоесть? У тебя там какая-то перерисовка идет?

[Xo66um]

Сообщение от Человек_Борща

Якорями(Anchors) это называется. Есть у любого компонента delphi(визуального).

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

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

Тоесть? У тебя там какая-то перерисовка идет?

Не совсем перерисовка. Просто две панели (одна справа, другая слева), и по середине Splitter.

Изменение размеров панелей Сплиттером нормально проходит, но мне надо чтобы размеры панелей изменялись в пропорциях от размера окна программы. Как в Total Commander.

Я пробовал сам сделать, но у меня не получается уйти от "дергания" панелей при изменении размеров окна программы, а после нажатия на "Развернуть" или "Свернуть в окно" - одна из панелей растягивается слишком широко, что бывает выскакивает ошибка.
ЛИБО одна из панелей просто "ездит" в сторону при изменении размеров окна (см. код ниже).

Собственно, вот один из вариантов кода:

procedure TForm1.FormResize(Sender: TObject);
begin
 Form1.Panel1.Width := Form1.ClientWidth - Form1.Panel2.Width;
 Form1.Panel2.Width := Form1.ClientWidth - Form1.Panel1.Width;
end;

[Stilet]

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

Первую панель поставь align:=alLeft;
Сплиттер тоже в лефт.
А вот вторую панель сделай align:=alClient;

[alextrof94]

смотри. можно сделать используя глобальную переменную для процентов размеров от формы. Как я понял ты хочешь, чтобы из ||.|..|| получалось ||..|....||. для этого достаточно завести 1 переменную PercentForLeftPanel и в ресайзе прописать

Panel1.Width:=round(Form1.width/100*PercentForLeftPanel);
Panel2.Width:=Form1.width-Panel1.Width;
//сюда же можно просто прописать обновление сплиттера на позицию round(Form1.width/100*PercentForLeftPanel); вместо первых 2х строк

а в изменении сплиттера прописать

PercentForLeftPanel:=splitter.left/(Form1.width/100);

[Xo66um]

Были проблемы с компьютером, не смог зайти раньше, извините.

Stilet, alextrof94, спасибо вам огромное, оба варианта работают на ура! Оставил отзыв alextrof94, но Stilet не смог, форум ошибку пишет, что якобы я уже отзыв добавлял, хотя это не так...

[Stilet]

хотя это не так...

За меня не переживай - не пропаду.