Discussion :

[seedle-san]

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

[Eric Sigoillot]

Il y a de fortes chances pour qu'il faille initialiser le mode graphique avant de pouvoir charger une police (appeler InitGraph avant GrLoadFont).

Essaie de tester les erreurs graphiques aussi (une fonction ayant un nom comme GrError ou GrResult ou encore GrGraphResult, ...).

Et n'oublie pas de fermer le mode graphique à la fin de ton programme !

A+

[the_guitariste]

excuse moi mais je viens de lire ton post. en effet, il faudrais toujours que tu initialise ta fenetre juste apres le begin comme ca tu na jamais de probleme, ensuite tu a essayer de te compliqué la vie au maximum en ajouter des lignes de commandes inutiles. je te donne ainsi le code simplifié et compilable avec une bibliothèque grx

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
program essai;
uses grx;
 
var window,x :integer;
    opt : GrTextoption;
 
BEGIN
      window:=grsetmode(24,640,480,8,400,400);  { ca c'est pour initialiser dans sur grx alors que initgraph
                                                  concerne le turbo pascal, a ne pas confondre aussi}
      grclearscreen(15);
 
      with opt do
      begin
           TXO_font:=GRloadFONT('pc8x16.FNT');
           txo_fgcolor.v:=0; {pour donner la couleur ta pas a ajouter de nouvelles lignes de comamndes}
           txo_bgcolor.v:=10;  {idem}
           txo_chrtype:=GR_BYTE_TEXT;
           txo_direct:=GR_TEXT_RIGHT;
           TXO_xalign:=GR_ALIGN_CENTER;
           TXO_yalign:=GR_ALIGN_CENTER;
       end;
       GrDrawString('Hello world',14,0,0,opt);
       x:=Grkeyread;
END.

je pense que le sujet peut-etre clos maintenant.