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

_SETVIDEOMODE	Fixe le mode vidéo
QuickPascal	MSGraph

Syntaxe

Function _SetVideoMode(Mode:Integer):Integer;

Paramètres

Nom	Description
Mode	Ce paramètre permet d'indiquer le mode vidéo:
	Constante	Valeur	Description
	_MaxResMode	-3	Cette constante permet d'obtenir le mode vidéo avec la plus haute résolution
	_MaxColorMode	-2	Cette constante permet d'obtenir le mode vidéo avec la plus de couleurs possible
	_DefaultMode	-1	Cette constante permet d'obtenir le mode vidéo d'origine
	_TextBW40	0	Cette constante permet d'obtenir le mode vidéo de 40 colonnes en noir et blanc
	_TextC40	1	Cette constante permet d'obtenir le mode vidéo de 40 colonnes en 16 couleurs
	_TextBW80	2	Cette constante permet d'obtenir le mode vidéo de 80 colonnes en noir et blanc
	_TextC80	3	Cette constante permet d'obtenir le mode vidéo de 80 colonnes en 16 couleurs
	_MRes4Color	4	Cette constante permet d'obtenir le mode vidéo de 320x200 pixels en 4 couleurs
	_MResNoColor	5	Cette constante permet d'obtenir le mode vidéo de 320x200 pixels en 4 gris
	_HResBW	6	Cette constante permet d'obtenir le mode vidéo de 640x200 pixels en noir et blanc
	_TextMono	7	Cette constante permet d'obtenir le mode vidéo de 80 colonnes monochrome
	_HercMono	8	Cette constante permet d'obtenir le mode vidéo Hercule de 720 x 348 pixels monochrome
	_MRes16Color	13	Cette constante permet d'obtenir le mode vidéo de 320 x 200 pixels en 16 couleurs
	_HRes16Color	14	Cette constante permet d'obtenir le mode vidéo de 640 x 200 pixels en 16 couleurs
	_EResNoColor	15	Cette constante permet d'obtenir le mode vidéo de 640 x 350 pixels en noir et blanc
	_EResColor	16	Cette constante permet d'obtenir le mode vidéo de 640 x 350 pixels en 4 ou 16 couleurs
	_VRes2Color	17	Cette constante permet d'obtenir le mode vidéo de 640 x 480 pixels en noir et blanc
	_VRes16Color	18	Cette constante permet d'obtenir le mode vidéo de 640 x 480 pixels en 16 couleurs
	_MRes256Color	19	Cette constante permet d'obtenir le mode vidéo de 320 x 200 pixels en 256 couleurs
	_OResColor	64	Cette constante permet d'obtenir le mode vidéo de 640 x 400 pixels en 1 de 16 couleurs (Olivetti)

Retour

Valeur	Description
0	Cette valeur permet d'indiquer qu'une erreur s'est produite.
<> 0	Ces valeurs permettent d'indiquer que l'opération à réussis et le nombre de lignes textes disponibles.

Description

Cette procédure permet de fixer le mode vidéo.

Remarques

La fonction _SetVideoMode sélectionne un mode d'écran. Si le mode sélectionné n'est pas pris en charge par la configuration matérielle actuelle, la fonction renvoie 0. Le paramètre mode peut être l'une des constantes indiquées dans le tableau suivant :

Mode	Type	Taille	Couleurs	Adaptateur
_TextBW40	Mode noir et blanc/Texte	40 colonnes	32	CGA
_TextC40	Sortie couleur/Texte	40 colonnes	32	CGA
_TextBW80	Mode noir et blanc/Texte	80 colonnes	32	CGA
_TextC80	Sortie couleur/Texte	80 colonnes	32	CGA
_MRes4Color	Sortie couleur/Graphique	320x200 pixels	4	CGA
_MResNoColor	Mode noir et blanc/Graphique	320x200 pixels	4	CGA
_HResBW	Mode noir et blanc/Graphique	640x200 pixels	2	CGA
_TextMono	Monochrome/Texte	80 colonnes	32	MDPA
_HercMono	Monochrome/Graphique	720x348 pixels	2	HGC
_MRes16Color	Sortie couleur/Graphique	320x200 pixels	16	EGA
_HRes16Color	Sortie couleur/Graphique	640x200 pixels	16	EGA
_EResNoColor	Monochrome/Graphique	640x350 pixels	2	EGA
_EResColor	Sortie couleur/Graphique	640x350 pixels	4/16	EGA
_VRes2Color	Sortie couleur/Graphique	640x480 pixels	2	VGA
_VRes16Color	Sortie couleur/Graphique	640x480 pixels	16	VGA
_MRes256Color	Sortie couleur/Graphique	320x200 pixels	256	VGA
_OResColor	Sortie couleur/Graphique	640x400 pixels	1 de 16	Graphiques Olivetti

