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

deprecate My.Settings

Browse Source
This commit is contained in:
Jonathan Jenne 2020-03-09 13:42:56 +01:00
parent 09562f9476
commit ff276bb70f
15 changed files with 2478 additions and 3228 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
Global_Indexer/App.config
View File

@ -1,12 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
</sectionGroup>
</configSections>
<connectionStrings>
<add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
@ -16,39 +10,4 @@
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
</startup>
<userSettings>
<Global_Indexer.My.MySettings>
<setting name="SplitterDistance_Viewer" serializeAs="String">
<value>526</value>
</setting>
<setting name="WDSearch_maximized" serializeAs="String">
<value>True</value>
</setting>
<setting name="Show_IndexResult" serializeAs="String">
<value>True</value>
</setting>
<setting name="DoNot_Show_Documents" serializeAs="String">
<value>False</value>
</setting>
<setting name="AppTerminate" serializeAs="String">
<value>False</value>
</setting>
<setting name="DA_Vorauswahlaktiv" serializeAs="String">
<value>False</value>
</setting>
<setting name="REGEX_Replace" serializeAs="String">
<value />
</setting>
<setting name="FilenameTest" serializeAs="String">
<value>myFilename.pdf</value>
</setting>
</Global_Indexer.My.MySettings>
</userSettings>
<applicationSettings>
<Global_Indexer.My.MySettings>
<setting name="Test" serializeAs="String">
<value>DigitalData\windream_CLIENT_WMCC_Neustart</value>
</setting>
</Global_Indexer.My.MySettings>
</applicationSettings>
</configuration>

8
Global_Indexer/ClassConfig.vb
View File

@ -8,10 +8,14 @@ Public Class ClassConfig
Public Property FolderWatchStarted As Boolean = False
Public Property FolderWatchScanStarted As Boolean = False
' PDF Viewer Settings
' Index Form Settings
Public Property FilePreview As Boolean = True
Public Property SplitterDistanceViewer As Integer = 500
Public Property ProfilePreselection As Boolean = False
Public Property ShowIndexResult As Boolean = True
Public Property DeleteOriginalFile As Boolean = False
' Misc Settings
Public Property DeleteOriginalFile As Boolean = False
Public Property LogErrorsOnly As Boolean = True
Public Property WindreamSearchMaximized As Boolean = False
End Class

2
Global_Indexer/ClassEmail.vb
View File

@ -39,7 +39,7 @@ Public Class ClassEmail
'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
Dim emailClient As New SmtpClient(emailsmtp)
'Email mit Authentifizierung
Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw) ', My.Settings.vDomain)
Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw)
emailClient.UseDefaultCredentials = False
emailClient.Credentials = SMTPUserInfo
emailClient.Port = 25

5
Global_Indexer/ClassHotkey_Windream.vb
View File

@ -270,7 +270,8 @@ Public Class ClassHotkey_Windream
Dim myhWnd As IntPtr
Dim p As New Process()
p.StartInfo.FileName = windream_temp_search
If My.Settings.WDSearch_maximized = True Then
If CONFIG.Config.WindreamSearchMaximized Then
p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
Else
p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
@ -300,7 +301,7 @@ Public Class ClassHotkey_Windream
Console.WriteLine(p.Id.ToString() + " " + p.ProcessName)
If p.ProcessName.Contains("indream.Find") Then
AppActivate(p.Id)
If My.Settings.WDSearch_maximized = False Then
If CONFIG.Config.WindreamSearchMaximized = False Then
Dim rctMain As RECT
GetWindowRect(p.MainWindowHandle, rctMain)
If rctMain.Left = 0 Or rctMain.Right = 0 Then

110
Global_Indexer/My Project/Settings.Designer.vb generated
View File

