1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Created page with "Vyplní ohraničenou oblast aktuálním vyplňovacím vzorkem. ;Deklarace procedure FloodFill(X, Y: Integer; Border: Word); ;Režim :Reálný, Chráněný ;Poznámky :Vyp..."
Vyplní ohraničenou oblast aktuálním vyplňovacím vzorkem.
;Deklarace
procedure FloodFill(X, Y: Integer; Border: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Vyplní uzavřenou oblast na bitmapových zařízeních. (X, Y) je výchozí bod uvnitř uzavřené oblasti, která se má vyplnit. Použitím aktuálního vyplňovacího vzorku, nastaveného pomocí [[SetFillStyle]] nebo [[SetFillPattern]], se vyplní oblast ohraničená barvou Border. Jestliže výchozí bod je uvnitř uzavřené oblasti, vyplní se vnitřek. Jestliže výchozí bod je vně uzavřené oblasti, vyplní se vnějšek.
:Pokud se během vyplňování objeví chyba, vrátí GraphResult hodnotu grNoFloodMem .
;Viz také
:[[SetFillPattern]]
:[[SetFillStyle]]
Vzorový příklad
{FloodFil.PAS}
{Vzorový příklad pro proceduru FloodFill.}
uses Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
SetColor(GetMaxColor);
Circle(50, 50, 20);
FloodFill(50, 50, GetMaxColor);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure FloodFill(X, Y: Integer; Border: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Vyplní uzavřenou oblast na bitmapových zařízeních. (X, Y) je výchozí bod uvnitř uzavřené oblasti, která se má vyplnit. Použitím aktuálního vyplňovacího vzorku, nastaveného pomocí [[SetFillStyle]] nebo [[SetFillPattern]], se vyplní oblast ohraničená barvou Border. Jestliže výchozí bod je uvnitř uzavřené oblasti, vyplní se vnitřek. Jestliže výchozí bod je vně uzavřené oblasti, vyplní se vnějšek.
:Pokud se během vyplňování objeví chyba, vrátí GraphResult hodnotu grNoFloodMem .
;Viz také
:[[SetFillPattern]]
:[[SetFillStyle]]
Vzorový příklad
{FloodFil.PAS}
{Vzorový příklad pro proceduru FloodFill.}
uses Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
SetColor(GetMaxColor);
Circle(50, 50, 20);
FloodFill(50, 50, GetMaxColor);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
