Ein neuer MausCursor in Pascal
                ������������������������������


Um Euch ein wenig Arbeit abzunehmen, kommt hier ein Beispiel-
prog zum ersetzen des alten Mauscursor durch einen neuen.
Ich will dabei direkt auf ein Programm names MCD eingehen
(MausCursorDesigner), das Ihr im Pfad 'PROGS\' findet. Es
handelt sich um ein Programm, mit dem Ihr Euch einen neuen
Cursor erstellen k�nnt, und diesen dann in Euren Programmen
benutzen k�nnt. Das ganz ist sehr einfach: Ihr seht zwei
16x16 Felder (BitMaske und CursorMaske). Hier k�nnt Ihr Eure
Masken entwerfen. Und dann k�nnt Ihr mittels einer Funktion
diese Maske in Konstanten f�r Pascal/C/Assembler/Basic bannen.
Diese Konstanten k�nnt Ihr dann sp�ter ins Programm aufnehmen
und verwenden. Ihr spart dabei wahrscheinlich einiges an Arbeit,
da Ihr nicht mehr mit Zahlen jonglieren m��t, sondern direkt
seht, was Ihr macht bzw. erhaltet. Aber ich glaube, Ihr werdet
schon herausfinden, wie das Prog nun richtig funktioniert.

Das folgende Programm nimmt die Konstanten auf und ersetzt das
alte Erscheinungsbild durch das neue.

  PROGRAM MausCursor;

  USES CRT,DOS;

  Const
     cursor: Array [0..31] Of Word = (
  	$7fc7,$7377,$ffdf,$d5ff,$6e33,$e7f3,$f727,$e1ff,
  	$dfd4,$f6c7,$ef77,$ee73,$fff7,$dffb,$f771,$c7ff,
  	$2000,$1100,$da8,$e20,$90,$3820,$41f9,$4890,
  	$1088,$21,$f0f0,$2252,$8000,$440,$4200,$0);
     hsx : Word = 0;
     hsy : Word = 0;

  VAR Regs : Registers;

  PROCEDURE InitMouse;
  BEGIN
   Regs.AX := 0;
   Intr($33,Regs);      {Maus initialisieren}
   Regs.AX := 1;
   Intr($33,Regs);      {Maus sichtbar machen}
  END;

  PROCEDURE SetzeMaske;
  BEGIN
   Regs.AX := 9;
   Regs.BX := hsx;
   Regs.CX := hsy;
   Regs.DX := Ofs(Cursor);
   Regs.ES := Seg(Cursor);
   Intr($33,Regs);
  END;

  PROCEDURE InitMode(Modus : BYTE);
  BEGIN
   Regs.AL := Modus;
   Regs.AH := 0;
   Intr($10,Regs);
  END;

  BEGIN
   InitMode($12);    {640x480x16}
   InitMouse;
   SetzeMaske;
   ReadLn;
   InitMode(3);      {TextModus 80x25 in Farbe}
  END.


Ich glaube, das Programm ist leicht verst�ndlich, da nichts auf-
regendes passiert. Man schaltet in VideoModus, Initialisiert die
Maus, macht den Mauscursor sichtbar und setzt dann den neuen Cur-
sor. Wie Ihr sehen werdet, ist dieser Cursor meiner besten Krea-
tivit�t entsprungen... Naja, jeder hat mal klein angefangen! Das
Programm wird abgebrochen, wenn Return gedr�ckt wurde. Noch Fra-
gen? Ihr wi�t ja: Immer her damit! Falls Ihr irgendwelche netten
Ideen f�r den zuk�nftigen STOD-Cursor entwickeln solltet, dann
schickt sie uns! Mal schaun, vielleicht wird der beste mit einer
Kleinigkeit honoriert (wie w�r's mit einer Schoki?).

Nungut, bis dann und viel Spa�, w�nscht

                                                 Kemil


PS: Das Prog findet Ihr, wie immer, im 'SOURCE'-Pfad.