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 knnt, und diesen dann in Euren Programmen benutzen knnt. Das ganz ist sehr einfach: Ihr seht zwei 16x16 Felder (BitMaske und CursorMaske). Hier knnt Ihr Eure Masken entwerfen. Und dann knnt Ihr mittels einer Funktion diese Maske in Konstanten fr Pascal/C/Assembler/Basic bannen. Diese Konstanten knnt Ihr dann spter ins Programm aufnehmen und verwenden. Ihr spart dabei wahrscheinlich einiges an Arbeit, da Ihr nicht mehr mit Zahlen jonglieren mt, 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 verstndlich, 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- tivitt entsprungen... Naja, jeder hat mal klein angefangen! Das Programm wird abgebrochen, wenn Return gedrckt wurde. Noch Fra- gen? Ihr wit ja: Immer her damit! Falls Ihr irgendwelche netten Ideen fr den zuknftigen STOD-Cursor entwickeln solltet, dann schickt sie uns! Mal schaun, vielleicht wird der beste mit einer Kleinigkeit honoriert (wie wr's mit einer Schoki?). Nungut, bis dann und viel Spa, wnscht Kemil PS: Das Prog findet Ihr, wie immer, im 'SOURCE'-Pfad.