ms globix config

This commit is contained in:
2022-02-23 13:06:50 +01:00
parent 7a4bee819c
commit ccced62560
13 changed files with 552 additions and 511 deletions

View File

@@ -22,351 +22,337 @@ Partial Class frmGlobixBasicConfig
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobixBasicConfig))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtFolderWatch = New System.Windows.Forms.TextBox()
Me.txtScanFolderWatch = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.Label8 = New System.Windows.Forms.Label()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.btnSaveExclusionFiles = New System.Windows.Forms.Button()
Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.btnstartstop1 = New System.Windows.Forms.Button()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.btnScanfolder = New DevExpress.XtraEditors.SimpleButton()
Me.btnHotfolder = New DevExpress.XtraEditors.SimpleButton()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsinfo = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToggleSwitchHotfolder = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchScanfolder = New DevExpress.XtraEditors.ToggleSwitch()
Me.TextEditScanfolder = New DevExpress.XtraEditors.TextEdit()
Me.TextEditHotfolder = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.btnHotfolder = New DevExpress.XtraEditors.SimpleButton()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
Me.btnScanfolder = New DevExpress.XtraEditors.SimpleButton()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.ToggleSwitch1 = New DevExpress.XtraEditors.ToggleSwitch()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.ToggleSwitch2 = New DevExpress.XtraEditors.ToggleSwitch()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.ToggleSwitchDropArea = New DevExpress.XtraEditors.ToggleSwitch()
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEditHotfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitch1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
CType(Me.ToggleSwitchHotfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchScanfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEditScanfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEditHotfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitch2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchDropArea.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(295, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Definieren Sie hier den Ordner welcher überwacht wird:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 93)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(392, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Definieren Sie hier den Ordner der für Scan2Folder verwendet werden soll:"
'
'txtFolderWatch
'
Me.txtFolderWatch.Location = New System.Drawing.Point(12, 30)
Me.txtFolderWatch.Name = "txtFolderWatch"
Me.txtFolderWatch.Size = New System.Drawing.Size(679, 22)
Me.txtFolderWatch.TabIndex = 2
'
'txtScanFolderWatch
'
Me.txtScanFolderWatch.Location = New System.Drawing.Point(12, 109)
Me.txtScanFolderWatch.Name = "txtScanFolderWatch"
Me.txtScanFolderWatch.Size = New System.Drawing.Size(679, 22)
Me.txtScanFolderWatch.TabIndex = 3
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(697, 30)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(29, 23)
Me.Button1.TabIndex = 4
Me.Button1.Text = "..."
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(697, 107)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(29, 23)
Me.Button2.TabIndex = 5
Me.Button2.Text = "..."
Me.Button2.UseVisualStyleBackColor = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label8.Location = New System.Drawing.Point(9, 186)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(453, 26)
Me.Label8.TabIndex = 16
Me.Label8.Text = "Definieren Sie hier Inhalte von Dateinamen welche von der Folderwatch-Überwachung" &
"" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ausgenommen werden sollen:"
'
'DataGridView1
'
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.DataGridView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Location = New System.Drawing.Point(12, 215)
Me.DataGridView1.Location = New System.Drawing.Point(24, 143)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.Size = New System.Drawing.Size(192, 223)
Me.DataGridView1.TabIndex = 14
'
'btnSaveExclusionFiles
'
Me.btnSaveExclusionFiles.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save_16xLG
Me.btnSaveExclusionFiles.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSaveExclusionFiles.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnSaveExclusionFiles.Location = New System.Drawing.Point(210, 215)
Me.btnSaveExclusionFiles.Name = "btnSaveExclusionFiles"
Me.btnSaveExclusionFiles.Size = New System.Drawing.Size(94, 29)
Me.btnSaveExclusionFiles.TabIndex = 15
Me.btnSaveExclusionFiles.Text = "Speichern"
Me.btnSaveExclusionFiles.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSaveExclusionFiles.UseVisualStyleBackColor = True
'
'btnstartstop2
'
Me.btnstartstop2.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bell_go
Me.btnstartstop2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnstartstop2.Location = New System.Drawing.Point(518, 138)
Me.btnstartstop2.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop2.Name = "btnstartstop2"
Me.btnstartstop2.Size = New System.Drawing.Size(173, 25)
Me.btnstartstop2.TabIndex = 10
Me.btnstartstop2.Text = "Überwachung starten"
Me.btnstartstop2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop2.UseVisualStyleBackColor = True
'
'btnstartstop1
'
Me.btnstartstop1.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bell_go
Me.btnstartstop1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnstartstop1.Location = New System.Drawing.Point(518, 59)
Me.btnstartstop1.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop1.Name = "btnstartstop1"
Me.btnstartstop1.Size = New System.Drawing.Size(173, 25)
Me.btnstartstop1.TabIndex = 6
Me.btnstartstop1.Text = "Überwachung starten"
Me.btnstartstop1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop1.UseVisualStyleBackColor = True
Me.DataGridView1.Size = New System.Drawing.Size(234, 235)
Me.DataGridView1.TabIndex = 7
'
'LayoutControl1
'
Me.LayoutControl1.Controls.Add(Me.ToggleSwitch2)
Me.LayoutControl1.Controls.Add(Me.ToggleSwitch1)
Me.LayoutControl1.Controls.Add(Me.btnScanfolder)
Me.LayoutControl1.Controls.Add(Me.TextEdit1)
Me.LayoutControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LayoutControl1.Controls.Add(Me.PictureEdit1)
Me.LayoutControl1.Controls.Add(Me.ToggleSwitchDropArea)
Me.LayoutControl1.Controls.Add(Me.SimpleButton1)
Me.LayoutControl1.Controls.Add(Me.ToggleSwitchHotfolder)
Me.LayoutControl1.Controls.Add(Me.ToggleSwitchScanfolder)
Me.LayoutControl1.Controls.Add(Me.DataGridView1)
Me.LayoutControl1.Controls.Add(Me.btnScanfolder)
Me.LayoutControl1.Controls.Add(Me.TextEditScanfolder)
Me.LayoutControl1.Controls.Add(Me.btnHotfolder)
Me.LayoutControl1.Controls.Add(Me.TextEditHotfolder)
Me.LayoutControl1.Location = New System.Drawing.Point(357, 214)
Me.LayoutControl1.Location = New System.Drawing.Point(0, -9)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(340, 205)
Me.LayoutControl1.Size = New System.Drawing.Size(798, 442)
Me.LayoutControl1.TabIndex = 17
Me.LayoutControl1.Text = "LayoutControl1"
'
'SimpleButton1
'
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(12, 394)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(258, 36)
Me.SimpleButton1.StyleController = Me.LayoutControl1
Me.SimpleButton1.TabIndex = 8
Me.SimpleButton1.Text = "Speichern"
'
'btnScanfolder
'
Me.btnScanfolder.Location = New System.Drawing.Point(577, 61)
Me.btnScanfolder.Name = "btnScanfolder"
Me.btnScanfolder.Size = New System.Drawing.Size(209, 22)
Me.btnScanfolder.StyleController = Me.LayoutControl1
Me.btnScanfolder.TabIndex = 5
Me.btnScanfolder.Text = "..."
'
'btnHotfolder
'
Me.btnHotfolder.Location = New System.Drawing.Point(577, 12)
Me.btnHotfolder.Name = "btnHotfolder"
Me.btnHotfolder.Size = New System.Drawing.Size(209, 22)
Me.btnHotfolder.StyleController = Me.LayoutControl1
Me.btnHotfolder.TabIndex = 2
Me.btnHotfolder.Text = "..."
'
'Root
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7})
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlGroup1, Me.LayoutControlGroup2})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(340, 205)
Me.Root.Size = New System.Drawing.Size(798, 442)
Me.Root.TextVisible = False
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = False
Me.EmptySpaceItem1.Location = New System.Drawing.Point(262, 382)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(516, 40)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.btnHotfolder
Me.LayoutControlItem2.Location = New System.Drawing.Point(565, 0)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(213, 26)
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem2.TextVisible = False
'
'LayoutControlItem5
'
Me.LayoutControlItem5.Control = Me.btnScanfolder
Me.LayoutControlItem5.Location = New System.Drawing.Point(565, 49)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Size = New System.Drawing.Size(213, 26)
Me.LayoutControlItem5.Text = "..."
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem5.TextVisible = False
'
'LayoutControlItem3
'
Me.LayoutControlItem3.AppearanceItemCaption.Options.UseTextOptions = True
Me.LayoutControlItem3.AppearanceItemCaption.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center
Me.LayoutControlItem3.Control = Me.DataGridView1
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Size = New System.Drawing.Size(238, 239)
Me.LayoutControlItem3.Text = "Blacklist Folderwatchfiles"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem3.TextVisible = False
'
'LayoutControlItem8
'
Me.LayoutControlItem8.Control = Me.SimpleButton1
Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 382)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Size = New System.Drawing.Size(262, 40)
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem8.TextVisible = False
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsinfo})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 428)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(800, 22)
Me.StatusStrip1.TabIndex = 18
Me.StatusStrip1.Text = "StatusStrip1"
'
'tsinfo
'
Me.tsinfo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.StatusAnnotations_Information_16xLG_color
Me.tsinfo.Name = "tsinfo"
Me.tsinfo.Size = New System.Drawing.Size(16, 17)
'
'ToggleSwitchHotfolder
'
Me.ToggleSwitchHotfolder.Location = New System.Drawing.Point(12, 38)
Me.ToggleSwitchHotfolder.Name = "ToggleSwitchHotfolder"
Me.ToggleSwitchHotfolder.Properties.OffText = "Überwachung starten"
Me.ToggleSwitchHotfolder.Properties.OnText = "Überwachung aktiv"
Me.ToggleSwitchHotfolder.Size = New System.Drawing.Size(774, 19)
Me.ToggleSwitchHotfolder.StyleController = Me.LayoutControl1
Me.ToggleSwitchHotfolder.TabIndex = 3
'
'ToggleSwitchScanfolder
'
Me.ToggleSwitchScanfolder.Location = New System.Drawing.Point(12, 87)
Me.ToggleSwitchScanfolder.Name = "ToggleSwitchScanfolder"
Me.ToggleSwitchScanfolder.Properties.OffText = "Scanfolder überwachen"
Me.ToggleSwitchScanfolder.Properties.OnText = "Überwachung aktiv"
Me.ToggleSwitchScanfolder.Size = New System.Drawing.Size(774, 19)
Me.ToggleSwitchScanfolder.StyleController = Me.LayoutControl1
Me.ToggleSwitchScanfolder.TabIndex = 6
'
'TextEditScanfolder
'
Me.TextEditScanfolder.Location = New System.Drawing.Point(96, 61)
Me.TextEditScanfolder.Name = "TextEditScanfolder"
Me.TextEditScanfolder.Size = New System.Drawing.Size(477, 20)
Me.TextEditScanfolder.StyleController = Me.LayoutControl1
Me.TextEditScanfolder.TabIndex = 4
'
'TextEditHotfolder
'
Me.TextEditHotfolder.Location = New System.Drawing.Point(96, 12)
Me.TextEditHotfolder.Name = "TextEditHotfolder"
Me.TextEditHotfolder.Size = New System.Drawing.Size(146, 20)
Me.TextEditHotfolder.Size = New System.Drawing.Size(477, 20)
Me.TextEditHotfolder.StyleController = Me.LayoutControl1
Me.TextEditHotfolder.TabIndex = 4
Me.TextEditHotfolder.TabIndex = 0
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.TextEditHotfolder
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Size = New System.Drawing.Size(234, 26)
Me.LayoutControlItem1.Size = New System.Drawing.Size(565, 26)
Me.LayoutControlItem1.Text = "Ihr Hotfolder"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(72, 13)
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = False
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 138)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(320, 47)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'btnHotfolder
'
Me.btnHotfolder.Location = New System.Drawing.Point(246, 12)
Me.btnHotfolder.Name = "btnHotfolder"
Me.btnHotfolder.Size = New System.Drawing.Size(82, 22)
Me.btnHotfolder.StyleController = Me.LayoutControl1
Me.btnHotfolder.TabIndex = 5
Me.btnHotfolder.Text = "..."
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.btnHotfolder
Me.LayoutControlItem2.Location = New System.Drawing.Point(234, 0)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(86, 26)
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem2.TextVisible = False
'
'SimpleButton1
'
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(12, 38)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(316, 36)
Me.SimpleButton1.StyleController = Me.LayoutControl1
Me.SimpleButton1.TabIndex = 6
Me.SimpleButton1.Text = "Überwachung Hofolder starten"
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.SimpleButton1
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 26)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Size = New System.Drawing.Size(320, 40)
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem3.TextVisible = False
'
'TextEdit1
'
Me.TextEdit1.Location = New System.Drawing.Point(96, 101)
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Size = New System.Drawing.Size(146, 20)
Me.TextEdit1.StyleController = Me.LayoutControl1
Me.TextEdit1.TabIndex = 7
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.TextEdit1
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 89)
Me.LayoutControlItem4.Control = Me.TextEditScanfolder
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 49)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Size = New System.Drawing.Size(234, 26)
Me.LayoutControlItem4.Size = New System.Drawing.Size(565, 26)
Me.LayoutControlItem4.Text = "Ihr Scanfolder"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(72, 13)
'
'btnScanfolder
'
Me.btnScanfolder.Location = New System.Drawing.Point(246, 101)
Me.btnScanfolder.Name = "btnScanfolder"
Me.btnScanfolder.Size = New System.Drawing.Size(82, 22)
Me.btnScanfolder.StyleController = Me.LayoutControl1
Me.btnScanfolder.TabIndex = 8
Me.btnScanfolder.Text = "..."
'
'LayoutControlItem5
'
Me.LayoutControlItem5.Control = Me.btnScanfolder
Me.LayoutControlItem5.Location = New System.Drawing.Point(234, 89)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Size = New System.Drawing.Size(86, 26)
Me.LayoutControlItem5.Text = "..."
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem5.TextVisible = False
'
'ToggleSwitch1
'
Me.ToggleSwitch1.Location = New System.Drawing.Point(12, 127)
Me.ToggleSwitch1.Name = "ToggleSwitch1"
Me.ToggleSwitch1.Properties.OffText = "Scanfolder überwachen"
Me.ToggleSwitch1.Properties.OnText = "Überwachung aktiv"
Me.ToggleSwitch1.Size = New System.Drawing.Size(316, 19)
Me.ToggleSwitch1.StyleController = Me.LayoutControl1
Me.ToggleSwitch1.TabIndex = 9
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.ToggleSwitch1
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 115)
Me.LayoutControlItem6.Control = Me.ToggleSwitchScanfolder
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 75)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Size = New System.Drawing.Size(320, 23)
Me.LayoutControlItem6.Size = New System.Drawing.Size(778, 23)
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem6.TextVisible = False
'
'ToggleSwitch2
'
Me.ToggleSwitch2.Location = New System.Drawing.Point(12, 78)
Me.ToggleSwitch2.Name = "ToggleSwitch2"
Me.ToggleSwitch2.Properties.OffText = "Überwachung starten"
Me.ToggleSwitch2.Properties.OnText = "Überwachung aktiv"
Me.ToggleSwitch2.Size = New System.Drawing.Size(316, 19)
Me.ToggleSwitch2.StyleController = Me.LayoutControl1
Me.ToggleSwitch2.TabIndex = 10
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.ToggleSwitch2
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 66)
Me.LayoutControlItem7.Control = Me.ToggleSwitchHotfolder
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 26)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Size = New System.Drawing.Size(320, 23)
Me.LayoutControlItem7.Size = New System.Drawing.Size(778, 23)
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem7.TextVisible = False
'
'ToggleSwitchDropArea
'
Me.ToggleSwitchDropArea.Location = New System.Drawing.Point(286, 143)
Me.ToggleSwitchDropArea.Name = "ToggleSwitchDropArea"
Me.ToggleSwitchDropArea.Properties.OffText = "Progressiv"
Me.ToggleSwitchDropArea.Properties.OnText = "Gemässigt"
Me.ToggleSwitchDropArea.Size = New System.Drawing.Size(488, 19)
Me.ToggleSwitchDropArea.StyleController = Me.LayoutControl1
Me.ToggleSwitchDropArea.TabIndex = 10
'
'LayoutControlItem10
'
Me.LayoutControlItem10.Control = Me.ToggleSwitchDropArea
Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Size = New System.Drawing.Size(492, 23)
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem10.TextVisible = False
'
'PictureEdit1
'
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3
Me.PictureEdit1.Location = New System.Drawing.Point(286, 166)
Me.PictureEdit1.Name = "PictureEdit1"
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit1.Size = New System.Drawing.Size(488, 212)
Me.PictureEdit1.StyleController = Me.LayoutControl1
Me.PictureEdit1.TabIndex = 11
'
'LayoutControlItem11
'
Me.LayoutControlItem11.AppearanceItemCaption.Options.UseTextOptions = True
Me.LayoutControlItem11.AppearanceItemCaption.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center
Me.LayoutControlItem11.Control = Me.PictureEdit1
Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 23)
Me.LayoutControlItem11.Name = "LayoutControlItem11"
Me.LayoutControlItem11.Size = New System.Drawing.Size(492, 216)
Me.LayoutControlItem11.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize
Me.LayoutControlItem11.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem11.TextToControlDistance = 0
Me.LayoutControlItem11.TextVisible = False
'
'LayoutControlGroup1
'
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3})
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 98)
Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Size = New System.Drawing.Size(262, 284)
Me.LayoutControlGroup1.Text = "Blacklist Folderwatch-Files"
'
'LayoutControlGroup2
'
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem11})
Me.LayoutControlGroup2.Location = New System.Drawing.Point(262, 98)
Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
Me.LayoutControlGroup2.Size = New System.Drawing.Size(516, 284)
Me.LayoutControlGroup2.Text = "Darstellung Drop-Area"
'
'frmGlobixBasicConfig
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.LayoutControl1)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.DataGridView1)
Me.Controls.Add(Me.btnSaveExclusionFiles)
Me.Controls.Add(Me.btnstartstop2)
Me.Controls.Add(Me.btnstartstop1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.txtScanFolderWatch)
Me.Controls.Add(Me.txtFolderWatch)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.IconOptions.SvgImage = CType(resources.GetObject("frmGlobixBasicConfig.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.MaximizeBox = False
@@ -378,50 +364,57 @@ Partial Class frmGlobixBasicConfig
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEditHotfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitch1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
CType(Me.ToggleSwitchHotfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchScanfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEditScanfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEditHotfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitch2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchDropArea.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtFolderWatch As TextBox
Friend WithEvents txtScanFolderWatch As TextBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents btnstartstop1 As Button
Friend WithEvents btnstartstop2 As Button
Friend WithEvents Label8 As Label
Friend WithEvents DataGridView1 As DataGridView
Friend WithEvents btnSaveExclusionFiles As Button
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents ToggleSwitch2 As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents ToggleSwitch1 As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents ToggleSwitchHotfolder As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents ToggleSwitchScanfolder As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents btnScanfolder As DevExpress.XtraEditors.SimpleButton
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents TextEditScanfolder As DevExpress.XtraEditors.TextEdit
Friend WithEvents btnHotfolder As DevExpress.XtraEditors.SimpleButton
Friend WithEvents TextEditHotfolder As DevExpress.XtraEditors.TextEdit
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents tsinfo As ToolStripStatusLabel
Friend WithEvents ToggleSwitchDropArea As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup
End Class

View File

@@ -125,22 +125,24 @@
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPICAAAC77u/
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
QmxhY2t7ZmlsbDojNzI3MjcyO30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5vdFN0YXJ0ZWQiPg0KICAgIDxw
YXRoIGQ9Ik0xNiwxNC4yVjhoLTJ2Ni4yYy0xLjIsMC40LTIsMS41LTIsMi44YzAsMS43LDEuMywzLDMs
M3MzLTEuMywzLTNDMTgsMTUuNywxNy4yLDE0LjYsMTYsMTQuMnoiIGNsYXNzPSJCbGFjayIgLz4NCiAg
ICA8cGF0aCBkPSJNMTcuNyw0LjNDMTcuOSwzLjksMTgsMy41LDE4LDNjMC0xLjctMS4zLTMtMy0zcy0z
LDEuMy0zLDNjMCwwLjUsMC4xLDAuOSwwLjMsMS4zQzYuNCw1LjUsMiwxMC43LDIsMTcgICBjMCw3LjIs
NS44LDEzLDEzLDEzczEzLTUuOCwxMy0xM0MyOCwxMC43LDIzLjYsNS41LDE3LjcsNC4zeiBNMTUsMjhD
OC45LDI4LDQsMjMuMSw0LDE3UzguOSw2LDE1LDZzMTEsNC45LDExLDExUzIxLjEsMjgsMTUsMjh6IiBj
bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku
WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4
N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk
aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI
OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW
NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog
TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>159, 17</value>
</metadata>
<data name="frmGlobixBasicConfig.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40

View File

@@ -1,4 +1,5 @@
Imports DigitalData.Modules.Logging
Imports DevExpress.XtraEditors
Imports DigitalData.Modules.Logging
Public Class frmGlobixBasicConfig
Private Logger As Logger
@@ -13,25 +14,8 @@ Public Class frmGlobixBasicConfig
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim fbdialog As New FolderBrowserDialog
If txtFolderWatch.Text <> "" Then
fbdialog.SelectedPath = txtFolderWatch.Text
End If
If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath, "DEFAULT")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim fbdialog As New FolderBrowserDialog
If txtScanFolderWatch.Text <> "" Then
fbdialog.SelectedPath = txtScanFolderWatch.Text
End If
If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath, "SCAN")
End If
End Sub
Sub CheckFolder(pMypath As String, FOLDER_TYPE As String)
Try
If pMypath = "" Then
@@ -79,10 +63,10 @@ Public Class frmGlobixBasicConfig
If FOLDER_TYPE = "SCAN" Then
My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = folderwatch
Me.txtScanFolderWatch.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
Me.TextEditScanfolder.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
Else
My.Application.Globix.CurrentFolderWatchPath = folderwatch
Me.txtFolderWatch.Text = My.Application.Globix.CurrentFolderWatchPath
Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath
End If
End If
If My.Application.Globix.Folderwatchstarted = True And FOLDER_TYPE = "DEFAULT" Then
@@ -106,114 +90,116 @@ Public Class frmGlobixBasicConfig
If oFolderwatch IsNot Nothing Then
My.Application.Globix.CurrentFolderWatchPath = oFolderwatch
End If
Me.txtFolderWatch.Text = My.Application.Globix.CurrentFolderWatchPath
Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath
Dim oSCANFolderwatch = My.DatabaseECM.GetScalarValue("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & My.Application.User.UserId)
If oSCANFolderwatch IsNot Nothing Then
My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = oSCANFolderwatch
End If
Me.txtFolderWatch.Text = My.Application.Globix.CurrentFolderWatchPath
Me.txtScanFolderWatch.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath
Me.TextEditScanfolder.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH
If Not ClassFolderwatcher.FWFolderWatcher Is Nothing Then
If ClassFolderwatcher.FWFolderWatcher.EnableRaisingEvents = True Then
If My.Application.User.Language = "de-DE" Then
btnstartstop1.Text = "Überwachung stoppen"
Else
btnstartstop1.Text = "Stop hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_delete
ToggleSwitchScanfolder.IsOn = True
Else
If My.Application.User.Language = "de-DE" Then
btnstartstop1.Text = "Überwachung starten"
Else
btnstartstop1.Text = "Start hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_go
ToggleSwitchScanfolder.IsOn = False
End If
Else
If My.Application.User.Language = "de-DE" Then
btnstartstop1.Text = "Überwachung starten"
Else
btnstartstop1.Text = "Start hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_go
ToggleSwitchScanfolder.IsOn = False
End If
If Not ClassFolderwatcher.FWScan Is Nothing Then
If ClassFolderwatcher.FWScan.EnableRaisingEvents = True Then
If My.Application.User.Language = "de-DE" Then
btnstartstop2.Text = "Überwachung stoppen"
Else
btnstartstop2.Text = "Stop hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_delete
ToggleSwitchScanfolder.IsOn = True
Else
If My.Application.User.Language = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
Else
btnstartstop2.Text = "Stop hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_go
ToggleSwitchScanfolder.IsOn = False
End If
Else
If My.Application.User.Language = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
Else
btnstartstop2.Text = "Stop hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_go
ToggleSwitchScanfolder.IsOn = False
End If
oReload = False
Me.DataGridView1.DataSource = My.Application.Globix.DTEXCLUDE_FILES
If My.Application.GlobixDropAreaStyle = "PROGRESSIVE" Then
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3
ToggleSwitchDropArea.IsOn = False
Else
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP2
ToggleSwitchDropArea.IsOn = True
End If
Catch ex As Exception
End Try
End Sub
Private Sub txtFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtFolderWatch.TextChanged
If oReload = True Then Exit Sub
CheckFolder(txtFolderWatch.Text, "DEFAULT")
Sub CheckFWSCAN_State()
Select Case clsFW.StartStop_FolderWatchSCAN()
Case 1
ToggleSwitchHotfolder.IsOn = True
Case 0
ToggleSwitchHotfolder.IsOn = False
End Select
End Sub
Private Sub txtScanFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtScanFolderWatch.TextChanged
If oReload = True Then Exit Sub
CheckFolder(txtScanFolderWatch.Text, "SCAN")
End Sub
Private Sub btnSaveExclusionFiles_Click(sender As Object, e As EventArgs) Handles btnSaveExclusionFiles.Click
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
My.Application.Globix.DTEXCLUDE_FILES.AcceptChanges()
My.Application.Globix.DTEXCLUDE_FILES.WriteXml(My.Application.Globix.PATH_FileExclusions)
MsgBox("Changes saved.", MsgBoxStyle.Information)
End Sub
Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH <> "" Then
CheckFWSCAN_State()
Private Sub btnScanfolder_Click(sender As Object, e As EventArgs) Handles btnScanfolder.Click
Dim fbdialog As New FolderBrowserDialog
If TextEditScanfolder.Text <> "" Then
fbdialog.SelectedPath = TextEditScanfolder.Text
End If
If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath, "SCAN")
End If
End Sub
Sub CheckFWSCAN_State()
Select Case clsFW.StartStop_FolderWatchSCAN()
Case 1
If My.Application.User.Language = "de-DE" Then
btnstartstop2.Text = "Überwachung stoppen"
Else
btnstartstop2.Text = "Stop Hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_delete
Case 0
If My.Application.User.Language = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
Else
btnstartstop2.Text = "Start Hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_go
End Select
Private Sub ToggleSwitch1_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchScanfolder.Toggled
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
If oToggle.IsOn Then
If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH <> "" Then
CheckFWSCAN_State()
End If
End If
End Sub
Private Sub btnHotfolder_Click(sender As Object, e As EventArgs) Handles btnHotfolder.Click
Dim fbdialog As New FolderBrowserDialog
If TextEditHotfolder.Text <> "" Then
fbdialog.SelectedPath = TextEditHotfolder.Text
End If
If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath, "DEFAULT")
End If
End Sub
Private Sub ToggleSwitch1_Toggled_1(sender As Object, e As EventArgs) Handles ToggleSwitchDropArea.Toggled
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
If oToggle.IsOn Then
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP2
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = 'ALTERNATIVE'
WHERE USR_ID = {My.Application.User.UserId} AND CAT_TITLE = '{ClassConstants.USER_CATALOG_GLOBIX_DROPAREA}'"
If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
My.Application.GlobixDropAreaStyle = "ALTERNATIVE"
tsinfo.Text = "DropArea-Theme saved!"
End If
Else
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3
Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = 'PROGRESSIVE'
WHERE USR_ID = {My.Application.User.UserId} AND CAT_TITLE = '{ClassConstants.USER_CATALOG_GLOBIX_DROPAREA}'"
If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then
My.Application.GlobixDropAreaStyle = "PROGRESSIVE"
tsinfo.Text = "DropArea-Theme saved to progressive!"
End If
End If
End Sub
End Class