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

MS Optimizing, CurrentLocal

Browse Source
This commit is contained in:
SchreiberM 2020-12-30 14:12:26 +01:00
parent 93cc0acfbd
commit 00222efb88
21 changed files with 235 additions and 273 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GUIs.ClipboardWatcher/ProfileSearches.vb
View File

@ -29,7 +29,7 @@ Public Class ProfileSearches
Try Try
If _Environment.Service.IsActive = True Then If _Environment.Service.IsActive = True Then
Try Try
Dim oSplit() As String = _Environment.Service.Address.Split(";") Dim oSplit() As String = _Environment.Service.Address.Split(":")
Dim oAppServerAddress As String = oSplit(0) Dim oAppServerAddress As String = oSplit(0)
Dim oAppServerPort As Integer = 9000 Dim oAppServerPort As Integer = 9000
If oSplit.Length = 2 Then If oSplit.Length = 2 Then

26
GUIs.Common/DocumentResultList/frmDocumentResultList.Designer.vb generated
View File

@ -75,7 +75,7 @@ Partial Class frmDocumentResultList
Me.RibbonControl.Name = "RibbonControl" Me.RibbonControl.Name = "RibbonControl"
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl.Size = New System.Drawing.Size(1189, 158) Me.RibbonControl.Size = New System.Drawing.Size(1189, 159)
Me.RibbonControl.StatusBar = Me.RibbonStatusBar Me.RibbonControl.StatusBar = Me.RibbonStatusBar
' '
'SwitchMainContainerHorizontal 'SwitchMainContainerHorizontal
@ -183,10 +183,10 @@ Partial Class frmDocumentResultList
'RibbonStatusBar 'RibbonStatusBar
' '
Me.RibbonStatusBar.ItemLinks.Add(Me.labelResultCount) Me.RibbonStatusBar.ItemLinks.Add(Me.labelResultCount)
Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 647) Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 649)
Me.RibbonStatusBar.Name = "RibbonStatusBar" Me.RibbonStatusBar.Name = "RibbonStatusBar"
Me.RibbonStatusBar.Ribbon = Me.RibbonControl Me.RibbonStatusBar.Ribbon = Me.RibbonControl
Me.RibbonStatusBar.Size = New System.Drawing.Size(1189, 24) Me.RibbonStatusBar.Size = New System.Drawing.Size(1189, 22)
' '
'SplitContainerControl1 'SplitContainerControl1
' '
@ -198,7 +198,7 @@ Partial Class frmDocumentResultList
Me.SplitContainerControl1.Panel1.Text = "Panel1" Me.SplitContainerControl1.Panel1.Text = "Panel1"
Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2) Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
Me.SplitContainerControl1.Panel2.Text = "Panel2" Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(762, 489) Me.SplitContainerControl1.Size = New System.Drawing.Size(762, 490)
Me.SplitContainerControl1.SplitterPosition = 382 Me.SplitContainerControl1.SplitterPosition = 382
Me.SplitContainerControl1.TabIndex = 2 Me.SplitContainerControl1.TabIndex = 2
Me.SplitContainerControl1.Text = "SplitContainerControl1" Me.SplitContainerControl1.Text = "SplitContainerControl1"
@ -210,13 +210,13 @@ Partial Class frmDocumentResultList
Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl Me.GridControl1.MenuManager = Me.RibbonControl
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(382, 489) Me.GridControl1.Size = New System.Drawing.Size(382, 490)
Me.GridControl1.TabIndex = 0 Me.GridControl1.TabIndex = 0
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
' '
'GridView1 'GridView1
' '
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.WhiteSmoke
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
@ -250,7 +250,7 @@ Partial Class frmDocumentResultList
Me.SplitContainerControl2.Panel1.Text = "Panel1" Me.SplitContainerControl2.Panel1.Text = "Panel1"
Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3) Me.SplitContainerControl2.Panel2.Controls.Add(Me.GridControl3)
Me.SplitContainerControl2.Panel2.Text = "Panel2" Me.SplitContainerControl2.Panel2.Text = "Panel2"
Me.SplitContainerControl2.Size = New System.Drawing.Size(370, 489) Me.SplitContainerControl2.Size = New System.Drawing.Size(370, 490)
Me.SplitContainerControl2.SplitterPosition = 223 Me.SplitContainerControl2.SplitterPosition = 223
Me.SplitContainerControl2.TabIndex = 0 Me.SplitContainerControl2.TabIndex = 0
Me.SplitContainerControl2.Text = "SplitContainerControl2" Me.SplitContainerControl2.Text = "SplitContainerControl2"
@ -268,7 +268,7 @@ Partial Class frmDocumentResultList
' '
'GridView2 'GridView2
' '
Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) Me.GridView2.Appearance.EvenRow.BackColor = System.Drawing.Color.WhiteSmoke
Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView2.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand2}) Me.GridView2.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand2})
Me.GridView2.GridControl = Me.GridControl2 Me.GridView2.GridControl = Me.GridControl2
@ -295,13 +295,13 @@ Partial Class frmDocumentResultList
Me.GridControl3.MainView = Me.GridView3 Me.GridControl3.MainView = Me.GridView3
Me.GridControl3.MenuManager = Me.RibbonControl Me.GridControl3.MenuManager = Me.RibbonControl
Me.GridControl3.Name = "GridControl3" Me.GridControl3.Name = "GridControl3"
Me.GridControl3.Size = New System.Drawing.Size(370, 256) Me.GridControl3.Size = New System.Drawing.Size(370, 257)
Me.GridControl3.TabIndex = 0 Me.GridControl3.TabIndex = 0
Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
' '
'GridView3 'GridView3
' '
Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) Me.GridView3.Appearance.EvenRow.BackColor = System.Drawing.Color.WhiteSmoke
Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True Me.GridView3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView3.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand3}) Me.GridView3.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand3})
Me.GridView3.GridControl = Me.GridControl3 Me.GridView3.GridControl = Me.GridControl3
@ -324,13 +324,13 @@ Partial Class frmDocumentResultList
'SplitContainerControl3 'SplitContainerControl3
' '
Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 158) Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 159)
Me.SplitContainerControl3.Name = "SplitContainerControl3" Me.SplitContainerControl3.Name = "SplitContainerControl3"
Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1) Me.SplitContainerControl3.Panel1.Controls.Add(Me.SplitContainerControl1)
Me.SplitContainerControl3.Panel1.Text = "Panel1" Me.SplitContainerControl3.Panel1.Text = "Panel1"
Me.SplitContainerControl3.Panel2.Controls.Add(Me.DocumentViewer1) Me.SplitContainerControl3.Panel2.Controls.Add(Me.DocumentViewer1)
Me.SplitContainerControl3.Panel2.Text = "Panel2" Me.SplitContainerControl3.Panel2.Text = "Panel2"
Me.SplitContainerControl3.Size = New System.Drawing.Size(1189, 489) Me.SplitContainerControl3.Size = New System.Drawing.Size(1189, 490)
Me.SplitContainerControl3.SplitterPosition = 762 Me.SplitContainerControl3.SplitterPosition = 762
Me.SplitContainerControl3.TabIndex = 5 Me.SplitContainerControl3.TabIndex = 5
Me.SplitContainerControl3.Text = "SplitContainerControl3" Me.SplitContainerControl3.Text = "SplitContainerControl3"
@ -340,7 +340,7 @@ Partial Class frmDocumentResultList
Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.Name = "DocumentViewer1" Me.DocumentViewer1.Name = "DocumentViewer1"
Me.DocumentViewer1.Size = New System.Drawing.Size(417, 489) Me.DocumentViewer1.Size = New System.Drawing.Size(417, 490)
Me.DocumentViewer1.TabIndex = 0 Me.DocumentViewer1.TabIndex = 0
' '
'XtraSaveFileDialog 'XtraSaveFileDialog

20
GUIs.Common/DocumentResultList/frmDocumentResultList.vb
View File

