Правила форума
GetFillSettings (процедура) (модуль Graph)Язык:
Русский
English
GetFillSettings (процедура) (модуль Graph)
Возвращает текущий цвет и шаблон закраски, установленные обращениями к процедурам SetFillPattern и SetFillStyle.
Объявление
Procedure GetFillSettings(Var FillInfo : FillSettingsType);
Режим
Real, Protected
Замечания
В поле Pattern содержится текущий шаблон закраски. В поле Colors содержится текущий цвет закраски. И шаблон и цвет закраски могут быть изменены с помощью процедур SetFillStyle и SetFillPattern.
Если значение поля Pattern равно UserFill, то используйте процедуру GetFillPattern для получения шаблона закраски, определяемого пользователем.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедур GetFillSettings и SetFillStyle }
uses Graph;
var
Gd, Gm : Integer;
FillInfo : FillSettingsType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
var
Gd, Gm : Integer;
FillInfo : FillSettingsType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
