home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1992 / 11 / mc / global.bas < prev    next >
BASIC Source File  |  1992-02-18  |  3KB  |  105 lines
  1. Global Const True = -1, False = 0
  2. Global CRLF As String
  3.  
  4. Global IsDirty As Integer  'Really Boolean
  5. Global HistoryIsDirty As Integer 'Really Boolean
  6. 'IsDirty tracks whether the configuration data has changed and
  7. 'HistoryIsDirry whether history has changed so MC knows
  8. 'whether to pop up a "Save configuration dialog.
  9.  
  10. Type Program
  11.     Drive As String
  12.     Path As String
  13.     Filename As String
  14.     params As String
  15. End Type
  16. 'This is the fundemental type saved in history
  17.  
  18. Global VarProg As Program
  19. Global TempPrg As Program
  20.  
  21. Type Item
  22.     name As String
  23.     Prog As Program
  24. End Type
  25.  
  26. Type PManGrp
  27.     Filename As String
  28.     grpname As String
  29.     NumItems As Integer
  30.     ListName As String 'holder for GrpName(NumItems)
  31.     Selected As Integer 'really Boolean
  32. End Type
  33.  
  34. 'Preference Items
  35. Type DTPref
  36.      European As Integer 'really Boolean
  37.      SecsOn As Integer   'Boolean
  38.      ZeroOnDay As Integer  'Boolean
  39.      Weekday As Integer    ' 0 = None (Default) 1=Full 2=Abbrev.
  40.      MonthType As Integer  ' 0 = Number 1=Full   2=Abbrev (Default)
  41.      YearType As Integer   ' 0 = 92 (Default) 1=1992 2=None
  42.      AMType As Integer     ' 0 = PM (Default) 1=pm 2=12hr none 3=24 hr
  43.      DateSeparator As Integer '0=- 1=/ 2=none 3=,
  44. End Type
  45.  
  46. Global DateOpt As DTPref
  47. Global DisplayDO As DTPref
  48.  
  49. Global MaxGroups As Integer
  50. Global MaxItems As Integer
  51. Global MaxHistory As Integer
  52. Global NextMaxGroups As Integer  'store after Configure
  53. Global NextMaxItems As Integer
  54. Global NextMaxHistory As Integer
  55.  
  56. Global MinOnLoad As Integer 'really Boolean
  57. Global DefaultLaunch As Integer '0=Normal, 2=Max 1=Min
  58. Global FileChoiceArray(5) As Integer 'really Boolean
  59.     '0=exe 1=com  2=bat 3=pif 4=associated files 5=all
  60. 'ends Preference Items
  61.  
  62. Global HistoryArray() As Program   'will have MaxHistory items, so MaxHistory - 1 array
  63. Global MenuArray() As Item         '2d (MaxGroups - 1) x (MaxItems); Group Name in name, dirty state in path
  64. Global MNumArray() As Integer      'MaxGroups - 1 size arrray; counts actual number of items
  65. Global NumberOfGroups As Integer
  66.  
  67. Global YourPGroups() As PManGrp
  68. Global NumYourGroups As Integer
  69.  
  70. Global DummyItem As Item
  71.  
  72. Global LastRunOK As Integer  'really Boolean
  73.  
  74. Global NoValidItem As Integer  'really Boolean
  75.  
  76. Global Test As Double
  77.  
  78. Global MenuCtrlWord As String
  79. Global MenuCtrlExit% '0=Cancel (FALSE) -1=Action (TRUE)
  80. Global MenuCtrlType% '0=Group -1=Item
  81. Global MenuCtrlString As String
  82.  
  83. Global CurrentItem As String
  84. Global FullItem As String
  85. Global CurrentGroup As String
  86. Global EditItem As String
  87. Global EditGroup As String
  88.  
  89. Global Const FILEBOXCLICK = 0, DIRSBOXCLICK = 1
  90. Global Const HISTORYBOXCLICK = 2, MENULISTBOXCLICK = 3
  91. Global Const MENUCOMBOCLICK = 4
  92. Global LastChange As Integer
  93.  
  94. Global CaptionType As Integer
  95.  
  96. Global AssociationList As String
  97.  
  98. Global Const F1 = &H70
  99. 'F1 key in KeyDown events
  100.  
  101.  
  102.  
  103.  
  104.  
  105.