Функция TextHeight()

Модуль GRAPH

Возвращает высоту строки в пикселах.

Объявление:

Function TextHeight(TextString : String) : Word;

Режим:

Protected,  Real

Замечание:

Определяет высоту строки TextString в пикселах, учитывая текущий размер шрифта и коэффициент увеличения. Это может быть полезно для корректировки расстояния между строками, для вычисления высоты области просмотра, установки размера заголовка для того, чтобы он уместился на графике или в окне, и так далее.

Например, при использовании растрового шрифта 8x8 и коэффициенте увеличения = 1 (установленном с помощью SetTextStyle), высота графического представления строки 'VideoLord' равна 8 пикселам.

Можно использовать функцию TextHeight для вычисления высоты строк, вместо того, чтобы делать такие операции вручную. В таком случае, не нужно модифицировать исходный текст программы при использовании различных шрифтов и размеров.

Нужно быть в графическом режиме.

Пример:

 
 { Пример программы для функции TextHeight }
 
 Uses Graph;
 
 Const S = 'Turbo Pascal';
 
 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, HorizDir, Size);
    OutTextXY(0, Y, S);
    Inc(Y, TextHeight(S));
   End;
  ReadLn;
  CloseGraph;
 End.