Масштабирование окна
ОГЛАВЛЕНИЕ
Страница 1 из 2
implementation
const
ScreenWidth: Integer = 800; {Я разрабатывал свою форму в режиме 800x600.} ScreenHeight: Integer = 600;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
x, y: LongInt; {Тип Integer не достаточно большой для наших значений.}begin
form1.scaled := true; x := getSystemMetrics(SM_CXSCREEN); y := getSystemMetrics(SM_CYSCREEN); if (x <> ScreenHeight) or (y <> ScreenWidth) then begin form1.height := form1.height * x DIV ScreenWidth; form1.width := form1.width * y DIV ScreenHeight; end; if x <> ScreenWidth then scaleBy(x, ScreenWidth);
end;