Discussion :

[Transgarp]

Bonjour,

J'ai un vieux programme TP7 qui se promène entre le mode texte et le mode graph et qui fonctionne bien actuellement seulement en utilisant DosBox 0.74
Mais qui fonctionne dans un seul sens avec Free Pascal sans DosBox : oui je peux entrer en mode graphique, mais quand je reviens en mode texte, tous les caractères sont illisibles

J'ai bien écrit CloseGraph et RestoreCRTMode à la fin du programme
Mais ça ne change rien.

[Roland Chastain]

De mon côté (Windows 7 x32) le code suivant s'exécute correctement :

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
27
28
29
30
 
program Graph_01;
 
{$APPTYPE CONSOLE}
{$MODE DELPHI}
 
uses
  Graph, WinCrt;
 
var
  Gd, Gm: smallInt;
 
begin
  WriteLn('Passage au mode graphique dans 3 secondes.');
  Delay(3000);
 
  Gd := Detect;
  InitGraph(Gd, Gm, '');
 
  if GraphResult = grOk then
  begin
    SetColor(LightGray);
    OutText('Retour au mode texte dans 3 secondes.');
    Delay(3000);
    CloseGraph;
  end;
 
  WriteLn('Fin du programme dans 3 secondes.');
  Delay(3000);
end.

[Transgarp]

Ton code fonctionne merveilleusement bien sur mon ordi.
Mais pratiquement inutilisable vu qu'en mode texte j'utilise des GotoXY pour placer le texte et beaucoup d'autres procédures et fonctions de l'unit CRT qui est incompatible avec l'unit WinCRT
J'utilise souvent la procédure ClrScr pour nettoyer l'écran et ammener le curseur tout en haut à gauche

A moins que l'unit WinCRT possède des fonctions et procédures équivalentes.

En modifiant ton code, La phrase ne s'écrit pas complètement à la sortie du mode graphique

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
27
28
29
30
program Graph_01;
 
{$APPTYPE CONSOLE}
{$MODE DELPHI}
 
uses
  Crt,Graph,WinCrt;
 
var
  Gd, Gm: smallInt;
 
begin
  WriteLn('Passage au mode graphique dans 3 secondes.');
  Delay(3000);
 
  Gd := Detect;
  InitGraph(Gd, Gm, '');
 
  if GraphResult = grOk then
  begin
    SetColor(LightGray);
    OutText('Retour au mode texte dans 3 secondes.');
    Delay(3000);
    CloseGraph;
  end;
  clrscr; 
  GotoXY(1,20); WriteLn('Fin du programme dans 3 secondes.');
  WriteLn('Fin du programme dans 3 secondes.'); 
  Delay(3000);
end.

[Roland Chastain]

Je pense à une autre solution qui serait de remplacer l'unité Graph par l'unité WinGraph.
J'ai fait l'essai avec le code que tu as posté. Je n'ai changé que cette ligne :

Code :

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

1
2
uses
  Crt, WinGraph;

Et, surprise, ça fonctionne ! (Je joins un exécutable.)

Je ne sais pas si cela marcherait avec ton programme mais ça vaut peut-être la peine d'essayer. Les deux unités ayant une interface presque identique, il n'y aurait peut-être que quelques modifications à faire. Et les possibilités de WinGraph sont bien supérieures !

[Transgarp]

Finalement, j'ai trouvé l'unit WinGraph sur le web.
Cà fonctionne parfaitement avec le petit programme.
Mais cà bloque dans mon gros programme quand j'entre dans la fenêtre graphique.
Je dois quitter par la fenêtre texte

[Roland Chastain]

Le mieux, c'est peut-être de continuer à utiliser DosBox, non ?

S'il y a une application que tu utilises régulièrement, tu peux te servir d'un fichier de commande. Pour ma part j'en ai quelques-uns que j'ai placés directement dans mon menu Démarrer. Voici le contenu de Vikings.bat :

Code :

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

1
2
3
cd C:\Program Files\DOSBox-0.74\
DOSBox -noautoexec C:\Jeux\Vikings\Vikings.exe
exit