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

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

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

Автор: Ak47black 27.9.2007, 18:55

Здравствуйте.
Вообщем у меня следующая ситуация
На TTabSheet есть два TPanel у одного Align = alLeft,а у другово Align = alClient и между ними разделитель толщиной 4 pixel.
user posted image

Немогу никак сделать выравнивание.
Я хочу сделать чтобы при изменение ширины эти два TPanel тоже меняли размер по ширине и при этом меняли его пропорционально относительно размера друг друга. Низнаю как выразиться.
Например если размеры по ширине одинаковые то при увеличении будут увеличиваться одинаково, а если один в два раза меньше другого, то он будет в два раза меньше увеличиваться. Тоже самое и с уменьшением.
Я пытался сделать вот так, но чтото не то выходит у меня

Код


  TPanel1.Width:= Round((TTabSheet.Width-4) / ((TPanel1.Width / TPanel2.Width)*2));
  TPanel2.Width:= Round((TTabSheet.Width-4) / ((TPanel2.Width / TPanel1.Width)*2));

Подскажите пожалуйста как тут сделать ?

Автор: Rodman 27.9.2007, 19:04

лови

Автор: Ak47black 27.9.2007, 19:10

Не мне нужно чтобы два изменялись. А Splinter не изменялся между ними.