Язык:
Русский
English
OutTextXY (процедура) (модуль Graph)
Посылает строку на устройство вывода.
Объявление
Procedure OutTextXY(X, Y : Integer; TextString : String);
Режим
Real, Protected
Замечания
Отображает TextString в позиции (X, Y). Строка TextString усекается на границе области просмотра, если она слишком длинная. Если один из штриховых шрифтов активен, то строка TextString усекается на границе экрана, если она слишком длинная. Если заданный по умолчанию (растровый шрифт активен, и строка слишком длинная, чтобы поместиться на экране, то текст не отображается вообще.
Используйте OutText, чтобы вывести текст в текущей позиции указателя (CP). Используйте OutTextXY, чтобы вывести текст в любой другой точке экрана.
Процедура OutTextXY использует набор шрифтов SetTextStyle. Чтобы поддерживать совместимость кода при использовании нескольких шрифтов, используйте TextWidth и TextHeight для определения размера строки.
Процедура OutTextXY использует опции вывода, установленные SetTextJustify.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры OutTextXY }
var
Gd, Gm : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
MoveTo(0, 0);
OutText('Inefficient');
ReadLn;
OutTextXY(GetX, GetY, 'Also inefficient');
ReadLn;
ClearDevice;
OutTextXY(0, 0, 'Perfect!'); { Заменяет верхнюю надпись }
ReadLn;
CloseGraph;
end.