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

Zooflow: Add ClassModules

Browse Source
This commit is contained in:
Jonathan Jenne
2022-03-01 15:09:30 +01:00
parent 1183cd68c9
commit b611e3eeda
11 changed files with 166 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
GUIs.ZooFlow/frmFlowForm.vb
View File

@@ -152,10 +152,11 @@ Public Class frmFlowForm
Private DTIDB_SEARCHES As DataTable
' Common Helpers Classes
Private Logger As Logger
Private Init As ClassInit
Private FileEx As Filesystem.File
Private ErrorHandler As BaseErrorHandler
Private Logger As Logger
Private Modules As ClassModules
' Globix Helper Classes
Private FileDropNew As FileDrop
@@ -214,7 +215,7 @@ Public Class frmFlowForm
Logger = My.LogConfig.GetLogger()
Environment = My.Application.GetEnvironment()
ErrorHandler = New BaseErrorHandler(My.LogConfig, Logger, Me)
Modules = New ClassModules(My.LogConfig, My.SystemConfig)
FileEx = New Filesystem.File(My.LogConfig)
' === Initialize Theming ===
@@ -316,6 +317,16 @@ Public Class frmFlowForm
End If
Dim oPMPath = Modules.GetProductPath(ClassModules.Product.ProcessManager)
' TODO: This needs an update of the function FNZF_GET_MODULE_INFO
If My.Application.ModulesActive.Contains(MODULE_PROCESS_MANAGER) Then
End If
If IsNothing(My.Tables.DTIDB_CATALOG_USER) Then
Exit Function
End If
@@ -1040,7 +1051,7 @@ Public Class frmFlowForm
Dim oFormTitle = GetResultWindowString(oState.CurrentClipboardContents)
' For now we assume these are document results instead of data results
Dim oForm = Await oProfileSearches.GetDocResultForm(oProfile, oFormTitle, Modules.ZooFlow.Constants.OperationMode.ZooFlow)
Dim oForm = Await oProfileSearches.GetDocResultForm(oProfile, oFormTitle, DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow)
AddHandler oForm.NeedsRefresh, AddressOf ProfileResultForm_NeedsRefresh
oForm.Show()
@@ -1052,7 +1063,7 @@ Public Class frmFlowForm
.ClipboardContents = oState.CurrentClipboardContents,
.MatchingProfiles = oProfiles,
.MatchTreeView = oState.MatchTreeView,
.OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow
.OperationModeOverride = DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow
}
Dim oForm As New frmMatch(My.LogConfig, oEnvironment, oParams)
@@ -1125,7 +1136,7 @@ Public Class frmFlowForm
Dim oParams = New DocumentResultList.Params() With {
.WindowGuid = "QuickFlowSearch1",
.WindowTitle = GetResultWindowString(pSearchText),
.OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
.OperationModeOverride = DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow,
.ProfileGuid = 354521
}