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

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

Эта подпрограмма сделает жизнь программиста намного легче. Она делает так, чтобы ваша программа корректно масштабировалась при ЛЮБОМ разрешении экрана. Обратите внимание на число 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com