@ -15,6 +15,8 @@ Imports DigitalData.Modules.EDMI.API.Client
Imports DevExpress.XtraGrid.Views.Base Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.BandedGrid Imports DevExpress.XtraGrid.Views.BandedGrid
Imports System.ComponentModel Imports System.ComponentModel
Imports System.Globalization
Imports System.Threading
Public Class frmDocumentResultList Public Class frmDocumentResultList
Implements IResultForm Implements IResultForm
@ -56,7 +58,20 @@ Public Class frmDocumentResultList
_Environment = Environment _Environment = Environment
_Params = Params _Params = Params
_ResultLists = Params.Results _ResultLists = Params.Results
Try
Dim Culture = CultureInfo.CreateSpecificCulture(_Environment.User.Language)
' The following line provides localization for the application's user interface.
Thread.CurrentThread.CurrentUICulture = Culture
' The following line provides localization for data formats.
Thread.CurrentThread.CurrentCulture = Culture
' Set this culture as the default culture for all threads in this application.
' Note: The following properties are supported in the .NET Framework 4.5+
CultureInfo.DefaultThreadCurrentCulture = Culture
CultureInfo.DefaultThreadCurrentUICulture = Culture
Culture.DateTimeFormat.ShortDatePattern = _Environment.User.DateFormat
Catch ex As Exception
_Logger.Warn($"Error loading CultureInfo: {ex.Message}")
End Try
MaybeInitIDB() MaybeInitIDB()
End Sub End Sub
@ -77,6 +92,8 @@ Public Class frmDocumentResultList
Private Sub frmDocumentResultList_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmDocumentResultList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
' Load config ' Load config
SplitContainerControl1.SplitterPosition = _Config.Config.SplitContainer1Distance SplitContainerControl1.SplitterPosition = _Config.Config.SplitContainer1Distance
SwitchMainContainerHorizontal.Checked = _Config.Config.SplitContainer1Horizontal SwitchMainContainerHorizontal.Checked = _Config.Config.SplitContainer1Horizontal
@ -147,6 +164,7 @@ Public Class frmDocumentResultList
Private Async Function LoadFile_IDB(GridRow As DataRow) As Task Private Async Function LoadFile_IDB(GridRow As DataRow) As Task
Try Try
Dim oObjectId = GridRow.Item(COLUMN_DOCID) Dim oObjectId = GridRow.Item(COLUMN_DOCID)
_Logger.Debug($"Gettin' Infor for oObjectId: {oObjectId}")
_DocumentInfo = Await _IDBClient.GetDocumentInfo(_Environment.User.UserId, oObjectId) _DocumentInfo = Await _IDBClient.GetDocumentInfo(_Environment.User.UserId, oObjectId)
DocumentViewer1.LoadFile(_DocumentInfo.FullPath) DocumentViewer1.LoadFile(_DocumentInfo.FullPath)

247
GUIs.Test.EDMIBenchmark/Form1.Designer.vb generated
View File

