Процедура автоматического масштабирования формы под разрешение экрана

Процедура автоматического масштабирования формы под разрешение экрана

Эта подпрограмма сделает жизнь программиста намного легче. Она делает так, чтобы ваша программа корректно масштабировалась при ЛЮБОМ разрешении экрана. Обратите внимание на число 640. Дело в том, что я разрабатываю свои приложения при разрешении 640x480. Вы можете настроить подпрограмму на ваше экранное разрешение при разработке программ и больше не беспокоиться о всевозможных низких и больших разрешений ваших пользователей. Разместите в обработчике события формы (которую вы хотите автомасштабировать) OnCreate следующую строку:

AdjustResolution(Self);

{ 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;