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
{Графиканы іске қосамыз}
202
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.
SetAllPaletteпроцедурасы палитраның бірнеше түстерін бір мезгілде өзгертеді. Процедура тақырыбы:
