home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / WINACCEL.BI < prev    next >
Text File  |  1989-07-25  |  2KB  |  62 lines
  1. '**************************************************************
  2. '*
  3. '* Include File: WinAccel.BI
  4. '*
  5. '* Requires:     none
  6. '*
  7. '* Description:  Accelerator Manager
  8. '*
  9. '*************************************************************
  10.  
  11. ' ACCEL fs bits
  12. ' *
  13. ' * NOTE: the first six AF code bits have the same value
  14. ' * as their KC counterparts
  15. ' 
  16. CONST AFCHAR         = &H0001
  17. CONST AFVIRTUALKEY   = &H0002
  18. CONST AFSCANCODE     = &H0004
  19. CONST AFSHIFT        = &H0008
  20. CONST AFCONTROL      = &H0010
  21. CONST AFALT          = &H0020
  22. CONST AFLONEKEY      = &H0040
  23. CONST AFSYSCOMMAND   = &H0100
  24. CONST AFHELP         = &H0200
  25.  
  26. TYPE ACCEL 
  27.     fs   AS INTEGER
  28.     akey AS INTEGER
  29.     cmd  AS INTEGER
  30. END TYPE
  31.  
  32. TYPE ACCELTABLE
  33.     cAccel AS INTEGER
  34.     codepage AS INTEGER
  35.     aaccel AS ACCEL         ' array; in C:ACCEL aaccel[1]
  36. END TYPE
  37.  
  38. DECLARE FUNCTION WinLoadAccelTable&(BYVAL hab AS LONG,_
  39.                                     BYVAL hmod AS INTEGER,_
  40.                                     BYVAL idAccelTable AS INTEGER)
  41.  
  42. DECLARE FUNCTION WinCreateAccelTable&(BYVAL hab AS LONG,_
  43.                                       BYVAL pAccelTable AS LONG)
  44.  
  45. DECLARE FUNCTION WinDestroyAccelTable%(BYVAL haccel AS LONG)
  46.  
  47. DECLARE FUNCTION WinCopyAccelTable%(BYVAL haccel AS LONG,_
  48.                                     BYVAL pAccelTable AS LONG,_
  49.                                     BYVAL cbCopyMax AS INTEGER)
  50.  
  51. DECLARE FUNCTION WinTranslateAccel%(BYVAL hab AS LONG,_
  52.                                     BYVAL hwnd AS LONG,_
  53.                                     BYVAL haccel AS LONG,_
  54.                                     BYVAL pqmsg AS LONG)
  55.  
  56. DECLARE FUNCTION WinSetAccelTable%(BYVAL hab AS LONG,_
  57.                                    BYVAL haccel AS LONG,_
  58.                                    BYVAL hwndFrame AS LONG)
  59.  
  60. DECLARE FUNCTION WinQueryAccelTable&(BYVAL hab AS LONG,_
  61.                                      BYVAL hwndFrame AS LONG)
  62.