@ -64,116 +64,6 @@ Namespace My
Return CType(Me("DD_ECMConnectionString"),String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("526"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property SplitterDistance_Viewer() As Integer
Get
Return CType(Me("SplitterDistance_Viewer"),Integer)
End Get
Set
Me("SplitterDistance_Viewer") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WDSearch_maximized() As Boolean
Get
Return CType(Me("WDSearch_maximized"),Boolean)
End Get
Set
Me("WDSearch_maximized") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property Show_IndexResult() As Boolean
Get
Return CType(Me("Show_IndexResult"),Boolean)
End Get
Set
Me("Show_IndexResult") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property DoNot_Show_Documents() As Boolean
Get
Return CType(Me("DoNot_Show_Documents"),Boolean)
End Get
Set
Me("DoNot_Show_Documents") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("DigitalData\windream_CLIENT_WMCC_Neustart")> _
Public ReadOnly Property Test() As String
Get
Return CType(Me("Test"),String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property AppTerminate() As Boolean
Get
Return CType(Me("AppTerminate"),Boolean)
End Get
Set
Me("AppTerminate") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property DA_Vorauswahlaktiv() As Boolean
Get
Return CType(Me("DA_Vorauswahlaktiv"),Boolean)
End Get
Set
Me("DA_Vorauswahlaktiv") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property REGEX_Replace() As String
Get
Return CType(Me("REGEX_Replace"),String)
End Get
Set
Me("REGEX_Replace") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("myFilename.pdf")> _
Public Property FilenameTest() As String
Get
Return CType(Me("FilenameTest"),String)
End Get
Set
Me("FilenameTest") = value
End Set
End Property
End Class
End Namespace

27
Global_Indexer/My Project/Settings.settings
View File

@ -10,32 +10,5 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
<Setting Name="SplitterDistance_Viewer" Roaming="true" Type="System.Int32" Scope="User">
<Value Profile="(Default)">526</Value>
</Setting>
<Setting Name="WDSearch_maximized" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="Show_IndexResult" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="DoNot_Show_Documents" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Test" Type="System.String" Scope="Application">
<Value Profile="(Default)">DigitalData\windream_CLIENT_WMCC_Neustart</Value>
</Setting>
<Setting Name="AppTerminate" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="DA_Vorauswahlaktiv" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="REGEX_Replace" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="FilenameTest" Type="System.String" Scope="User">
<Value Profile="(Default)">myFilename.pdf</Value>
</Setting>
</Settings>
</SettingsFile>

63
Global_Indexer/frmAdministration.Designer.vb generated
View File

@ -200,13 +200,14 @@ Partial Class frmAdministration
Me.COMMENTTextBox2 = New System.Windows.Forms.TextBox()
Me.GUIDTextBox4 = New System.Windows.Forms.TextBox()
Me.XtraTabPageAutoIndex = New DevExpress.XtraTab.XtraTabPage()
Me.Label6 = New System.Windows.Forms.Label()
Me.ListBoxControl4 = New DevExpress.XtraEditors.ListBoxControl()
Me.btnAddWindowsVariable = New System.Windows.Forms.Button()
Me.lblWindowParameter = New System.Windows.Forms.Label()
Me.lbFileparameter = New System.Windows.Forms.ListBox()
Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.lblValue = New System.Windows.Forms.Label()
Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.btnSQLViewAuto = New System.Windows.Forms.Button()
Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox()
Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox()
@ -253,7 +254,6 @@ Partial Class frmAdministration
Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label24 = New System.Windows.Forms.Label()
Me.Label23 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
@ -265,7 +265,6 @@ Partial Class frmAdministration
Me.Label1 = New System.Windows.Forms.Label()
Me.lblObjekttyp = New System.Windows.Forms.Label()
Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.TBDD_EINGANGSARTENBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.AKTIVCheckBox = New System.Windows.Forms.CheckBox()
Me.btnNamenkonvention = New System.Windows.Forms.Button()
@ -318,7 +317,6 @@ Partial Class frmAdministration
Me.TBGI_REGEX_DOCTYPETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPage8 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.ListBoxControl4 = New DevExpress.XtraEditors.ListBoxControl()
GUIDLabel = New System.Windows.Forms.Label()
CHANGED_WHENLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label()
@ -404,6 +402,7 @@ Partial Class frmAdministration
CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageAutoIndex.SuspendLayout()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageFolderPath.SuspendLayout()
Me.GroupBox4.SuspendLayout()
@ -428,7 +427,6 @@ Partial Class frmAdministration
CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GUIDLabel
@ -968,7 +966,6 @@ Partial Class frmAdministration
Me.SplitContainerControl3.Panel2.Controls.Add(Me.ERSTELLTWANNTextBox)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label4)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label5)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label2)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label24)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label23)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label22)
@ -980,7 +977,6 @@ Partial Class frmAdministration
Me.SplitContainerControl3.Panel2.Controls.Add(Me.Label1)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.lblObjekttyp)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.ERSTELLTWERTextBox)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.ComboBox1)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.AKTIVCheckBox)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.btnNamenkonvention)
Me.SplitContainerControl3.Panel2.Controls.Add(Me.BESCHREIBUNGTextBox)
@ -1565,6 +1561,18 @@ Partial Class frmAdministration
Me.XtraTabPageAutoIndex.Controls.Add(Me.INDEXNAME_AutoIndexTXT)
Me.XtraTabPageAutoIndex.Name = "XtraTabPageAutoIndex"
'
'Label6
'
resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6"
'
'ListBoxControl4
'
Me.ListBoxControl4.AppearanceSelected.BackColor = System.Drawing.Color.Khaki
Me.ListBoxControl4.AppearanceSelected.Options.UseBackColor = True
resources.ApplyResources(Me.ListBoxControl4, "ListBoxControl4")
Me.ListBoxControl4.Name = "ListBoxControl4"
'
'btnAddWindowsVariable
'
Me.btnAddWindowsVariable.Image = Global.Global_Indexer.My.Resources.Resources.arrow_previous_16xLG
@ -1584,11 +1592,6 @@ Partial Class frmAdministration
Me.lbFileparameter.Items.AddRange(New Object() {resources.GetString("lbFileparameter.Items"), resources.GetString("lbFileparameter.Items1"), resources.GetString("lbFileparameter.Items2"), resources.GetString("lbFileparameter.Items3"), resources.GetString("lbFileparameter.Items4"), resources.GetString("lbFileparameter.Items5"), resources.GetString("lbFileparameter.Items6"), resources.GetString("lbFileparameter.Items7")})
Me.lbFileparameter.Name = "lbFileparameter"
'
'TBDD_INDEX_AUTOMBindingSource
'
Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM"
Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset
'
'lblValue
'
resources.ApplyResources(Me.lblValue, "lblValue")
@ -1601,10 +1604,10 @@ Partial Class frmAdministration
Me.INDEXNAME_AutoIndexCMB.FormattingEnabled = True
Me.INDEXNAME_AutoIndexCMB.Name = "INDEXNAME_AutoIndexCMB"
'
'Label6
'TBDD_INDEX_AUTOMBindingSource
'
resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6"
Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM"
Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset
'
'btnSQLViewAuto
'
@ -1836,10 +1839,8 @@ Partial Class frmAdministration
'
'TextBox1
'
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.Global_Indexer.My.MySettings.Default, "FilenameTest", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
resources.ApplyResources(Me.TextBox1, "TextBox1")
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Text = Global.Global_Indexer.My.MySettings.Default.FilenameTest
'
'Label27
'
@ -1986,11 +1987,6 @@ Partial Class frmAdministration
resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5"
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'Label24
'
resources.ApplyResources(Me.Label24, "Label24")
@ -2048,16 +2044,6 @@ Partial Class frmAdministration
Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox"
Me.ERSTELLTWERTextBox.ReadOnly = True
'
'ComboBox1
'
Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "EINGANGSART_ID", True))
Me.ComboBox1.DataSource = Me.TBDD_EINGANGSARTENBindingSource
Me.ComboBox1.DisplayMember = "BEZEICHNUNG"
Me.ComboBox1.FormattingEnabled = True
resources.ApplyResources(Me.ComboBox1, "ComboBox1")
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.ValueMember = "GUID"
'
'TBDD_EINGANGSARTENBindingSource
'
Me.TBDD_EINGANGSARTENBindingSource.DataMember = "TBDD_EINGANGSARTEN"
@ -2521,13 +2507,6 @@ Partial Class frmAdministration
Me.RibbonPage8.Name = "RibbonPage8"
resources.ApplyResources(Me.RibbonPage8, "RibbonPage8")
'
'ListBoxControl4
'
Me.ListBoxControl4.AppearanceSelected.BackColor = System.Drawing.Color.Khaki
Me.ListBoxControl4.AppearanceSelected.Options.UseBackColor = True
resources.ApplyResources(Me.ListBoxControl4, "ListBoxControl4")
Me.ListBoxControl4.Name = "ListBoxControl4"
'
'frmAdministration
'
Me.Appearance.Options.UseFont = True
@ -2571,6 +2550,7 @@ Partial Class frmAdministration
CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageAutoIndex.ResumeLayout(False)
Me.XtraTabPageAutoIndex.PerformLayout()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageFolderPath.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
@ -2600,7 +2580,6 @@ Partial Class frmAdministration
CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ListBoxControl4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -2632,7 +2611,6 @@ Partial Class frmAdministration
Friend WithEvents TBDD_DOKART_MODULETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_DOKART_MODULETableAdapter
Friend WithEvents TBDD_MODULESBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBDD_MODULESTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_MODULESTableAdapter
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageManualIndex As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageAutoIndex As DevExpress.XtraTab.XtraTabPage
@ -2793,7 +2771,6 @@ Partial Class frmAdministration
Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label24 As Label
Friend WithEvents Label23 As Label
Friend WithEvents Label22 As Label

