Как сохранить пропорции у ScaledLayout ?

[chaplin.u@gmail.com]

Для подстройки под размер экрана я использовал ScaledLayout но этот компонент делает не пропорциональное увеличение по Х и У и текст получается растянутый. 

Как сохранить пропорции чтобы увеличение было одинаковым ?

[krapotkin]

для подстройки под размер неплохо бы просто Layout использовать и Align

[chaplin.u@gmail.com]

с этого и начал но на больших экранах ( планшет) получается смешно. типа справа в углу маленькая кнопка и слева в углу маленькая кнопка а посредине пустыня.

зум решает проблему но тексты становятся растянутые ( экран шире по-горизонтали)...

[enatechno]

Если хотите пропорционального изменять размеры  ScaledLayout:
1). Используйте для него выравнивание по одному краю (например: Top, Left ... );
2). При запуске программы фиксируйте TScaledLayout.OriginalWidth и TScaledLayout.OriginalHeight;
3). Т.к. в зависимости от выравнивания у Вас будет изменятся один из параметров (при выравнивании Top - Width, при Left - Height), то будьте готовы в OnResize изменять пропорционально второй параметр. Например так:
 

  aRatio := ScaledLayout1.Width / ScaledLayout1.OriginalWidth;
  ScaledLayout1.Height := ScaledLayout1.OriginalHeight * aRatio;

 

tstScaledLayout.zip

[chaplin.u@gmail.com]

работает !

[Yuriy Krasnoshchekov]

Все привет.

Странно а почему не работает просто ScaledLayout?