@ -24,9 +24,6 @@ Partial Class Form1
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Dim DockingContainer2 As DevExpress.XtraBars.Docking2010.Views.Tabbed.DockingContainer = New DevExpress.XtraBars.Docking2010.Views.Tabbed.DockingContainer()
Me.DocumentGroup1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.DocumentGroup(Me.components)
Me.Document1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.Document(Me.components)
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.ButtonSelectFiles = New DevExpress.XtraBars.BarButtonItem() Me.ButtonSelectFiles = New DevExpress.XtraBars.BarButtonItem()
Me.ButtonImportFiles = New DevExpress.XtraBars.BarButtonItem() Me.ButtonImportFiles = New DevExpress.XtraBars.BarButtonItem()
@ -62,24 +59,20 @@ Partial Class Form1
Me.DockPanel3 = New DevExpress.XtraBars.Docking.DockPanel() Me.DockPanel3 = New DevExpress.XtraBars.Docking.DockPanel()
Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer() Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer()
Me.listboxLog = New DevExpress.XtraEditors.ListBoxControl() Me.listboxLog = New DevExpress.XtraEditors.ListBoxControl()
Me.panelContainer1 = New DevExpress.XtraBars.Docking.DockPanel()
Me.DockPanel4 = New DevExpress.XtraBars.Docking.DockPanel()
Me.DockPanel4_Container = New DevExpress.XtraBars.Docking.ControlContainer()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel() Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel()
Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
Me.listboxFiles = New DevExpress.XtraEditors.ListBoxControl() Me.listboxFiles = New DevExpress.XtraEditors.ListBoxControl()
Me.DockPanel2 = New DevExpress.XtraBars.Docking.DockPanel() Me.DockPanel2 = New DevExpress.XtraBars.Docking.DockPanel()
Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer() Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer()
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
CType(Me.DocumentGroup1, System.ComponentModel.ISupportInitialize).BeginInit() Me.panelContainer1 = New DevExpress.XtraBars.Docking.DockPanel()
CType(Me.Document1, System.ComponentModel.ISupportInitialize).BeginInit() Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.DockPanel4 = New DevExpress.XtraBars.Docking.DockPanel()
Me.DockPanel4_Container = New DevExpress.XtraBars.Docking.ControlContainer()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).BeginInit()
@ -92,33 +85,18 @@ Partial Class Form1
Me.DockPanel3.SuspendLayout() Me.DockPanel3.SuspendLayout()
Me.DockPanel3_Container.SuspendLayout() Me.DockPanel3_Container.SuspendLayout()
CType(Me.listboxLog, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.listboxLog, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panelContainer1.SuspendLayout()
Me.DockPanel4.SuspendLayout()
Me.DockPanel4_Container.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DockPanel1.SuspendLayout() Me.DockPanel1.SuspendLayout()
Me.DockPanel1_Container.SuspendLayout() Me.DockPanel1_Container.SuspendLayout()
CType(Me.listboxFiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.listboxFiles, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DockPanel2.SuspendLayout() Me.DockPanel2.SuspendLayout()
Me.DockPanel2_Container.SuspendLayout() Me.DockPanel2_Container.SuspendLayout()
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DockPanel4.SuspendLayout()
Me.DockPanel4_Container.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'DocumentGroup1
'
Me.DocumentGroup1.Items.AddRange(New DevExpress.XtraBars.Docking2010.Views.Tabbed.Document() {Me.Document1})
'
'Document1
'
Me.Document1.Caption = "Document Viewer"
Me.Document1.ControlName = "DockPanel2"
Me.Document1.FloatLocation = New System.Drawing.Point(0, 0)
Me.Document1.FloatSize = New System.Drawing.Size(200, 200)
Me.Document1.Properties.AllowClose = DevExpress.Utils.DefaultBoolean.[False]
Me.Document1.Properties.AllowFloat = DevExpress.Utils.DefaultBoolean.[True]
Me.Document1.Properties.AllowFloatOnDoubleClick = DevExpress.Utils.DefaultBoolean.[True]
'
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
@ -130,7 +108,7 @@ Partial Class Form1
Me.RibbonControl1.PageHeaderItemLinks.Add(Me.BarMdiChildrenListItem1) Me.RibbonControl1.PageHeaderItemLinks.Add(Me.BarMdiChildrenListItem1)
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2, Me.RepositoryItemTextEdit3, Me.RepositoryItemTextEdit4}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2, Me.RepositoryItemTextEdit3, Me.RepositoryItemTextEdit4})
Me.RibbonControl1.Size = New System.Drawing.Size(1310, 158) Me.RibbonControl1.Size = New System.Drawing.Size(1093, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'ButtonSelectFiles 'ButtonSelectFiles
@ -312,7 +290,7 @@ Partial Class Form1
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 640) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 640)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1310, 24) Me.RibbonStatusBar1.Size = New System.Drawing.Size(1093, 24)
' '
'RibbonPage2 'RibbonPage2
' '
@ -326,18 +304,11 @@ Partial Class Form1
Me.DocumentManager1.View = Me.TabbedView1 Me.DocumentManager1.View = Me.TabbedView1
Me.DocumentManager1.ViewCollection.AddRange(New DevExpress.XtraBars.Docking2010.Views.BaseView() {Me.TabbedView1}) Me.DocumentManager1.ViewCollection.AddRange(New DevExpress.XtraBars.Docking2010.Views.BaseView() {Me.TabbedView1})
' '
'TabbedView1
'
Me.TabbedView1.DocumentGroups.AddRange(New DevExpress.XtraBars.Docking2010.Views.Tabbed.DocumentGroup() {Me.DocumentGroup1})
Me.TabbedView1.Documents.AddRange(New DevExpress.XtraBars.Docking2010.Views.BaseDocument() {Me.Document1})
DockingContainer2.Element = Me.DocumentGroup1
Me.TabbedView1.RootContainer.Nodes.AddRange(New DevExpress.XtraBars.Docking2010.Views.Tabbed.DockingContainer() {DockingContainer2})
'
'DockManager1 'DockManager1
' '
Me.DockManager1.AutoHideContainers.AddRange(New DevExpress.XtraBars.Docking.AutoHideContainer() {Me.hideContainerBottom}) Me.DockManager1.AutoHideContainers.AddRange(New DevExpress.XtraBars.Docking.AutoHideContainer() {Me.hideContainerBottom})
Me.DockManager1.Form = Me Me.DockManager1.Form = Me
Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.panelContainer1, Me.DockPanel2}) Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanel1, Me.DockPanel2, Me.DockPanel4})
Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"}) Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"})
' '
'hideContainerBottom 'hideContainerBottom
@ -347,7 +318,7 @@ Partial Class Form1
Me.hideContainerBottom.Dock = System.Windows.Forms.DockStyle.Bottom Me.hideContainerBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.hideContainerBottom.Location = New System.Drawing.Point(0, 619) Me.hideContainerBottom.Location = New System.Drawing.Point(0, 619)
Me.hideContainerBottom.Name = "hideContainerBottom" Me.hideContainerBottom.Name = "hideContainerBottom"
Me.hideContainerBottom.Size = New System.Drawing.Size(1310, 21) Me.hideContainerBottom.Size = New System.Drawing.Size(1093, 21)
' '
'DockPanel3 'DockPanel3
' '
@ -381,102 +352,24 @@ Partial Class Form1
Me.listboxLog.Size = New System.Drawing.Size(1304, 89) Me.listboxLog.Size = New System.Drawing.Size(1304, 89)
Me.listboxLog.TabIndex = 0 Me.listboxLog.TabIndex = 0
' '
'panelContainer1
'
Me.panelContainer1.ActiveChild = Me.DockPanel4
Me.panelContainer1.Controls.Add(Me.DockPanel4)
Me.panelContainer1.Controls.Add(Me.DockPanel1)
Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
Me.panelContainer1.ID = New System.Guid("17067a8c-1b48-4d4a-b383-b7f8d5a8be59")
Me.panelContainer1.Location = New System.Drawing.Point(0, 158)
Me.panelContainer1.Name = "panelContainer1"
Me.panelContainer1.Options.ShowCloseButton = False
Me.panelContainer1.OriginalSize = New System.Drawing.Size(451, 200)
Me.panelContainer1.Size = New System.Drawing.Size(451, 461)
Me.panelContainer1.Tabbed = True
Me.panelContainer1.Text = "panelContainer1"
'
'DockPanel4
'
Me.DockPanel4.Controls.Add(Me.DockPanel4_Container)
Me.DockPanel4.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
Me.DockPanel4.ID = New System.Guid("bddc849b-1066-4d2f-8fd3-9bc377a2bd74")
Me.DockPanel4.Location = New System.Drawing.Point(3, 26)
Me.DockPanel4.Name = "DockPanel4"
Me.DockPanel4.Options.ShowCloseButton = False
Me.DockPanel4.OriginalSize = New System.Drawing.Size(200, 200)
Me.DockPanel4.Size = New System.Drawing.Size(444, 406)
Me.DockPanel4.Text = "List Files"
'
'DockPanel4_Container
'
Me.DockPanel4_Container.Controls.Add(Me.GridControl1)
Me.DockPanel4_Container.Location = New System.Drawing.Point(0, 0)
Me.DockPanel4_Container.Name = "DockPanel4_Container"
Me.DockPanel4_Container.Size = New System.Drawing.Size(444, 406)
Me.DockPanel4_Container.TabIndex = 0
'
'GridControl1
'
Me.GridControl1.DataSource = Me.BindingSource1
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(444, 406)
Me.GridControl1.TabIndex = 0
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'BindingSource1
'
'
'GridView1
'
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.Editable = False
Me.GridView1.OptionsBehavior.ReadOnly = True
'
'GridColumn1
'
Me.GridColumn1.Caption = "Object Id"
Me.GridColumn1.FieldName = "IDB_OBJ_ID"
Me.GridColumn1.MaxWidth = 100
Me.GridColumn1.MinWidth = 100
Me.GridColumn1.Name = "GridColumn1"
Me.GridColumn1.Visible = True
Me.GridColumn1.VisibleIndex = 0
Me.GridColumn1.Width = 100
'
'GridColumn2
'
Me.GridColumn2.Caption = "Document Name"
Me.GridColumn2.FieldName = "DocName"
Me.GridColumn2.Name = "GridColumn2"
Me.GridColumn2.Visible = True
Me.GridColumn2.VisibleIndex = 1
Me.GridColumn2.Width = 409
'
'DockPanel1 'DockPanel1
' '
Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
Me.DockPanel1.ID = New System.Guid("12b5eead-07cc-48c6-93a4-85cd0b4b82ce") Me.DockPanel1.ID = New System.Guid("12b5eead-07cc-48c6-93a4-85cd0b4b82ce")
Me.DockPanel1.Location = New System.Drawing.Point(3, 26) Me.DockPanel1.Location = New System.Drawing.Point(0, 158)
Me.DockPanel1.Name = "DockPanel1" Me.DockPanel1.Name = "DockPanel1"
Me.DockPanel1.Options.ShowCloseButton = False Me.DockPanel1.Options.ShowCloseButton = False
Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200) Me.DockPanel1.OriginalSize = New System.Drawing.Size(297, 200)
Me.DockPanel1.Size = New System.Drawing.Size(444, 406) Me.DockPanel1.Size = New System.Drawing.Size(297, 461)
Me.DockPanel1.Text = "Files to Upload" Me.DockPanel1.Text = "Files to Upload"
' '
'DockPanel1_Container 'DockPanel1_Container
' '
Me.DockPanel1_Container.Controls.Add(Me.listboxFiles) Me.DockPanel1_Container.Controls.Add(Me.listboxFiles)
Me.DockPanel1_Container.Location = New System.Drawing.Point(0, 0) Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 26)
Me.DockPanel1_Container.Name = "DockPanel1_Container" Me.DockPanel1_Container.Name = "DockPanel1_Container"
Me.DockPanel1_Container.Size = New System.Drawing.Size(444, 406) Me.DockPanel1_Container.Size = New System.Drawing.Size(290, 432)
Me.DockPanel1_Container.TabIndex = 0 Me.DockPanel1_Container.TabIndex = 0
' '
'listboxFiles 'listboxFiles
@ -484,25 +377,27 @@ Partial Class Form1
Me.listboxFiles.Dock = System.Windows.Forms.DockStyle.Fill Me.listboxFiles.Dock = System.Windows.Forms.DockStyle.Fill
Me.listboxFiles.Location = New System.Drawing.Point(0, 0) Me.listboxFiles.Location = New System.Drawing.Point(0, 0)
Me.listboxFiles.Name = "listboxFiles" Me.listboxFiles.Name = "listboxFiles"
Me.listboxFiles.Size = New System.Drawing.Size(444, 406) Me.listboxFiles.Size = New System.Drawing.Size(290, 432)
Me.listboxFiles.TabIndex = 1 Me.listboxFiles.TabIndex = 1
' '
'DockPanel2 'DockPanel2
' '
Me.DockPanel2.Controls.Add(Me.DockPanel2_Container) Me.DockPanel2.Controls.Add(Me.DockPanel2_Container)
Me.DockPanel2.DockedAsTabbedDocument = True Me.DockPanel2.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right
Me.DockPanel2.ID = New System.Guid("e82850af-b594-49e9-ae83-36d4bf007da5") Me.DockPanel2.ID = New System.Guid("e82850af-b594-49e9-ae83-36d4bf007da5")
Me.DockPanel2.Location = New System.Drawing.Point(893, 158)
Me.DockPanel2.Name = "DockPanel2" Me.DockPanel2.Name = "DockPanel2"
Me.DockPanel2.Options.ShowCloseButton = False Me.DockPanel2.Options.ShowCloseButton = False
Me.DockPanel2.OriginalSize = New System.Drawing.Size(200, 200) Me.DockPanel2.OriginalSize = New System.Drawing.Size(200, 200)
Me.DockPanel2.Size = New System.Drawing.Size(200, 461)
Me.DockPanel2.Text = "Document Viewer" Me.DockPanel2.Text = "Document Viewer"
' '
'DockPanel2_Container 'DockPanel2_Container
' '
Me.DockPanel2_Container.Controls.Add(Me.DocumentViewer1) Me.DockPanel2_Container.Controls.Add(Me.DocumentViewer1)
Me.DockPanel2_Container.Location = New System.Drawing.Point(0, 0) Me.DockPanel2_Container.Location = New System.Drawing.Point(4, 26)
Me.DockPanel2_Container.Name = "DockPanel2_Container" Me.DockPanel2_Container.Name = "DockPanel2_Container"
Me.DockPanel2_Container.Size = New System.Drawing.Size(853, 432) Me.DockPanel2_Container.Size = New System.Drawing.Size(193, 432)
Me.DockPanel2_Container.TabIndex = 0 Me.DockPanel2_Container.TabIndex = 0
' '
'DocumentViewer1 'DocumentViewer1
@ -510,9 +405,12 @@ Partial Class Form1
Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.Name = "DocumentViewer1" Me.DocumentViewer1.Name = "DocumentViewer1"
Me.DocumentViewer1.Size = New System.Drawing.Size(853, 432) Me.DocumentViewer1.Size = New System.Drawing.Size(193, 432)
Me.DocumentViewer1.TabIndex = 0 Me.DocumentViewer1.TabIndex = 0
' '
'BindingSource1
'
'
'Timer1 'Timer1
' '
Me.Timer1.Interval = 3000 Me.Timer1.Interval = 3000
@ -526,12 +424,64 @@ Partial Class Form1
Me.BarEditItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarEditItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarEditItem1.Name = "BarEditItem1" Me.BarEditItem1.Name = "BarEditItem1"
' '
'panelContainer1
'
Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
Me.panelContainer1.ID = New System.Guid("17067a8c-1b48-4d4a-b383-b7f8d5a8be59")
Me.panelContainer1.Location = New System.Drawing.Point(4, 26)
Me.panelContainer1.Name = "panelContainer1"
Me.panelContainer1.Options.ShowCloseButton = False
Me.panelContainer1.OriginalSize = New System.Drawing.Size(444, 406)
Me.panelContainer1.Size = New System.Drawing.Size(192, 145)
Me.panelContainer1.Text = "panelContainer1"
'
'GridControl1
'
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(530, 171)
Me.GridControl1.TabIndex = 5
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
'
'DockPanel4
'
Me.DockPanel4.Controls.Add(Me.DockPanel4_Container)
Me.DockPanel4.Dock = DevExpress.XtraBars.Docking.DockingStyle.Float
Me.DockPanel4.FloatLocation = New System.Drawing.Point(2475, 322)
Me.DockPanel4.FloatSize = New System.Drawing.Size(538, 200)
Me.DockPanel4.FloatVertical = True
Me.DockPanel4.ID = New System.Guid("d8d91c41-bf1b-4f30-b72e-66f2da18db8e")
Me.DockPanel4.Location = New System.Drawing.Point(0, 0)
Me.DockPanel4.Name = "DockPanel4"
Me.DockPanel4.OriginalSize = New System.Drawing.Size(200, 200)
Me.DockPanel4.SavedDock = DevExpress.XtraBars.Docking.DockingStyle.Top
Me.DockPanel4.SavedIndex = 2
Me.DockPanel4.Size = New System.Drawing.Size(538, 200)
Me.DockPanel4.Text = "DockPanelGrid"
'
'DockPanel4_Container
'
Me.DockPanel4_Container.Controls.Add(Me.GridControl1)
Me.DockPanel4_Container.Location = New System.Drawing.Point(4, 26)
Me.DockPanel4_Container.Name = "DockPanel4_Container"
Me.DockPanel4_Container.Size = New System.Drawing.Size(530, 171)
Me.DockPanel4_Container.TabIndex = 0
'
'Form1 'Form1
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1310, 664) Me.ClientSize = New System.Drawing.Size(1093, 664)
Me.Controls.Add(Me.panelContainer1) Me.Controls.Add(Me.DockPanel2)
Me.Controls.Add(Me.DockPanel1)
Me.Controls.Add(Me.hideContainerBottom) Me.Controls.Add(Me.hideContainerBottom)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.RibbonControl1)
@ -539,8 +489,6 @@ Partial Class Form1
Me.Ribbon = Me.RibbonControl1 Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Form1" Me.Text = "Form1"
CType(Me.DocumentGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Document1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).EndInit()
@ -553,17 +501,16 @@ Partial Class Form1
Me.DockPanel3.ResumeLayout(False) Me.DockPanel3.ResumeLayout(False)
Me.DockPanel3_Container.ResumeLayout(False) Me.DockPanel3_Container.ResumeLayout(False)
CType(Me.listboxLog, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.listboxLog, System.ComponentModel.ISupportInitialize).EndInit()
Me.panelContainer1.ResumeLayout(False)
Me.DockPanel4.ResumeLayout(False)
Me.DockPanel4_Container.ResumeLayout(False)
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.DockPanel1.ResumeLayout(False) Me.DockPanel1.ResumeLayout(False)
Me.DockPanel1_Container.ResumeLayout(False) Me.DockPanel1_Container.ResumeLayout(False)
CType(Me.listboxFiles, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.listboxFiles, System.ComponentModel.ISupportInitialize).EndInit()
Me.DockPanel2.ResumeLayout(False) Me.DockPanel2.ResumeLayout(False)
Me.DockPanel2_Container.ResumeLayout(False) Me.DockPanel2_Container.ResumeLayout(False)
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.DockPanel4.ResumeLayout(False)
Me.DockPanel4_Container.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -592,20 +539,11 @@ Partial Class Form1
Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager
Friend WithEvents DockPanel3 As DevExpress.XtraBars.Docking.DockPanel Friend WithEvents DockPanel3 As DevExpress.XtraBars.Docking.DockPanel
Friend WithEvents DockPanel3_Container As DevExpress.XtraBars.Docking.ControlContainer Friend WithEvents DockPanel3_Container As DevExpress.XtraBars.Docking.ControlContainer
Friend WithEvents DocumentGroup1 As DevExpress.XtraBars.Docking2010.Views.Tabbed.DocumentGroup
Friend WithEvents Document1 As DevExpress.XtraBars.Docking2010.Views.Tabbed.Document
Friend WithEvents DockPanel2 As DevExpress.XtraBars.Docking.DockPanel Friend WithEvents DockPanel2 As DevExpress.XtraBars.Docking.DockPanel
Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents panelContainer1 As DevExpress.XtraBars.Docking.DockPanel
Friend WithEvents DockPanel4 As DevExpress.XtraBars.Docking.DockPanel
Friend WithEvents DockPanel4_Container As DevExpress.XtraBars.Docking.ControlContainer
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents hideContainerBottom As DevExpress.XtraBars.Docking.AutoHideContainer Friend WithEvents hideContainerBottom As DevExpress.XtraBars.Docking.AutoHideContainer
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents BindingSource1 As BindingSource Friend WithEvents BindingSource1 As BindingSource
Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents Timer1 As Timer Friend WithEvents Timer1 As Timer
@ -621,4 +559,9 @@ Partial Class Form1
Friend WithEvents TextboxDatatableSort As DevExpress.XtraBars.BarEditItem Friend WithEvents TextboxDatatableSort As DevExpress.XtraBars.BarEditItem
Friend WithEvents RepositoryItemTextEdit4 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit Friend WithEvents RepositoryItemTextEdit4 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit
Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem
Friend WithEvents panelContainer1 As DevExpress.XtraBars.Docking.DockPanel
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents DockPanel4 As DevExpress.XtraBars.Docking.DockPanel
Friend WithEvents DockPanel4_Container As DevExpress.XtraBars.Docking.ControlContainer
End Class End Class