5322
Global_Indexer/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

21
Global_Indexer/frmConfig_Basic.designer.vb generated
View File

@ -44,7 +44,7 @@ Partial Class frmConfig_Basic
Me.cmbLanguage = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.CheckBoxPreviewDocs = New System.Windows.Forms.CheckBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.CheckBoxIndexResult = New System.Windows.Forms.CheckBox()
Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
Me.btnLogMail = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
@ -175,7 +175,7 @@ Partial Class frmConfig_Basic
Me.TabPage2.Controls.Add(Me.cmbLanguage)
Me.TabPage2.Controls.Add(Me.Label9)
Me.TabPage2.Controls.Add(Me.CheckBoxPreviewDocs)
Me.TabPage2.Controls.Add(Me.CheckBox2)
Me.TabPage2.Controls.Add(Me.CheckBoxIndexResult)
Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly)
Me.TabPage2.Controls.Add(Me.btnLogMail)
Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
@ -211,19 +211,16 @@ Partial Class frmConfig_Basic
'CheckBoxPreviewDocs
'
resources.ApplyResources(Me.CheckBoxPreviewDocs, "CheckBoxPreviewDocs")
Me.CheckBoxPreviewDocs.Checked = Global.Global_Indexer.My.MySettings.Default.DoNot_Show_Documents
Me.CheckBoxPreviewDocs.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "DoNot_Show_Documents", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.CheckBoxPreviewDocs.Name = "CheckBoxPreviewDocs"
Me.CheckBoxPreviewDocs.UseVisualStyleBackColor = True
'
'CheckBox2
'CheckBoxIndexResult
'
resources.ApplyResources(Me.CheckBox2, "CheckBox2")
Me.CheckBox2.Checked = Global.Global_Indexer.My.MySettings.Default.Show_IndexResult
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "Show_IndexResult", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.UseVisualStyleBackColor = True
resources.ApplyResources(Me.CheckBoxIndexResult, "CheckBoxIndexResult")
Me.CheckBoxIndexResult.Checked = True
Me.CheckBoxIndexResult.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBoxIndexResult.Name = "CheckBoxIndexResult"
Me.CheckBoxIndexResult.UseVisualStyleBackColor = True
'
'chkLogErrorsOnly
'
@ -400,7 +397,7 @@ Partial Class frmConfig_Basic
Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox
Friend WithEvents btnopenlog As System.Windows.Forms.Button
Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBoxIndexResult As System.Windows.Forms.CheckBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents txtScanFolderWatch As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label

