/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / CURSOR / CURSOR.ZIP / CURSOR.BAS

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 04 02 00 0f 00 50 01 | 50 01 09 00 01 02 03 04 |......P.|P.......|
|00000010| 06 0b 05 08 0a 40 11 40 | 11 50 05 00 00 1a 00 5a |.....@.@|.P.....Z|
|00000020| 00 b6 02 9d 00 80 00 90 | 00 e6 01 ee 00 4c 01 68 |........|.....L.h|
|00000030| 00 ff 04 8d 01 d8 01 ac | 02 95 03 48 04 65 02 67 |........|...H.e.g|
|00000040| 01 b7 00 c1 00 a5 03 18 | 02 56 01 3d 01 00 00 9b |........|.V.=....|
|00000050| 01 cc 00 4f 02 ff 00 b0 | 01 6b 03 bb 02 07 01 00 |...O....|.k......|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 50 05 00 00 70 00 00 | 0a 47 6c 6f 62 61 6c 4c |.P...p..|.GlobalL|
|00000080| 6f 63 6b a4 01 00 04 68 | 4d 65 6d c8 01 00 0c 47 |ock....h|Mem....G|
|00000090| 6c 6f 62 61 6c 55 6e 4c | 6f 63 6b aa 00 00 0c 43 |lobalUnL|ock....C|
|000000a0| 72 65 61 74 65 43 75 72 | 73 6f 72 21 01 00 09 68 |reateCur|sor!...h|
|000000b0| 49 6e 73 74 61 6e 63 65 | da 02 00 09 6e 58 68 6f |Instance|....nXho|
|000000c0| 74 73 70 6f 74 04 02 00 | 09 6e 59 68 6f 74 73 70 |tspot...|.nYhotsp|
|000000d0| 6f 74 f7 01 00 06 6e 57 | 69 64 74 68 11 01 00 07 |ot....nW|idth....|
|000000e0| 6e 48 65 69 67 68 74 dd | 00 00 0d 6c 70 41 4e 44 |nHeight.|...lpAND|
|000000f0| 62 69 74 50 6c 61 6e 65 | 72 01 00 0d 6c 70 58 4f |bitPlane|r...lpXO|
|00000100| 52 62 69 74 50 6c 61 6e | 65 2d 01 00 0d 47 65 74 |RbitPlan|e-...Get|
|00000110| 57 69 6e 64 6f 77 57 6f | 72 64 0b 03 80 04 68 57 |WindowWo|rd....hW|
|00000120| 6e 64 fd 03 00 06 6e 49 | 6e 64 65 78 ea 02 00 0c |nd....nI|ndex....|
|00000130| 53 65 74 43 6c 61 73 73 | 57 6f 72 64 7d 01 00 08 |SetClass|Word}...|
|00000140| 6e 4e 65 77 57 6f 72 64 | 00 00 00 0c 47 65 74 43 |nNewWord|....GetC|
|00000150| 6c 61 73 73 57 6f 72 64 | 95 02 80 0b 47 43 57 5f |lassWord|....GCW_|
|00000160| 48 43 55 52 53 4f 52 5a | 02 00 06 47 6c 6f 61 62 |HCURSORZ|...Gloab|
|00000170| 6c bb 01 80 0d 47 57 57 | 5f 48 49 4e 53 54 41 4e |l....GWW|_HINSTAN|
|00000180| 43 45 6f 02 00 07 4f 6c | 64 43 75 72 73 84 03 00 |CEo...Ol|dCurs...|
|00000190| 07 68 43 75 72 73 6f 72 | d3 01 00 0c 53 65 74 4e |.hCursor|....SetN|
|000001a0| 65 77 43 75 72 73 6f 72 | 15 03 80 0a 67 68 49 6e |ewCursor|....ghIn|
|000001b0| 73 74 61 6e 63 65 a3 02 | 80 05 6c 70 61 6e 64 ca |stance..|..lpand.|
|000001c0| 02 00 08 50 69 63 74 75 | 72 65 31 36 03 00 07 50 |...Pictu|re16...P|
|000001d0| 69 63 74 75 72 65 f8 02 | 80 09 43 75 72 73 6f 72 |icture..|..Cursor|
|000001e0| 50 69 63 e2 03 00 07 43 | 6f 6e 74 72 6f 6c 0b 02 |Pic....C|ontrol..|
|000001f0| 00 01 44 56 04 00 0a 47 | 43 57 5f 48 43 55 52 53 |..DV...G|CW_HCURS|
|00000200| 4f 32 02 00 0d 52 65 73 | 74 6f 72 65 43 75 72 73 |O2...Res|toreCurs|
|00000210| 6f 72 3e 02 80 09 4f 6c | 64 43 75 72 73 6f 72 52 |or>...Ol|dCursorR|
|00000220| 03 80 03 52 65 74 26 02 | 80 09 53 65 74 43 75 72 |...Ret&.|..SetCur|
|00000230| 73 6f 72 00 00 80 0a 68 | 4e 65 77 43 75 72 73 6f |sor....h|NewCurso|
|00000240| 72 3e 04 00 08 58 48 6f | 74 53 70 6f 74 d1 03 00 |r>...XHo|tSpot...|
|00000250| 08 59 48 6f 74 53 70 6f | 74 27 05 00 0d 47 65 74 |.YHotSpo|t'...Get|
|00000260| 42 69 74 6d 61 70 42 69 | 74 73 e2 02 00 07 68 42 |BitmapBi|ts....hB|
|00000270| 69 74 6d 61 70 89 02 00 | 07 64 77 43 6f 75 6e 74 |itmap...|.dwCount|
|00000280| 82 02 80 06 6c 70 62 69 | 74 73 39 04 00 0f 47 65 |....lpbi|ts9...Ge|
|00000290| 74 4e 65 61 72 65 73 74 | 43 6f 6c 6f 72 3c 05 00 |tNearest|Color<..|
|000002a0| 03 68 64 63 1f 03 00 08 | 52 47 42 43 6f 6c 6f 72 |.hdc....|RGBColor|
|000002b0| 7c 03 00 0a 47 65 74 48 | 6f 74 53 70 6f 74 9d 03 ||...GetH|otSpot..|
|000002c0| 00 05 66 6f 72 6d 31 ce | 04 00 06 48 61 6e 64 6c |..form1.|...Handl|
|000002d0| 65 c3 02 00 01 61 eb 03 | 00 04 42 79 74 65 d3 02 |e....a..|..Byte..|
|000002e0| 00 03 61 61 61 00 00 00 | 05 42 79 74 65 73 ef 02 |..aaa...|.Bytes..|
|000002f0| 00 03 50 69 78 b7 03 00 | 04 69 6e 74 65 7b 04 00 |..Pix...|.inte{..|
|00000300| 04 44 73 69 6d c3 04 00 | 01 52 02 03 00 05 47 65 |.Dsim...|.R....Ge|
|00000310| 74 44 43 75 03 00 06 69 | 6d 61 67 65 31 00 00 00 |tDCu...i|mage1...|
|00000320| 05 49 6d 61 67 65 2a 03 | 00 06 62 69 74 6d 61 70 |.Image*.|..bitmap|
|00000330| 8b 03 00 06 62 6d 54 79 | 70 65 9d 04 00 07 62 6d |....bmTy|pe....bm|
|00000340| 57 69 64 74 68 d9 03 00 | 08 62 6d 48 65 69 67 68 |Width...|.bmHeigh|
|00000350| 74 46 03 00 0c 62 6d 57 | 69 64 74 68 42 79 74 65 |tF...bmW|idthByte|
|00000360| 73 61 03 00 08 62 6d 50 | 6c 61 6e 65 73 b0 03 00 |sa...bmP|lanes...|
|00000370| 0b 62 6d 42 69 74 73 50 | 69 78 65 6c 94 04 00 06 |.bmBitsP|ixel....|
|00000380| 62 6d 42 69 74 73 8e 04 | 00 06 6f 66 66 73 65 74 |bmBits..|..offset|
|00000390| 1b 04 00 03 62 6f 78 00 | 00 00 04 77 69 74 68 f8 |....box.|...with.|
|000003a0| 03 00 03 78 33 32 00 00 | 00 06 70 69 78 65 6c 73 |...x32..|..pixels|
|000003b0| be 03 00 04 6d 6f 6e 6f | f3 03 80 04 62 69 74 73 |....mono|....bits|
|000003c0| 6b 04 00 07 68 6f 74 73 | 70 6f 74 c8 03 80 03 78 |k...hots|pot....x|
|000003d0| 68 73 33 04 80 03 79 68 | 73 0d 04 00 06 6d 6f 64 |hs3...yh|s....mod|
|000003e0| 75 6c 6f b5 04 00 05 54 | 65 78 74 32 00 00 00 04 |ulo....T|ext2....|
|000003f0| 54 65 78 74 05 05 00 05 | 66 6f 72 6d 32 00 00 00 |Text....|form2...|
|00000400| 05 74 65 78 74 31 05 04 | 00 04 62 6f 74 73 00 00 |.text1..|..bots..|
|00000410| 00 01 78 64 04 00 01 79 | 25 04 80 04 68 6f 74 78 |..xd...y|%...hotx|
|00000420| d5 04 80 04 68 6f 74 79 | ab 04 00 0a 66 4f 6c 64 |....hoty|....fOld|
|00000430| 43 75 72 48 6e 64 72 04 | 00 06 6c 70 61 6e 64 69 |CurHndr.|..lpandi|
|00000440| 00 00 00 0a 43 75 72 73 | 6f 72 50 69 63 69 a3 04 |....Curs|orPici..|
|00000450| 00 02 50 32 00 00 00 01 | 50 0e 05 80 06 6c 70 61 |..P2....|P....lpa|
|00000460| 6e 64 78 82 04 80 0a 43 | 75 72 73 6f 72 50 69 63 |ndx....C|ursorPic|
|00000470| 58 1b 05 00 0a 63 6f 6e | 74 61 69 6e 69 6e 67 00 |X....con|taining.|
|00000480| 00 00 03 74 68 65 ea 04 | 00 03 72 65 64 f7 04 00 |...the..|..red...|
|00000490| 05 70 69 78 65 6c 00 00 | 00 03 50 69 63 00 00 00 |.pixel..|..Pic...|
|000004a0| 08 72 6f 75 74 69 6e 65 | 73 15 05 00 02 69 74 00 |.routine|s....it.|
|000004b0| 00 00 05 77 6f 75 6c 64 | 00 00 00 02 62 65 00 00 |...would|....be..|
|000004c0| 00 04 6e 69 63 65 00 00 | 00 06 66 72 65 65 6c 79 |..nice..|..freely|
|000004d0| bc 04 00 03 62 75 74 00 | 00 00 03 79 6f 75 e2 04 |....but.|...you..|
|000004e0| 00 07 72 65 6c 65 61 73 | 65 00 00 00 03 76 62 78 |..releas|e....vbx|
|000004f0| 33 05 00 09 73 68 61 72 | 65 77 61 72 65 00 00 00 |3...shar|eware...|
|00000500| 04 73 65 6e 64 00 00 00 | 09 72 65 67 69 73 74 72 |.send...|.registr|
|00000510| 65 64 00 00 00 04 63 6f | 70 79 00 00 00 02 6f 66 |ed....co|py....of|
|00000520| 00 00 00 05 66 69 72 73 | 74 00 00 00 03 6f 6e 65 |....firs|t....one|
|00000530| 00 00 00 02 65 78 00 00 | 00 08 50 69 63 74 75 72 |....ex..|..Pictur|
|00000540| 65 32 47 05 00 08 70 6f | 73 69 74 69 6f 6e 00 00 |e2G...po|sition..|
|00000550| 00 05 63 6f 6c 6f 72 00 | 00 00 07 63 68 61 6e 67 |..color.|...chang|
|00000560| 65 64 00 00 00 05 6c 69 | 67 68 74 c6 0a 00 00 18 |ed....li|ght.....|
|00000570| 00 00 00 3b 01 00 00 00 | 00 76 00 3c 00 00 00 20 |...;....|.v.<... |
|00000580| 44 65 6d 6f 20 62 79 20 | 50 69 65 72 72 65 20 46 |Demo by |Pierre F|
|00000590| 69 6c 6c 69 6f 6e 20 28 | 63 29 20 31 39 39 33 20 |illion (|c) 1993 |
|000005a0| 62 79 20 53 79 6e 65 74 | 69 63 73 20 43 6f 6e 73 |by Synet|ics Cons|
|000005b0| 75 6c 74 61 74 69 6f 6e | 20 00 00 76 00 1b 00 00 |ultation| ..v....|
|000005c0| 00 20 56 65 72 73 69 6f | 6e 20 31 2e 31 20 2d 20 |. Versio|n 1.1 - |
|000005d0| 31 39 39 33 2f 30 35 2f | 31 30 63 00 00 76 00 4a |1993/05/|10c..v.J|
|000005e0| 00 00 00 20 28 46 45 45 | 4c 20 46 52 45 45 20 54 |... (FEE|L FREE T|
|000005f0| 4f 20 44 49 53 54 52 49 | 42 55 54 45 20 54 48 45 |O DISTRI|BUTE THE|
|00000600| 20 45 4e 54 49 52 45 20 | 41 52 43 48 49 56 45 20 | ENTIRE |ARCHIVE |
|00000610| 4f 4e 4c 59 20 57 49 54 | 48 4f 55 54 20 4d 4f 44 |ONLY WIT|HOUT MOD|
|00000620| 49 46 49 43 41 54 49 4f | 4e 53 29 00 00 00 00 76 |IFICATIO|NS)....v|
|00000630| 00 48 00 00 00 20 49 20 | 64 6f 6e 27 74 20 61 73 |.H... I |don't as|
|00000640| 6b 20 66 6f 72 20 61 6e | 79 20 63 6f 6e 74 72 69 |k for an|y contri|
|00000650| 62 75 74 69 6f 6e 73 2c | 20 79 6f 75 20 6d 61 79 |butions,| you may|
|00000660| 20 75 73 65 20 74 68 65 | 73 65 73 20 72 6f 75 74 | use the|ses rout|
|00000670| 69 6e 65 73 20 66 72 65 | 65 6c 79 00 00 76 00 46 |ines fre|ely..v.F|
|00000680| 00 00 00 20 62 75 74 2c | 20 69 74 20 79 6f 75 20 |... but,| it you |
|00000690| 72 65 6c 65 61 73 65 20 | 61 20 2e 76 62 78 20 6f |release |a .vbx o|
|000006a0| 72 20 73 68 61 72 65 77 | 61 72 65 20 72 6f 75 74 |r sharew|are rout|
|000006b0| 69 6e 65 73 2c 20 69 74 | 20 77 6f 75 6c 64 20 62 |ines, it| would b|
|000006c0| 65 20 6e 69 63 65 20 00 | 00 76 00 1f 00 00 00 20 |e nice .|.v..... |
|000006d0| 74 6f 20 73 65 6e 64 20 | 6d 65 20 61 20 72 65 67 |to send |me a reg|
|000006e0| 69 73 74 72 65 64 20 63 | 6f 70 79 2e 00 00 00 00 |istred c|opy.....|
|000006f0| 00 76 00 3e 00 00 00 20 | 25 25 25 20 53 70 65 63 |.v.>... |%%% Spec|
|00000700| 69 61 6c 20 74 68 61 6e | 6b 73 20 74 6f 20 44 61 |ial than|ks to Da|
|00000710| 76 69 64 20 53 61 69 6e | 73 62 75 72 79 20 66 6f |vid Sain|sbury fo|
|00000720| 72 20 74 68 65 20 6d 61 | 69 6e 20 72 6f 75 74 69 |r the ma|in routi|
|00000730| 6e 65 73 00 00 76 00 49 | 00 00 00 20 25 25 25 20 |nes..v.I|... %%% |
|00000740| 56 65 72 79 20 53 70 65 | 63 69 61 6c 20 74 68 61 |Very Spe|cial tha|
|00000750| 6e 6b 73 20 74 6f 20 46 | 72 65 64 20 45 67 67 65 |nks to F|red Egge|
|00000760| 72 20 66 6f 72 20 68 69 | 73 20 68 65 6c 70 20 74 |r for hi|s help t|
|00000770| 6f 20 6d 79 20 63 6f 6c | 6f 72 20 70 72 6f 62 6c |o my col|or probl|
|00000780| 65 6d 20 00 00 00 00 76 | 00 27 00 00 00 0d 07 20 |em ....v|.'..... |
|00000790| 41 6e 79 20 73 75 67 67 | 65 73 74 69 6f 6e 73 20 |Any sugg|estions |
|000007a0| 3f 20 6f 72 20 69 6d 70 | 72 6f 76 6d 65 6e 74 73 |? or imp|rovments|
|000007b0| 20 3f 20 00 00 76 00 2a | 00 00 00 0d 07 20 50 6c | ? ..v.*|..... Pl|
|000007c0| 65 61 73 65 20 64 72 6f | 70 20 6d 65 20 61 20 6c |ease dro|p me a l|
|000007d0| 69 6e 65 20 6f 6e 20 43 | 49 53 20 37 31 31 36 32 |ine on C|IS 71162|
|000007e0| 2c 35 31 00 00 76 00 0c | 00 00 00 0d 07 20 6f 72 |,51..v..|..... or|
|000007f0| 20 74 6f 20 3a 00 00 76 | 00 13 00 00 00 0d 10 20 | to :..v|....... |
|00000800| 50 69 65 72 72 65 20 46 | 69 6c 6c 69 6f 6e 20 00 |Pierre F|illion .|
|00000810| 00 76 00 13 00 00 00 0d | 10 20 38 34 36 30 20 50 |.v......|. 8460 P|
|00000820| 65 72 72 61 73 20 23 31 | 20 00 00 76 00 14 00 00 |erras #1| ..v....|
|00000830| 00 0d 10 20 4d 6f 6e 74 | 72 65 61 6c 2c 51 75 65 |... Mont|real,Que|
|00000840| 62 65 63 00 00 76 00 0c | 00 00 00 0d 10 20 48 31 |bec..v..|..... H1|
|00000850| 45 20 35 43 37 00 00 00 | 00 76 00 11 00 00 00 20 |E 5C7...|.v..... |
|00000860| 20 54 68 61 6e 6b 73 20 | 61 20 6c 6f 74 2e 20 00 | Thanks |a lot. .|
|00000870| 00 00 00 76 00 05 00 00 | 00 0d 48 2d 00 00 00 76 |...v....|..H-...v|
|00000880| 00 19 00 00 00 20 46 6f | 6c 6c 6f 77 20 74 68 65 |..... Fo|llow the|
|00000890| 73 65 73 20 73 74 65 70 | 73 2e 2e 2e 2d 00 00 76 |ses step|s...-..v|
|000008a0| 00 05 00 00 00 0d 48 2d | 00 00 00 00 00 76 00 34 |......H-|.....v.4|
|000008b0| 00 00 00 20 53 69 6d 70 | 6c 79 20 61 64 64 20 74 |... Simp|ly add t|
|000008c0| 68 65 20 63 75 72 73 6f | 72 2e 62 61 73 20 6d 6f |he curso|r.bas mo|
|000008d0| 64 75 6c 65 20 74 6f 20 | 79 6f 75 72 20 70 72 6f |dule to |your pro|
|000008e0| 6a 65 63 74 2e 00 00 00 | 00 76 00 45 00 00 00 20 |ject....|.v.E... |
|000008f0| 43 72 65 61 74 65 20 61 | 20 70 69 63 74 75 72 65 |Create a| picture|
|00000900| 20 62 6f 78 20 28 33 32 | 78 33 32 20 70 69 78 65 | box (32|x32 pixe|
|00000910| 6c 29 20 66 6f 72 20 74 | 68 65 20 63 75 72 73 6f |l) for t|he curso|
|00000920| 72 20 61 6e 64 20 61 6e | 20 69 6e 76 65 72 74 65 |r and an| inverte|
|00000930| 64 20 65 00 00 76 00 47 | 00 00 00 20 70 69 63 74 |d e..v.G|... pict|
|00000940| 75 72 65 20 62 6f 78 20 | 6f 66 20 74 68 65 20 66 |ure box |of the f|
|00000950| 69 72 73 74 20 6f 6e 65 | 2e 20 28 53 65 65 20 74 |irst one|. (See t|
|00000960| 68 65 20 2e 69 63 6f 20 | 69 6e 63 6c 75 64 65 64 |he .ico |included|
|00000970| 20 77 69 74 68 20 74 68 | 69 73 20 64 65 6d 6f 29 | with th|is demo)|
|00000980| 00 00 00 76 00 4c 00 00 | 00 20 2d 2d 20 55 73 65 |...v.L..|. -- Use|
|00000990| 20 49 63 6f 6e 57 6f 72 | 6b 73 20 74 68 61 74 20 | IconWor|ks that |
|000009a0| 63 6f 6d 65 73 20 77 69 | 74 68 20 56 42 20 6f 72 |comes wi|th VB or|
|000009b0| 20 61 6e 79 6f 74 68 65 | 72 2c 20 74 6f 20 63 72 | anyothe|r, to cr|
|000009c0| 65 61 74 65 20 79 6f 75 | 72 20 70 69 63 74 75 72 |eate you|r pictur|
|000009d0| 65 73 2e 00 00 76 00 4c | 00 00 00 20 2d 2d 20 44 |es...v.L|... -- D|
|000009e0| 6f 6e 27 74 20 66 6f 72 | 67 65 74 20 74 6f 20 68 |on't for|get to h|
|000009f0| 61 64 20 61 20 6c 69 67 | 68 74 20 72 65 64 20 70 |ad a lig|ht red p|
|00000a00| 69 78 65 6c 20 74 6f 20 | 64 65 66 69 6e 65 20 61 |ixel to |define a|
|00000a10| 20 68 6f 74 73 70 6f 74 | 20 69 6e 20 74 68 65 20 | hotspot| in the |
|00000a20| 69 63 6f 6e 2e 00 00 00 | 00 76 00 11 00 00 00 20 |icon....|.v..... |
|00000a30| 0d 1f 2a 20 4e 4f 54 49 | 43 45 20 0d 20 2a 00 00 |..* NOTI|CE . *..|
|00000a40| 00 76 00 42 00 00 00 20 | 0d 07 2a 20 28 54 68 65 |.v.B... |..* (The|
|00000a50| 20 69 6e 76 65 72 74 65 | 64 20 70 69 63 74 75 72 | inverte|d pictur|
|00000a60| 65 20 69 73 20 74 68 65 | 20 6f 72 69 67 69 6e 61 |e is the| origina|
|00000a70| 6c 20 6f 6e 65 20 77 69 | 74 68 20 77 68 69 74 65 |l one wi|th white|
|00000a80| 20 63 6f 6c 6f 72 20 00 | 00 76 00 3d 00 00 00 20 | color .|.v.=... |
|00000a90| 0d 07 2a 20 20 63 68 61 | 6e 67 65 64 20 74 6f 20 |..*  cha|nged to |
|00000aa0| 73 63 72 65 65 6e 20 63 | 6f 6c 6f 72 20 61 6e 64 |screen c|olor and|
|00000ab0| 20 65 76 65 72 79 74 68 | 69 6e 67 20 65 6c 73 65 | everyth|ing else|
|00000ac0| 20 74 6f 20 77 68 69 74 | 65 29 6f 00 00 76 00 06 | to whit|e)o..v..|
|00000ad0| 00 00 00 20 0d 47 2a 00 | 00 00 00 76 00 2a 00 00 |... .G*.|...v.*..|
|00000ae0| 00 20 55 73 65 20 74 68 | 65 20 53 65 74 43 75 72 |. Use th|e SetCur|
|00000af0| 73 6f 72 20 74 6f 20 63 | 72 65 61 74 65 20 74 68 |sor to c|reate th|
|00000b00| 65 20 63 75 72 73 6f 72 | 2c 00 00 00 00 76 00 37 |e cursor|,....v.7|
|00000b10| 00 00 00 20 55 73 65 20 | 52 65 73 74 6f 72 65 43 |... Use |RestoreC|
|00000b20| 75 72 73 6f 72 20 74 6f | 20 72 65 73 74 6f 72 65 |ursor to| restore|
|00000b30| 20 69 74 20 62 61 63 6b | 20 74 6f 20 77 68 61 74 | it back| to what|
|00000b40| 20 69 74 20 77 61 73 2e | 00 00 00 00 00 76 00 05 | it was.|.....v..|
|00000b50| 00 00 00 0d 48 2d 00 00 | 00 00 00 76 00 3e 00 00 |....H-..|...v.>..|
|00000b60| 00 20 46 75 6e 63 74 69 | 6f 6e 20 53 65 74 43 75 |. Functi|on SetCu|
|00000b70| 72 73 6f 72 20 28 68 57 | 6e 64 20 41 73 20 49 6e |rsor (hW|nd As In|
|00000b80| 74 65 67 65 72 2c 20 43 | 75 72 73 6f 72 50 69 63 |teger, C|ursorPic|
|00000b90| 20 41 73 20 43 6f 6e 74 | 72 6f 6c 2c 20 00 00 76 | As Cont|rol, ..v|
|00000ba0| 00 26 00 00 00 0d 26 20 | 43 75 72 73 6f 72 50 69 |.&....& |CursorPi|
|00000bb0| 63 58 20 41 73 20 43 6f | 6e 74 72 6f 6c 29 20 41 |cX As Co|ntrol) A|
|00000bc0| 73 20 49 6e 74 65 67 65 | 72 00 00 00 00 76 00 4a |s Intege|r....v.J|
|00000bd0| 00 00 00 20 2d 2d 20 68 | 57 6e 64 20 3a 20 48 61 |... -- h|Wnd : Ha|
|00000be0| 6e 64 6c 65 20 6f 66 20 | 74 68 65 20 77 69 6e 64 |ndle of |the wind|
|00000bf0| 6f 77 20 6f 72 20 63 6f | 6e 74 72 6f 6c 20 77 68 |ow or co|ntrol wh|
|00000c00| 65 72 65 20 74 68 65 20 | 63 75 72 73 6f 72 20 77 |ere the |cursor w|
|00000c10| 69 6c 6c 20 63 68 61 6e | 67 65 2e 00 00 76 00 4b |ill chan|ge...v.K|
|00000c20| 00 00 00 20 2d 2d 20 43 | 75 72 73 6f 72 50 69 63 |... -- C|ursorPic|
|00000c30| 20 20 3a 20 4e 61 6d 65 | 20 6f 66 20 74 68 65 20 |  : Name| of the |
|00000c40| 63 6f 6e 74 72 6f 6c 20 | 68 6f 6c 64 69 6e 67 20 |control |holding |
|00000c50| 74 68 65 20 69 63 6f 6e | 20 70 72 65 76 69 6f 75 |the icon| previou|
|00000c60| 73 6c 79 20 63 72 65 61 | 74 65 64 2e 00 00 00 76 |sly crea|ted....v|
|00000c70| 00 12 00 00 00 0d 11 20 | 45 78 3a 28 50 69 63 74 |....... |Ex:(Pict|
|00000c80| 75 72 65 31 29 00 00 76 | 00 4e 00 00 00 20 2d 2d |ure1)..v|.N... --|
|00000c90| 20 43 75 72 73 6f 72 50 | 69 63 58 20 3a 20 4e 61 | CursorP|icX : Na|
|00000ca0| 6d 65 20 6f 66 20 74 68 | 65 20 63 6f 6e 74 72 6f |me of th|e contro|
|00000cb0| 6c 20 68 6f 6c 64 69 6e | 67 20 74 68 65 20 69 6e |l holdin|g the in|
|00000cc0| 76 65 72 74 65 64 20 69 | 63 6f 6e 20 6f 66 20 43 |verted i|con of C|
|00000cd0| 75 72 73 6f 72 50 69 63 | 2e 00 00 76 00 12 00 00 |ursorPic|...v....|
|00000ce0| 00 0d 11 20 45 78 3a 28 | 50 69 63 74 75 72 65 32 |... Ex:(|Picture2|
|00000cf0| 29 00 00 00 00 00 00 76 | 00 42 00 00 00 20 52 65 |)......v|.B... Re|
|00000d00| 74 75 72 6e 20 74 68 65 | 20 68 61 6e 64 6c 65 20 |turn the| handle |
|00000d10| 6f 66 20 74 68 65 20 6e | 65 77 20 63 75 72 73 6f |of the n|ew curso|
|00000d20| 72 20 74 6f 20 62 65 20 | 75 73 65 64 20 69 6e 20 |r to be |used in |
|00000d30| 52 65 6d 6f 76 65 43 75 | 72 73 6f 72 2e 00 00 00 |RemoveCu|rsor....|
|00000d40| 00 76 00 4b 00 00 00 20 | 28 54 68 69 73 20 72 6f |.v.K... |(This ro|
|00000d50| 75 74 69 6e 65 20 77 69 | 6c 6c 20 63 61 6c 6c 20 |utine wi|ll call |
|00000d60| 74 68 65 20 68 6f 74 73 | 70 6f 74 20 72 6f 75 74 |the hots|pot rout|
|00000d70| 69 6e 65 20 74 6f 20 66 | 69 6e 64 20 74 68 65 20 |ine to f|ind the |
|00000d80| 6c 69 67 68 74 20 72 65 | 64 20 70 69 78 65 6c 20 |light re|d pixel |
|00000d90| 69 00 00 76 00 2f 00 00 | 00 20 20 70 6f 73 69 74 |i..v./..|.  posit|
|00000da0| 69 6f 6e 20 69 6e 20 43 | 75 72 73 6f 72 50 69 63 |ion in C|ursorPic|
|00000db0| 20 61 6e 64 20 73 65 74 | 20 74 68 65 20 68 6f 74 | and set| the hot|
|00000dc0| 73 70 6f 74 2e 29 74 00 | 00 00 00 76 00 05 00 00 |spot.)t.|...v....|
|00000dd0| 00 0d 48 2d 00 00 00 76 | 00 3c 00 00 00 20 53 75 |..H-...v|.<... Su|
|00000de0| 62 20 52 65 73 74 6f 72 | 65 43 75 72 73 6f 72 20 |b Restor|eCursor |
|00000df0| 28 68 57 6e 64 20 41 73 | 20 49 6e 74 65 67 65 72 |(hWnd As| Integer|
|00000e00| 2c 20 4f 6c 64 43 75 72 | 73 6f 72 20 41 73 20 49 |, OldCur|sor As I|
|00000e10| 6e 74 65 67 65 72 29 00 | 00 00 00 76 00 43 00 00 |nteger).|...v.C..|
|00000e20| 00 20 2d 2d 20 68 57 6e | 64 20 3a 20 48 61 6e 64 |. -- hWn|d : Hand|
|00000e30| 6c 65 20 6f 66 20 74 68 | 65 20 77 69 6e 64 6f 77 |le of th|e window|
|00000e40| 20 6f 72 20 63 6f 6e 74 | 72 6f 6c 20 73 70 65 63 | or cont|rol spec|
|00000e50| 69 66 69 65 64 20 69 6e | 20 53 65 74 43 75 72 73 |ified in| SetCurs|
|00000e60| 6f 72 2d 00 00 76 00 46 | 00 00 00 20 2d 2d 20 4f |or-..v.F|... -- O|
|00000e70| 6c 64 43 75 72 73 6f 72 | 20 3a 20 56 61 72 69 61 |ldCursor| : Varia|
|00000e80| 62 6c 65 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 74 |ble cont|aining t|
|00000e90| 68 65 20 68 61 6e 64 6c | 65 20 72 65 74 75 72 6e |he handl|e return|
|00000ea0| 65 64 20 62 79 20 53 65 | 74 43 75 72 73 6f 72 00 |ed by Se|tCursor.|
|00000eb0| 00 00 00 76 00 05 00 00 | 00 0d 48 3d 00 00 00 00 |...v....|..H=....|
|00000ec0| 00 76 00 05 00 00 00 0d | 48 2d 00 00 00 76 00 19 |.v......|H-...v..|
|00000ed0| 00 00 00 43 55 52 53 4f | 52 2e 42 41 53 20 44 65 |...CURSO|R.BAS De|
|00000ee0| 63 6c 61 72 61 74 69 6f | 6e 73 2d 00 00 76 00 05 |claratio|ns-..v..|
|00000ef0| 00 00 00 0d 48 2d 00 00 | 00 00 00 2e 00 16 00 5a |....H-..|.......Z|
|00000f00| 00 e2 02 01 00 68 00 00 | 90 01 00 00 00 06 4b 65 |.....h..|......Ke|
|00000f10| 72 6e 65 6c 00 00 00 2e | 00 16 00 70 00 e1 02 01 |rnel....|...p....|
|00000f20| 00 68 00 00 90 01 00 00 | 00 06 4b 65 72 6e 65 6c |.h......|..Kernel|
|00000f30| 00 00 00 2e 00 44 00 80 | 00 e1 02 07 00 90 00 00 |.....D..|........|
|00000f40| 12 01 00 00 00 9d 00 00 | 12 01 00 00 00 aa 00 00 |........|........|
|00000f50| 12 01 00 00 00 b7 00 00 | 12 01 00 00 00 c1 00 00 |........|........|
|00000f60| 12 01 00 00 00 cc 00 00 | 90 00 00 00 00 dd 00 00 |........|........|
|00000f70| 90 00 00 00 00 04 55 73 | 65 72 00 00 00 2e 00 1c |......Us|er......|
|00000f80| 00 ee 00 e1 02 02 00 ff | 00 00 90 01 00 00 00 07 |........|........|
|00000f90| 01 00 90 01 00 00 00 04 | 55 73 65 72 00 00 00 2e |........|User....|
|00000fa0| 00 24 00 11 01 e1 02 03 | 00 ff 00 00 90 01 00 00 |.$......|........|
|00000fb0| 00 07 01 00 90 01 00 00 | 00 21 01 00 90 01 00 00 |........|.!......|
|00000fc0| 00 04 55 73 65 72 00 00 | 00 2e 00 1c 00 2d 01 e1 |..User..|.....-..|
|00000fd0| 02 02 00 ff 00 00 90 01 | 00 00 00 07 01 00 90 01 |........|........|
|00000fe0| 00 00 00 04 55 73 65 72 | 00 00 00 2e 00 22 00 3e |....User|.....".>|
|00000ff0| 02 e2 02 03 00 4f 02 00 | 90 01 00 00 00 5a 02 00 |.....O..|.....Z..|
|00001000| 90 02 00 00 00 65 02 00 | 90 07 00 00 00 03 47 64 |.....e..|......Gd|
|00001010| 69 00 00 00 00 1e 00 e5 | 00 0c 00 f9 00 0c 00 3d |i.......|.......=|
|00001020| 01 00 00 1e 00 e4 18 f9 | 00 0c 00 56 01 00 00 09 |........|...V....|
|00001030| 00 08 00 ff ff ff ff ff | ff ff ff 53 00 04 00 03 |........|...S....|
|00001040| 01 00 0a 00 47 65 74 48 | 6f 74 53 70 6f 74 01 08 |....GetH|otSpot..|
|00001050| 30 92 01 00 00 18 00 00 | 00 58 00 1e 00 95 02 00 |0.......|.X......|
|00001060| 01 03 00 bb 01 00 80 c8 | 01 00 00 b0 03 00 80 01 |........|........|
|00001070| 00 00 00 b7 03 00 80 01 | 00 00 00 00 00 00 10 fc |........|........|
|00001080| 00 3a 00 16 00 02 00 0c | 00 0d 00 04 02 00 10 fc |.:......|........|
|00001090| 00 4c 00 fb 00 08 00 00 | 04 0f 00 0d 00 65 02 00 |.L......|.....e..|
|000010a0| 10 fc 00 5c 00 16 00 01 | 00 0d 00 0d 00 9d 03 00 |...\....|........|
|000010b0| 10 00 10 76 00 39 00 04 | 00 52 65 74 72 69 65 76 |...v.9..|.Retriev|
|000010c0| 65 20 74 68 65 20 63 75 | 72 73 6f 72 20 62 69 74 |e the cu|rsor bit|
|000010d0| 73 20 74 6f 20 63 68 65 | 63 6b 20 66 6f 72 20 74 |s to che|ck for t|
|000010e0| 68 65 20 68 6f 74 73 70 | 6f 74 20 28 78 2c 79 29 |he hotsp|ot (x,y)|
|000010f0| 20 00 10 0b 00 bb 01 11 | 00 02 03 dd 00 0c 00 9d | .......|........|
|00001100| 03 00 10 0b 00 9d 03 e5 | 00 00 04 0b 00 65 02 0e |........|.....e..|
|00001110| 00 03 00 3e 02 0c 00 04 | 02 00 10 e4 00 0c 00 b7 |...>....|........|
|00001120| 03 00 10 e4 00 0c 00 b0 | 03 00 00 00 10 76 00 36 |........|.....v.6|
|00001130| 00 04 00 46 69 6e 64 20 | 74 68 65 20 72 65 64 20 |...Find |the red |
|00001140| 70 69 78 65 6c 20 78 2c | 79 20 70 6f 73 69 74 69 |pixel x,|y positi|
|00001150| 6f 6e 20 66 6f 72 20 68 | 6f 74 73 70 6f 74 20 6c |on for h|otspot l|
|00001160| 6f 63 61 74 69 6f 6e 00 | 10 0b 00 9d 03 e4 04 e5 |ocation.|........|
|00001170| 00 00 04 3e 00 ff ff b2 | 01 00 20 0b 00 65 02 0b |...>....|.. ..e..|
|00001180| 00 9d 03 e4 04 c7 00 ed | 00 06 00 60 01 01 00 f9 |........|...`....|
|00001190| 00 a6 00 49 00 a8 01 00 | 30 0b 00 9d 03 e5 00 20 |...I....|0...... |
|000011a0| 00 a5 00 bc 00 e4 04 a3 | 00 0c 00 b7 03 00 30 0b |........|......0.|
|000011b0| 00 9d 03 0b 00 b7 03 e4 | 04 f7 00 ee 00 e5 00 20 |........|....... |
|000011c0| 00 f0 00 ee 00 f7 00 0c | 00 b0 03 00 20 38 00 00 |........|.... 8..|
|000011d0| 10 0b 00 9d 03 4e 00 ff | ff 01 00 00 00 00 00 39 |.....N..|.......9|
|000011e0| 00 09 00 08 00 ff ff ff | ff ff ff ff ff 15 00 04 |........|........|
|000011f0| 00 03 00 00 0d 00 52 65 | 73 74 6f 72 65 43 75 72 |......Re|storeCur|
|00001200| 73 6f 72 01 08 30 56 00 | 00 00 18 00 00 00 58 00 |sor..0V.|......X.|
|00001210| 16 00 e6 01 00 01 02 00 | ff 00 00 80 01 00 00 00 |........|........|
|00001220| f7 01 00 80 01 00 00 00 | 00 10 00 10 fc 00 32 00 |........|......2.|
|00001230| 16 00 01 00 0c 00 0d 00 | 04 02 00 10 00 10 0b 00 |........|........|
|00001240| ff 00 0b 00 3d 01 0b 00 | f7 01 0e 00 03 00 11 01 |....=...|........|
|00001250| 0c 00 04 02 00 00 00 00 | 39 00 09 00 08 00 ff ff |........|9.......|
|00001260| ff ff ff ff ff ff 07 00 | 04 00 03 00 00 09 00 53 |........|.......S|
|00001270| 65 74 43 75 72 73 6f 72 | 02 09 30 74 04 00 00 18 |etCursor|..0t....|
|00001280| 00 00 00 40 00 1e 00 0b | 02 c1 02 03 00 ff 00 00 |...@....|........|
|00001290| 80 01 00 00 00 bb 01 00 | 80 c8 01 00 00 48 04 00 |........|.....H..|
|000012a0| 80 c8 01 00 00 00 00 00 | 10 fc 00 3a 00 16 00 01 |........|...:....|
|000012b0| 00 13 00 0d 00 8d 01 00 | 10 fc 00 54 00 16 00 02 |........|...T....|
|000012c0| 00 0e 00 0d 00 9b 01 16 | 00 02 00 1e 00 0d 00 3e |........|.......>|
|000012d0| 04 00 10 fc 00 64 00 16 | 00 01 00 0c 00 0d 00 04 |.....d..|........|
|000012e0| 02 00 10 fc 00 74 00 16 | 00 01 00 13 00 0d 00 18 |.....t..|........|
|000012f0| 02 00 10 fc 00 84 00 16 | 00 01 00 0d 00 0d 00 fd |........|........|
|00001300| 03 00 10 fc 00 94 00 16 | 00 01 00 0d 00 0d 00 05 |........|........|
|00001310| 04 00 10 00 10 76 00 39 | 00 04 00 53 65 74 20 74 |.....v.9|...Set t|
|00001320| 68 65 20 68 6f 74 73 70 | 6f 74 20 62 79 20 72 65 |he hotsp|ot by re|
|00001330| 74 72 69 65 76 69 6e 67 | 20 74 68 65 20 6c 6f 63 |trieving| the loc|
|00001340| 61 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 66 69 72 |ation of| the fir|
|00001350| 73 74 00 00 10 76 00 22 | 00 04 00 70 69 63 74 75 |st...v."|...pictu|
|00001360| 72 65 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 74 68 |re conta|ining th|
|00001370| 65 20 72 65 64 20 70 69 | 78 65 6c 00 10 0b 00 bb |e red pi|xel.....|
|00001380| 01 0b 00 fd 03 0b 00 05 | 04 23 00 03 00 95 02 00 |........|.#......|
|00001390| 10 00 10 76 00 45 00 04 | 00 43 75 72 73 6f 72 50 |...v.E..|.CursorP|
|000013a0| 69 63 20 20 69 73 20 61 | 20 70 69 63 74 75 72 65 |ic  is a| picture|
|000013b0| 20 62 6f 78 20 63 6f 6e | 74 72 6f 6c 20 77 69 74 | box con|trol wit|
|000013c0| 68 20 61 20 33 32 78 33 | 32 20 70 69 78 65 6c 73 |h a 32x3|2 pixels|
|000013d0| 20 6d 6f 6e 6f 20 62 69 | 74 6d 61 70 00 00 10 76 | mono bi|tmap...v|
|000013e0| 00 46 00 04 00 43 75 72 | 73 6f 72 50 69 63 58 20 |.F...Cur|sorPicX |
|000013f0| 69 73 20 61 6e 20 69 6e | 76 65 72 74 65 64 20 70 |is an in|verted p|
|00001400| 69 63 74 75 72 65 20 62 | 6f 78 20 63 6f 6e 74 72 |icture b|ox contr|
|00001410| 6f 6c 20 6f 66 20 74 68 | 65 20 66 69 72 73 74 20 |ol of th|e first |
|00001420| 43 75 72 73 6f 72 50 69 | 63 00 00 00 10 76 00 49 |CursorPi|c....v.I|
|00001430| 00 04 00 54 68 65 20 46 | 69 72 73 74 20 50 69 63 |...The F|irst Pic|
|00001440| 74 75 72 65 20 6d 75 73 | 74 20 63 6f 6e 74 61 69 |ture mus|t contai|
|00001450| 6e 20 61 20 6c 69 67 68 | 74 20 72 65 64 20 64 6f |n a ligh|t red do|
|00001460| 74 20 66 6f 72 20 74 68 | 65 20 68 6f 74 73 70 6f |t for th|e hotspo|
|00001470| 74 20 70 6f 73 69 74 69 | 6f 6e 00 00 00 00 10 76 |t positi|on.....v|
|00001480| 00 4a 00 04 00 28 54 68 | 65 20 43 75 72 73 6f 72 |.J...(Th|e Cursor|
|00001490| 50 69 63 58 20 69 73 20 | 63 72 65 61 74 65 64 20 |PicX is |created |
|000014a0| 74 6f 20 61 6c 6c 6f 77 | 20 77 68 69 74 65 20 26 |to allow| white &|
|000014b0| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 74 6f 20 62 | backgro|und to b|
|000014c0| 65 20 64 65 66 69 6e 65 | 64 20 6f 6b 29 00 10 76 |e define|d ok)..v|
|000014d0| 00 4a 00 04 00 28 52 65 | 66 65 72 20 6f 66 20 74 |.J...(Re|fer of t|
|000014e0| 68 65 20 2e 69 63 6f 20 | 66 69 6c 65 73 20 69 6e |he .ico |files in|
|000014f0| 63 6c 6f 64 65 64 20 74 | 6f 20 73 65 65 20 68 6f |cloded t|o see ho|
|00001500| 77 20 74 6f 20 64 6f 20 | 69 74 20 66 6f 72 20 6f |w to do |it for o|
|00001510| 74 68 65 72 20 63 75 72 | 73 6f 72 73 29 00 00 00 |ther cur|sors)...|
|00001520| 10 76 00 48 00 04 00 68 | 57 6e 64 20 69 73 20 74 |.v.H...h|Wnd is t|
|00001530| 68 65 20 68 61 6e 64 6c | 65 20 6f 66 20 74 68 65 |he handl|e of the|
|00001540| 20 77 69 6e 64 6f 77 20 | 6f 72 20 63 6f 6e 74 72 | window |or contr|
|00001550| 6f 6c 20 74 6f 20 61 70 | 70 6c 79 20 74 68 65 20 |ol to ap|ply the |
|00001560| 6e 65 77 20 63 75 72 73 | 6f 72 20 74 6f 00 10 00 |new curs|or to...|
|00001570| 10 76 00 3b 00 04 00 52 | 65 74 72 65 69 76 65 20 |.v.;...R|etreive |
|00001580| 77 69 6e 64 6f 77 20 6f | 72 20 63 6f 6e 74 72 6f |window o|r contro|
|00001590| 6c 20 69 6e 73 74 61 6e | 63 65 20 61 6e 64 20 70 |l instan|ce and p|
|000015a0| 69 63 74 75 72 65 73 20 | 61 64 72 65 73 73 65 73 |ictures |adresses|
|000015b0| 20 00 10 0b 00 ff 00 0b | 00 3d 01 0e 00 02 00 2d | .......|.=.....-|
|000015c0| 01 0c 00 0b 02 00 10 0b | 00 ff 00 0b 00 56 01 0e |........|.....V..|
|000015d0| 00 02 00 ee 00 0c 00 8d | 01 00 10 0b 00 bb 01 11 |........|........|
|000015e0| 00 b0 01 0e 00 01 00 5a | 00 0c 00 9b 01 00 10 0b |.......Z|........|
|000015f0| 00 48 04 11 00 b0 01 0e | 00 01 00 5a 00 0c 00 3e |.H......|...Z...>|
|00001600| 04 00 10 00 10 76 00 10 | 00 04 00 53 65 74 20 74 |.....v..|...Set t|
|00001610| 68 65 20 63 75 72 73 6f | 72 00 10 0b 00 8d 01 0b |he curso|r.......|
|00001620| 00 fd 03 0b 00 05 04 e5 | 00 20 00 e5 00 20 00 0b |........|. ... ..|
|00001630| 00 9b 01 e5 00 0c 00 a3 | 00 0b 00 3e 04 e5 00 0c |........|...>....|
|00001640| 00 a3 00 0e 00 07 00 80 | 00 0c 00 18 02 00 10 00 |........|........|
|00001650| 10 76 00 0d 00 04 00 46 | 72 65 65 20 6d 65 6d 6f |.v.....F|ree memo|
|00001660| 72 79 73 00 10 0b 00 bb | 01 11 00 b0 01 0e 00 01 |rys.....|........|
|00001670| 00 70 00 0c 00 04 02 00 | 10 0b 00 48 04 11 00 b0 |.p......|...H....|
|00001680| 01 0e 00 01 00 70 00 0c | 00 04 02 00 00 00 10 76 |.....p..|.......v|
|00001690| 00 3b 00 04 00 41 70 70 | 6c 79 20 74 68 65 20 63 |.;...App|ly the c|
|000016a0| 75 72 73 6f 72 20 74 6f | 20 74 68 65 20 77 69 6e |ursor to| the win|
|000016b0| 64 6f 77 20 6f 72 20 63 | 6f 6e 74 72 6f 6c 20 64 |dow or c|ontrol d|
|000016c0| 65 66 69 6e 65 64 20 62 | 79 20 68 57 6e 64 61 00 |efined b|y hWnda.|
|000016d0| 10 0b 00 ff 00 0b 00 3d | 01 0b 00 18 02 0e 00 03 |.......=|........|
|000016e0| 00 11 01 0c 00 04 02 00 | 10 00 00 39 00 09 00 08 |........|...9....|
|000016f0| 00 ff ff ff ff ff ff ff | ff 28 00 04 00 03 00 fd |........|.(......|
+--------+-------------------------+-------------------------+--------+--------+