MOUSE Maus LoadZeiger Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Mit dieser Prozedur läßt sich ein anderer Mauszeiger laden. Mit dem Parameter "Name" wird der Dateiname spezifiziert.

Zum Aufbau einer Mauszeiger-Datei:

MausZeiger = RECORD
               Z       : ARRAY [0..23, 0..23] OF Byte;
               N       : Byte;
               HotX    : Byte;
               HotY    : Byte;
             END;

Der Mauszeiger ist ein 24x24 Punkte großes Graustufenbild (also 8 Bit Farbtiefe), an das noch die Mauszeigernummer (N - noch ohne Funktion) und mit HotX|HotY die Koordinaten des "Hot Spot" (der Stelle, an der das Klick-Ereignis ausgelöst wird) angehängt werden.

Deklaration

UNIT Mouse;
PROCEDURE Maus_LoadZeiger(Name : STRING);

Beispiel

PROGRAM Test; 
USES GFX, Mouse, Crt;
CONST ZeigerPfad = 'ZEIGER\'; { Hier den Pfad zu den Mauszeiger-Dateien angeben }
BEGIN
  InitGraph(Mode800x600x16);  { Grafikmodus initialisieren }
  InitMaus;                   { Maus wird initialisiert }
  REPEAT                      { Schleife }
    IF KeyPressed THEN
      CASE ReadKey OF
        '1'  : Maus_LoadZeiger(ZeigerPfad+'SANDUHR.ZEI');
        '2'  : Maus_LoadZeiger(ZeigerPfad+'HAND.ZEI');
        ELSE : Maus_LoadZeiger(ZeigerPfad+'ZEIGER.ZEI');
      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.

---