MOUSE Maus Hide Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Wenn am Bildschirm Änderungen vorgenommen werden, sollte zuerst der Mauszeiger mit dieser Prozedur versteckt werden, damit auch der Bereich, der sonst durch die Zeigerschablone verdeckt wird beschrieben werden kann.

vgl. - Maus_UnHide - Maus_Move - Maus_NoMove

Deklaration

UNIT Mouse;
PROCEDURE Maus_Hide;

Beispiel

PROGRAM Test; 
USES GFX, Mouse, Crt;
BEGIN
  InitGraph(Mode800x600x16);  { Grafikmodus initialisieren }
  InitMaus;                   { Maus wird initialisiert }
  REPEAT                      { Schleife }
    IF KeyPressed THEN { Tastendruck abfangen und Mauszeiger verstecken oder sichtbar machen }
    BEGIN
      ReadKey;
      IF Maus.Hidden THEN Maus_UnHide
                     ELSE Maus_Hide;
    END;
  UNTIL Maus_Click(0, 0, GetMaxX, GetMaxY, mb_left); { Schleife durchlaufen, bis mit der }
                                           { Maus links auf den Bildschirm geklickt wird } 
  DoneMaus;                   { Maus abschalten }
END.

---