OUTTEXTXY |
Sortir le texte à (X,Y) |
|---|---|
| QuickPascal | Graph |
Syntaxe
| Procedure OutTextXY(X,Y:Integer;ch:String); |
Paramètres
| Nom | Description |
|---|---|
| X | Ce paramètre permet d'indiquer la coordonnée horizontale du commencement de l'affichage du message |
| Y | Ce paramètre permet d'indiquer la coordonnée verticale du commencement de l'affichage du message |
| ch | Ce paramètre permet d'indiquer le message à afficher à l'écran graphique |
Description
Cette procédure permet d'écrire une chaîne de caractères de texte aux coordonnées spécifié dans un écran graphique.
Remarques
- 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 typique de l'utilisation de cette procédure :
- Program OutTextXYSamples;
-
- Uses Graph;
-
- Var Gd,Gm:Integer;
-
- BEGIN
- Gd := Detect;
- InitGraph(Gd, Gm,'');
- If(GraphResult <> grOk)Then Halt(1);
- SetFillStyle(SolidFill,Blue);
- Bar(12,12,398,20);
- SetColor(Yellow);
- OutTextXY(180,14,'Titre');
- SetFillStyle(SolidFill,White);
- Bar(12,25,398,100);
- SetColor(Black);
- OutTextXY(15,34,'Sylvain Maltais');
- OutTextXY(15,44,'Gladir.com');
- ReadLn;
- CloseGraph;
- END.
on obtiendra le résultat semblable au suivant :
Dernière mise à jour : Vendredi, le 13 février 2015