Вывод текста на экран в графическом режиме.

Как мы уже знаем, для вывода на экран какого-либо текста используется либо процедура Write, либо Writeln. Эти процедуры применяются исключительно в текстовом режиме. Для того чтобы вывести на экран текст в графическом режиме используется процедура OutText.

 Вывод текста на экран в графическом режиме. Процедура OutText.

Program Graphika17;
Uses Graph;
Procedure Graphinterface;
Var  gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:=' ';
Initgraph(gd,gm,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end
end;
begin
Graphinterface;
setcolor(3);
outtext ('pascal');
readln;
end.

В строке №19 устанавливаем цвет для выводимого на экран текста. Т.е. процедура SetColor определяет не только цвет линий, но цвет текста, выводимого с помощью процедуры OutText.

В строке №20 записываем процедуру OutText.  Эта процедура выводит на экран текст в графическом режиме. Сам текст записывается в круглых скобках и в кавычках после слова OutText. В нашем примере мы выводим на экран слово «pascal».

Как видете, процедура OutText выводит текст в месте расположения текущего указателя (по умолчанию указатель находится в точке с координатами 0,0).

Предыдущая статья : Процедуры PieSlice и Sector.

Оглавление : Уроки Паскаль. Графика.

Следующая статья : Процедура SetTextStyle.