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