Turbo Pascal Documentation

Процедура TextWidth

Модуль Graph

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

         uses Graph;
        var
          Gd, Gm : integer;
           Row, Size : integer;
          Title : string;
        begin
          Gd := Detect;
          InitGraph(Gd, Gm, '');
          if GraphResult <> grOk then
             Halt(1);
          Row := 0;
          Title := 'Turbo Graphics';
        Size := 1;
        while TextWidth(Title) < WindiwWidth do
        begin
          OutTextXY(0, Row, Title);
          Inc(Row, TextHeight('M'));
          Inc(Size);
          SetTextStyle(DefaultFont, HorizDir, Size);
        end;
        Readln
        CloseGraph;
        end.