Section courante

A propos

Section administrative du site

SETCOLOR

Fixe la couleur
Turbo Pascal 4+ Graph

Syntaxe

Procedure SetColor(couleur:Word);

Paramètres

Nom Description
couleur Ce paramètre permet d'indiquer le numéro de la couleur

Description

Cette procédure permet de fixer la palette de couleur courante de l'écran graphique.

Remarques

Exemple

L'exemple suivant permet de dessiner des lignes de différente couleurs de façon aléatoire :

  1. Program SetColorSamples1;
  2.  
  3. Uses Crt,Graph;
  4.  
  5. Var
  6.  GraphDriver,GraphMode:Integer;
  7.  
  8. BEGIN
  9.  GraphDriver:=Detect;
  10.  InitGraph(GraphDriver,GraphMode, ' ');
  11.  If(GraphResult<>grOk)Then Halt(1);
  12.  Randomize;
  13.  Repeat
  14.   SetColor(Random(GetMaxColor)+1);
  15.   LineTo(Random(GetMaxX),Random(GetMaxY));
  16.  Until KeyPressed;
  17. END.

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 382.

Dernière mise à jour : Dimanche, le 8 février 2015