VPF::Выравнивание двух TPanel. - Форум программистов

Ak47black

Дата 27.9.2007, 18:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Здравствуйте.
Вообщем у меня следующая ситуация
На 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 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

лови

Присоединённый файл ( Кол-во скачиваний: 5 )

Example.7z 2,32 Kb

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Ak47black

Дата 27.9.2007, 19:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

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

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