2
GUIs.Test.EDMIBenchmark/Form1.resx
View File

@ -336,7 +336,7 @@
<value>159</value> <value>159</value>
</metadata> </metadata>
<metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>181, 17</value> <value>176, 18</value>
</metadata> </metadata>
<metadata name="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>316, 17</value> <value>316, 17</value>

9
GUIs.Test.EDMIBenchmark/Form1.vb
View File

@ -13,7 +13,7 @@ Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
_LogConfig = New LogConfig(LogConfig.PathType.Temp, Nothing, "EDMIBenschmark") _LogConfig = New LogConfig(LogConfig.PathType.Temp, Nothing, "EDMIBenchmark")
_Logger = _LogConfig.GetLogger() _Logger = _LogConfig.GetLogger()
_Client = New Client(_LogConfig, "172.24.12.39", 9000) _Client = New Client(_LogConfig, "172.24.12.39", 9000)
_Client.Connect() _Client.Connect()
@ -227,13 +227,14 @@ Public Class Form1
Dim oSortExpression As String = TextboxDatatableSort.EditValue Dim oSortExpression As String = TextboxDatatableSort.EditValue
Dim oFilterExpression As String = TextboxDatatableFilter.EditValue Dim oFilterExpression As String = TextboxDatatableFilter.EditValue
Dim oResponse As TableResult = Await _Client.GetDatatableByNameAsync(oDatatableName, oFilterExpression, oSortExpression) Dim oResponse As TableResult = Await _Client.GetDatatableByNameAsync(oDatatableName, oFilterExpression, oSortExpression)
Dim oDt As DataTable = oResponse.Table
GridControl1.DataSource = oDt
oSWTotal.Stop() oSWTotal.Stop()
If oResponse.OK Then If oResponse.OK Then
AddLogMessage($"DataTable [{oDatatableName}] loaded: [{FormatTime(oSWTotal.ElapsedMilliseconds)}]") AddLogMessage(Now.ToLongTimeString + $"DataTable [{oDatatableName}] loaded: [{FormatTime(oSWTotal.ElapsedMilliseconds)}]")
Else Else
AddLogMessage($"DataTable [{oDatatableName}] could not be loaded. Error: {oResponse.ErrorMessage}") AddLogMessage(Now.ToLongTimeString + $"DataTable [{oDatatableName}] could not be loaded. Error: {oResponse.ErrorMessage}")
End If End If
Catch ex As FaultException Catch ex As FaultException
MsgBox(ex.Reason.ToString, MsgBoxStyle.Critical, "Error from Service") MsgBox(ex.Reason.ToString, MsgBoxStyle.Critical, "Error from Service")

