Turbo Pascal Documentation

Процедура GetArcCoords

Модуль Graph

     Функция: Позволяет пользователю выдавать запрос о коор-
динатах последней команды Аrс.
     Описание: GetArcCoords(var координаты: ArcCoordsType)
     Примечания: Данная процедура возвращает переменную типа
CoordType, который является предописанным и определен следу-
ющим образом:

      type
        ArcCoordsType :
        Х,Y : integer; Хнач, Yнач, Хкон,
        Yкон : word;
      end;

     Процедура GetArcCoords возвращает переменную,  содержа-
щую  точку центра (Х,Y), начальную позицию (Хнач,Yнач) и ко-
нечную позицию (Хкон,Yкон) последней команды Аrс. Эти значе-
ния могут быть полезными, если вы хотите, например, провести
прямую, начинающуюся от конца дуги.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры Arc, Ellipse, PieSlice,
PieSliseXY.
     Пример:

var
  ArcCoords : ArcCoordsType;
begin
  ...
  Arc(100,100,0,89,30);
  GetArcCoords(ArcCoorsType);
  MoveTo(100,100);
  with ArcCoords do
        Line(Xstart, Ystart, Xend, Yend);
  ...
  end.

Процедура 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.

Функция GetBkColor

Модуль Graph

     Функция: Возвращает текущее значение фонового цвета.
     Описание: GetBkColor
     Тип результата: Слово (word).
     Примечания: Фоновый цвет может принимать значения в ди-
апазоне  от  0 до 15 (в зависимости от текущего графического
драйвера и текущего графического режима).
     Если запись 0 палитры была изменена обращением к проце-
дурам  SetPalette  или  SetAllPalette, то функция GetBkColor
будет возвращать значение 0.
      Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры GetColor, GetPalette, Init-
Graph, SetAllPalette, SetBkColor, SetColor, SetPalette.
     Пример:

  uses Graph;
  var
    GraphDriver, GraphMode : integer;
    Color : word;
  begin
    GraphDriver := Detect;
    InitGraph(GraphDriver,GraphMode,'');
    if GraphResult <> grOk then
      Halt(1);
    Randomize;
    repeat
    Color := Succ(GetBkColor);
    if Color > PaletteSize then
      Color := 0;
    SetBkColor(Color);
    LineTo(Random(GetMaxX), Random(GetMaxY));
  until False;                 { для выхода нажмите ^Break }
end.

Процедура GetCBreak

Модуль Dos

     Функця: Возвращает состояние Ctrl-Break, которое прове-
ряется операционной системой ДОС.
     Описание: GetCBreak(var Break: boolean)
     Примечания:  Данная  процедура   возварщает   состояние
Ctrl-Break,  проверяемое  в  ДОС.  В  выключенном  состоянии
(False) ДОС проверяет Ctrl-Break только при выводе  на  кон-
соль,  устройство  печати  или  в коммуникационные порты. Во
включенном состоянии (True) проверки делаются при каждом об-
ращении к системе.
     Прочее: См. также функцию SetCBreak.

Функция GetColor

Модуль Graph

     Функция: Возвращает текущее значение  основного  цвета,
установленное  при предыдущем успешном обращении к процедуре
SetColor.
     Описание: GetColor
     Тип результата: Слово (word).
     Примечания: Если данная процедура  возвращает  значение
0, то это означает, что текущим цветом, используемым для вы-
черчивания, является первый цвет палитры. Основной цвет  мо-
жет принимать значения от 0 до 15, в зависимости от текущего
графического режима и графического драйвера.
     Аналогичная функция имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры GetBkColor, GetPalette, In-
itGraph, SetAllPelette, SetColor, SetPalette.
     Пример:

var
  GraphDriver, GraphMode : integer;
  Color : word;
begin
  GraphDriver := Detect;
  InitGraph(GraphDriver,GraphMode,'');
  Randomize;
repeat
    Color := Succ(GetBkColor);
    if Color > PaletteSize then
      Color := 0;
    SetBkColor(Color);
    LineTo(Random(GetMaxX), Random(GetMaxY));
  until False;                 { для выхода нажмите ^Break }
end.

Процедура GetDate

Модуль Dos

     Функция: Возвращает текущую дату, установленную в  опе-

рационной системе.
     Описание: GetDate(var год, месяц, число, день_недели  :
word)
     Примечания: Возвращаемые значения имеют следующие  диа-
пазоны:  "год" - 1980..2099, "месяц" - 1..12, "число" 1..31,
"день_недели" - 0..6 (где значение 0 соответствует воскресе-
нью).
     Прочее: См. также процедуры SetDate, GetTime, SetTime.

Функия GetDefaultPalette

Модуль Graph

     Функция: Возвращает запись описания паплитры.
     Описание: GetDefaultPalette(var палитра: PaletteType)
     Примечания:   Данная    функция    возвращает    запись
PaletteType,  содержащую палитру, инициализированную драйве-
ром при вызове процедуры InitGraph.

  const
     MaxColors = 15;
  type
    PaletteType = record
                    Size : byte;
                    Colors : array[0..MaxColor] of shortint;
                  end;

     Аналогичная фукнция имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также функции  InitGraph,  GetPalette,  Se-
tAllPalette, SetPalette.
     Пример:

  uses
   Crt, Graph;
  var
   Driver, Mode,
    i : integer;
   MyPal, OldPal : PletteType;
  begin
    DirectVideo := false;
    Randomize;
    Driver := Detect;   { перевести в граический режим }
    InitGraph(Driver, Mode, '');
    if GraphResult < 0 then
       Halt(1);
    GetDefultPalette(OldPal); { сохранить старую палитру }
    MyPal := OldPal; { скопировать и изменить }
    { вывести инормацию на экран }
    for i = 0 to MyPal.Size - 1 do
    begin
      GetColor(i);
      OutTextXY(10, i * 10, '...нажмите любую клавишу...');
    end;
    repeat      { менять палтру, пока нажата клавиша }
      with MyPl do
        Colors[Random(Size)] := Random(Size + 1);
      SetAllPalette(MyPal);
    until KeyPressed;
    SetAllPalette(OldPal); { восстановить исходную палитру }
    ClearDevice;
    OutTextXY(10, 10, 'Нажмите RETURN...')
    ReadLn;
    CloseGraph;
end.

Процедура GetDir

Процедура GetMem