Pour les affichages monochromes, le nombre de couleurs est le nombre de nuances de gris, pas forcément unique. Les Adaptateur : IBM (et compatible) Monochrome Display Printer Adapter (MDPA), Color Graphics Adapter (CGA), Enhanced Graphics Adapter (EGA), Video Graphics Array (VGA), Hercules Graphics Card, (HGC), et Olivetti Graphics Adapters (OCGA, OEGA, OVGA).

Les descriptions du matériel standard s'appliquent également au matériel d'affichage 100% compatible avec le matériel IBM, Hercules ou Olivetti.
En plus des constantes spécifiant des modes particuliers, les constantes suivantes sélectionnent des modes en fonction du contexte :

Constante	Description
_DefaultMode	Cette constante permet d'indiquer le mode à l'entrée ; utiliser pour restaurer le mode vidéo d'origine.
_MaxResMode	Mode graphique avec la plus haute résolution
_MaxColorMode	Mode graphique avec la plupart des couleurs

Notez que _MaxResMode et _MaxColorMode varient en fonction du matériel. Par exemple, avec une carte vidéo CGA, _MaxResMode correspond à _HResBW tandis que _MaxColorMode correspond à _MRes4Color. Avec une carte vidéo VGA, _MaxResMode correspond à _VRes16Color tandis que _MaxColorMode correspond à _MRes256Color.

Support Hercule : Le pilote Hercules MSHERC.COM doit être installé avant d'exécuter un programme utilisant le mode _HercMono. Tapez MSHERC pour charger le pilote. Cela peut être mis dans votre fichier AUTOEXEC.BAT. Si à la fois une carte monochrome Hercules et une carte vidéo couleur sont utilisées, MSHERC.COM doit être installé avec l'option /H (/HALF). L'option /H limite le pilote à une page vidéo au lieu de deux. Cela empêche les deux cartes vidéo d'essayer d'utiliser la même mémoire.
La fonction _GrStatus retournera plus de détails sur l'erreur s'étant produite. Voici la liste des valeurs que la fonction _GrStatus pourra retourné suite à l'appel de la fonction _SetVideoMode :

Constante	Description
_GrError	Cette valeur permet d'indiquer qu'une erreur s'est produit.
_GrInvalidParameter	Cette valeur permet d'indiquer un paramètre invalide.
_GrModeNotSupported	Cette valeur permet d'indiquer que le mode n'est pas supporté.

Exemple

L'exemple suivant permet de faire passer le programme en mode d'affichage de 320x200 pixels en 16 couleurs et afficher une erreur si un problème est survenu :



Program SetVideoModeSamples;

 
Uses MSGraph;

 
BEGIN

 If _SetVideoMode(_HRes16Color)=0Then Case _GrStatus of

  _GrError:WriteLn('Erreur graphique');

  _GrInvalidParameter:WriteLn('Parametre invalide');

  _GrModeNotSupported:WriteLn('Mode non supporte');

  Else WriteLn('Erreur inconnu');

 End;

END.

Voir également

Langage de programmation - Quick Pascal - Référence de procédures et fonctions - _GetVideoConfig
Langage de programmation - Quick Pascal - Référence de procédures et fonctions - _GrStatus
Langage de programmation - Quick Pascal - Référence de procédures et fonctions - _SetTextRows
Langage de programmation - Quick Pascal - Référence de procédures et fonctions - _SetVideoModerows

Dernière mise à jour : Vendredi, le 13 février 2015

Section courante

A propos

Section administrative du site

_SETVIDEOMODE