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

Страница 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;

Предыдущая страница - Следующая страница »

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