mouse_position ? en pascal !

Marsh Posté le 14-10-2003 à 17:13:27

je voudrais deplacer la souris avec un prog en pascal, genre la mettre a la position 200*300 c est possible ?
merci d avance

Reply

Marsh Posté le 14-10-2003 à 17:13:27

Reply

Marsh Posté le 14-10-2003 à 19:46:27

En Pascal, avec quel environnement de dev ? Sous DOS, Windows, ?

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 14-10-2003 à 22:04:45

sous windows, en turbo pascal

j ai essayé 2 3 trucs avec un UNIT pour initialiser la souris, mais je me demande si yaurait pas plus simple, packe la je galere un peu :x

Reply

Marsh Posté le 14-10-2003 à 22:43:50

On peut faire des softs Windows avec TP ?
Via un envoi de message il doit y avoir moyen de positionner le curseur... maintenant faut trouver quel message

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 15-10-2003 à 00:02:10

klr lol, je trouve rien, c est trop dead le pascal
c est pour faire un prog a la fac en MIASS, ils ont abandonné le java au profit du pascal

une idée pour la fonction ? :x

Reply

Marsh Posté le 15-10-2003 à 00:51:23

Citation :

{**********************************************}
Procedure ResetMouse;
var regs : registers;
Begin
FillChar (regs, SizeOf(regs), 0);
regs.ax := $0000;
Intr ($33, regs);
if regs.ax <> $FFFF then begin
writeln ('hardware/driver not installed');
halt;
end;
end; (* ResetMouse *)
{**********************************************}
Procedure ShowMouseCursor;
var regs : registers;
begin
FillChar (regs, SizeOf(regs), 0);
regs.ax := $0001;
Intr ($33, regs);
end; (* ShowMouseCursor *)
{**********************************************}
procedure HideMouseCursor;
var regs : registers;
begin
FillChar (regs, SizeOf(regs), 0);
regs.ax := $0002;
Intr ($33, regs);
end; (* HideMouseCursor *)
{**********************************************}
Procedure GetMouseCursor (var row, column, button : word);
var Regs : Registers;
Begin
FillChar (Regs, SizeOf(Regs), 0);
Regs.ax := $0003;
Intr ($33, Regs);
Row := Regs.dx Div 8;
Column := Regs.cx Div 8;
Button := Regs.bx;
End; (* GetMouseCursor *)
{**********************************************}
Procedure PutMouseCursor (Row, Column : word);
var Regs : Registers;
Begin
FillChar (Regs, SizeOf(Regs), 0);
Regs.ax := $0004;
Regs.dx := 8 * row;
Regs.cx := 8 * column;
Intr ($33, regs);
End; (* PutMouseCursor *)
{**********************************************}

les procedures ne posent pas de probleme mais le seul truc que j arrive a faire c est d afficher la position de la souris avec GetMouseCursor, pour hidemouse et le reste, aucune action directe sur la souris, comment faire ? :??: :sweat:

merci d avance

Reply

Marsh Posté le 15-10-2003 à 09:47:53

C'est du DOS ça. Ça ne devrait pas marcher sous Windows.

Que penserais tu de faire ça en Caml plustot ?

Reply

Marsh Posté le 15-10-2003 à 14:37:55

Gandalf_Le_Gris a écrit :

ils ont abandonné le java au profit du pascal

Ils auraient pu passer à Delphi s'ils voulaient du Pascal, parce que Turbo Pascal ça date

Reply

Marsh Posté le 15-10-2003 à 20:09:55

personne pour resoudre mon pb ? je ve juste placer mon curseur a un point particulier, apres je me debrouillerais pour le faire bouger avec des boucles ou autre

Reply

mouse_position ? en pascal !

Sujets relatifs:

Leave a Replay