20
Global_Indexer/frmConfig_Basic.resx
View File

@ -579,32 +579,32 @@
<data name="&gt;&gt;CheckBoxPreviewDocs.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="CheckBox2.AutoSize" type="System.Boolean, mscorlib">
<data name="CheckBoxIndexResult.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="CheckBox2.Location" type="System.Drawing.Point, System.Drawing">
<data name="CheckBoxIndexResult.Location" type="System.Drawing.Point, System.Drawing">
<value>242, 44</value>
</data>
<data name="CheckBox2.Size" type="System.Drawing.Size, System.Drawing">
<data name="CheckBoxIndexResult.Size" type="System.Drawing.Size, System.Drawing">
<value>230, 30</value>
</data>
<data name="CheckBox2.TabIndex" type="System.Int32, mscorlib">
<data name="CheckBoxIndexResult.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="CheckBox2.Text" xml:space="preserve">
<data name="CheckBoxIndexResult.Text" xml:space="preserve">
<value>Meldungsfenster für erfolgreiche
Übertragung nach windream anzeigen?</value>
</data>
<data name="&gt;&gt;CheckBox2.Name" xml:space="preserve">
<value>CheckBox2</value>
<data name="&gt;&gt;CheckBoxIndexResult.Name" xml:space="preserve">
<value>CheckBoxIndexResult</value>
</data>
<data name="&gt;&gt;CheckBox2.Type" xml:space="preserve">
<data name="&gt;&gt;CheckBoxIndexResult.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;CheckBox2.Parent" xml:space="preserve">
<data name="&gt;&gt;CheckBoxIndexResult.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;CheckBox2.ZOrder" xml:space="preserve">
<data name="&gt;&gt;CheckBoxIndexResult.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="chkLogErrorsOnly.AutoSize" type="System.Boolean, mscorlib">

