Hello tout le monde je comprend pas pourquoi j'ai des erreurs
Initgraph initialise la fenetre graphique en 800*600 et 16 couleurs
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
22
23
24
25
26 program essai3; {le but est de tester les polices} uses grx,affich; var window,x :integer; opt : GrTextoption; fgcol,bgcol : Grtextcolor; BEGIN fgcol.v:=0; fgcol.p:=bgcol.p; bgcol.v:=10; bgcol.p:=fgcol.p; with opt do begin TXO_font:=GRloadFONT('pc8x16.FNT'); txo_fgcolor:=fgcol; txo_bgcolor:=bgcol; txo_chrtype:=GR_BYTE_TEXT; txo_direct:=GR_TEXT_RIGHT; TXO_xalign:=GR_ALIGN_CENTER; TXO_yalign:=GR_ALIGN_CENTER; end; initgraph(window); Grclearscreen(15); GrDrawString('Hello world',14,0,0,opt); x:=Grkeyread; END.
Au lieu de m'afficher hello world il me met un carre noir ac aucun text dedans. Je precise que le fichier de la police est dans le dossier ou se trouve mon fichier.pas voila
Partager