6
GUIs.ZooFlow/App.config
View File

@ -2,6 +2,7 @@
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System"> <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
<section name="DigitalData.GUIs.ZooFlow.Settings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
<section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" /> <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup> </sectionGroup>
</configSections> </configSections>
@ -11,6 +12,11 @@
providerName="System.Data.SqlClient" /> providerName="System.Data.SqlClient" />
</connectionStrings> </connectionStrings>
<applicationSettings> <applicationSettings>
<DigitalData.GUIs.ZooFlow.Settings>
<setting name="UseAppConfigConString" serializeAs="String">
<value>True</value>
</setting>
</DigitalData.GUIs.ZooFlow.Settings>
<DevExpress.LookAndFeel.Design.AppSettings> <DevExpress.LookAndFeel.Design.AppSettings>
<setting name="DefaultAppSkin" serializeAs="String"> <setting name="DefaultAppSkin" serializeAs="String">
<value>Skin/Office 2019 Colorful</value> <value>Skin/Office 2019 Colorful</value>

55
GUIs.ZooFlow/ApplicationEvents.vb
View File

@ -1,4 +1,5 @@
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Logging.LogConfig Imports DigitalData.Modules.Logging.LogConfig
@ -12,33 +13,63 @@ Namespace My
Partial Friend Class MyApplication Partial Friend Class MyApplication
Private _Logger As Logger Private _Logger As Logger
Private _BaseUserConfigPath As String = Windows.Forms.Application.UserAppDataPath Private oUserAppDataPath As String = Windows.Forms.Application.UserAppDataPath
Private _BaseLocalUserConfigPath As String = Windows.Forms.Application.LocalUserAppDataPath Private _BaseLocalUserConfigPath As String = Windows.Forms.Application.LocalUserAppDataPath
Private _BaseMachineConfigPath As String = Windows.Forms.Application.CommonAppDataPath Private oCommonAppDataPath As String = Windows.Forms.Application.CommonAppDataPath
Private _BaseStartupPath As String = Windows.Forms.Application.StartupPath Private oStartupPath As String = Windows.Forms.Application.StartupPath
Public Sub App_Startup() Handles Me.Startup Public Sub App_Startup() Handles Me.Startup
Dim oLogConfig As New LogConfig(LogPath:=PathType.AppData, CompanyName:="Digital Data", ProductName:="ZooFlow") With {.Debug = True} Dim oLogConfig As New LogConfig(LogPath:=PathType.AppData, CompanyName:="Digital Data", ProductName:="ZooFlow") With {.Debug = True}
If My.Settings.UseAppConfigConString = True Then
' UserAppDataPath = StartupPath
oCommonAppDataPath = oStartupPath
End If
' System Config files like Service Url will be saved in %LocalAppdata% so they will remain on the machine ' System Config files like Service Url will be saved in %LocalAppdata% so they will remain on the machine
Dim oSystemConfigManager As New ConfigManager(Of ClassConfig)(oLogConfig, Dim oConfigManager As New ConfigManager(Of ClassConfig)(oLogConfig,
_BaseLocalUserConfigPath, oUserAppDataPath,
_BaseMachineConfigPath, oCommonAppDataPath,
_BaseStartupPath) oStartupPath)
' Layout files will be saved in %Appdata% (Roaming) so they will be syncronized with the user profile ' Layout files will be saved in %Appdata% (Roaming) so they will be syncronized with the user profile
Dim oUIConfigPath = IO.Path.Combine(_BaseUserConfigPath, ClassConstants.FOLDER_NAME_LAYOUT) Dim oUIConfigPath = IO.Path.Combine(oUserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT)
Dim oUIConfigAlternatePath = IO.Path.Combine(_BaseStartupPath, ClassConstants.FOLDER_NAME_LAYOUT) Dim oUIConfigAlternatePath = IO.Path.Combine(oUserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT)
Dim oUIConfigManager As New ConfigManager(Of ClassUIConfig)(oLogConfig, oUIConfigPath, oUIConfigPath, oUIConfigAlternatePath) Dim oUIConfigManager As New ConfigManager(Of ClassUIConfig)(oLogConfig, oUIConfigPath, oUIConfigPath, oUIConfigAlternatePath)
'If oConfigManager.Config.ConnectionStringAppServer <> String.Empty Then
' MyConStringAppserv = DecryptConnectionString(oConfigManager.Config.ConnectionStringAppServer)
' If InitAppDatabase() Then
' Logger.Debug("ConnectionStringAppServer will be used")
' End If
'End If
LogConfig = oLogConfig LogConfig = oLogConfig
LogConfig.Debug = True LogConfig.Debug = True
SystemConfigManager = oSystemConfigManager SystemConfigManager = oConfigManager
UIConfigManager = oUIConfigManager UIConfigManager = oUIConfigManager
_Logger = LogConfig.GetLogger() _Logger = LogConfig.GetLogger()
_Logger.Debug("Starting Client Suite..") _Logger.Debug("Starting ZooFlow...")
If oConfigManager.Config.AppServerConfig <> String.Empty Then
Try
Dim oSplit() As String = oConfigManager.Config.AppServerConfig.ToString.Split(":")
Dim oAppServerAddress As String = oSplit(0)
Dim oAppServerPort As Integer = 9000
If oSplit.Length = 2 Then
oAppServerPort = oSplit(1)
End If
_Client = New Client(LogConfig, oAppServerAddress, oAppServerPort)
If Not IsNothing(_Client) Then
If _Client.Connect() Then
APPSERVER_ACTIVE = True
End If
End If
Catch ex As Exception
_Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
End Try
End If
Dim oCommandLineArgs As New ClassCommandlineArgs(LogConfig) Dim oCommandLineArgs As New ClassCommandlineArgs(LogConfig)
Dim oArgs = Environment.GetCommandLineArgs().Skip(1).ToList() Dim oArgs = Environment.GetCommandLineArgs().Skip(1).ToList()

