Процедура GetFillPattern

Модуль GRAPH

Возвращает текущий шаблон закраски, установленный SetFillPattern.

Объявление:

Procedure GetFillPattern(Var FillPattern : FillPatternType);

Режим:

Real, Protected

Замечание:

Если обращение к SetFillPattern не было сделано, то процедура GetFillPattern возвращает массив, заполненный байтами $FF.

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

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

Пример:

{ Пример программы для GetFillPattern и SetFillPattern }

Uses Graph;

Const Gray50 : FillPatternType = ($AA, $55, $AA, $55, $AA, $55, $AA, $55);

Var Gd, Gm  : Integer;
 OldPattern : FillPatternType;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, 'C:\BP\BGI');    { Путь к BGI драйверам }
 If GraphResult <> grOk Then Halt(1);
 GetFillPattern(OldPattern);
 SetFillPattern(Gray50, White);
 { Рисуем полосу на 50% серой }
 Bar(0, 0, 100, 100);
 ReadLn;
 SetFillPattern(OldPattern,White);
 { Рисуем полосу старым стилем }
 { (по умолчанию, состоящим из байт $FF) }
 Bar(0, 0, 100, 100);
 ReadLn;
 CloseGraph;
End.