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

GETMAXCOLOR	Demande la couleur maximal
Turbo Pascal 5+	Graph

Syntaxe

Function GetMaxColor:Word;

Description

Cette fonction permet de connaître le numéro de palette maximal supporté dans l'écran graphique courant.

Remarques

Par exemple, sur un carte EGA de 256 Ko, la fonction GetMaxColor renverra toujours 15, ce qui signifie que tout appel à SetColor avec une valeur comprise entre 0 et 15 est valide. Sur une carte EGA en mode haute résolution ou sur un adaptateur monochrome Hercules, la fonction GetMaxColor renvoie la valeur 1, car ces adaptateurs ne prennent en charge que les couleurs de dessin de 0 ou 1.
La fonction GetMaxColor doit être utilisé en mode graphique.

Exemple

L'exemple suivant permet de choisir des couleurs aléatoires dans l'intervalle supporté par le mode vidéo :



Program GetMaxColorSamples1;

 
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 215.

Dernière mise à jour : Dimanche, le 25 janvier 2015

Section courante

A propos

Section administrative du site

GETMAXCOLOR

Syntaxe

Description

Remarques

Exemple

Référence