3
GUIs.ZooFlow/Config/ClassConfig.vb
View File

@ -42,7 +42,8 @@ Public Class ClassConfig
<GlobalSetting> <GlobalSetting>
Public Property AppServerConfig As String = String.Empty Public Property AppServerConfig As String = String.Empty
<ConnectionStringAppServer>
Public Property ConnectionStringAppServer As String = ""
' === Logging Configuration ' === Logging Configuration
Public Property LogDebug As Boolean = False Public Property LogDebug As Boolean = False

9
GUIs.ZooFlow/My Project/Settings.Designer.vb generated
View File

@ -63,6 +63,15 @@ Partial Friend NotInheritable Class Settings
Return CType(Me("IDBConnectionStringDEFAULT"),String) Return CType(Me("IDBConnectionStringDEFAULT"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public ReadOnly Property UseAppConfigConString() As Boolean
Get
Return CType(Me("UseAppConfigConString"),Boolean)
End Get
End Property
End Class End Class
Namespace My Namespace My

3
GUIs.ZooFlow/My Project/Settings.settings
View File

@ -10,5 +10,8 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue> &lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=IDB_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value> <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=IDB_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting> </Setting>
<Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application">
<Value Profile="(Default)">True</Value>
</Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

2
GUIs.ZooFlow/Search/ClassControlCreator.vb
View File

@ -184,7 +184,7 @@ Public Class ClassControlCreator
'oMyNewGridControl.Size = New Size(CInt(pAttributeRow.Item("WIDTH")), CInt(pAttributeRow.Item("HEIGHT"))) 'oMyNewGridControl.Size = New Size(CInt(pAttributeRow.Item("WIDTH")), CInt(pAttributeRow.Item("HEIGHT")))
oView = CType(oMyNewGridControl.MainView, GridView) oView = CType(oMyNewGridControl.MainView, GridView)
oView.Appearance.EvenRow.BackColor = Color.FromArgb(255, 214, 49) oView.Appearance.EvenRow.BackColor = Color.WhiteSmoke ' Color.FromArgb(255, 214, 49)
oView.OptionsBehavior.Editable = False oView.OptionsBehavior.Editable = False
oView.OptionsBehavior.ReadOnly = True oView.OptionsBehavior.ReadOnly = True
oView.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.False oView.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.False

18
GUIs.ZooFlow/Search/frmSearchStart.Designer.vb generated
View File

@ -52,6 +52,7 @@ Partial Class frmSearchStart
Me.RibbonPageGroupProfiles = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupProfiles = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupFilter = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupFilter = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupSettings = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupSettings = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit()
Me.RepositoryItemTimeSpanEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTimeSpanEdit() Me.RepositoryItemTimeSpanEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTimeSpanEdit()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
@ -75,7 +76,6 @@ Partial Class frmSearchStart
Me.KlammerRechtsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KlammerRechtsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KlammerEntfernenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KlammerEntfernenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SplitContainerControlSearch = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerControlSearch = New DevExpress.XtraEditors.SplitContainerControl()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -188,7 +188,7 @@ Partial Class frmSearchStart
' '
'BarButtonStartSearch 'BarButtonStartSearch
' '
Me.BarButtonStartSearch.Caption = "Finden (F2)" Me.BarButtonStartSearch.Caption = "Finden (F5)"
Me.BarButtonStartSearch.Id = 9 Me.BarButtonStartSearch.Id = 9
Me.BarButtonStartSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonStartSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonStartSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonStartSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonStartSearch.Name = "BarButtonStartSearch" Me.BarButtonStartSearch.Name = "BarButtonStartSearch"
@ -295,6 +295,13 @@ Partial Class frmSearchStart
Me.RibbonPageGroupSettings.Name = "RibbonPageGroupSettings" Me.RibbonPageGroupSettings.Name = "RibbonPageGroupSettings"
Me.RibbonPageGroupSettings.Text = "Sucheinstellungen" Me.RibbonPageGroupSettings.Text = "Sucheinstellungen"
' '
'RibbonPageGroup1
'
Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonStartSearch)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'RepositoryItemTextEdit1 'RepositoryItemTextEdit1
' '
Me.RepositoryItemTextEdit1.AutoHeight = False Me.RepositoryItemTextEdit1.AutoHeight = False
@ -467,13 +474,6 @@ Partial Class frmSearchStart
Me.SplitContainerControlSearch.SplitterPosition = 310 Me.SplitContainerControlSearch.SplitterPosition = 310
Me.SplitContainerControlSearch.TabIndex = 16 Me.SplitContainerControlSearch.TabIndex = 16
' '
'RibbonPageGroup1
'
Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonStartSearch)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'frmSearchStart 'frmSearchStart
' '
Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True] Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]

39
GUIs.ZooFlow/Search/frmSearchStart.resx
View File

