[Free Pascal] Intégrer des valeurs dans un menu dynamique

Version imprimable

23/03/2005, 10h27
boullery

[Free Pascal] Intégrer des valeurs dans un menu dynamique

Salut,

j'ai toujours un petit probleme avec mon menu dynamique.

J'utilise l'unité graph;

On peut afficher du texte dans une nouvelle fenetre avec la commande out text(X,Y,'bonjour').
mais peut on récupérer du texte saisit par l'utilisateur grace à une commande InText par exemple?

Pour l'instant j'arrive juste à récupérer les valeurs saisie par l'utilisateur dans la fenetre MS-dos et c'est un peu galère de gérer les deux fenetres.

Merci d'avance.
23/03/2005, 11h51
M.Dlb

Ca marche très bien avec readln et readkey.
23/03/2005, 15h19
boullery

avec readln et readkey on récupère des valeurs tapées dans la fenetre msdos. C'est à dire que dès que l'on veut entrer quelquechose au clavier, on est obligé de sélectionner la fenetre msdos alors que la fenetre active est celle qui comporte le menu.
23/03/2005, 15h38
M.Dlb

Tu utilises quel compilateur ?
25/03/2005, 11h05
boullery

freepascal pour windows
25/03/2005, 12h24
M.Dlb

Et ca marche pas readln et readkey ??

Sinon tu peux aller faire un tour dans l'aide de ton compilateur, ca mange pas de pain...
26/03/2005, 18h30
boullery

Si sa marche avec readln et readkey mais le probleme c'est que quand j'execute mon programme j'ai une fenetre qui s'ouvre et qui affiche mon menu dynamique. C'est donc cette fenetre qui est active et la fenetre msdos est elle inactive.
Quand on veut récupérer des valeurs avec readln et readkey il faut que ce soit la fenetre msdos soit active. Pour l'activer je suis obliger de cliquer dessus avec ma souris. J'aimerais pouvoir rendre active cette fenetre automatiquement.
27/03/2005, 10h32
Alcatîz

Bonjour !

Pourquoi ne lances-tu pas ton application directement, sans passer par la ligne de commande ?

Bonjour!

Voila, je ne sais pas si ça peut t'aider, mais j'avais il y a un bout de temps développé une procédure assez lourde en Graph pour faire une sorte de Readln :

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
 
uses newdelay, crt, graph;
 
function Input(X, Y : integer) : String; {A noter que les valeurs en X et
                                          Y employées sont à modifier selon
                                          la fonte.}
var Nini  : string;
    Key   : char;
 
