Mouse in Pascal!

[Sofa5000]

Frage? Kann ich in Pascal den Stand des Mousezeigers bei einem Klick abfragen? Und wenn ja wie??

Danke

[alcaeus]

Meinst du das alte DOS-Pascal oder das Borland Pascal?

[Sofa5000]

Ich hab Turbo Pascal für Windows 1.5

[alcaeus]

Achso, hättest du TP7, könnte ich dir helfen, aber bei TP für Win...keine Ahnung

[Sofa5000]

weißt du wo ich tp7 her bekommen kan??

[alcaeus]

hmmmm...ich weiß nicht, ich glaube nicht mehr dass ich es habe, aber ich kann ja mal suchen. falls du den code brauchst, den ...äh...muss ich auch erst suchen :wink:

[sakura]

Zitat:

Zitat von Sofa5000

weißt du wo ich tp7 her bekommen kan??

Schau mal bei Amazon - kostenfrei gibt es die 7er Version nicht ;)

...:cat:...

[alcaeus]

Hier sind die Mausprozeduren für den Grafikmodus. Die für den Textmodus finde ich leider nicht mehr. Die Routinen kommen aus dem Buch "Turbo Pascal 7.0 - Das Kompendium", das im Markt und Technik-Verlag erschienen ist. Hier ist der Code:

Delphi-Quellcode:

m1, m2, m3, m4: WORD;
PROCEDURE Maus; ASSEMBLER;
ASM
  MOV AX,m1
  MOV BX,m2
  MOV CX,m3
  MOV DX,m4
  INT $33
  MOV m1,AX
  MOV m2,BX
  MOV m3,CX
  MOV m4,DX
END;

PROCEDURE MausDA(nr : WORD);
Inline($58/$cd/$33);

PROCEDURE MausReset;
BEGIN
  IF Mem[MemW[0:$cc+2]:MemW[0:$cc]] <> $cf THEN BEGIN
    MausDa(0);
    MausDa(1);
  END
  ELSE BEGIN
    OutTextXY(10,10,'Maus nicht installiert! MOUSE in MS-DOS aufrufen! <Enter>');
    Readln;
    Halt;
  END;
END;

PROCEDURE MausData;
BEGIN
  m1:=3;
  Maus;
END;

PROCEDURE UrCursor;
BEGIN
  MausDa(2);
  MausDa(0);
  MausDa(1);
END;

Am Beginn des Programms rufst du MausReset auf. Jedes Mal, wenn du die Mausdaten abfragen willst, musst du MausData aufrufen. Anschließend steht in m2 der gedrückte Button drin:
0 = Nichts
1 = Links
2 = Rechts
3 = Beide
m3 und m4 enthalten die x und y-Position der Maus.
Die Funktion MausDa(2) blendet den Mauscursor aus, MausDa(1) zeigt ihn wieder.

WICHTIG: Dies ist nur ein Teil der Routinen, den anderen Teil brauchte ich nicht, und die Beispieldiskette vom Buch habe ich auch verloren :oops:
Ich hoffe, dass du den Code zum Laufen bringst, und wenn du ganz viel Glück hast, hat ja noch jemand das Buch...

[Jörn]

Turbo Pascal 5.5 kannst umsonst bei Borland saugen. Und FreePascal ist auch umsonst und zu 99,9% identisch mit TP7

[Ultimator]

Ich weiß zwar nicht, ob der sich damit strafbar macht, oder ob er die Lizenz von Borland hat, aber auf dieser Seite gibt's noch TP7 zum download