home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
tb
/
mousetb
/
mousecsr.def
< prev
next >
Wrap
Text File
|
1993-07-29
|
6KB
|
300 lines
'
' MOUSECSR.DEF --> definition verschiedener Mousecursor für Grafikmodus
'
' Copyright (c) 1988, 89 by
'
' Ralf Krause
'
' Leuchtenberger Str. 7a
' D-8480 Weiden i. d. Opf.
'
DEFINT i
'
' Sanduhr
'
DIM iClock(15,1)
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B1000000000000001
DATA &B1100000000000011
DATA &B1110000000000111
DATA &B1111000000001111
DATA &B1110000000000111
DATA &B1100000000000011
DATA &B1000000000000001
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B1111111111111111
DATA &B0000000000000000
DATA &B0111111111111110
DATA &B0110000000000110
DATA &B0011000000001100
DATA &B0001100000011000
DATA &B0000110000110000
DATA &B0000011001100000
DATA &B0001111111110000
DATA &B0000011001100000
DATA &B0000110000110000
DATA &B0001100000011000
DATA &B0011000000001100
DATA &B0110000000000110
DATA &B0111111111111110
DATA &B0000000000000000
DATA &B0000000000000000
iClockXHotSpot = 7
iClockYHotSpot = 7
FOR t = 0 TO 1
FOR n = 0 TO 15
READ iClock(n,t)
NEXT n
NEXT t
'
' Pfeil
'
DIM iArrow(15,1)
DATA &B0011111111111111
DATA &B0001111111111111
DATA &B0000111111111111
DATA &B0000011111111111
DATA &B0000001111111111
DATA &B0000000111111111
DATA &B0000000011111111
DATA &B0000000001111111
DATA &B0000000000111111
DATA &B0000000000011111
DATA &B0000000011111111
DATA &B0001000011111111
DATA &B0011000011111111
DATA &B1111100001111111
DATA &B1111100001111111
DATA &B1111110000111111
DATA &B0000000000000000
DATA &B0100000000000000
DATA &B0110000000000000
DATA &B0111000000000000
DATA &B0111100000000000
DATA &B0111110000000000
DATA &B0111111000000000
DATA &B0111111100000000
DATA &B0111111110000000
DATA &B0111111111000000
DATA &B0111110000000000
DATA &B0100011000000000
DATA &B0000011000000000
DATA &B0000001100000000
DATA &B0000001100000000
DATA &B0000000110000000
iArrowXHotSpot = 0
iArrowYHotSpot = 0
FOR t = 0 TO 1
FOR n = 0 TO 15
READ iArrow(n,t)
NEXT n
NEXT t
'
' Hand
'
DIM iHand(15,1)
DATA &B1111001111111111
DATA &B1110000111111111
DATA &B1110000111111111
DATA &B1110000111111111
DATA &B1110000111111111
DATA &B1110000000000001
DATA &B1110000000000000
DATA &B1110000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000110000000000
DATA &B0001001000000000
DATA &B0001001000000000
DATA &B0001001000000000
DATA &B0001001000000000
DATA &B0001001110110110
DATA &B0001001001001001
DATA &B0001001001001001
DATA &B0111001001001001
DATA &B1001001001001001
DATA &B1001001001001001
DATA &B1001001001001001
DATA &B1000000000000001
DATA &B1000000000000001
DATA &B1000000000000001
DATA &B1111111111111111
iHandXHotSpot = 5
iHandYHotSpot = 0
FOR t = 0 TO 1
FOR n = 0 TO 15
READ iHand(n,t)
NEXT n
NEXT t
'
' Plus
'
DIM iPlus(15,1)
DATA &B1111110000111111
DATA &B1111110000111111
DATA &B1111110000111111
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B1111110000111111
DATA &B1111110000111111
DATA &B1111110000111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B0000000000000000
DATA &B0000000110000000
DATA &B0000000110000000
DATA &B0000000110000000
DATA &B0111111111111110
DATA &B0000000110000000
DATA &B0000000110000000
DATA &B0000000110000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
iPlusXHotSpot = 7
iPlusYHotSpot = 4
FOR t = 0 TO 1
FOR n = 0 TO 15
READ iPlus(n,t)
NEXT n
NEXT t
'
' Aufwärtspfeil
'
DIM iUpArrow(15,1)
DATA &B1111100111111111
DATA &B1111000011111111
DATA &B1110000001111111
DATA &B1110000001111111
DATA &B1100000000111111
DATA &B1100000000111111
DATA &B1000000000011111
DATA &B1000000000011111
DATA &B0000000000001111
DATA &B0000000000001111
DATA &B1111000011111111
DATA &B1111000011111111
DATA &B1111000011111111
DATA &B1111000011111111
DATA &B1111000011111111
DATA &B1111000011111111
DATA &B0000000000000000
DATA &B0000011000000000
DATA &B0000111100000000
DATA &B0000111100000000
DATA &B0001111110000000
DATA &B0001111110000000
DATA &B0011111111000000
DATA &B0011111111000000
DATA &B0111111111100000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000011000000000
DATA &B0000000000000000
iUpArrowXHotSpot = 5
iUpArrowYHotSpot = 0
FOR t = 0 TO 1
FOR n = 0 TO 15
READ iUpArrow(n,t)
NEXT n
NEXT t
'
' kleiner Pfeil
'
DIM iSmallArrow(15,1)
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B1111111111111111
DATA &B0100000000000000
DATA &B0111000000000000
DATA &B0111110000000000
DATA &B0111111100000000
DATA &B0110110000000000
DATA &B0000011000000000
DATA &B0000001100000000
DATA &B0000000110000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
DATA &B0000000000000000
iSmallArrowXHotSpot = 0
iSmallArrowYHotSpot = 0
FOR t = 0 TO 1
FOR n = 0 TO 15
READ iSmallArrow(n,t)
NEXT n
NEXT t