GetFillSettings: Porovnání verzí
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: ...") |
m (1 revízia: Unit Graph) |
(Žádný rozdíl)
|
Aktuální verze z 4. 10. 2012, 17:01
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
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.