MOUSE InitMaus Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Initialisiert die Maus. Diese Routine muss vor der Verwendung der Maus aufgerufen. Jedoch muss vorher ein Grafikmodus mittels InitGraph aufgerufen werden.

Da der Mauszeiger durch eine Interrupt-Routine bedient wird, müssen nun sämtliche Abfragen in Schleifen liegen, da sonst das Programm nur glatt durchläuft, ohne auf die Maus reagieren zu können.

vgl. - InitGraph - DoneMaus

Deklaration

UNIT Mouse;
PROCEDURE InitMaus;

Beispiel

PROGRAM Test; 
USES GFX, Mouse, Crt;
BEGIN
  InitGraph(Mode800x600x16); { Grafikmodus initialisieren }
  InitMaus;                  { Maus wird initialisiert }
  REPEAT                     { Schleife }
  UNTIL KeyPressed;          { ... bis Taste gedrückt }
  ReadKey;                   { Tastendruck abfangen }
  DoneMaus;                  { Maus abschalten }
END.

---