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

[sakura]

Zitat von Sofa5000:

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

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

......

[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
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