This commit is contained in:
SchreiberM 2023-02-22 12:17:15 +01:00
commit 020d8e27c5
2 changed files with 3 additions and 2 deletions

View File

@ -365,7 +365,8 @@ Public Class frmMain
Dim oService As New State.ServiceState() With { Dim oService As New State.ServiceState() With {
.Address = ConfigManager.Config.AppServerConfig, .Address = ConfigManager.Config.AppServerConfig,
.IsActive = ConfigManager.Config.IsIDB, .IsActive = ConfigManager.Config.IsIDB,
.IsOnline = False .IsOnline = False,
.Client = _Client
} }
Dim oSettings As New State.SettingsState() With { Dim oSettings As New State.SettingsState() With {

View File

@ -82,7 +82,7 @@ Module modCurrent
Public CurrSearchOpen As Boolean = False Public CurrSearchOpen As Boolean = False
Public CurrMatchTreeView As New TreeView Public CurrMatchTreeView As New TreeView
Public _Client As Client Public Property _Client As Client
Public Property DatabaseFallback As DatabaseWithFallback Public Property DatabaseFallback As DatabaseWithFallback
Public APPSERVER_ACTIVE As Boolean = False Public APPSERVER_ACTIVE As Boolean = False
Public WORKING_MODE As String = "" Public WORKING_MODE As String = ""