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

ClientSuite: Add WorkerManager

Browse Source
This commit is contained in:
Jonathan Jenne
2019-06-03 14:18:43 +02:00
parent 269e64be50
commit 2b05e72c9e
11 changed files with 198 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
GUIs.ClientSuite/frmMain.vb
View File

@@ -1,18 +1,16 @@
Imports DevExpress.XtraBars.Docking2010
Imports System.IO
Imports System.ComponentModel
Imports DigitalData.GUIs.ClientSuite.ClassLayout
Imports System.IO
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.License
Imports DevExpress.XtraBars.Docking2010
Imports DevExpress.LookAndFeel
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars.Docking
Imports DevExpress.XtraGrid
Imports DevExpress.XtraBars.Docking2010.Views
Imports DigitalData.GUIs.ClientSuite.ClassLayout
Imports DigitalData.GUIs.ClientSuite.Workers
Imports DigitalData.Modules.License
Public Class frmMain
Private _PanelManager As ClassPanelManager
Private _PanelManager As PanelManager
Private _Timer As ClassTimer
Private _WorkerManager As WorkerManager
Private _Loading As Boolean = True
Public Sub New()
@@ -45,12 +43,13 @@ Public Class frmMain
Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
' Initialize Main Timer
_Timer = New ClassTimer(My.LogConfig, Me, My.SysConfig.HeartbeatInterval)
AddHandler _Timer.OnlineChanged, AddressOf HandleOnlineChanged
' Initialize Worker Manager
_WorkerManager = New WorkerManager(My.LogConfig, Me)
Dim oHeartbeatWorker = _WorkerManager.GetWorker(Of HeartbeatWorker)()
AddHandler oHeartbeatWorker.OnlineChanged, AddressOf HandleOnlineChanged
' Initialize Panel Manager
_PanelManager = New ClassPanelManager(My.LogConfig, DocumentManager, DockManager)
_PanelManager = New PanelManager(My.LogConfig, DocumentManager, DockManager)
' Show Service Status Label
SetOnlineLabel(True)