Процедура GetFillSettings
Модуль Graph
Возвращает текущий цвет и шаблон закраски, установленные обращениями к процедурам SetFillPattern и SetFillStyle.
Объявление:
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.
Пример программы: getfsets.pas
См. также: