49 lines
1.7 KiB
VB.net
49 lines
1.7 KiB
VB.net
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.EDMI.API
|
|
Imports DigitalData.Modules.EDMI.API.Modules
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.ZooFlow
|
|
|
|
Namespace My
|
|
''' <summary>
|
|
''' Extends the My Namespace
|
|
''' Example: My.LogConfig
|
|
''' </summary>
|
|
<HideModuleName()>
|
|
Module Extension
|
|
Property LogConfig As LogConfig
|
|
#Region "Database"
|
|
Property Database As DatabaseWithFallback
|
|
Property DatabaseECM As MSSQLServer
|
|
Property DatabaseIDB As MSSQLServer
|
|
End Module
|
|
|
|
#End Region
|
|
Partial Friend Class MyApplication
|
|
Public Property Skin As String = ""
|
|
Public Property Palette As String = ""
|
|
Public Property GlobixDropAreaStyle As String = "PROGRESSIVE"
|
|
|
|
Public Property Settings As New State.SettingsState
|
|
Public Property User As New State.UserState
|
|
Public Property Service As New State.ServiceState
|
|
Public Property Modules As New Dictionary(Of String, State.ModuleState)
|
|
Public Property ModulesActive As New List(Of String)
|
|
|
|
|
|
Public CommandLineFunction As String
|
|
Public CommandLineArguments As New Dictionary(Of String, String)
|
|
|
|
Public Function GetEnvironment() As Environment
|
|
Return New Environment With {
|
|
.Database = My.DatabaseECM,
|
|
.DatabaseIDB = My.DatabaseIDB,
|
|
.Modules = My.Application.Modules,
|
|
.Service = My.Application.Service,
|
|
.Settings = My.Application.Settings,
|
|
.User = My.Application.User
|
|
}
|
|
End Function
|
|
|
|
End Class
|
|
End Namespace |