Section courante

A propos

Section administrative du site

CLEARVIEWPORT

Efface la vue du port
Turbo Pascal 4+ Graph

Syntaxe

Procedure ClearViewPort;

Description

Cette procédure permet d'effacer le contenu de la fenêtre courante de l'écran graphique et réaffecte les paramètres par défaut de celle-ci.

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 avec seulement une partie de l'écran d'effacé :

  1. Program ClearViewPortSamples;
  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.  SetViewPort(50,50,300,300,True);
  15.  ClearViewPort;
  16.  SetColor(Blue);
  17.  Bar(10,10,40,300);
  18.  ReadLn;
  19.  CloseGraph;
  20. 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 124.

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