Правила форума
TextHeight (функция) (модуль Graph)Язык:
Русский
English
TextHeight (функция) (модуль Graph)
Возвращает высоту строки в пикселах.
Объявление
Function TextHeight(TextString : String) : Word;
Режим
Real, Protected
Замечания
Определяет высоту строки TextString в пикселах, учитывая текущий размер шрифта и коэффициент увеличения. Это может быть полезно для корректировки расстояния между строками, для вычисления высоты области просмотра, установки размера заголовка для того, чтобы он уместился на графике или в окне, и так далее.
Например, при использовании растрового шрифта 8x8 и коэффициенте увеличения = 1 (установленном с помощью SetTextStyle), высота графического представления строки 'VideoLord' равна 8 пикселам.
Можно использовать функцию TextHeight для вычисления высоты строк, вместо того, чтобы делать такие операции вручную. В таком случае, не нужно модифицировать исходный текст программы при использовании различных шрифтов и размеров.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для функции TextHeight }
const S = 'Turbo Pascal';
var
Gd, Gm : Integer;
Y, Size : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
