Section courante

A propos

Section administrative du site

ClearViewPort

Efface le port de vue
HighSpeed Pascal 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

L'exemple suivant permet de faire des remplissage aléatoires :

  1. Program ClearViewPortSamples;
  2. Uses Graph,Crt;
  3.  Var
  4.  Driver,Mode,RanX,RanY:Integer;
  5.  C:Char;
  6. BEGIN
  7.  Driver:=DETECT;
  8.  InitGraph(Driver,Mode,'');
  9.  FloodFill(1,1,1);
  10.  Repeat
  11.   RanX:=Random(GetMaxX);
  12.   RanY:=Random(GetMaxY) ;
  13.   SetViewPort(RanX,RanY,RanX+10,RanY+10,ClipOn);
  14.   ClearViewport;
  15.  Until KeyPressed;
  16.  C:=ReadKey;
  17.  CloseGraph;
  18. END.


Dernière mise à jour : Lundi, le 20 avril 2020