Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Масштабирование формы при изменение разрешения экрана

74K
05 марта 2012 года
Gudzik11
7 / / 02.12.2011
Здравствуйте ! Писал программу на мониторе с расширением 1280 x 1024 а на другом мониторе с меньшим расширением программа вылазит за рамки экрана.
Подскажите,пожалуйста,как сделать,чтоб при изменении разрешения масштабировал ась моя форма со всем содержимым?
79K
05 марта 2012 года
DesDeemon
8 / / 05.03.2012
Здравствуйте Gudzik11. Как то спрашивал подобный вопрос на других форумах. Вам нужно побаловаться с функцией scaleby. Так же в Delphi установка свойств Anchors позволит изменять размеры компонентов в зависимости от размеров формы.
74K
05 марта 2012 года
Gudzik11
7 / / 02.12.2011
Такой вариант не подходит ! Вот нашёл пример

Код:
implementation

const
  ScreenWidth: Integer = 800; {Я разрабатывал свою форму в режиме 800x600.}
  ScreenHeight: Integer = 600;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  x, y: LongInt; {Тип Integer не достаточно большой для наших значений.}
begin
  form1.scaled := true;
  x := getSystemMetrics(SM_CXSCREEN);
  y := getSystemMetrics(SM_CYSCREEN);
  if (x <> ScreenHeight) or (y <> ScreenWidth) then
  begin
    form1.height := form1.height * x div ScreenWidth;
    form1.width := form1.width * y div ScreenHeight;
  end;
  if x <> ScreenWidth then
    scaleBy(x, ScreenWidth);
end;

по горизонтале всё вписывается нормально а по вертикале немножко уезжает в низу . Не знаете в чём может быть причина?
79K
06 марта 2012 года
DesDeemon
8 / / 05.03.2012
У Вас Х сначала на высоту ориентируется а У на ширину а потом наоборот))) ну первым взглядом если посмотреть
if (x <> ScreenHeight) высота
or (y <> ScreenWidth) ширина
а потом
if x <> ScreenWidth ширина
Быть может в этом причина?

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог