OUTTEXTXY |
Sortie texte X,Y |
|---|---|
| Free Pascal | Graph |
Syntaxe
| Var OutTextXY=Procedure(x,y:SmallInt;Const TextString:String); |
| Procedure OutTextXY(x,y:SmallInt;Const TextString:String); |
Paramètres
| Nom | Description |
|---|---|
| x | Ce paramètre permet d'indiquer la coordonnée horizontal du commencement de l'affichage du message |
| y | Ce paramètre permet d'indiquer la coordonnée vertical du commencement de l'affichage du message |
| TextString | Ce paramètre permet d'indiquer le message à afficher à l'écran graphique |
Description
Cette procédure permet d'écrire une chaine de caractères de texte aux coordonnées spécifié dans un écran graphique.
Remarques
- ATTENTION ! Si vous utilisez le clavier sous le système d'exploitation Windows avec cette unité, il faudra utilisé l'unité wincrt plutôt que Crt, car l'unité Crt gère la fenêtre de console et non pas la fenêtre GUI.
- ATTENTION ! Si vous utilisez la souris sous le système d'exploitation Windows avec cette unité, il faudra utilisé l'unité winmouse plutôt que Mouse, car l'unité Mouse gère la fenêtre de console et non pas la fenêtre GUI.
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 : Samedi, le 18 juillet 2015