getasprt.pas
Пример программы для процедуры GetAspectRatio.
Код примера
{Getasprt.PAS}
{ Пример программы для процедуры GetAspectRatio }
Uses Graph;
Var Gd, Gm : Integer;
Xasp, Yasp : Word;
XSideLength : Integer;
YSideLength : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
GetAspectRatio(Xasp, Yasp);
XSideLength := 20;
{ Просчитываем значение Y }
YSideLength:=Round( (Xasp / Yasp) * XSideLength);
{ Рисуем квадрат }
Rectangle(0, 0, XSideLength, YSideLength);
ReadLn;
CloseGraph;
End.
Скачать getasprt.pas