Section courante

A propos

Section administrative du site

CLEARVIEWPORT

Efface la vue du port
QuickPascal 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.

Remarque

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.


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