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

CLEARDEVICE	Efface le périphérique
QuickPascal	Graph

Syntaxe

Procedure ClearDevice;

Description

Cette procédure permet d'effacer le contenu de l'écran graphique et réaffecte les paramètres par défaut au moteur graphique.

Remarques

La procédure ClearDevice efface tout l'écran graphique en le remplissant avec la couleur d'arrière-plan actuelle définie par SetBkColor et en déplaçant le pointeur actuel sur (0, 0). Vous devez utiliser ClearViewPort pour effacer uniquement la fenêtre actuelle.
Cette procédure est contenu dans l'unité «Graph», afin qu'elle fournisse des services de compatibilité avec Turbo Pascal. Dans les faits, elle appel l'unité «MSGraph», il faut donc que le programme est accès au pilote «ATT6300.VID», «CGASNOW.VID», «ERICSSON.VID», «HERC102.VID» et «HERC112.VID» ainsi qu'aux polices de caractères «COURB.FON», «HELVB.FON», «MODERN.FON», «ROMAN.FON», «SCRIPT.FON» et «TMSRB.FON».

Exemple

Voici un exemple permettant d'afficher un cercle, d'attendre que l'utilisateur presse sur ENTER et dessin un cercle dans un écran propre :


									
Program ClearDeviceSamples;

 
Uses Graph;

 
Var Gd,Gm:Integer;


 
BEGIN

 Gd := Detect;

 InitGraph(Gd, Gm,'');


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

 SetColor(Yellow);


 Circle(150,50,50);

 ReadLn;

 ClearDevice;


 Bar(10,10,400,300);

 ReadLn;


 CloseGraph;

END.

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

Section courante

A propos

Section administrative du site

CLEARDEVICE

Syntaxe

Description

Remarques

Exemple