VPF::Маштабирование компонентов (Tedit,TlistBox)

Berliner

Дата 13.4.2006, 10:11 (ссылка)

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

Загрузка ...

Опытный

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

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

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

~FoX~

Дата 13.4.2006, 10:22 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Свойство Achors тебе поможет

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

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 13.4.2006, 10:33 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

http://forum.vingrad.ru/index.php?showtopic=85367

Alexeis

Дата 13.4.2006, 10:35 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

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

делать это лучше примерно таким образом

Код


  if (form1.Components[i] is TButton) or (form1.Components[i] is TPanel) or (form1.Components[i] is TMemo) or (form1.Components[i] is TLisbox)
  then
    Begin
      TButton(form1.Components[i]).Width := k * TButton(form1.Components[i]).Width;
      ....................
    end;

Добавлено @ 10:41
Но масштабный коэффициент следует пересчитывать с поправкой на шрифт, пересчитать высоту шрифта, затем брать отношение реального изменения размера шрифта за параметр k. и масштабировать элементы уже по этому коэффициенту, тогда текст точно никуда не вылезет smile

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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