Правила форума
Setallpl.PASЯзык:
Русский
English
{ Пример программы для процедуры SetAllPalette }
uses Graph;
var
Gd, Gm : Integer;
Palette : PaletteType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
var
Gd, Gm : Integer;
Palette : PaletteType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
