Section courante

A propos

Section administrative du site

CLEARDEVICE

 Efface le périphérique
Turbo Pascal 4+ 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 à l'engin graphique.

Remarques

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 :

  1. Program ClearDeviceSamples;
  2.      
  3. Uses Graph;
  4.      
  5. Var Gd,Gm:Integer;
  6.      
  7. BEGIN
  8.  Gd := Detect;
  9.  InitGraph(Gd, Gm,'');
  10.  If(GraphResult <> grOk)Then Halt(1);
  11.  SetColor(Yellow);
  12.  Circle(150,50,50);
  13.  ReadLn;
  14.  ClearDevice;
  15.  Bar(10,10,400,300);
  16.  ReadLn;
  17.  CloseGraph;
  18. 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 122 à 123.

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