SetAllPalette: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
m (1 revízia: Unit Graph) |
|||
| Řádek 53: | Řádek 53: | ||
end. | end. | ||
[[Category:Graph]] | [[Category:Graph]] | ||
| − | [[Category: | + | [[Category:Procedúry Graph]] |
Aktuální verze z 4. 10. 2012, 17:11
Změní všechny barvy palety dle určení.
- Deklarace
procedure SetAllPalette(var Palette);
- Režim
- Reálný, Chráněný
- Poznámky
- Je nutno být v grafickém režimu. Lze použít pouze s EGA, EGA 64 nebo VGA (ne s IBM 8514 nebo s VGA v režimu 256 barev).
- Viz také
- GetBkColor
Vzorový příklad
{Setallpl.PAS}
{Vzorový příklad pro proceduru SetAllPalette.}
uses Graph;
var
Gd, Gm: Integer;
Palette: PaletteType;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Line(0, 0, GetMaxX, GetMaxY);
with Palette do
begin
Size := 4;
Colors[0] := 5;
Colors[1] := 3;
Colors[2] := 1;
Colors[3] := 2;
SetAllPalette(Palette);
end;
Readln;
CloseGraph;
end.
