OUTTEXTXY |
Sortir le texte à (X,Y) |
|---|---|
| Turbo Pascal 4+ | 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
- Le paramètre ch est sorti à la coordonnée (X,Y). Le paramètre ch est toujours tronqué à la bordure de la fenêtre si elle est trop longue. Si l'une des polices de caractères vectorisées est active, le paramètre ch est tronqué à la limite de l'écran s'il est trop long. Si la police de caractères par défaut (bitmap) est active et que la chaîne de caractères est trop longue pour tenir à l'écran, aucun texte n'est affiché.
- Utilisez la procédure OutText pour générer du texte au niveau du pointeur actuel et utilisez OutTextXY pour produire du texte ailleurs sur l'écran.
- La procédure OutTextXY utilise la police de caractères définie par SetTextStyle. Afin de maintenir la compatibilité du code lorsque plusieurs polices sont utilisées, utilisez les appels TextWidth et TextHeight pour déterminer les dimensions de la chaîne de caractères.
- La procédure OutTextXY utilise les paramètres de sortie définies par SetTextJustify (soit justifier, centrer, faire pivoter de 90 degrés,...).
- La procédure OutTextXY doit être utilisé en mode graphique.
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 :
Référence
Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 309 à 310.
Dernière mise à jour : Dimanche, le 25 janvier 2015