10
Global_Indexer/frmConfig_Basic.vb
View File

@ -123,9 +123,9 @@ Public Class frmConfig_Basic
Cursor = Cursors.Default
End Sub
<STAThread()>
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CheckBoxIndexResult.Checked = CONFIG.Config.ShowIndexResult
CheckBoxPreviewDocs.Checked = CONFIG.Config.FilePreview
End Sub
Dim reload As Boolean = False
@ -407,9 +407,9 @@ Public Class frmConfig_Basic
Process.Start(Application.UserAppDataPath())
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
My.Settings.Save()
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxIndexResult.CheckedChanged
CONFIG.Config.ShowIndexResult = CheckBoxIndexResult.Checked
CONFIG.Save()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

2
Global_Indexer/frmHotkey_User.Designer.vb generated
View File

@ -247,9 +247,7 @@ Partial Class frmHotkey_User
'chkbxMaximizeWS
'
resources.ApplyResources(Me.chkbxMaximizeWS, "chkbxMaximizeWS")
Me.chkbxMaximizeWS.Checked = Global.Global_Indexer.My.MySettings.Default.WDSearch_maximized
Me.chkbxMaximizeWS.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkbxMaximizeWS.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "WDSearch_maximized", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.chkbxMaximizeWS.Name = "chkbxMaximizeWS"
Me.chkbxMaximizeWS.UseVisualStyleBackColor = True
'

3
Global_Indexer/frmHotkey_User.vb
View File

@ -105,6 +105,7 @@
End Sub
Private Sub chkbxMaximizeWS_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxMaximizeWS.CheckedChanged
My.Settings.Save()
CONFIG.Config.WindreamSearchMaximized = chkbxMaximizeWS.Checked
CONFIG.Save()
End Sub
End Class

25
Global_Indexer/frmIndex.vb
View File

