Процедура GetFTime

Модуль Graph

Возвращает текущий цвет и стиль закраски.

Объявление:

 Procedure GetFillSettings(Var FillInfo : FillSettingsType);

Режим: 

Замечания:
В поле Pattern содержится текущий шаблон закраски. В поле Colors содержится текущий цвет закраски. И шаблон и цвет закраски могут быть изменены с помощью процедур SetFillStyle и SetFillPattern. Если значение поля Pattern равно UserFill, то используйте процедуру GetFillPattern для получения шаблона закраски, определяемого пользователем. Нужно быть в графическом режиме.

Пример:

 Uses Graph;
 
 Var Gd, Gm : Integer;
   FillInfo : FillSettingsType;
 
 Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, '');
  If GraphResult <> grOk Then Halt(1);
  GetFillSettings(FillInfo);   { Сохраняем стиль и цвет закраски }
  Bar(0, 0, 50, 50);
  SetFillStyle(XHatchFill, GetMaxColor);   { Новый стиль }
  Bar(50, 0, 100, 50);
  With FillInfo Do SetFillStyle(Pattern, Color);
  { Восстанавливаем старый стиль закраски }
  Bar(100, 0, 150, 50);
  ReadLn;
  CloseGraph;
 End.

См. также: