[nixon232]

Как реализовать, чтобы при изменении размера формы сохранялись пропорции не только элементов, но и текст подгонялся?

[Mrak]

align, margins, alignWithMargins

[nixon232]

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

align, margins, alignWithMargins

Это то понятно, но на практике что-то не выходит нужный эффект. можно более наглядно? например:
есть форма, на ней три груп бокса: левый, правый, центральный.
левый и правый - квадраты, которые должны и оставаться такими, но при ресайзе пропорции у меня сбиваются. Центральный должен быть прижат к верху малой гранью, и быть по центру горизонтально(между правым и левым)

[Mrak]

не совсем понятно со слов

можно использовать якоря - Anchors
можно в FormResize написать, типа Panel.Width:=100500;

[poli-smen]

В особо сложных случаях можно использовать событие OnResize в котором самостоятельно задавать размеры и положение панелей в соответствии с нужной логикой.

UPD
Тьфу-ты! Mrak об этом же уже написал - не дочитал до конца его сообщение...

[nixon232]

Сообщение от poli-smen

В особо сложных случаях можно использовать событие OnResize в котором самостоятельно задавать размеры и положение панелей в соответствии с нужной логикой.

UPD
Тьфу-ты! Mrak об этом же уже написал - не дочитал до конца его сообщение...

Да я не думаю, что у меня сложный случай, но что-то не могу понять.
вот прикрепил форму.
Задача: чтобы при ресайсе сохранялись пропорции элементов.
и вопрос в догонку - как сделать чтобы ресайзинг был равномерным, т.е. при изменении длины менялась и высота формы. через коэффициент типо Width/Height? Или существуют другие варанты?

[Alegun]

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

Да я не думаю, что у меня сложный случай, но что-то не могу понять...

имхо... В корне не верный подход. Возник вопрос, а что будет с расположением и размером этих многочисленных элементов на форме, если, к примеру, у КП (юзера) в системе установлен крупный шрифт или разрешение отличное вверх от разрешения разработчика? Невозможно просчитать все варианты, надоест, чтоб оно нормально масштабировалось, такое надо картинкой рисовать и забыть о визуальных компонентах.

Максимум, что здесь подходит, так это расчитать расположение всех составляющих под два варианта мелкого и крупного шрифта в Create формы

Код:

procedure TForm1.FormCreate(Sender: TObject);
 function SmallFonts : BOOLEAN;
 var
  DC : HDC;
 begin
  DC := GetDC(0);
  Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);
  ReleaseDC(0, DC);
 end;
begin
 if SmallFonts then
  begin
// под мелкий шрифт
Panel1.Width:= 25; 
...
  end else
   begin
// под другой
Panel1.Width:= 27; 
...
   end;
end;

и вообще запретить изменять размеры формы посредством WMGetMinMaxInfo. Свобода и удобство - это хорошо, но практичность и простота при разработке лучше. Овчинка выделки не стоит: пол кода, а может и больше, будет в одних расчётах положения...