FloodFill
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...")
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
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.