Ms Settings default

This commit is contained in:
SchreiberM 2021-01-11 09:27:25 +01:00
parent 0c8e77c993
commit cafad9d00b
5 changed files with 8 additions and 7 deletions

View File

@ -12,10 +12,10 @@
<value /> <value />
</setting> </setting>
<setting name="UseAppConfigConString" serializeAs="String"> <setting name="UseAppConfigConString" serializeAs="String">
<value>True</value> <value>False</value>
</setting> </setting>
<setting name="GHOSTUSER" serializeAs="String"> <setting name="GHOSTUSER" serializeAs="String">
<value>SchreiberM</value> <value />
</setting> </setting>
</DD_Clipboard_Watcher.My.MySettings> </DD_Clipboard_Watcher.My.MySettings>
<DevExpress.LookAndFeel.Design.AppSettings> <DevExpress.LookAndFeel.Design.AppSettings>

View File

@ -144,6 +144,7 @@ Public Class ClassInit
If Not IsNothing(_Client) Then If Not IsNothing(_Client) Then
If _Client.Connect() Then If _Client.Connect() Then
APPSERVER_ACTIVE = True APPSERVER_ACTIVE = True
End If End If
End If End If
Catch ex As Exception Catch ex As Exception

View File

@ -76,7 +76,7 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _ Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public ReadOnly Property UseAppConfigConString() As Boolean Public ReadOnly Property UseAppConfigConString() As Boolean
Get Get
Return CType(Me("UseAppConfigConString"),Boolean) Return CType(Me("UseAppConfigConString"),Boolean)
@ -85,7 +85,7 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("SchreiberM")> _ Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public ReadOnly Property GHOSTUSER() As String Public ReadOnly Property GHOSTUSER() As String
Get Get
Return CType(Me("GHOSTUSER"),String) Return CType(Me("GHOSTUSER"),String)

View File

@ -14,10 +14,10 @@
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application"> <Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="GHOSTUSER" Type="System.String" Scope="Application"> <Setting Name="GHOSTUSER" Type="System.String" Scope="Application">
<Value Profile="(Default)">SchreiberM</Value> <Value Profile="(Default)" />
</Setting> </Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

View File

@ -49,7 +49,7 @@ Public NotInheritable Class frmSplash
Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration") Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
If My.Settings.GHOSTUSER <> String.Empty Then If My.Settings.GHOSTUSER <> String.Empty Then
Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER} is active!") Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER}] is active!")
End If End If
If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then
If ERROR_INIT = "" Then If ERROR_INIT = "" Then