SetFillStyle: Porovnání verzí

Z Delphi & Pascal (česká wiki)
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:Funkce Graph]]
+
[[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
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.