home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / CURS_LIB / CURLIBM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-09-12  |  11.3 KB  |  204 lines
  1. Form1
  2. !CURLIBM by Pierre Fillion (c)1992
  3. Form1,
  4. Picture1
  5. Picture1
  6. Picture1
  7. Picture1
  8. Picture1
  9. Picture1
  10. Picture1
  11. Picture1
  12. Picture1
  13. Picture1
  14. Picture1
  15. Picture1
  16. Picture1
  17. Picture1
  18. Picture1
  19. Picture1
  20. Picture1
  21. Picture1
  22. Picture1
  23. Picture1
  24. Picture1
  25. Picture1
  26. Picture1
  27. Picture1
  28. Picture1
  29. Picture1
  30. Picture1
  31. Picture1
  32. Label1
  33. Timer1
  34. Command1
  35. E&xit
  36. LoadLibrary
  37. LibName
  38. LoadCursor
  39.     hInstance
  40. CursorName
  41. SetClassWord
  42. hWnd8
  43. nIndex
  44. NewValh
  45. DestroyCursor
  46. Handle    
  47. GetFocus
  48. APISetFocus
  49. GetCursorPos
  50.     PointType
  51. WindowFromPointk
  52. GCW_HCURSOR
  53. SysCursHandlew
  54. Curs1Handle
  55. Curs2Handle
  56. Pic1hWnd
  57. Command1hWnd
  58. Form_Click
  59. @    Form_Load
  60. Form1
  61. DLLInstance
  62. CurrHwnd
  63. Picture1R
  64. Command1
  65. Timer1
  66. IntervalQ
  67. Enabled
  68. Form_Unloada
  69. Cancel
  70. LastCursor6
  71. Success
  72. Timer1_TimerA
  73. Change
  74. class 
  75. word*
  76. appropriate
  77. cursor
  78. command2_click
  79. Command1_Click
  80. Curs3Handle7
  81. Command2
  82. Command2hWnd
  83. Command3hWnd
  84. CursHandleB
  85. ArrayR
  86. Label1
  87.     LabelhWnd
  88. Screen
  89. ActiveControla
  90. PicturehWnd
  91. LastTMP
  92. SetCursorPos
  93. ShowCursor
  94. State
  95. Picture1_Click
  96. Index
  97. VarBool
  98. CasePic1hWnd&
  99. CasePicturehWnd
  100. Caption
  101. DLLInstance2
  102. Unload
  103. DLLInstance3
  104. LoadResource
  105. hResInfo}
  106. FindResource\
  107. lpNamem
  108. lpType
  109. DLLInstance1
  110. pixels
  111. square
  112. Label1_Click
  113. Remove
  114. observation
  115. CURLIBM
  116. API functions to manipulate cursor libraries
  117. kernels
  118. SetFocus
  119. user>
  120. UserC
  121. Control Variable for cursors animations 
  122. Cursors Handles4
  123. Objects hWnd
  124. Type for cursor positionss
  125. Form_Load
  126. Load Libraries
  127. c:\windows\curr.dll"
  128. c:\windows\curr2.dll
  129. First Library of cursors
  130. BOMB0"
  131. BOMB1"
  132. CLOCK0
  133. CLOCK1
  134. CLOCK2
  135. CLOCK3
  136. CLOCK4
  137. CLOCK5
  138. CLOCK6
  139. CLOCK7
  140. LAMP0"
  141. LAMP1"
  142. WATCH0
  143. WATCH1
  144. WATCH2
  145. WATCH3
  146. SWORD"
  147. PIRANHA"
  148. SCREW0
  149. SCREW1
  150. SCREW2
  151. SCREW3
  152. SCREW4
  153. SCREW5
  154. SPIRAL0"
  155. SPIRAL1"
  156. SPIRAL2"
  157. SPIRAL3"
  158. SPIRAL4"
  159. SPIRAL5"
  160. SPIRAL6"
  161. SPIRAL7"
  162. SPIRAL8"
  163. SPIRAL9"
  164. TERMO0
  165. TERMO1
  166. TERMO2
  167. TERMO3
  168. TERMO4
  169. TERMO5
  170. TERMO6
  171. TERMO7
  172. TERMO8
  173. HANDUP
  174. HANDOPEN
  175. HANDUR
  176. PAINT"
  177. Second Library of cursors
  178. WRITE"
  179. ERASE"
  180. CANCEL
  181. MOUSE"
  182. Get the current control with the input focus.e
  183. Get the Pictures box handles
  184. Get the Window handle of Command1.
  185. Restore the focus to the control with the input focusu
  186. One millisecondu
  187. Form_Unload
  188. Restore the custom cursors to the system cursor:
  189. (CursHandle(3) is the windows arrow)
  190. Remove the rem if you want to fix the observation reported in note 1 in CURLIBM.BAST
  191. LastCursor = SetClassWord(Form1.hWnd, GCW_HCURSOR, CursHandle(3)))
  192. LastCursor = SetClassWord(Command1hWnd, GCW_HCURSOR, CursHandle(3))
  193. Delete the cursor resources from memory:
  194. For A = 1 To 114
  195. Timer1_Timer
  196. Get the current (absolute) cursor position
  197. Find out which control the midpoint of the cursor is over (The cursorr
  198. is 32 x 32 pixels square) and change the class word of the control
  199. to the appropriate cursor.
  200. Redisplay cursor for animation
  201. Write the cursor position in Label1 
  202. Position
  203. Command1_Click
  204.