begin
     Nini:='';
     Moveto(X,Y);
     Outtext('Entrez le N initial : ');
     OuttextXY(X+120,Y,'_');
     i:=0;
     Repeat
           Key:=readkey;
           If ((key<>#13) and (Key<>#27)) then
           begin
                Bar(X+120,Y-2,X+180,Y+10);
                inc(i);
                Nini:=Nini+Key;
                OuttextXY(X+120,Y,Nini);
                OuttextXY(X+120+(i*6),Y,'_');
           end;
           If (key=#27) then Nini:='';
     Until ((key=#27) or (key=#13));
     Input:=Nini;
end;

Bon. Vu qu'il a fallu que je l'extraie d'un programme sur des calculs de courbes, ya peut-être des erreurs, mais sinon tout est là. Tu noteras que tu ne peut pas revenir sur une erreur, mais tu pourras facilement modifier cela :twisted: .

a++

27/03/2005, 19h31
Stormy_Ordos

Ah oui, je viens d'y penser, tu auras peut-être à renommer la fonction (Input ça fait pas très catholique et ça va poser problème avec Big Brother la console).
29/03/2005, 22h39
boullery

Merci pour vos réponses.

Pour répondre à Alcatîz, j'ai quand meme besoin de ma fenetre ms dos pour récupérer certaines valeurs entrées par l'utilisateur.

Pour Stormy_Ordos je pense que je vais rester avec mes deux fenetres meme si sa fait pas tres pro de cliquer à chaque fois sur ma fenetre ms-dos pour saisir les valeurs désirées.
29/03/2005, 23h41
M.Dlb

Citation:

Envoyé par boullery

Pour répondre à Alcatîz, j'ai quand meme besoin de ma fenetre ms dos pour récupérer certaines valeurs entrées par l'utilisateur.

Pourquoi tu ne fais pas tout en mode graphique ? Ca serait plus simple, et plus "pro"... :)
30/03/2005, 10h02
boullery

On revient au probleme de depart. J'ai besoin de ma fenetre ms dos pour récupérer les valeurs que l'utilisateur entre au clavier
30/03/2005, 10h08
M.Dlb

Oui mais tu peux récupérer des valeurs de la même façon en mode graphique, ca marche...
30/03/2005, 12h21
Stormy_Ordos

Le blème c'est que Readln ne fonctionne qu'en mode Texte, donc ça fait un peu "sale" quand tu l'utilises dans un mode graph. Du coup, la question est : Est-ce que, dans ton prog, l'utilisateur peut entrer des Chars sans revenir à ta fenêtre DOS parallèle ? Si oui, je te renvoies à la procédure que j'ai écrite (simule un Readln en mode Graph). Si non, à moins de comprendre un minimum l'assembleur, ça va être compliqué.

a++
30/03/2005, 15h22
boullery

L'utilisateur n'entre que des char au clavier. Dans ta procedure tu définis une zone de la fenetre pour que l'utilisateur entre ses données?

Voila!

J'ai remis la fonction à jour (finalement l'adaptation ne s'était pas faite sans un bon nombre d'erreurs :roll: ). Tu devrais pouvoir la faire tourner directement (sous Turbo ça tourne rond!). Pour répondre à ta question, tu passes à la fonction (joliment renommée InLn :wink: ) comme paramètres l'abscisse et l'ordonnée de la fenêtre active où tu veux que la saisie s'effectue. Les espaces et la casse sont gérés, mais pas la suppression(pour annuler la saisie, appuie sur ESC; pour confirmer, appuie sur ENTER).
Ex:

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
39
40
41
42
43
44
45
46
47
48
49
50
 
uses newdelay, crt, graph;
 
var GraphDrv,GraphMd : integer;
const Path : string = 'c:\tp\bgi';
 
function InLn(X, Y : integer) : String; {A noter que les valeurs en X et
                                         Y employées sont à modifier selon
                                         la fonte.}
const PoliceSize = 8;                   {la taille de la police .CHR employée
                                         est importante car elle permet
                                         d'aligner le curseur sur le caractère
                                         actif. Par défaut un caractère BGI
                                         est une matrice de 8x8 pixels mais
                                         ça peut varier(TriplexFont,Smallfont
                                         etc...)}
 
var Nini  : string;
    Key   : char;
    i     : integer;
 
begin
     Setcolor(15);
     Nini:='';
     Moveto(X,Y);
     Outtext('Entrez le N initial : ');   {la phrase est un résidu}
     OuttextXY(X+180,Y,'_');
     i:=0;
     Setfillstyle(solidfill,0);
     Repeat
           Key:=readkey;
           If ((key<>#13) and (Key<>#27)) then
           begin
                Bar(X+180,Y-10,GetmaxX,Y+15);   {Note : cette ligne est a modifier
                                                 selon tes besoins évidemment}
                inc(i);
                Nini:=Nini+Key;
                OuttextXY(X+180,Y,Nini);
                OuttextXY(X+180+(i*PoliceSize),Y,'_');
           end;
           If (key=#27) then Nini:='';
     Until ((key=#27) or (key=#13));
     InLn:=Nini;
end;
 
begin
     Initgraph(GraphDrv,GraphMd,Path);
     Cleardevice;
     InLn(5,5);
end.

vu qu'elle est toute fraiche émoulue de mon compilo, n'hésite pas à signaler si ya quelque chose qui tourne pas sur le tien.

a++