SetFillStyle: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(Created page with "Nastaví vyplňovací vzorek a barvu. ;Deklarace procedure SetFillStyle(Pattern: Word; Color: Word); ;Režim :Reálný, Chráněný ;Poznámky :Nastaví vzorek a barvu pro...") |
|||
(Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
Řádek 51: | Řádek 51: | ||
end. | end. | ||
[[Category:Graph]] | [[Category:Graph]] | ||
− | [[Category: | + | [[Category:Procedúry Graph]] |
Aktuální verze z 4. 10. 2012, 17:12
Nastaví vyplňovací vzorek a barvu.
- Deklarace
procedure SetFillStyle(Pattern: Word; Color: Word);
- Režim
- Reálný, Chráněný
- Poznámky
- Nastaví vzorek a barvu pro všechna vyplňování, prováděná procedurami FillPoly, Bar, Bar3D a PieSlice. K dispozici je řada vyplňovacích vzorků. Implicitním vzorkem je plná plocha a implicitní barvou je barva s maximálním číslem v paletě. Pokud nejsou oba parametry platné, vrátí GraphResult hodnotu grError a platí dosavadní nastavení. Jestliže Pattern je roven UserFill, aktivním se stane uživatelsky definovaný vzorek (nastavený voláním SetFillPattern).
- Omezení
- Je nutno být v grafickém režimu.
- Viz také
- Bar
Vzorový příklad
{Getfsets.PAS} {Vzorový příklad pro proceduru GetFillSettings.} uses Graph; var Gd, Gm: Integer; FillInfo: FillSettingsType; begin Gd := Detect; InitGraph(Gd, Gm, ' '); if GraphResult <> grOk then Halt(1); GetFillSettings(FillInfo); { Uložení vzorku a barvy } Bar(0, 0, 50, 50); SetFillStyle(XHatchFill, GetMaxColor); { Nový styl } Bar(50, 0, 100, 50); with FillInfo do SetFillStyle(Pattern, Color); { Obnovení starého vyplňovacího stylu } Bar(100, 0, 150, 50); Readln; CloseGraph; end.