AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS1403

Browse Source
This commit is contained in:
SchreiberM
2017-03-15 12:24:47 +01:00
parent e791a980b3
commit aff5c7b925
45 changed files with 8140 additions and 7913 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
app/DD-Record-Organizer/ModuleMySettings.vb
View File

@@ -9,10 +9,7 @@ Module ModuleMySettings
Public LogErrorsOnly As Boolean = True
Public Sett_TaskOverviewKeepInFront As Boolean = True
Public Sett_LoadWD_Docs As Boolean = True
Public WDResultListCount As Integer = 300
Public Task_Popup_minutes As Integer = 2
Public Sett_ShowQuickMenue As Boolean = True
Public Sett_ConstructorStart As Integer
Public MY_ADDON_PATH As String
Public MY_WIKISTRING As String
@@ -20,7 +17,7 @@ Module ModuleMySettings
Public WD_UNICODE As Boolean = False
Public SQL_FULLTEXT As String
Public WD_ShowEnitityDocs As Boolean = True
'Public WD_ShowEnitityDocs As Boolean = True
Public WD_ShowDocs As Boolean = False
Public WD_IndexDeleteDocs As Boolean = False
@@ -186,18 +183,6 @@ Module ModuleMySettings
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
Case "Sett_TaskOverviewKeepInFront"
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))
Case "Sett_LoadWD_Docs"
Sett_LoadWD_Docs = CBool(Row.Item("Value"))
Case "WDResultListCount"
If Row.Item("Value") = String.Empty Then
WDResultListCount = 300
Else
WDResultListCount = CInt(Row.Item("Value"))
End If
Case "Sett_ShowQuickMenue"
Sett_ShowQuickMenue = CBool(Row.Item("Value"))
Case "WD_ShowEnitityDocs"
WD_ShowEnitityDocs = CBool(Row.Item("Value"))
Case "WD_IndexDeleteDocs"
WD_IndexDeleteDocs = CBool(Row.Item("Value"))
Case "WD_ShowDocs"
@@ -328,18 +313,6 @@ Module ModuleMySettings
newRow3("ConfigName") = "Sett_LoadWD_Docs"
newRow3("Value") = "True"
table.Rows.Add(newRow3)
Dim newRow4 As DataRow = table.NewRow()
newRow4("ConfigName") = "WDResultListCount"
newRow4("Value") = "300"
table.Rows.Add(newRow4)
Dim newRow5 As DataRow = table.NewRow()
newRow5("ConfigName") = "Sett_ShowQuickMenue"
newRow5("Value") = "True"
table.Rows.Add(newRow5)
Dim newRow6 As DataRow = table.NewRow()
newRow6("ConfigName") = "WD_ShowEnitityDocs"
newRow6("Value") = "True"
table.Rows.Add(newRow6)
Dim newRow7 As DataRow = table.NewRow()
newRow7("ConfigName") = "WD_IndexDeleteDocs"
newRow7("Value") = "False"