MOUSE Maus UnHide Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Mit dieser Prozedur läß sich ein mit Maus_Hide versteckter Mauszeiger wieder sichtbar machen.

vgl. - Maus_Hide - Maus_Move - Maus_NoMove

Deklaration

UNIT Mouse;
PROCEDURE Maus_UnHide;

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.

---