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
- La procédure ClearViewPort efface la fenêtre actuelle en la remplissant avec la couleur d'arrière-plan actuelle et en déplaçant le pointeur actuel sur (0,0). Vous devez utiliser ClearDevice pour effacer tout l'écran.
- 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 avec seulement une partie de l'écran d'effacé :
- Program ClearViewPortSamples;
-
- 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;
- SetViewPort(50,50,300,300,True);
- ClearViewPort;
- SetColor(Blue);
- Bar(10,10,40,300);
- ReadLn;
- CloseGraph;
- END.
Dernière mise à jour : Vendredi, le 13 février 2015