Процедура автоматического масштабирования формы под разрешение экрана
Эта подпрограмма сделает жизнь программиста намного легче. Она делает так,
чтобы ваша программа корректно масштабировалась при ЛЮБОМ разрешении экрана.
Обратите внимание на число 640. Дело в том, что я разрабатываю свои приложения
при разрешении 640x480. Вы можете настроить подпрограмму на ваше экранное
разрешение при разработке программ и больше не беспокоиться о всевозможных
низких и больших разрешений ваших пользователей. Разместите в обработчике
события формы (которую вы хотите автомасштабировать) OnCreate следующую
строку:
{ AdjustResolution ******************************************************* }
{ Данная процедура масштабирует все дочерние формы данной формы для }
{ соответствия текущему разрешению }
{ ************************************************************************ }
procedure AdjustResolution(oForm:TForm);
var
iPercentage:integer;
begin
if Screen.Width > 640 then
begin
iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;
|
|
|
  |
|
|