Turbo Pascal Documentation

Процедура GetFillSettings

Модуль Graph

      Функция: Позволяет выдавать запрос о текущем  типе  за-
полнителя  и его цвете, которые установлены процедурами Set-
FillStyle или SetFillPattern.
     Описание:    GetFillSetings(var     информ_заполн     :
FillSettingsType)
     Примечания: Данная процедура возвращает переменную типа
FillSettingsType, который описывается в модуле Graph следую-
щим образом:

type
   FillSettingsType = record
                        Pattern : word;             { тип }
                        Color   : word;             { цвет }
                      end;

     Поле Pattern содержит выбранный в качестве текущего тип
заполнителя.  Поле Color содержит выбранный в качестве теку-
щего цвет закраски. И образец, и цвет закраски  можно  изме-
нить путем обращения к процедурам SetFillStyle и SetFillPat-
tern.
     Ограничения: Должен использоваться графический режим.
     Прочее: См.  также  процедуры  FillPoly,  SetFillStyle,
SetFillPattern.
     Пример:

var
   FillInfo : FillSttingsType;
   CurPattern,
   CurColor : word;
begin
  ...
  GetFillSettings(FillInfo);
  CurPattern := FillInfo.Pattern;
  CurColort := FillInfo.Color;
  ...
end.