Процедура GetPalette

Возвращает размер и цвета текущей палитры. Заголовок:

Procedure GetPalette(var Palettelnfo: PaletteType);

Здесь Palettelnfo – переменная типа PaletteType, возвращающая размер и цвета палитры.

В модуле Graph определена константа

const

MaxColors =15;

и тип

type

PaletteType = record

Size : Word; {Количество цветов в палитре}

Colors : array [0..MaxColors] of Shortlnt

{Номера входящих в палитру цветов}

end;

С помощью следующей программы можно вывести на экран номера всех возможных цветов из текущей палитры.

Uses Graph;

var

Palette: PaletteType;

d,r,e,k: Integer;

begin

{Инициируем графику}

d := Detect; InitGraph(d, r, ' ') ;

e := GraphResult; if e <> grOk then

WriteLn(GraphErrorMsg(e))

else

begin

GetPalette(Palette); {Получаем палитру}

CloseGraph; {Возвращаемся в текстовый режим}

with Palette do {Выводим номера цветов}

for k := 0 to pred(Size) do

Write(Colors[k]:5);

end

end.