[Graph] Actions clavier dans la fenêtre graphique
Bonjour à tous!
Je commence à programmer en Pascal sous Windowns X_P et j'utilise FreePascal afin de compiler mon code. Je souhaite réaliser une petite application graphique dos afin de prendre en main le langage avant de ma lancer dans un projet plus conséquent.
J'ai cependant rencontré plusieurs problèmes que vous pourrez peut être m'aider à résoudre.
Voici le programme sur lequel je me suis appuyé pour faire mes essais:
Code:
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
31
32
33
34
35
36
37
38
|
Program inigraph1;
{ Program to demonstrate static graphics mode selection }
uses graph;
const
TheLine = 'We are now in 640 x 480 x 256 colors!'+
' (press <Return> to continue)';
var
gd, gm, lo, hi, error,tw,th: integer;
found: boolean;
begin
{ We want an 8 bit mode }
gd := D8bit;
gm := m640x480;
initgraph(gd,gm,'');
{ Make sure you always check graphresult! }
error := graphResult;
if (error <> grOk) Then
begin
writeln('640x480x256 is not supported!');
halt(1)
end;
{ We are now in 640x480x256 }
setColor(cyan);
rectangle(0,0,getmaxx,getmaxy);
{ Write a nice message in the center of the screen }
setTextStyle(defaultFont,horizDir,1);
tw:=TextWidth(TheLine);
th:=TextHeight(TheLine);
outTextXY((getMaxX - TW) div 2,
(getMaxY - TH) div 2,TheLine);
{ Wait for return }
readln;
{ Back to text mode }
closegraph;
end. |
Voici les problèmes rencontrés :
- Le programme se compile correctement et ce lance semble t'il correctement cependant il se passe 6 bonnes seconde entre l'affichage de la fenêtre de saisie texte et l'affichage de la fenêtre graphique. Est ce normal ? N'est il pas possible d'executer l'affichage plus rapidement ?
- Le code comporte l'instruction "readln" cependant lorsque la fenêtre graphique est apparue avec le message "We are now in 640 x 480 x 256 colors (press <Return> to continue)" et bien lorsque j'appuie sur Return, il ne se passe rien. Il faut que je ferme le fernêtre graphique, alors seulement dans la fenêtre de texte cela fonctionne et la touche return permet de quitter le programme.
Pourriez vous éclairer mes lanternes sur le comportement de ce code?
Je vous remercie par avance.
