Definiri de culori și palete proceduri și funcții aplicație

Informatiile referitoare la culori sunt cotinute intr-un tabel, numit paletaSstructura paletei este descrisa te tipul predefinit PaletteType astfel: Campul calificat cu size continenumarul culori paletei, iar campurile calificate de colors contin codurile corespunzatoare diferitelor culori existente. Paleta implicita este initializata de procedura InitGraph; numarul elementelor paletei este in funtie de placa grafica utilizata.

GetDefaultPalette Procedura GetDefaultPalette incarca intr-o variabila (de tip predefinit PaletteType) paleta implicita; acesta paleta implicita a fost initializata de procedura InitGraph. Procedura este definita astfel: Procedure GetDefaultPalette (var pal: PaletteType); Pal desemneaza variabila in care este incarcata paleta implicita. Campul pal. size contine numarul culorilor ce pot fi utilizate. Campul pal. colors (I) contine codul crespunzator culori I.

SetColor Procedura SetColor permite stabilirea culori scrisullui. Procedura este definita astfel: Procedure SetColor (colnum: word); Colnum este indexul din paleta al culori selectate.

GetBkColor Functia GetBkColor returneaza valoarea utilizata la ultimul apel al proceduri SetColor. Functia este definita astfel: Function GetBkColor: word; GetColor Functia GetColor returneaza valoarea utilizata la ultimul apel al procedurii SetColor. Functia este definita astfel: Function GetColor: word; 10. 2. Aplicatie Programul palete realizeaza lucrul cu palete de culori setarile paletelor si schimbarea culorilor unui text si a fundalului.

Program palete; Usese Crt, Graph; Var gd, gm, i: integer; Color: word; MyPal, OldPal, Palette: PaletteType; Begin Randomize; Gd: =Detect; InitGraph (gd, gm, c: pgi); If GraphResult ...