Процедура GetDefaultPalette

Возвращает структуру палитры, устанавливаемую по умолчанию (в режиме автонастройки).

Заголовок: Procedure GetDefaultPalette (var Palette:

PaletteTupe);

Здесь, Palette переменная типа PaletteTupe, в которой возвращаются размер и цвета палитры.

Пример:

Разработать программу, которая выводит на экран прямые, цвета которых выбраны случайным образом на фоне, цвет которого также выбран случайным образом. Затем, при нажатии на клавишу Enter выводятся линии с цветами по порядку, соответствующему стандартным цветам (цветовой палитре по умолчанию).

Program demoGetDefaultPalette;

UsesCRT,Graph;

Var

GrDriver, GrMode, i: integer;

Pal: PaletteTupe;

Begin

GrDriver: =Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp| BGI');

randomize;

Program demoSetPalette;

UsesCRT, Graph;

Var

GrDriver, GrMode, i: integer;

Pal: PaletteTupe;

Begin

GrDriver: =Detect;

InitGraph (GrDriver, GrMode, 'C: |Bp| BGI');

randomize;

for i:=0 to 16 do

Pal.colors[i]:= Random(16);

Pal.colors[0]:= 15;

SetAllPalette (Pal.colors);

for i:= 0 to 15 do

begin

SetColor(i);

Line (10, 10+10*i, 300, 10+10*i);

end;

readln;

GetDefaultPalette (Pal);

Pal.colors[0]:= 15;

SetAllPalette (Pal.colors);

for i:= 0 to 16 do

begin

SetColor(i);

Line (10, 10+10*i, 300, 10+10*i);

end;

readln;

CloseGraph;

End.