Правила форума
GetFillPattern (процедура) (модуль Graph)Язык:
Русский
English
GetFillPattern (процедура) (модуль Graph)
Возвращает текущий шаблон закраски, установленный SetFillPattern.
Объявление
Procedure GetFillPattern(Var FillPattern : FillPatternType);
Режим
Real, Protected
Замечания
Если обращение к SetFillPattern не было сделано, то процедура GetFillPattern возвращает массив, заполненный байтами $FF.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для GetFillPattern и SetFillPattern }
uses Graph;
const Gray50 : FillPatternType = ($AA, $55, $AA, $55, $AA, $55, $AA, $55);
var
Gd, Gm : Integer;
OldPattern : FillPatternType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP'); { Путь к BGI драйверам }
if GraphResult <> grOk then
Halt(1);
GetFillPattern(OldPattern);
SetFillPattern(Gray50, White);
{ Рисуем полосу на 50% серой }
Bar(0, 0, 100, 100);
ReadLn;
SetFillPattern(OldPattern, White);
{ Рисуем полосу старым стилем }
{ (по умолчанию, состоящим из байт 16#FF#) }
Bar(0, 0, 100, 100);
ReadLn;
CloseGraph;
end.
const Gray50 : FillPatternType = ($AA, $55, $AA, $55, $AA, $55, $AA, $55);
var
Gd, Gm : Integer;
OldPattern : FillPatternType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP'); { Путь к BGI драйверам }
if GraphResult <> grOk then
Halt(1);
GetFillPattern(OldPattern);
SetFillPattern(Gray50, White);
{ Рисуем полосу на 50% серой }
Bar(0, 0, 100, 100);
ReadLn;
SetFillPattern(OldPattern, White);
{ Рисуем полосу старым стилем }
{ (по умолчанию, состоящим из байт 16#FF#) }
Bar(0, 0, 100, 100);
ReadLn;
CloseGraph;
end.
::
::
::
