Document, comentariu, eseu, bacalaureat, liceu si facultate
Top documenteAdmitereTesteUtileContact
      
    


 


Ultimele referate adaugate

Adauga referat - poti sa ne ajuti cu un referat?

Politica de confidentialitate



Ultimele referate descarcare de pe site
  CREDITUL IPOTECAR PENTRU INVESTITII IMOBILIARE (economie)
  Comertul cu amanuntul (economie)
  IDENTIFICAREA CRIMINALISTICA (drept)
  Mecanismul motor, Biela, organe mobile proiect (diverse)
  O scrisoare pierduta (romana)
  O scrisoare pierduta (romana)
  Ion DRUTA (romana)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  Starea civila (geografie)
 

Ultimele referate cautate in site
   domnisoara hus
   legume
    istoria unui galban
   metanol
   recapitulare
   profitul
   caract
   comentariu liric
   radiolocatia
   praslea cel voinic si merele da aur
 
despre:
 
Definiri de culori si palete
Colt dreapta
Vizite: ? Nota: ? Ce reprezinta? Intrebari si raspunsuri
 

Informatiile referitoare la culori sunt cotinute intr-un tabel, numit paletaSstructura paletei este descrisa te tipul predefinit PaletteType astfel: m4e8eh
Const
MaxColors=15;
Type PaletteType=record
Size:byte;
Colors:arraya0..MaxColorsi of shortint;
End;
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.

10.1. Proceduri si functii

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:\bp\bgi`);
If GraphResult<0 then
Halt(1);
GetDefaultPalette(OldPal);
MyPal:=OldPal;
Aafiseaza cevaS for i:=0 to MyPal.Size-1 do begin
SetColor(i);
OutTextXY(10,i*10`******Se schimba culorile******`);
OutTextXY(400,i*10`***Turbo Pascal***`);
End;
Repeat ASchimba paleta de culori pana se apasa o tastaS
With MyPal do
ColorsaRandom(Size)i:=Random(Size+1);
SetAllPalette(MyPal);
Until KeyPressed;
SetAllPalette (OldPal); Arestaurarea paletei originaleS
ClearDevice;
OutTextXY(10,10,`apsa<Enter>…`):


Colt dreapta
Creeaza cont
Comentarii:

Nu ai gasit ce cautai? Crezi ca ceva ne lipseste? Lasa-ti comentariul si incercam sa te ajutam.
Esti satisfacut de calitarea acestui document, eseu, cometariu? Apreciem aprecierile voastre.

Nume (obligatoriu):

Email (obligatoriu, nu va fi publicat):

Site URL (optional):


Comentariile tale: (NO HTML)


Noteaza documentul:
In prezent fisierul este notat cu: ? (media unui numar de ? de note primite).

2345678910

 
Copyright© 2005 - 2024 | Trimite document | Harta site | Adauga in favorite
Colt dreapta