"Масштаб" рабочего окна

[cccombo]

Говорю сразу я не программист, поэтому возможно мой вопрос не корректный.
Я написал расчетный модуль к своему диплому. У меня 22" монитор, разрешение 1920х1080. Окно программы занимает 3/4 экрана. При запуске программы на другом компе (15", 1366x768) окно программы не помещается на экране и часть просто не видна.
Можно ли как-то "масштабировать" рабочее окно программы в зависимости от разрешения

[Toxa]

открой свойства формы (кликни на форму и F11), и внизу списка свойство WindowState, выбирай wsMaximized

[Вадим Мошев]

Ну и размещение элементов надо пересчитать

[Lanik]

Ну и размещение элементов надо пересчитать

а как их правильно пересчитать? Если у меня на форме несколько выпадающих меню, таблица, три графика и несколько еще гридов, то для каждого делать коэффициент? Или есть что-то попроще? Допустим привязать их к панели, а внутри панели уже как-то автромасштаб можно делать?

[eoln]

Нужно установить свойства Align у компонентов исходя из нужного положения. Возможно, некоторые компоненты придётся поместить в дополнительные контейнеры (панели и т.п.)

Ещё как вариант сделать для "маленького" экрана (например, 1366x768) и при запуске изменять разрешение. Примерно так

procedure TForm1.Button1Click(Sender: TObject);
var
  dmScreenSettings: DEVMODE;
begin
  ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
  with dmScreenSettings do begin
    dmSize:=SizeOf(dmScreenSettings);
    dmPelsWidth:=1366;
    dmPelsHeight:=768;
    dmBitsPerPel:=32;
    dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL
  end;
  if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN)=DISP_CHANGE_FAILED) then begin
      MessageBox(0, 'Разрешение не сменилось', 'Ошибка', MB_OK or MB_ICONERROR);
      Application.Terminate
  end;
end;

[саша40]

Уменьшите размер программы, и масштубируйте математикой. 3/4 от экрана по высоте или ширине?

[Lanik]

Сообщение от eoln

Ещё как вариант сделать для "маленького" экрана (например, 1366x768) и при запуске изменять разрешение.

А если человек паралельно работает в других программах, то там тоже разрешение будет другое? Или можно как-то при изменении фокуса возвращать нормальное разрешение?

[Lanik]

У меня на форме находится таблица и под ней два графика.
Расположила таблицу на одну панель. Растягивается только в ширину.
С графиками беда. И каждый на своей панели и оба на одной - при растягивании формы при всех разрешенных Align (как по идее должно быть) один график наезжает на второй. Они оба растягиваются относительно своего левого верхнего угла. Пробовала правый график поставить выравнивание по правой стороне - не помогает

[phomm]

Пример того, что Вам надо. Ключевая вещь - расстановка свойств Align. У панелей top left и client(для правой), а у контролов внутри панелей - только client.

[Lanik]

Все спасибо. Я придумала. Может кому пригодится располагать горизонтально несколько рисунков.
1. Создаю панель 1 (платформа для двух форм). Мне она нужна для выравнивания рисунков всегда внизу. По идее теперь по этой технологии можно и высчитывать положение по вертикали. Но мне не нужно, т.к. рисунки всегда находятся снизу формы
1.1.На нее кидаю панель 2. Выравнивание левое. На нее график 1. Выравнивание - клиент.
1.2. Кидаю еще одну панель 3. Выравнивание правое. На нее график 2. Выравнивание - клиент
2. В событие FormConstrainedResize кидаю расчет:
Ширина формы 2 = ширина формы1 делен.пополам.
Форма3.Left = Ширина формы1 - Ширина формы 2 - 4 (на всякий случай расстояние между формами)
Теперь при распахивании или изменении окна мышкой рисунки пропорционально масштабируются