Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1


GetPalette процедурасы ағымдағы палитраның көлемі мен түсін қайтарады. Тақырыбы: Procedure



бет116/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   112   113   114   115   116   117   118   119   ...   210
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 процедурасы палитраның бірнеше түстерін бір мезгілде өзгертеді. Процедура тақырыбы:


Достарыңызбен бөлісу:
1   ...   112   113   114   115   116   117   118   119   ...   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет