1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Created page with "Vrací poslední vyplňovací vzorek a barvu, nastavené předchozím voláním SetFillPattern nebo SetFillStyle. ;Deklarace procedure GetFillSettings(var FillInfo: ..."
Vrací poslední vyplňovací vzorek a barvu, nastavené předchozím voláním [[SetFillPattern]] nebo [[SetFillStyle]].
;Deklarace
procedure GetFillSettings(var FillInfo: FillSettingsType);
;Režim
:Reálný, Chráněný
;Poznámky
:Pole Pattern udává aktuální zvolený vyplňovací vzorek. Pole [[Color]] udává aktuální zvolenou vyplňovací barvu. Obojí lze změnit voláním procedury [[SetFillStyle]] nebo [[SetFillPattern]].
:Pokud je Pattern rovno UserFill (vzorek definovaný uživatelem), můžete tento vzorek získat zavoláním procedury [[GetFillPattern]].
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[FillPoly]]
:[[SetFillPattern]]
:[[SetFillStyle]]
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:Procedúry Graph]]
;Deklarace
procedure GetFillSettings(var FillInfo: FillSettingsType);
;Režim
:Reálný, Chráněný
;Poznámky
:Pole Pattern udává aktuální zvolený vyplňovací vzorek. Pole [[Color]] udává aktuální zvolenou vyplňovací barvu. Obojí lze změnit voláním procedury [[SetFillStyle]] nebo [[SetFillPattern]].
:Pokud je Pattern rovno UserFill (vzorek definovaný uživatelem), můžete tento vzorek získat zavoláním procedury [[GetFillPattern]].
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[FillPoly]]
:[[SetFillPattern]]
:[[SetFillStyle]]
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:Procedúry Graph]]
