ClearDevice |
Efface le périphérique |
|---|---|
| HighSpeed Pascal | 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.
Remarque
- La procédure ClearDevice efface toute l'écran.
- Le pointeur actuel est également déplacé vers le point (0,0).
Exemple
L'exemple suivant permet d'afficher 1000 lignes aléatoires et d'effacer l'écran après :
- Program ClearDeviceSamples;
- Uses Graph,Crt;
- Var
- Driver,Mode:Integer;
- BEGIN
- Driver:=DETECT;
- InitGraph(Driver,Mode,'');
- Repeat
- Line(0,0,Random(GetMaxX),Random(GetMaxY));
- Until (Random(999) = 1);
- ClearDevice;
- CloseGraph;
- END.
Dernière mise à jour : Lundi, le 20 avril 2020