Процедура GetFillPattern

Модуль Graph

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

Объявление:

 Procedure GetFillPattern(Var FillPattern : FillPatternType);

Режим: 

Замечания:
Если обращение к SetFillPattern не было сделано, то процедура GetFillPattern возвращает массив, заполненный байтами $FF. Нужно быть в графическом режиме.

Пример:

 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.

См. также:  GetFillSettings