Section courante

A propos

Section administrative du site

DETECTGRAPH

Détection graphique
Turbo Pascal 4+ Graph

Syntaxe

Procedure DetectGraph(Var pilote,mode:Integer);

Paramètres

Nom Description
pilote Ce paramètre retourne le numéro du pilote supporté :
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
mode Ce paramètre retourne le plus haut mode vidéo supporté :
Constante Valeur Description
CGAC0 0 Cette constante permet le mode vidéo 320 x 200 pixels
CGAC1 1 Cette constante permet le mode vidéo 320 x 200 pixels
CGAC2 2 Cette constante permet le mode vidéo 320 x 200 pixels
CGAC3 3 Cette constante permet le mode vidéo 320 x 200 pixels
CGAHi 4 Cette constante permet le mode vidéo 640 x 200 pixels
MCGAC0 0 Cette constante permet le mode vidéo 320 x 200 pixels
MCGAC1 1 Cette constante permet le mode vidéo 320 x 200 pixels
MCGAC2 2 Cette constante permet le mode vidéo 320 x 200 pixels
MCGAC3 3 Cette constante permet le mode vidéo 320 x 200 pixels
MCGAMed 4 Cette constante permet le mode vidéo 640 x 200 pixels
MCGAHi 5 Cette constante permet le mode vidéo 640 x 480 pixels
EGAMonoHi 3 Cette constante permet le mode vidéo 640 x 350 pixels
HercMonoHi 0 Cette constante permet le mode vidéo 720 x 348 pixels
VGALo 0 Cette constante permet le mode vidéo 640 x 200 pixels
VGAMed 1 Cette constante permet le mode vidéo 640 x 350 pixels
VGAHi 2 Cette constante permet le mode vidéo 640 x 480 pixels
EGALo 0 Cette constante permet le mode vidéo 640 x 200 pixels
EGAHi 1 Cette constante permet le mode vidéo 640 x 350 pixels
EGA64Lo 0 Cette constante permet le mode vidéo 640 x 200 pixels
EGA64Hi 1 Cette constante permet le mode vidéo 640 x 350 pixels
ATT400C0 0 Cette constante permet le mode vidéo 320 x 200 pixels
ATT400C1 1 Cette constante permet le mode vidéo 320 x 200 pixels
ATT400C2 2 Cette constante permet le mode vidéo 320 x 200 pixels
ATT400C3 3 Cette constante permet le mode vidéo 320 x 200 pixels
ATT400Med 4 Cette constante permet le mode vidéo 640 x 200 pixels
ATT400Hi 5 Cette constante permet le mode vidéo 640 x 400 pixels
IBM8514Lo 0 Cette constante permet le mode vidéo 640 x 480 pixels
IBM8514Hi 1 Cette constante permet le mode vidéo 1024 x 768 pixels
PC3270Hi 0 Cette constante permet le mode vidéo 720 x 350 pixels

Description

Cette procédure permet d'effectuer la détection de la carte vidéo et de recommander le pilote vidéo BGI préférable ainsi que son mode graphique maximal.

Remarques

Exemple

Voici un exemple d'une utilisation typique de cette procédure :

  1. Program DetectGraphSamples;
  2.      
  3. Uses Graph;
  4.      
  5. Var pilote,mode:Integer;
  6.      
  7. BEGIN
  8.  DetectGraph(pilote,mode);
  9.  Case pilote of
  10.   CurrentDriver:WriteLn('Pilote courant pour la procédure GetModeRange');
  11.   Detect:WriteLn('Autodétection');
  12.   CGA:WriteLn('Carte vidéo de type CGA');
  13.   MCGA:WriteLn('Carte vidéo de type MCGA');
  14.   EGA:WriteLn('Carte vidéo de type EGA');
  15.   EGA64:WriteLn('Carte vidéo de type EGA 64 Ko');
  16.   EGAMono:WriteLn('Carte vidéo de type EGA monochrome');
  17.   IBM8514:WriteLn('Carte vidéo de type IBM 8514');
  18.   HercMono:WriteLn('Carte vidéo de type Hercule');
  19.   ATT400:WriteLn('Carte vidéo de type AT&T 400');
  20.   VGA:WriteLn('Carte vidéo de type VGA');
  21.   PC3270:WriteLn('Carte vidéo de type PC 3270');
  22.  End;
  23.  Case mode of
  24.   CGAC0:WriteLn('Mode vidéo 320 x 200 pixels');
  25.   CGAC1:WriteLn('Mode vidéo 320 x 200 pixels');
  26.   CGAC2:WriteLn('Mode vidéo 320 x 200 pixels');
  27.   CGAC3:WriteLn('Mode vidéo 320 x 200 pixels');
  28.   CGAHi:WriteLn('Mode vidéo 640 x 200 pixels');
  29.   MCGAC0:WriteLn('Mode vidéo 320 x 200 pixels');
  30.   MCGAC1:WriteLn('Mode vidéo 320 x 200 pixels');
  31.   MCGAC2:WriteLn('Mode vidéo 320 x 200 pixels');
  32.   MCGAC3:WriteLn('Mode vidéo 320 x 200 pixels');
  33.   MCGAMed:WriteLn('Mode vidéo 640 x 200 pixels');
  34.   MCGAHi:WriteLn('Mode vidéo 640 x 480 pixels');
  35.   EGAMonoHi:WriteLn('Mode vidéo 640 x 350 pixels');
  36.   HercMonoHi:WriteLn('Mode vidéo 720 x 348 pixels');
  37.   VGALo:WriteLn('Mode vidéo 640 x 200 pixels');
  38.   VGAMed:WriteLn('Mode vidéo 640 x 350 pixels');
  39.   VGAHi:WriteLn('Mode vidéo 640 x 480 pixels');
  40.   EGALo:WriteLn('Mode vidéo 640 x 200 pixels');
  41.   EGAHi:WriteLn('Mode vidéo 640 x 350 pixels');
  42.   EGA64Lo:WriteLn('Mode vidéo 640 x 200 pixels');
  43.   EGA64Hi:WriteLn('Mode vidéo 640 x 350 pixels');
  44.   ATT400C0:WriteLn('Mode vidéo 320 x 200 pixels');
  45.   ATT400C1:WriteLn('Mode vidéo 320 x 200 pixels');
  46.   ATT400C2:WriteLn('Mode vidéo 320 x 200 pixels');
  47.   ATT400C3:WriteLn('Mode vidéo 320 x 200 pixels');
  48.   ATT400Med:WriteLn('Mode vidéo 640 x 200 pixels');
  49.   ATT400Hi:WriteLn('Mode vidéo 640 x 400 pixels');
  50.   IBM8514Lo:WriteLn('Mode vidéo 640 x 480 pixels');
  51.   IBM8514Hi:WriteLn('Mode vidéo 1024 x 768 pixels');
  52.   PC3270Hi:WriteLn('Mode vidéo 720 x 350 pixels');
  53.  End;
  54. END.

on obtiendra le résultat semblable suivant :

Carte vidéo de type VGA
Mode vidéo 320 x 200 pixels

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

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