mouse_position ? en pascal !

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : mouse_position ? en pascal !

Gandalf_Le_Gris

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

Publicité

antp

Super Administrateur
Champion des excuses bidons

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

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

Gandalf_Le_Gris

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

antp

Super Administrateur
Champion des excuses bidons

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

Gandalf_Le_Gris

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

Gandalf_Le_Gris

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

Kristoph

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

Que penserais tu de faire ça en Caml plustot ?

antp

Super Administrateur
Champion des excuses bidons

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

Gandalf_Le_Gris

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

FORUM HardWare.fr

Programmation

Delphi/Pascal

mouse_position ? en pascal !

Sujets relatifs
position de l'image...ca marche pas	sound sous pascal
[VB(A)] Accéder à un fichier quelconque à la position désirée...	ouvrir IE avec une taille et position precise
comment donner une taille IE et lui donner une position	Position du cuseur dans un input type="text"
pb avec FAR et PASCAL c vieux ^^	Position d'un lien dans une page
Petit progamme en JAVA et PASCAL	[PASCAL] Aidez moi!!
Plus de sujets relatifs à : mouse_position ? en pascal !

Page générée en 0.047 secondes