@ -188,36 +188,15 @@
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKgGAAAC77u/ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALcBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDgx PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
LjIyNjUgNDguOTI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8x IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
Ij4NCiAgPGRlZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiMxZDFkMWI7fS5jbHMtMntmaWxsOiNh MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
NTI0MzE7fS5jbHMtM3tmaWxsOm5vbmU7c3Ryb2tlOiMxZDFkMWI7c3Ryb2tlLXdpZHRoOjIuMTY4cHg7 Y2U9InByZXNlcnZlIiBpZD0iTmV4dCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAgPHBhdGggZD0iTTMzLjc0NCwyNy4yMDY4SDMxLjE4NWwtMS40 MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KPC9zdHls
NDksNC45OTVoLS4wMjVsLTEuMzI3LTQuOTk1SDI2LjY3OGwtMS4zMjgsNC45OTVoLS4wMjRsLTEuNDUt ZT4NCiAgPHBhdGggZD0iTTguOSw0LjFDOC40LDMuOCw4LDQuMSw4LDQuNnYyMC43YzAsMC42LDAuNCww
NC45OTVIMjEuMzE4bDIuODAyLDguNzcxaDIuMzE0bDEuMDg1LTQuNjI5aC4wMjRsMS4wODQsNC42Mjlo LjgsMC45LDAuNWwxNi44LTEwLjNjMC41LTAuMywwLjUtMC44LDAtMS4xTDguOSw0LjF6IiBjbGFzcz0i
Mi4zMTVabS0xNC44NjIsNC4zODZhMi4yMDQ3LDIuMjA0NywwLDEsMS00LjM4NSwwLDIuMjA0OCwyLjIw Qmx1ZSIgLz4NCjwvc3ZnPgs=
NDgsMCwxLDEsNC4zODUsMG0yLjQzNiwwYTQuNjI5LDQuNjI5LDAsMSwwLTQuNjI5LDQuNjI5LDQuNTUx
MSw0LjU1MTEsMCwwLDAsNC42MjktNC42MjltLTkuNjIzLDIuMTkzSDguODkzdi02LjU3OUg2LjQ1N3Y4
Ljc3MWg0Ljk5NFpNNS40ODIsMjkuNGwtLjI0NC0yLjE5M0gwdjguNzcxSDIuNDM2di0zLjQxMUg1LjEx
N3YtMi4wNzFIMi40MzZWMjkuNFoiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHBhdGggZD0iTTMwLjk0MjEs
MjEuNDQxMWMwLDEuODI3LTEuNDYyLDIuMTkyLTIuODAyLDIuMTkydi00LjM4NWMxLjM0LDAsMi44MDIu
MzY1LDIuODAyLDIuMTkzbTIuNDM2LDBhNC4yNTMzLDQuMjUzMywwLDAsMC00LjI2NC00LjM4NmgtMy40
MTF2OC43NzFoMy40MTFhNC40MTcsNC40MTcsMCwwLDAsNC4yNjQtNC4zODVtLTkuMTM2LDQuMzg1di04
Ljc3MWgtMi40Mzd2NC4xNDJoLS4wMjRsLTIuNzc4LTQuMTQyaC0yLjE5MnY4Ljc3MWgyLjQzNnYtNC4x
NDJoLjAyNGwyLjc3OCw0LjE0MlptLTguODkzLTguNzcxaC0yLjQzNnY4Ljc3MWgyLjQzNlptLTMuNDEx
LDIuMTkzLS4yNDQtMi4xOTNINi40NTYxdjguNzcxaDIuNDM2di0zLjQxMWgyLjY4MXYtMi4wNzFIOC44
OTIxdi0xLjA5NloiIGNsYXNzPSJjbHMtMiIgLz4NCiAgPHBvbHlnb24gcG9pbnRzPSIzOS40NjEgMCAz
OS40NiA0OC45MjUgODEuMjI2IDI0LjQ2MyAzOS40NjEgMCIgY2xhc3M9ImNscy0yIiAvPg0KICA8cGF0
aCBkPSJNNTQuOTYzNiwzMS45MTU5YTEwLjQxODUsMTAuNDE4NSwwLDEsMC0xMC40MTgtMTAuNDE4QTEw
LjQxNzYsMTAuNDE3NiwwLDAsMCw1NC45NjM2LDMxLjkxNTlaIiBjbGFzcz0iY2xzLTMiIC8+DQogIDxw
YXRoIGQ9Ik02MS41NTE2LDIxLjMwMzdhNi41Nzg1LDYuNTc4NSwwLDAsMC0xMC4wNTQtNS41OTUsMy4w
NDU3LDMuMDQ1NywwLDAsMSwuNjczLDEuODk5LDMuMDc3NywzLjA3NzcsMCwwLDEtMy4wNzgsMy4wNzcs
My4wNCwzLjA0LDAsMCwxLS42NzktLjA4MSw2Ljc0ODUsNi43NDg1LDAsMCwwLS4wMzguNyw2LjU4OCw2
LjU4OCwwLDEsMCwxMy4xNzYsMCIgY2xhc3M9ImNscy0xIiAvPg0KICA8cGF0aCBkPSJNNjkuNTYxNSwx
Ni4zNTQzYTE4LjY0NDYsMTguNjQ0NiwwLDAsMC0yNC45MTYtNi44NzcsMTA0LjAzMTIsMTA0LjAzMTIs
MCwwLDEsMTEuMjA4LDEuMjQxYzUuOTgyLDEuMjQ0LDkuMDc0LDMuMjA0LDEzLjcwOCw1LjYzNiIgY2xh
c3M9ImNscy0xIiAvPg0KPC9zdmc+Cw==
</value> </value>
</data> </data>
<data name="BarStaticItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarStaticItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">

5
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -114,6 +114,7 @@
<Compile Include="Base\BaseClass.vb" /> <Compile Include="Base\BaseClass.vb" />
<Compile Include="ClassClipboardWatcher.vb" /> <Compile Include="ClassClipboardWatcher.vb" />
<Compile Include="ClassCommandlineArgs.vb" /> <Compile Include="ClassCommandlineArgs.vb" />
<Compile Include="modCurrent.vb" />
<Compile Include="Search\ClassControlCreator.vb" /> <Compile Include="Search\ClassControlCreator.vb" />
<Compile Include="Globix\ClassFileDrop.vb" /> <Compile Include="Globix\ClassFileDrop.vb" />
<Compile Include="Globix\ClassFilehandle.vb" /> <Compile Include="Globix\ClassFilehandle.vb" />
@ -284,6 +285,10 @@
<Project>{EAF0EA75-5FA7-485D-89C7-B2D843B03A96}</Project> <Project>{EAF0EA75-5FA7-485D-89C7-B2D843B03A96}</Project>
<Name>Database</Name> <Name>Database</Name>
</ProjectReference> </ProjectReference>
<ProjectReference Include="..\Modules.EDMIAPI\EDMI.API.vbproj">
<Project>{25017513-0d97-49d3-98d7-ba76d9b251b0}</Project>
<Name>EDMI.API</Name>
</ProjectReference>
<ProjectReference Include="..\Modules.Filesystem\Filesystem.vbproj"> <ProjectReference Include="..\Modules.Filesystem\Filesystem.vbproj">
<Project>{991d0231-4623-496d-8bd0-9ca906029cbc}</Project> <Project>{991d0231-4623-496d-8bd0-9ca906029cbc}</Project>
<Name>Filesystem</Name> <Name>Filesystem</Name>

22
GUIs.ZooFlow/frmFlowForm.Designer.vb generated
View File

