getfpatt.pas

 {GetFPatt.PAS}
 
 { Пример программы для 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.