home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / OPENDLG.BI < prev    next >
Text File  |  1989-08-01  |  5KB  |  134 lines
  1. '
  2. '    OPENDLG.BI -- File Dialog include file
  3. '    Created by Microsoft Corporation, 1989
  4.  
  5.  
  6. CONST IDMSYSCLOSE =   &H8004   ' "Close" item id in System Menu
  7.  
  8. CONST IDSMERGE1   =    0      ' merge string (%%)
  9. CONST IDSIFN      =    1      ' %% is not a valid filename.
  10. CONST IDSFNF      =    2      ' %% not found - Create new file?
  11. CONST IDSREF      =    3      ' Replace existing %%?
  12. CONST IDSSCC      =    4      ' %% has changed. Save current changes?
  13. CONST IDSEOF      =    5      ' Error opening %%
  14. CONST IDSECF      =    6      ' Error creating %%
  15.  
  16. ' Dialog box IDs Open/Save IDs
  17. CONST IDDFILEOPEN  =   -1
  18. CONST IDDFILESAVE  =   -2
  19.  
  20. CONST ATTRDIRLIST  =  &H4010  ' include directories and drives in listbox
  21.  
  22. CONST MAXFNAMELEN      =  80
  23. CONST CBEXTMAX           =   6
  24. CONST CBROOTNAMEMAX    =  73
  25. CONST MAXMESSAGELENGTH = 128  ' maximum cb of a msg (instruction or warning).
  26.  
  27. ' Action value for DlgFile, the values may be ORed, except DLGOPENDLG
  28. ' and DLGSAVEDLG.
  29. CONST DLGOPENDLG = &H00      ' Use the Open dialog box.
  30. CONST DLGSAVEDLG = &H01         ' Use the Save (As) dialog box
  31. CONST DLGNOOPEN  = &H02         ' Don't Open the file we selected
  32. CONST DLGHELP     = &H04         ' The dialog box supports Help
  33.  
  34. ' Return values from DlgFile :
  35. CONST TDFERRMEM  =  0
  36. CONST TDFINVALID =  1
  37. CONST TDFNOOPEN  =  2
  38. CONST TDFNEWOPEN =  3
  39. CONST TDFOLDOPEN =  4
  40. CONST TDFNOSAVE  =  5
  41. CONST TDFNEWSAVE =  6
  42. CONST TDFOLDSAVE =  7
  43.  
  44. ' Flags for OpenFile
  45. CONST OFREOPEN = &H8000
  46. CONST OFEXIST  = &H4000
  47. CONST OFPROMPT = &H2000
  48. CONST OFCREATE = &H1000
  49. CONST OFCANCEL = &H0800
  50. CONST OFVERIFY = &H0400
  51. CONST OFDELETE = &H0200
  52. CONST OFPARSE  = &H0100
  53.  
  54. CONST OFREAD      =   &H0080
  55. CONST OFWRITE      =   &H0040
  56. CONST OFREADWRITE =   &H0020
  57.  
  58. ' flAttributes used to filter entries provided by DlgFillListBox
  59. CONST BITATTRDRIVE = &H4000
  60. CONST BITATTRDIR   = &H0010
  61.  
  62. ' Data structure used to pass information to DlgFile().
  63. TYPE DLF     ' dlf
  64.    rgbAction AS INTEGER               ' action usType:  eg. DLGOPEN
  65.    rgbFlags AS INTEGER                ' open file flAttributes
  66.    phFile AS LONG                     ' file handle
  67.    pszExt AS LONG                     ' default file extension "\\.ext"
  68.    pszAppName AS LONG                 ' application name
  69.    pszTitle AS LONG                   ' panel title or NULL
  70.    pszInstructions AS LONG            ' panel instructions or NULL
  71.    szFileName AS STRING * MAXFNAMELEN ' relative file name
  72.    szOpenFile AS STRING * MAXFNAMELEN ' full path name of current file
  73.    szLastWild AS STRING * MAXFNAMELEN ' last relative wild card name
  74.    szLastFile AS STRING * MAXFNAMELEN ' last relative file name
  75. END TYPE
  76.  
  77. '  Exported functions
  78. DECLARE SUB LCopyStruct (BYVAL PCHA AS LONG,_
  79.                          BYVAL PCHB AS LONG,_
  80.                          BYVAL aint AS INTEGER)
  81.  
  82. ' Single byte parameter - cannot pass
  83. '
  84. 'DECLARE SUB LFillStruct (BYVAL PCH AS LONG,_
  85. '                         BYVAL aint AS INTEGER,_
  86. '                         BYVAL BYTE AS STRING * 1)
  87.  
  88. DECLARE FUNCTION lstrlen% (BYVAL PSZ AS LONG)
  89.  
  90. DECLARE SUB lstrcpy (BYVAL PSZA AS LONG,_
  91.                      BYVAL PSZB AS LONG)
  92.  
  93. DECLARE SUB lstrcat (BYVAL PSZA AS LONG,_
  94.                      BYVAL PSZB AS LONG)
  95.  
  96. DECLARE FUNCTION lstrcmp% (BYVAL PSZA AS LONG,_
  97.                            BYVAL PSZB AS LONG)
  98.  
  99. DECLARE SUB AddExt(BYVAL PSZA AS LONG,_
  100.                    BYVAL PSZB AS LONG)
  101.  
  102. DECLARE FUNCTION FileInPath&(BYVAL PSZA AS LONG)
  103.  
  104. DECLARE FUNCTION GetTextExtent& (HPS AS LONG,_
  105.                                  PCH AS LONG,_
  106.                                  aint AS INTEGER)
  107.  
  108. DECLARE FUNCTION MergeStrings%(BYVAL PSZA AS LONG,_
  109.                                BYVAL PSZB AS LONG,_
  110.                                BYVAL PSZC AS LONG)
  111.  
  112. DECLARE FUNCTION OpenFile%(BYVAL PSZA AS LONG,_
  113.                            BYVAL PHANDLE AS LONG,_
  114.                            BYVAL PSZB AS LONG,_
  115.                            BYVAL USHORT AS INTEGER)
  116.  
  117. DECLARE SUB SetupDLF(BYVAL PDLF AS LONG,_
  118.                      BYVAL aint AS INTEGER,_
  119.                      BYVAL PHFILE AS LONG,_
  120.                      BYVAL APSZ AS LONG,_
  121.                      BYVAL BPSZ AS LONG,_
  122.                      BYVAL CPSZ AS LONG,_
  123.                      BYVAL DPSZ AS LONG)
  124.  
  125. DECLARE FUNCTION DlgFile%(BYVAL HWND AS LONG,_
  126.                           BYVAL PDLF AS LONG)
  127.  
  128. DECLARE FUNCTION AlertBox%(BYVAL HWND AS LONG,_
  129.                            BYVAL aint AS INTEGER,_
  130.                            BYVAL APSZ AS LONG,_
  131.                            BYVAL BPSZ AS LONG,_
  132.                            BYVAL AUSHORT AS INTEGER,_
  133.                            BYVAL BUSHORT AS INTEGER)
  134.