GetPalette: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
m (1 revízia: Unit Graph) |
|||
| Řádek 22: | Řádek 22: | ||
Vzorový příklad | Vzorový příklad | ||
| + | <syntaxhighlight lang="pascal"> | ||
{Getplt.PAS} | {Getplt.PAS} | ||
{Vzorový příklad pro proceduru GetPalette.} | {Vzorový příklad pro proceduru GetPalette.} | ||
| Řádek 46: | Řádek 47: | ||
CloseGraph; | CloseGraph; | ||
end. | end. | ||
| + | </syntaxhighlight> | ||
| + | |||
[[Category:Graph]] | [[Category:Graph]] | ||
[[Category:Funkce Graph]] | [[Category:Funkce Graph]] | ||
Verze z 17. 6. 2014, 09:11
Vrací aktuální paletu a její velikost.
- Deklarace
procedure GetPalette(var Palette: PaletteType);
- Režim
- Reálný, Chráněný
- Poznámky
- Vrací aktuální paletu a její velikost v proměnné typu PaletteType.
- Omezení
- Je nutno být v grafickém režimu a lze použít pouze s EGA, EGA 64 nebo [[[VGA]] (ne s IBM 8514 nebo s VGA v režimu 256 barev).
- Viz také
- SetAllPalette
Vzorový příklad
{Getplt.PAS}
{Vzorový příklad pro proceduru GetPalette.}
uses Graph;
var
Gd, Gm: Integer;
Color: Word;
Palette: PaletteType;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
GetPalette(Palette);
if Palette.Size <> 1 then
for Color := 0 to Pred(Palette.Size) do
begin
SetColor(Color);
Line(0, Color * 5, 100, Color * 5);
end
else
Line(0, 0, 100, 0);
Readln;
CloseGraph;
end.
