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