VPF::Оптимизация выравнивания панелей по форме

mauar

Дата 27.8.2009, 03:32 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 5.9.2007

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

Есть четыре панели, они расположены рядом друг с друг, вот таким образом:

Скриншот_1
user posted image

При развороте окна на весь экран эти панели съезжают,
для верхней левой панели в параметрах Anchors, свойство Left установил в True.
Для правой верхней панели свойство Right сделал в True.
Для нижних панелей я таже сделал выравнивание по левому и правому краю.

Теперь у меня панели расходятся по разным углам:

Скриншот_2"
user posted image

Как мне сделать так чтобы панели когда окно разворачивалось на весь экран,
не только по левому и правому краю было выравнивание но и по центру, то есть чтобы расширялись и в окне было бы 4 панели плотно прикреплены друг к другу, в общем приняли бы такой же вид как при свернутом окне, на первом скриншоте?

Исходник моего творенья
http://narod.ru/disk/12470836000/Panels.rar.html

[/code]

Frees

Дата 27.8.2009, 06:35 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 16
Всего: 54

используй TGidPanel

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

Кольцов Виктор Владимирович

niteo

Дата 27.8.2009, 07:13 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

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

Вот. Попробуй так smile

Код


procedure TForm1.FormResize(Sender: TObject);
begin
  Panel1.Left := 0;
  Panel1.Top  := 0;
  Panel1.Width := round(form1.Width / 2);
  Panel1.Height := round(form1.Height / 2);

  Panel2.Left := 0;
  Panel2.Top  := round(form1.Height / 2);
  Panel2.Width := round(form1.Width / 2);
  Panel2.Height := round(form1.Height / 2);

  Panel3.Left := round(form1.Width / 2);
  Panel3.Top  := 0;
  Panel3.Width := round(form1.Width / 2);
  Panel3.Height := round(form1.Height / 2);

  Panel4.Left := round(form1.Width / 2);
  Panel4.Top  := round(form1.Height / 2);
  Panel4.Width := round(form1.Width / 2);
  Panel4.Height := round(form1.Height / 2);
end;

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

Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...

pushok

Дата 28.8.2009, 18:29 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 7.2.2007

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

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

Возможно найти общее решение, чтобы его можно было использовать не для одной конкретной формы?

niteo

Дата 31.8.2009, 07:17 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

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

Ну, способов существует множество:
1 изменять свойства компонент, перебрав их все на родительской форме

Код


  for i := 0 to ComponentCount - 1 do
     (Components[i] as TWinControl).Left := 10;

2 изменять св-ва посылая сообщения формам, контролам

Код


// Здесь 0 это номер формы
Screen.Forms[0].Perform(); // Это для форм
Screen.Forms[0].Broadcast(msg); // Это для контролов

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

Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...

Vas

Дата 31.8.2009, 14:55 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: нет
Всего: 28

Вероятно вот это тебе поможет

Это сообщение отредактировал(а) Vas - 31.8.2009, 14:56

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

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

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