{Getfsets.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the GetFillSettings procedure.}

  uses Graph;

 var
   Gd, Gm: Integer;
   FillInfo: FillSettingsType;
 begin
   Gd := Detect;
   InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then
     Halt(1);
   GetFillSettings(FillInfo);   { Save fill style and color }
   Bar(0, 0, 50, 50);
   SetFillStyle(XHatchFill, GetMaxColor);   { New style }
   Bar(50, 0, 100, 50);
   with FillInfo do
     SetFillStyle(Pattern, Color);   { Restore old fill style }
   Bar(100, 0, 150, 50);
   Readln;
   CloseGraph;
 end.