Section courante

A propos

Section administrative du site

GETMODERANGE

Demande les rangées du mode
Turbo Pascal 5+ Graph

Syntaxe

Procedure GetModeRange(pilote:Integer;var min,max:Integer);

Paramètres

Nom Description
pilote Ce paramètre permet d'indiquer le numéro du pilote:
Constante Valeur Description
CurrentDriver -128 Cette constante permet d'indiquer le pilote courant pour la procédure GetModeRange
Detect 0 Cette constante permet d'indiquer une autodétection
CGA 1 Cette constante permet d'indiquer une carte vidéo de type CGA.
MCGA 2 Cette constante permet d'indiquer une carte vidéo de type MCGA
EGA 3 Cette constante permet d'indiquer une carte vidéo de type EGA
EGA64 4 Cette constante permet d'indiquer une carte vidéo de type EGA 64 Ko
EGAMono 5 Cette constante permet d'indiquer une carte vidéo de type EGA monochrome
IBM8514 6 Cette constante permet d'indiquer une carte vidéo de type IBM 8514
HercMono 7 Cette constante permet d'indiquer une carte vidéo de type Hercule
ATT400 8 Cette constante permet d'indiquer une carte vidéo de type AT&T 400
VGA 9 Cette constante permet d'indiquer une carte vidéo de type VGA
PC3270 10 Cette constante permet d'indiquer une carte vidéo de type PC 3270
min Ce paramètre retourne le plus bas mode vidéo supporté par le pilote spécifié
max Ce paramètre retourne le plus haut mode vidéo supporté par le pilote spécifié

Description

Cette fonction permet de connaître le mode vidéo minimum et maximum supporté par le pilote vidéo BGI spécifié.

Exemple

L'exemple suivant permet de montrer la valeur minimum et maximum supporté par le pilote EGA :

  1. Program GetModeRangeSamples;
  2.  
  3. Uses Graph;
  4. Var
  5.  Lowest,Highest:Integer;
  6.  
  7. BEGIN
  8.  GetModeRange(EGA64, Lowest, Highest);
  9.  WriteLn('Valeur basse = ',Lowest);
  10.  WriteLn('Valeur haute = ',Highest);
  11. 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 221 à 222.

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