HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 октября. В 1954 году (64 года назад) - Представители Сша, Великобритании, Франции и СССР договариваются о прекращении оккупации Германии. Девять государств подписывают Соглашение о Западноевропейском союзе, предоставляющем Италии и Западной Германии возможность присоединиться к Брюссельскому договору 1948 года.
 
 

Turbo Pascal Documentation

Процедура GetAspectRatio

Модуль Graph


     Функция: Возвращает действующую разрешающую способность
графического  экрана, с помощью которого можно вычислить ко-
эффициент относительного удлиннения (Хк,Yк).
     Описание: GetAspectRatio(var Хк, Yк : word)
     Примечания: Для каждого драйвера и графического  режима
имеется  связанный с ним коэффициент относительного удлинне-
ния (частное от деления максимального  разрешения  по  y  на
максимальное разрешение по x). Это отношение можно вычислить
путем обращения к процедуре  GetAspectRatio  и  последующего
деления параметра Хк на параметр Yк. Это отношение использу-
ется при вычерчивании окружностей, дуг и закруглений.
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры Arc, Circle, GetMaxX,
GetMaxY, PieSlice, SetAspectRatio.
     Пример:

var
  Xasp, Yasp : word;
  XSideLength, YSideLength : integer;
begin
  ...
  GetAspectRatio(Xasp,Yasp);
   XSideLength := 20;
    { выровнять длину по Y в соответствии с коэфициентом
      относительного удлиннения }
   YSideLength := Round((Xasp/Yasp)*XSideLength);
    { нарисовать на экране "квадратный" прямоугольник }
   Rectangle(0,0,XSideLength,YSideLength);
   ...
  end.




HOME