home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / classlib / desaware / samplev4 / rectapi / rectplay.bas < prev    next >
Encoding:
BASIC Source File  |  1996-01-02  |  718 b   |  29 lines
  1. Attribute VB_Name = "RECTPLAY1"
  2. Option Explicit
  3.  
  4. ' Rectplay
  5.  
  6. '--------------------------------------------------------
  7. '
  8. '                   Application Globals
  9. '
  10. '-------------------------------------------------------
  11.  
  12. ' Global rectangles
  13.  
  14. Global Rect1 As New dwRECT
  15. Global Rect2 As New dwRECT
  16. Global RectUnion As New dwRECT
  17. Global RectIntersect As New dwRECT
  18. Global RectOffset As New dwRECT
  19. Global RectSubtract As New dwRECT
  20.  
  21. Global SettingState%    ' 0 = Point detect mode
  22.                         ' 1 = Setting rect1
  23.                         ' 2 = Setting rect2
  24.  
  25. Global StartPoint As New dwPoint
  26. Global EndPoint As New dwPoint
  27. Global HasCapture%  ' Indicates that tracking is in effect
  28.  
  29.