Правила форума
TextWidth (функция) (модуль Graph)Язык:
Русский
English
TextWidth (функция) (модуль Graph)
Возвращает ширину строки в пикселах.
Объявление
Function TextWidth(TextString : String) : Word;
Режим
Real, Protected
Замечания
Определяет ширину строки TextString в пикселах, учитывая текущий размер шрифта, коэффициент увеличения и длину строки. Это может быть полезно для вычисления ширины области просмотра, установки размера заголовка, для того, чтобы он уместился на графике или в окне, и так далее.
Например, при использовании растрового шрифта 8x8 и коэффициенте увеличения = 1 (установленном с помощью SetTextStyle), ширина графического представления строки 'VideoLord' равна 144 пикселам.
Можно использовать функцию TextWidth для вычисления ширины строк, вместо того, чтобы делать такие операции вручную. В таком случае, не нужно модифицировать исходный текст программы при использовании различных шрифтов и размеров.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для функции TextWidth }
var
Gd, Gm : Integer;
Row : Integer;
Title : String;
Size : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
Row := 0;
Title := 'Turbo Graphics';
Size := 1;
while TextWidth(Title) < GetMaxX do
begin
OutTextXY(0, Row, Title);
Inc(Row, TextHeight('M'));
Inc(Size);
SetTextStyle(DefaultFont, HorizDir, Size);
end;
ReadLn;
CloseGraph;
end.
::
::
::
