home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / WINTRACK.BI < prev    next >
Text File  |  1989-07-25  |  2KB  |  60 lines
  1. '**************************************************************
  2. '*
  3. '* Include File: WinTrack.BI
  4. '*
  5. '* Requires:     PMBase.BI (RECTL type)
  6. '*               OS2Def.BI (POINTL type)
  7. '*
  8. '* Description:  Tracking rectangle manager
  9. '*
  10. '*************************************************************
  11.  
  12. ' WinTrackRect() tracking information structure 
  13.  
  14. TYPE TRACKINFO 
  15.     cxBorder AS INTEGER
  16.     cyBorder AS INTEGER
  17.     cxGrid AS INTEGER
  18.     cyGrid AS INTEGER
  19.     cxKeyboard AS INTEGER
  20.     cyKeyboard AS INTEGER
  21.     rclTrack AS RECTL
  22.     rclBoundary AS RECTL
  23.     ptlMinTrackSize AS POINTL
  24.     ptlMaxTrackSize AS POINTL
  25.     fs AS INTEGER
  26.     cxLeft AS INTEGER
  27.     cyBottom AS INTEGER
  28.     cxRight AS INTEGER
  29.     cyTop AS INTEGER
  30. END TYPE
  31.  
  32. DECLARE FUNCTION WinTrackRect%(BYVAL hwnd AS LONG,_
  33.                                BYVAL hps AS LONG,_
  34.                                BYVAL pti AS LONG)
  35.  
  36. DECLARE FUNCTION WinShowTrackRect%(BYVAL hwnd AS LONG,_
  37.                                    BYVAL fShow AS INTEGER)
  38.  
  39. ' WinTrackRect() flags 
  40.  
  41. CONST TFLEFT              = &H0001
  42. CONST TFTOP               = &H0002
  43. CONST TFRIGHT             = &H0004
  44. CONST TFBOTTOM            = &H0008
  45. ' TFMOVE = TFLEFT | TFTOP | TFRIGHT | TFBOTTOM 
  46. CONST TFMOVE              = &H000F
  47.  
  48. CONST TFSETPOINTERPOS     = &H0010
  49. CONST TFGRID              = &H0020
  50. CONST TFSTANDARD          = &H0040
  51. CONST TFALLINBOUNDARY     = &H0080
  52. CONST TFVALIDATETRACKRECT = &H0100
  53. CONST TFPARTINBOUNDARY    = &H0200
  54.  
  55. ' Special rectangle relative flags 
  56. CONST TFFIXLEFT         = &H0400
  57. CONST TFFIXTOP         = &H0800
  58. CONST TFFIXRIGHT         = &H1000
  59. CONST TFFIXBOTTOM         = &H2000
  60.