@ -33,8 +33,6 @@ Partial Class frmFlowForm
Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UserVerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UserVerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AlleAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components) Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components)
Me.PictureBoxAbo = New System.Windows.Forms.PictureBox() Me.PictureBoxAbo = New System.Windows.Forms.PictureBox()
Me.PictureBoxDragDrop = New System.Windows.Forms.PictureBox() Me.PictureBoxDragDrop = New System.Windows.Forms.PictureBox()
@ -45,7 +43,6 @@ Partial Class frmFlowForm
Me.TimerCheckActiveForms = New System.Windows.Forms.Timer(Me.components) Me.TimerCheckActiveForms = New System.Windows.Forms.Timer(Me.components)
Me.TimerCheckDroppedFiles = New System.Windows.Forms.Timer(Me.components) Me.TimerCheckDroppedFiles = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuSystray.SuspendLayout() Me.ContextMenuSystray.SuspendLayout()
Me.ContextMenuForm.SuspendLayout()
CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).BeginInit()
@ -107,18 +104,6 @@ Partial Class frmFlowForm
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(173, 22) Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden" Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
' '
'ContextMenuForm
'
Me.ContextMenuForm.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlleAnzeigenToolStripMenuItem})
Me.ContextMenuForm.Name = "ContextMenuStrip1"
Me.ContextMenuForm.Size = New System.Drawing.Size(145, 26)
'
'AlleAnzeigenToolStripMenuItem
'
Me.AlleAnzeigenToolStripMenuItem.Name = "AlleAnzeigenToolStripMenuItem"
Me.AlleAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.AlleAnzeigenToolStripMenuItem.Text = "Alle anzeigen"
'
'PictureBoxAbo 'PictureBoxAbo
' '
Me.PictureBoxAbo.Cursor = System.Windows.Forms.Cursors.Hand Me.PictureBoxAbo.Cursor = System.Windows.Forms.Cursors.Hand
@ -132,6 +117,7 @@ Partial Class frmFlowForm
' '
'PictureBoxDragDrop 'PictureBoxDragDrop
' '
Me.PictureBoxDragDrop.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBoxDragDrop.Dock = System.Windows.Forms.DockStyle.Left Me.PictureBoxDragDrop.Dock = System.Windows.Forms.DockStyle.Left
Me.PictureBoxDragDrop.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW Me.PictureBoxDragDrop.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW
Me.PictureBoxDragDrop.Location = New System.Drawing.Point(0, 0) Me.PictureBoxDragDrop.Location = New System.Drawing.Point(0, 0)
@ -152,7 +138,6 @@ Partial Class frmFlowForm
Me.PictureBoxGlobix.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBoxGlobix.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBoxGlobix.TabIndex = 9 Me.PictureBoxGlobix.TabIndex = 9
Me.PictureBoxGlobix.TabStop = False Me.PictureBoxGlobix.TabStop = False
Me.PictureBoxGlobix.Visible = False
' '
'PictureBoxPM 'PictureBoxPM
' '
@ -166,7 +151,6 @@ Partial Class frmFlowForm
Me.PictureBoxPM.TabIndex = 4 Me.PictureBoxPM.TabIndex = 4
Me.PictureBoxPM.TabStop = False Me.PictureBoxPM.TabStop = False
Me.ToolTip1.SetToolTip(Me.PictureBoxPM, "ProcessManager starten") Me.ToolTip1.SetToolTip(Me.PictureBoxPM, "ProcessManager starten")
Me.PictureBoxPM.Visible = False
' '
'PictureBoxSearch 'PictureBoxSearch
' '
@ -200,7 +184,6 @@ Partial Class frmFlowForm
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(563, 150) Me.ClientSize = New System.Drawing.Size(563, 150)
Me.ContextMenuStrip = Me.ContextMenuForm
Me.Controls.Add(Me.PictureBoxAbo) Me.Controls.Add(Me.PictureBoxAbo)
Me.Controls.Add(Me.PictureBoxDragDrop) Me.Controls.Add(Me.PictureBoxDragDrop)
Me.Controls.Add(Me.PictureBoxGlobix) Me.Controls.Add(Me.PictureBoxGlobix)
@ -212,7 +195,6 @@ Partial Class frmFlowForm
Me.Text = "frmFlowForm_Test1" Me.Text = "frmFlowForm_Test1"
Me.TopMost = True Me.TopMost = True
Me.ContextMenuSystray.ResumeLayout(False) Me.ContextMenuSystray.ResumeLayout(False)
Me.ContextMenuForm.ResumeLayout(False)
CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBoxDragDrop, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBoxGlobix, System.ComponentModel.ISupportInitialize).EndInit()
@ -228,8 +210,6 @@ Partial Class frmFlowForm
Friend WithEvents ContextMenuSystray As ContextMenuStrip Friend WithEvents ContextMenuSystray As ContextMenuStrip
Friend WithEvents VerwaltungToolStripMenuItem As ToolStripMenuItem Friend WithEvents VerwaltungToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ZooFlowBeendenToolStripMenuItem As ToolStripMenuItem Friend WithEvents ZooFlowBeendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ContextMenuForm As ContextMenuStrip
Friend WithEvents AlleAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PictureBoxDragDrop As PictureBox Friend WithEvents PictureBoxDragDrop As PictureBox
Friend WithEvents TimerRefreshData As Timer Friend WithEvents TimerRefreshData As Timer
Friend WithEvents PictureBoxAbo As PictureBox Friend WithEvents PictureBoxAbo As PictureBox

11
GUIs.ZooFlow/frmFlowForm.resx
View File

@ -1956,14 +1956,11 @@
AMADAADwDwAA AMADAADwDwAA
</value> </value>
</data> </data>
<metadata name="ContextMenuForm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerRefreshData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>461, 17</value> <value>461, 17</value>
</metadata> </metadata>
<metadata name="TimerRefreshData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>615, 17</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>764, 17</value> <value>610, 17</value>
</metadata> </metadata>
<data name="PictureBoxGlobix.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBoxGlobix.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -2041,9 +2038,9 @@
</value> </value>
</data> </data>
<metadata name="TimerCheckActiveForms.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerCheckActiveForms.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>863, 17</value> <value>709, 17</value>
</metadata> </metadata>
<metadata name="TimerCheckDroppedFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerCheckDroppedFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1045, 17</value> <value>891, 17</value>
</metadata> </metadata>
</root> </root>

6
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -203,11 +203,7 @@ Public Class frmFlowForm
Private Sub ZooFlowBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZooFlowBeendenToolStripMenuItem.Click Private Sub ZooFlowBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZooFlowBeendenToolStripMenuItem.Click
ExitZooflow() ExitZooflow()
End Sub End Sub
Private Sub AlleAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleAnzeigenToolStripMenuItem.Click
For Each oControl As Control In Me.Controls
oControl.Visible = True
Next
End Sub
Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click
frmAdministrationZooFlow.Show() frmAdministrationZooFlow.Show()
End Sub End Sub

13
GUIs.ZooFlow/frmSplash.Designer.vb generated
View File

@ -27,7 +27,6 @@ Partial Class frmSplash
Me.txtActionName = New DevExpress.XtraEditors.LabelControl() Me.txtActionName = New DevExpress.XtraEditors.LabelControl()
Me.Version = New DevExpress.XtraEditors.LabelControl() Me.Version = New DevExpress.XtraEditors.LabelControl()
Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl() Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl()
Me.Button1 = New System.Windows.Forms.Button()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.pictureEdit2 = New DevExpress.XtraEditors.PictureEdit() Me.pictureEdit2 = New DevExpress.XtraEditors.PictureEdit()
CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
@ -73,20 +72,12 @@ Partial Class frmSplash
Me.ProgressBarControl1.Size = New System.Drawing.Size(509, 18) Me.ProgressBarControl1.Size = New System.Drawing.Size(509, 18)
Me.ProgressBarControl1.TabIndex = 15 Me.ProgressBarControl1.TabIndex = 15
' '
'Button1
'
Me.Button1.Location = New System.Drawing.Point(446, 141)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 16
Me.Button1.Text = "Stop"
Me.Button1.UseVisualStyleBackColor = True
'
'PictureEdit1 'PictureEdit1
' '
Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object) Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object)
Me.PictureEdit1.Location = New System.Drawing.Point(247, 255) Me.PictureEdit1.Location = New System.Drawing.Point(247, 255)
Me.PictureEdit1.Name = "PictureEdit1" Me.PictureEdit1.Name = "PictureEdit1"
Me.PictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit1.Size = New System.Drawing.Size(274, 53) Me.PictureEdit1.Size = New System.Drawing.Size(274, 53)
@ -116,7 +107,6 @@ Partial Class frmSplash
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(533, 320) Me.ClientSize = New System.Drawing.Size(533, 320)
Me.Controls.Add(Me.PictureEdit1) Me.Controls.Add(Me.PictureEdit1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ProgressBarControl1) Me.Controls.Add(Me.ProgressBarControl1)
Me.Controls.Add(Me.pictureEdit2) Me.Controls.Add(Me.pictureEdit2)
Me.Controls.Add(Me.Version) Me.Controls.Add(Me.Version)
@ -136,6 +126,5 @@ End Sub
Private WithEvents Version As DevExpress.XtraEditors.LabelControl Private WithEvents Version As DevExpress.XtraEditors.LabelControl
Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl
Private WithEvents pictureEdit2 As DevExpress.XtraEditors.PictureEdit Private WithEvents pictureEdit2 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents Button1 As Button
Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit
End Class End Class

4
GUIs.ZooFlow/frmSplash.vb
View File

@ -27,7 +27,5 @@ Public Class frmSplash
SetActionName SetActionName
End Enum End Enum
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox("Stop")
End Sub
End Class End Class

6
GUIs.ZooFlow/modCurrent.vb Normal file
View File

@ -0,0 +1,6 @@
Imports DigitalData.Modules.EDMI.API
Module modCurrent
Public _Client As Client
Public APPSERVER_ACTIVE As Boolean = False
End Module