@ -1435,13 +1435,14 @@ Public Class frmIndex
End If
'txtIndexfilepath.Text = CURRENT_WORKFILE
labelFilePath.Caption = CURRENT_WORKFILE
ClassWindowLocation.LoadFormLocationSize(Me)
SetFilePreview(CONFIG.Config.FilePreview)
SplitContainer1.SplitterDistance = CONFIG.Config.SplitterDistanceViewer
Load_String()
MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", MyConnectionString, True)
MULTIINDEXING_ACTIVE = False
@ -1467,11 +1468,6 @@ Public Class frmIndex
Try
Me.VWDDINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
'Me.VWIORDNER_DOKARTTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWDMS_DOKUMENTARTZUORDNUNGTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.TBCONNECTIONTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
'Me.VWINDEX_MANTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
Catch ex As Exception
LOGGER.Info(" - Unexpected error in Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message)
LOGGER.Error(ex.Message)
@ -1490,15 +1486,14 @@ Public Class frmIndex
CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile
checkItemDeleteSource.Checked = CONFIG.Config.DeleteOriginalFile
'chkdelete_origin.Checked = CONFIG.Config.DeleteOriginalFile
'CURR_DELETE_ORIGIN = chkdelete_origin.Checked
FormLoaded = True
If My.Settings.DA_Vorauswahlaktiv = True Then
If CONFIG.Config.ProfilePreselection Then
If CURRENT_LASTDOKART <> "" Then
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
End If
End If
Try
If DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows
@ -1516,7 +1511,6 @@ Public Class frmIndex
End Try
Me.TopMost = True
Me.BringToFront()
End Sub
Sub Refresh_Dokart()
Try
@ -2199,7 +2193,8 @@ Public Class frmIndex
Else
If WORK_FILE() = True Then
Me.Cursor = Cursors.Default
If My.Settings.Show_IndexResult = True Then
If CONFIG.Config.ShowIndexResult = True Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
Else
@ -2589,7 +2584,7 @@ Public Class frmIndex
Else
If WORK_FILE() = True Then
Me.Cursor = Cursors.Default
If My.Settings.Show_IndexResult = True Then
If CONFIG.Config.ShowIndexResult = True Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
Else
@ -2632,4 +2627,8 @@ Public Class frmIndex
End If
End If
End Sub
Private Sub SplitContainer1_SplitterMoved(sender As Object, e As SplitterEventArgs) Handles SplitContainer1.SplitterMoved
CONFIG.Config.SplitterDistanceViewer = SplitContainer1.SplitterDistance
End Sub
End Class

47
Global_Indexer/frmStart.vb
View File

@ -300,30 +300,28 @@ Public Class frmStart
End Sub
Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If My.Settings.AppTerminate = False Then
Try
Try
LOGGER.Info("")
If START_INCOMPLETE = False Then
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
ClassDatabase.Execute_non_Query(Sql, True)
End If
ClassWindowLocation.SaveFormLocationSize(Me)
Catch ex As Exception
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
If USER_ID > 0 Then
Unregister_Hotkeys()
LOGGER.Info("")
If START_INCOMPLETE = False Then
Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
ClassDatabase.Execute_non_Query(Sql, True)
End If
'TempDateien löschen
Try
For Each _file In TEMP_FILES
System.IO.File.Delete(_file)
Next
Catch ex As Exception
End Try
ClassWindowLocation.SaveFormLocationSize(Me)
Catch ex As Exception
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
If USER_ID > 0 Then
Unregister_Hotkeys()
End If
'TempDateien löschen
Try
For Each _file In TEMP_FILES
System.IO.File.Delete(_file)
Next
Catch ex As Exception
End Try
End Sub
Public Sub New()
@ -338,9 +336,6 @@ Public Class frmStart
End Sub
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
If My.Settings.AppTerminate = True Then
Exit Sub
End If
'Me.TransparencyKey = Color.Transparent
' Me.BackColor = Color.Transparent
Cursor = Cursors.WaitCursor
@ -709,9 +704,6 @@ Public Class frmStart
End If
End Sub
Private Sub frmStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If My.Settings.AppTerminate = True Then
Me.Close()
End If
' SetLanguage()
If START_INCOMPLETE = True Then
If LICENSE_COUNT = 0 And LICENSE_EXPIRED = True Then
@ -734,7 +726,6 @@ Public Class frmStart
Catch ex As Exception
Me.btnChoosefiles.Location = New Point(269, 37)
End Try
End Sub
Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
frmHistory.ShowDialog()