Процедура GraphDefaults

Модуль GRAPH

Обнуляет текущий указатель (CP), сбрасывает установки графической системы к значениям по умолчанию.

Объявление:

Procedure GraphDefaults;

Режим:

Real, Protected

Замечание:

Обнуляет текущий указатель (CP), сбрасывает установки графической системы к значениям по умолчанию для:

Области просмотра
Палитры
Цветов рисунка и фона
Типов и шаблонов линии
Цветов, стилей и шаблонов закраски
Активных шрифтов, стилей текста, текстового выравнивания, и размера шрифтов

Ограничения:

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

Пример:

{ Пример программы для процедуры GraphDefaults }

Uses Crt, Graph;

Var Gd, Gm  : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 SetColor(1);
 OutText('This text is in color #1');
 ReadLn;
 { Начнем сначала... }
 ClearViewPort; { Все стираем }
 GraphDefaults; { Установки по умолчанию }
 OutText('This text is the default color');
 ReadLn;
 CloseGraph;
End.