1 578
editací
Změny
Created page with "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..."
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]]
:[[SetPalette]]
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.
[[Category:Graph]]
[[Category:Funkce Graph]]
;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]]
:[[SetPalette]]
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.
[[Category:Graph]]
[[Category:Funkce Graph]]