Hello tout le monde je comprend pas pourquoi j'ai des erreurs
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.
Initgraph initialise la fenetre graphique en 800*600 et 16 couleurs
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