Přidáno 1 438 bajtů,
4. 10. 2012, 16:36 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]]
:[[Bar3D]]
:[[FillPoly]]
:[[GetFillSettings]]
:[[PieSlice]]
:[[SetFillPattern]]
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.
[[Category:Graph]]
[[Category:Funkce Graph]]