FloodFill

Z Delphi & Pascal (česká wiki)
Verze z 4. 10. 2012, 16:15, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (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...")
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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.