Turbo Pascal Documentation

Функция TextHeight

Модуль Graph

     Функция: Возвращает высоту строки в элементах изображе-
ния.
     Описание: ТехtНеight(текст_строка : string)
     Тип результата: Слово (word).
     Примечания: На основе размера текущего шрифта и коэффи-
циента   размера   определяет  строки,  заданной  параметром
"текст_строка", в элементах изображения. Это полезно исполь-
зовать для выбора интервала между строками, вычисления высо-
ты области просмотра, определения размера  заголовка,  чтобы
он  поместился  в  заданном рисунке или в заданную область и
т.д. Например, при испоьзовании шрифта  с  двоичным  образом
8х8  и  коэффициента  размера  1  (установленных  процедурой
SetTextStyle) строка Тurbо будет иметь  высоту  8  элементов
изображения.
     Очень важно использовать процедуру TextHeight  для  вы-
числения  высоты  строк, вместо того, чтобы делать это вруч-
ную. Тогда при выборе различных шрифтов  отпадает  необходи-
мость изменения текста программы.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры  OutText,  OutTextXY,  Set-
TextStyle, TextWidth, SetUserCharSize.
     Пример:

         uses Graph;
        var
          Gd, Gm : integer;
           Y, Size : integer;
        begin
          Gd := Detect;
          InitGraph(Gd, Gm, '');
          if GraphResult <> grOk then
             Halt(1);
       Y := 0;
        for Size := 1 to 5 do
       begin
         SetTextStyle(DefaultFont, HorizText, Size);
         OutTextXY(0, Y, 'Графика Турбо-Паскаля');
         Inc(Y, TextWidth('Графика Турбо-Паскаля'));
       end;
       Readln;
        CloseGraph;
        end.