Масштабирование окна


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;

 
« Предыдущая статья   Следующая статья »