Langage de programmation - Turbo Pascal - Référence de procédures et de fonctions

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

L'instruction SetColor(5) fait de la cinquième couleur de la palette la couleur de dessin actuelle.
Les couleurs de dessin peuvent varier de 0 à 15, selon le pilote graphique actuel et le mode graphique actuel.
La fonction GetMaxColor renvoie la couleur valide la plus élevée pour le pilote et le mode actuels.
La procédure SetColor doit être utilisé en mode graphique.

Exemple

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



Program SetColorSamples1;

 
Uses Crt,Graph;

 
Var

 GraphDriver,GraphMode:Integer;

 
BEGIN

 GraphDriver:=Detect;

 InitGraph(GraphDriver,GraphMode, ' ');

 If(GraphResult<>grOk)Then Halt(1);

 Randomize;

 Repeat

  SetColor(Random(GetMaxColor)+1);

  LineTo(Random(GetMaxX),Random(GetMaxY));

 Until KeyPressed;

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

Section courante

A propos

Section administrative du site

SETCOLOR