[Free Pascal] Curseur dans le mode console

Version imprimable

07/04/2006, 21h00
xavier faure

[Free Pascal] Curseur dans le mode console

Bonjour
Malgré ma lecture de la faq à ce sujet je n'arrive pas à faire disparaitre mon curseur dans la fenetre texte. Je voudrais qu'il n'apparaisse jamais dans tout le programme comment je fais?
Merci d'avance
Xavier
07/05/2006, 19h32
diden138

salut

impossible tu veut faire disparaitre le curseur enmode console 8Oje crois pas que tu peux faire ca en mode console en mode graphique oui.
07/05/2006, 21h42
Tuxico

utilise la fonction delay(); si tu veux par exemple que le programme s'interrompe .
08/05/2006, 13h38
Sheriff

Salut !
je crois que le curseur prend la couleur du texte, c'est bien ça ?
dans ce cas, après avoir écrit ton texte tu fais un textcolor(couleur_de_l_arrière_plan) et ça fait disparaitre le curseur.
mais bon, je ferais bien d'essayer avant d'en reparler...
a+
08/05/2006, 15h25
Eric Sigoillot

Bonjour,

Les consoles ne sont pas normalisées. Il est très difficile de définir une opération autre que "écrire dans la console".
L'utilisation des couleurs, le déplacement à l'intérieur de celle-ci, l'effacement, ... sont des notions spécifiques à la plateforme utilisée.

D'où la question qui tue, sur quelle plateforme veux-tu effacer ton curseur ? Dos ? Windows ? Linux ? Autre ?

@++
08/05/2006, 21h01
diden138

salut,

j'ai questioner mon prof d'info im m'a dit que c'etait impossible d'enlever le curseur en mode console 8O a moin de le camoufler avec l'arriere plan comme la dit sheerif;)
09/05/2006, 10h33
Eric Sigoillot

C'est faux, il est tout à fait possible de le faire disparaître sous Dos... Donc la connaissance de l'environnement est nécessaire.

comme l'indique hdd34, cela dépend de l'OS.

Avec Windows, on utilise les API WIN32

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
program cvis;
uses windows;
 
procedure Curseur_Visible (rep :  boolean);
var ecran_handle : Thandle;
    curseur_info : TConsoleCursorInfo;
    ok : boolean;
begin
     ecran_handle := GetStdHandle (STD_OUTPUT_HANDLE);
     curseur_info.dwSize := 10;
     curseur_info.bvisible := rep ;
     ok := SetConsoleCursorInfo (ecran_handle,curseur_info);
end;
 
begin
     writeln ('curseur disparait, appuyez sur entree');
     Curseur_Visible (false);
     readln;
     writeln ('curseur revient, appuyez sur entree');
     Curseur_Visible (true);
     readln;
end.

Pour dos, on peut intégrer de l'assembleur, comme ici:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 begin {procédure principale} asm mov ax, 0100h mov cl, 010h mov ch, 010h int 10h end; {Curseur désormais invisible} {....} asm mov ax, 0100h mov cl, 020h mov ch, 020h int 10h end; {Restaure le curseur standard} end.
On utilise pour ça la sous-fonction 01 de l'interruption graphique 10h.
Plus de détails sur les interruptions : http://lrs.fmi.uni-passau.de/support...upt-57/INT.HTM

a++

31/05/2006, 21h33
j.p.mignot

voir l'excellent livre "The programmer's PC source book" de thom Hogan. On y trouve en détails tous les interrupts dos + bien d'autres choses.