home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1143 / gepackt.exe / BSPQTSW.EXE / MOUSRES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-28  |  4.4 KB  |  110 lines
  1. (***************************************
  2. * WG-VISION 1.0   BEISPIELPROGRAMM     *
  3. ****************************************
  4. *                                      *
  5. * Erstellung einer Mauszeiger-         *
  6. * Ressourcendatei                      *
  7. *                                      *
  8. ****************************************
  9. * (c) 1993 Dipl.Phys. Mathias Scholz   *
  10. ***************************************)
  11.  
  12. {$I COMPILER.INC}
  13.  
  14. program MousRes;
  15.  
  16. type GraphCursorTyp=record
  17.                       Mask:array[0..1,0..15] of word;
  18.                       xspot,yspot:word;
  19.                     end;
  20.  
  21. var F        : file;
  22.     Result,I : integer;
  23.  
  24. const  MCursor : array[1..11] of GraphCursorTyp =
  25.         ((Mask : {Pfeil}
  26.           (($3FFF,$1FFF,$0FFF,$07FF,$03FF,$01FF,$00FF,$007F,
  27.             $003F,$001F,$000F,$00FF,$10FF,$F87F,$F87F,$F87F),
  28.            ($0000,$4000,$6000,$7000,$7800,$7C00,$7E00,$7F00,
  29.             $7F80,$7FC0,$7C00,$6600,$0600,$0300,$0300,$000));
  30.           xspot : 0;
  31.           yspot : 0),
  32.         ( Mask : {Hair}
  33.           (($FFFF,$8FF1,$87E1,$C3C3,$E187,$F00F,$F81F,$FC3F,
  34.             $F81F,$F00F,$E187,$C3C3,$87E1,$8FF1,$FFFF,$FFFF),
  35.            ($0000,$0000,$300C,$1818,$0C30,$0660,$03C0,$0180,
  36.             $03C0,$0660,$0C30,$1818,$300C,$0000,$00000,$0000));
  37.           xspot : 8;
  38.           yspot : 7),
  39.         ( Mask : {Sanduhr}
  40.           (($007F,$007F,$007F,$80FF,$80FF,$80FF,$80FF,$C1FF,
  41.             $C1FF,$80FF,$80FF,$80FF,$80FF,$007F,$007F,$007F),
  42.            ($0000,$0000,$3E00,$0000,$3E00,$2A00,$1400,$0800,
  43.             $0000,$0800,$1400,$2A00,$0000,$3E00,$0000,$0000));
  44.           xspot : 5;
  45.           yspot : 8),
  46.         ( Mask : {Vierfach-Pfeil}
  47.           (($FEFF,$FC7F,$F83F,$F01F,$E00F,$C447,$8003,$0001,
  48.             $8003,$C447,$E00F,$F01F,$F83F,$FC7F,$FEFF,$FFFF),
  49.            ($0000,$0100,$0380,$07C0,$0100,$1110,$3118,$7FFC,
  50.             $3118,$1110,$0100,$07C0,$0380,$0100,$0000,$0000));
  51.           xspot : 8;
  52.           yspot : 8),
  53.         ( Mask : {Pfeil oben/unten gerade}
  54.           (($FEFF,$FC7F,$F83F,$F01F,$E00F,$C007,$F83F,$F83F,
  55.             $F83F,$F83F,$C007,$E00F,$F01F,$F83F,$FC7F,$FEFF),
  56.            ($0000,$0100,$0380,$07C0,$0FE0,$0380,$0380,$0380,
  57.             $0380,$0380,$0380,$0FE0,$07C0,$0380,$0100,$0000));
  58.           xspot : 8;
  59.           yspot : 8),
  60.         ( Mask : {Pfeil links/rechts schräg}
  61.           (($FFFF,$FE03,$FF01,$FF81,$F701,$F201,$F001,$F009,
  62.             $F01D,$F03F,$F01F,$F80F,$FFFF,$FFFF,$FFFF,$FFFF),
  63.            ($0000,$0000,$007C,$003C,$007C,$00FC,$05F4,$07E0,
  64.             $07C0,$0780,$07C0,$0000,$0000,$0000,$00000,$0000));
  65.           xspot : 10;
  66.           yspot : 7),
  67.         ( Mask : {Pfeil links/rechts gerade}
  68.           (($FFFF,$FFFF,$FBDF,$F3CF,$E3C7,$C003,$8001,$0000,
  69.             $8001,$C003,$E3C7,$F3CF,$FBDF,$FFFF,$FFFF,$FFFF),
  70.            ($0000,$0000,$0000,$0000,$0810,$1818,$3FFC,$7FFE,
  71.             $3FFC,$1818,$0810,$0000,$0000,$0000,$00000,$0000));
  72.           xspot : 8;
  73.           yspot : 8),
  74.         ( Mask : {Pfeil rechts/links schräg}
  75.           (($FFFF,$C07F,$80FF,$81FF,$80EF,$804F,$800F,$900F,
  76.             $B80F,$FC0F,$F80F,$F01F,$FFFF,$FFFF,$FFFF,$FFFF),
  77.            ($0000,$0000,$3E00,$3C00,$3E00,$3F00,$2FA0,$07E0,
  78.             $03E0,$01E0,$03E0,$0000,$0000,$0000,$0000,$0000));
  79.           xspot : 7;
  80.           yspot : 7),
  81.         ( Mask : {Kursorstrich}
  82.           (($FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,
  83.             $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF),
  84.            ($0000,$6C00,$1000,$1000,$1000,$1000,$1000,$1000,
  85.             $1000,$1000,$1000,$1000,$1000,$1000,$6C00,$0000));
  86.           xspot : 4;
  87.           yspot : 7),
  88.         ( Mask : {Hand}
  89.           (($E1FF,$E1FF,$E1FF,$E1FF,$E1FF,$E000,$E000,$E000,
  90.             $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000),
  91.            ($1E00,$1200,$1200,$1200,$1200,$13FF,$1249,$1249,
  92.             $F249,$9049,$9001,$8001,$8001,$8001,$8001,$FFFF));
  93.           xspot : 4;
  94.           yspot : 7),
  95.         ( Mask : {Kursor-Kreuz gerade}
  96.           (($FC7F,$FC7F,$FC7F,$FC7F,$FC7F,$FC7F,$0001,$0001,
  97.             $0001,$FC7F,$FC7F,$FC7F,$FC7F,$FC7F,$FC7F,$FFFF),
  98.            ($0100,$0100,$0100,$0100,$0100,$0100,$0100,$FFFE,
  99.             $0100,$0100,$0100,$0100,$0100,$0100,$0100,$0000));
  100.           xspot : 8;
  101.           yspot : 8));
  102.  
  103. begin
  104.   Assign(F,'CURSOR.CUR');
  105.   Rewrite(F,SizeOf(GraphCursorTyp));
  106.   for I:=1 to 10 do
  107.    BlockWrite(F, MCursor[I],1,Result);
  108.   Close(F);
  109. end.
  110.