home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD140321212001.psc / modOptions.bas < prev    next >
Encoding:
BASIC Source File  |  2001-01-22  |  3.3 KB  |  142 lines
  1. Attribute VB_Name = "Modoptions"
  2. Type ToolbarBOOL
  3. visible As Integer
  4. End Type
  5. Public isToolbarvisible As ToolbarBOOL
  6.  
  7. Type ExternalEditor
  8. use As Integer
  9. End Type
  10. Public UseExternalEditor As ExternalEditor
  11.  
  12. Public Usewordwrap As Boolean
  13.  
  14. Type Checkassociations
  15. check As Integer
  16. End Type
  17. Public Check_Associations_at_Startup As Checkassociations
  18. '***************
  19.  
  20. Sub SaveSetting_Toolbar(BOOLobject As Object)
  21. Dim retval As Long
  22. retval = IIf(BOOLobject, True, False)
  23. Select Case retval
  24. Case True
  25. SaveRegistryString "Toolbar", "Visible", 1
  26. ' Toolbar1 Will be Visible At startup
  27. Form1.Toolbar.visible = True
  28. Form1.mnuhidetoolbaritem.Checked = True
  29. Call Resizenotewithtoolbar
  30.  
  31. Case False
  32. SaveRegistryString "Toolbar", "Visible", 0
  33. If Form1.Toolbar.visible = True Then
  34. Form1.mnuhidetoolbaritem.Checked = False
  35. Form1.Toolbar.visible = False
  36. Call Resizenotewithtoolbar
  37. End If
  38.  
  39. End Select
  40.  
  41. End Sub
  42.  
  43. Sub saveSetting_UseExternalEditor(BOOLobject As Object)
  44. Dim retval As Long
  45. retval = IIf(BOOLobject, True, False)
  46. Select Case retval
  47. Case True
  48. SaveRegistryString "UseExternalEditor", "Use", 1
  49. Case False
  50. SaveRegistryString "UseExternalEditor", "Use", 0
  51. End Select
  52. End Sub
  53.  
  54. Sub SaveSetting_Wordwrap(BOOLobject As Object)
  55. Dim retval As Long
  56. Dim fontname As String, fontsize As Integer
  57. fontname = GetSetting("Textpad", "Font", "Font", "")
  58. fontsize = GetSetting("Textpad", "Font", "Fontsize", "")
  59.  
  60. retval = IIf(BOOLobject, True, False)
  61. Select Case retval
  62. Case True
  63. SaveRegistryString "Wordwrap", "Wordwrap", 1
  64. Form1.txt(1).fontname = fontname
  65. Form1.txt(1).fontsize = fontsize
  66. Resizenotewithtoolbar
  67. Form1.txt(1).visible = True
  68. Form1.mnuwordwrap.Checked = True
  69. Resizenotewithtoolbar
  70.  
  71. Case False
  72. SaveRegistryString "Wordwrap", "Wordwrap", 0
  73. Form1.txt(2).fontsize = fontsize
  74. Form1.txt(2).fontname = fontname
  75. Resizenotewithtoolbar
  76. Form1.mnuwordwrap.Checked = False
  77. Form1.txt(1).visible = False
  78. Form1.txt(2).visible = True
  79. Resizenotewithtoolbar
  80.  
  81. End Select
  82.  
  83. End Sub
  84.  
  85. Sub SaveSetting_chckassociations(BOOLobject As Object)
  86. Dim retval As Long
  87. retval = IIf(BOOLobject, True, False)
  88. Select Case retval
  89. Case True
  90. SaveRegistryString "chckassociations", "show", 1
  91. Case False
  92. SaveRegistryString "chckassociations", "show", 0
  93. End Select
  94. End Sub
  95.  
  96.  
  97. Sub RetrieveALLSettings()
  98. Dim externaleditorval As String
  99. Dim toolbarval As String
  100. Dim wordwrapval As String
  101. Dim Chckassociationsval As String
  102. ' Toolbar
  103. toolbarval = GetSetting("TextPad", "Toolbar", "Visible")
  104. Select Case toolbarval
  105. Case 1
  106. isToolbarvisible.visible = True
  107. Form1.Toolbar.visible = True
  108. Form1.mnuhidetoolbaritem.Checked = True
  109. Case 0
  110. isToolbarvisible.visible = False
  111. Form1.Toolbar.visible = False
  112. Form1.mnuhidetoolbaritem.Checked = False
  113. End Select
  114.  
  115. ' External Editor
  116. externaleditorval = GetSetting("TextPad", "UseExternalEditor", "Use")
  117. Select Case externaleditorval
  118. Case 1
  119. UseExternalEditor.use = True
  120. Case 0
  121. UseExternalEditor.use = False
  122. End Select
  123.  
  124. 'Word wrap
  125. wordwrapval = GetSetting("TextPad", "Wordwrap", "Wordwrap")
  126. Select Case wordwrapval
  127. Case 1
  128. Usewordwrap = True
  129. Case 0
  130. Usewordwrap = False
  131. End Select
  132.  
  133. ' check Associations
  134. Chckassociationsval = GetSetting("TextPad", "chckassociations", "show")
  135. Select Case Chckassociationsval
  136. Case 1
  137. Check_Associations_at_Startup.check = True
  138. Case 0
  139. Check_Associations_at_Startup.check = False
  140. End Select
  141. End Sub
  142.