Discussion :

[plotte]

Bonjour à tous.
J'ai besoin d'afficher du texte en mode graphique, pour cela j'utilise la fonction outext mais il y a une partie du texte que je dois retourner, le mettre en vertical.
Est-ce que j'utilise SetTextStyle VertDir avant outext ou il y a une syntaxe spéciale, parce que ça me paraît bizarre de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
settextstyle vertdir;
outext ....

merci

[Alcatîz]

Bonjour !

La déclaration de la procédure est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Procedure SetTextStyle (Font, Direction : Word; CharSize : Word);

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SetTextStyle(DefaultFont, VertDir, 4);
OutTextXY(....

[plotte]

merci

[Mic**]

Bonjour,

Voici un example de Texte Vertical

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses Graph;
 
var
 Gd, Gm: Integer;
 Y,X ,Size: Integer;
begin
 Gd := Detect;
 InitGraph(Gd, Gm, 'D:\PROG\BP\BGI ');  {chemin de ma BGI}
 if GraphResult <> grOk then
   Halt(1);
 Y := 0;X:=50;{ Y origine verticale X origine Horizontale }
 for Size := 1 to 4 do
 begin
   SetTextStyle(DefaultFont, VertDir, Size);
   OutTextXY(X, Y , 'Size = ' + Chr(Size + 48)); {Size pour la taille}
   X:=X+50;
 
 end;
 Readln;
 CloseGraph;
end.