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

MS

Browse Source
This commit is contained in:
SchreiberM 2022-03-17 16:12:16 +01:00
commit ab1d203c67
3 changed files with 27 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.ZooFlow/ClassModules.vb
View File

@ -69,12 +69,12 @@ Public Class ClassModules
End Function End Function
Private Function GetProductPathFor(pProduct As Product, pSubKey As String) As String Private Function GetProductPathFor(pProduct As Product, pSubKey As String) As String
Dim oPathFromRegistry = GetProductPathFromRegistryFor(pSubKey) Dim oPathFromConfig = GetProductPathFromConfig(pProduct)
If oPathFromRegistry IsNot Nothing Then If oPathFromConfig IsNot Nothing Then
Return oPathFromRegistry Return oPathFromConfig
Else Else
Return GetProductPathFromConfig(pProduct) Return GetProductPathFromRegistryFor(pSubKey)
End If End If
End Function End Function

59
GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb generated
View File

@ -58,9 +58,8 @@ Partial Class frmFlowSearch1
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox() Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox()
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.txtSearchInput = New System.Windows.Forms.TextBox()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() Me.txtSearchInput = New DevExpress.XtraEditors.TextEdit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DockPanel1.SuspendLayout() Me.DockPanel1.SuspendLayout()
@ -82,7 +81,7 @@ Partial Class frmFlowSearch1
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'RibbonControl1 'RibbonControl1
@ -263,7 +262,7 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchMonth_Last.Name = "ToggleSwitchMonth_Last" Me.ToggleSwitchMonth_Last.Name = "ToggleSwitchMonth_Last"
Me.ToggleSwitchMonth_Last.Properties.OffText = "Letzter Monat" Me.ToggleSwitchMonth_Last.Properties.OffText = "Letzter Monat"
Me.ToggleSwitchMonth_Last.Properties.OnText = "Letzter Monat" Me.ToggleSwitchMonth_Last.Properties.OnText = "Letzter Monat"
Me.ToggleSwitchMonth_Last.Size = New System.Drawing.Size(195, 18) Me.ToggleSwitchMonth_Last.Size = New System.Drawing.Size(195, 19)
Me.ToggleSwitchMonth_Last.TabIndex = 9 Me.ToggleSwitchMonth_Last.TabIndex = 9
' '
'ToggleSwitchDateto 'ToggleSwitchDateto
@ -273,14 +272,14 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto" Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto"
Me.ToggleSwitchDateto.Properties.OffText = "Datum bis" Me.ToggleSwitchDateto.Properties.OffText = "Datum bis"
Me.ToggleSwitchDateto.Properties.OnText = "Datum bis" Me.ToggleSwitchDateto.Properties.OnText = "Datum bis"
Me.ToggleSwitchDateto.Size = New System.Drawing.Size(122, 18) Me.ToggleSwitchDateto.Size = New System.Drawing.Size(122, 19)
Me.ToggleSwitchDateto.TabIndex = 0 Me.ToggleSwitchDateto.TabIndex = 0
' '
'lblDatefrom 'lblDatefrom
' '
Me.lblDatefrom.Location = New System.Drawing.Point(3, 211) Me.lblDatefrom.Location = New System.Drawing.Point(3, 211)
Me.lblDatefrom.Name = "lblDatefrom" Me.lblDatefrom.Name = "lblDatefrom"
Me.lblDatefrom.Size = New System.Drawing.Size(31, 13) Me.lblDatefrom.Size = New System.Drawing.Size(34, 13)
Me.lblDatefrom.TabIndex = 3 Me.lblDatefrom.TabIndex = 3
Me.lblDatefrom.Text = "Datum" Me.lblDatefrom.Text = "Datum"
' '
@ -304,7 +303,7 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchMonth.Name = "ToggleSwitchMonth" Me.ToggleSwitchMonth.Name = "ToggleSwitchMonth"
Me.ToggleSwitchMonth.Properties.OffText = "Dieser Monat" Me.ToggleSwitchMonth.Properties.OffText = "Dieser Monat"
Me.ToggleSwitchMonth.Properties.OnText = "Dieser Monat" Me.ToggleSwitchMonth.Properties.OnText = "Dieser Monat"
Me.ToggleSwitchMonth.Size = New System.Drawing.Size(195, 18) Me.ToggleSwitchMonth.Size = New System.Drawing.Size(195, 19)
Me.ToggleSwitchMonth.TabIndex = 8 Me.ToggleSwitchMonth.TabIndex = 8
' '
'ToggleSwitchTomorrow 'ToggleSwitchTomorrow
@ -314,7 +313,7 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchTomorrow.Name = "ToggleSwitchTomorrow" Me.ToggleSwitchTomorrow.Name = "ToggleSwitchTomorrow"
Me.ToggleSwitchTomorrow.Properties.OffText = "Morgen" Me.ToggleSwitchTomorrow.Properties.OffText = "Morgen"
Me.ToggleSwitchTomorrow.Properties.OnText = "Morgen" Me.ToggleSwitchTomorrow.Properties.OnText = "Morgen"
Me.ToggleSwitchTomorrow.Size = New System.Drawing.Size(95, 18) Me.ToggleSwitchTomorrow.Size = New System.Drawing.Size(95, 19)
Me.ToggleSwitchTomorrow.TabIndex = 7 Me.ToggleSwitchTomorrow.TabIndex = 7
Me.ToggleSwitchTomorrow.Visible = False Me.ToggleSwitchTomorrow.Visible = False
' '
@ -325,7 +324,7 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchToday.Name = "ToggleSwitchToday" Me.ToggleSwitchToday.Name = "ToggleSwitchToday"
Me.ToggleSwitchToday.Properties.OffText = "Heute" Me.ToggleSwitchToday.Properties.OffText = "Heute"
Me.ToggleSwitchToday.Properties.OnText = "Heute" Me.ToggleSwitchToday.Properties.OnText = "Heute"
Me.ToggleSwitchToday.Size = New System.Drawing.Size(95, 18) Me.ToggleSwitchToday.Size = New System.Drawing.Size(95, 19)
Me.ToggleSwitchToday.TabIndex = 2 Me.ToggleSwitchToday.TabIndex = 2
' '
'ToggleSwitchLastWeek 'ToggleSwitchLastWeek
@ -335,7 +334,7 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchLastWeek.Name = "ToggleSwitchLastWeek" Me.ToggleSwitchLastWeek.Name = "ToggleSwitchLastWeek"
Me.ToggleSwitchLastWeek.Properties.OffText = "Letzten 7 Tage" Me.ToggleSwitchLastWeek.Properties.OffText = "Letzten 7 Tage"
Me.ToggleSwitchLastWeek.Properties.OnText = "Letzten 7 Tage" Me.ToggleSwitchLastWeek.Properties.OnText = "Letzten 7 Tage"
Me.ToggleSwitchLastWeek.Size = New System.Drawing.Size(195, 18) Me.ToggleSwitchLastWeek.Size = New System.Drawing.Size(195, 19)
Me.ToggleSwitchLastWeek.TabIndex = 6 Me.ToggleSwitchLastWeek.TabIndex = 6
' '
'ToggleSwitchYesterday 'ToggleSwitchYesterday
@ -345,7 +344,7 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday" Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday"
Me.ToggleSwitchYesterday.Properties.OffText = "Gestern" Me.ToggleSwitchYesterday.Properties.OffText = "Gestern"
Me.ToggleSwitchYesterday.Properties.OnText = "Gestern" Me.ToggleSwitchYesterday.Properties.OnText = "Gestern"
Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(95, 18) Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(95, 19)
Me.ToggleSwitchYesterday.TabIndex = 3 Me.ToggleSwitchYesterday.TabIndex = 3
' '
'ToggleSwitchYear_Last 'ToggleSwitchYear_Last
@ -355,7 +354,7 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchYear_Last.Name = "ToggleSwitchYear_Last" Me.ToggleSwitchYear_Last.Name = "ToggleSwitchYear_Last"
Me.ToggleSwitchYear_Last.Properties.OffText = "Letztes Jahr" Me.ToggleSwitchYear_Last.Properties.OffText = "Letztes Jahr"
Me.ToggleSwitchYear_Last.Properties.OnText = "Letztes Jahr" Me.ToggleSwitchYear_Last.Properties.OnText = "Letztes Jahr"
Me.ToggleSwitchYear_Last.Size = New System.Drawing.Size(195, 18) Me.ToggleSwitchYear_Last.Size = New System.Drawing.Size(195, 19)
Me.ToggleSwitchYear_Last.TabIndex = 5 Me.ToggleSwitchYear_Last.TabIndex = 5
' '
'ToggleSwitchYear 'ToggleSwitchYear
@ -365,7 +364,7 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchYear.Name = "ToggleSwitchYear" Me.ToggleSwitchYear.Name = "ToggleSwitchYear"
Me.ToggleSwitchYear.Properties.OffText = "Dieses Jahr" Me.ToggleSwitchYear.Properties.OffText = "Dieses Jahr"
Me.ToggleSwitchYear.Properties.OnText = "Dieses Jahr" Me.ToggleSwitchYear.Properties.OnText = "Dieses Jahr"
Me.ToggleSwitchYear.Size = New System.Drawing.Size(195, 18) Me.ToggleSwitchYear.Size = New System.Drawing.Size(195, 19)
Me.ToggleSwitchYear.TabIndex = 4 Me.ToggleSwitchYear.TabIndex = 4
' '
'XtraTabPage2 'XtraTabPage2
@ -379,7 +378,7 @@ Partial Class frmFlowSearch1
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(4, 8) Me.Label1.Location = New System.Drawing.Point(4, 8)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 13) Me.Label1.Size = New System.Drawing.Size(47, 13)
Me.Label1.TabIndex = 0 Me.Label1.TabIndex = 0
Me.Label1.Text = "Attribut" Me.Label1.Text = "Attribut"
' '
@ -401,16 +400,6 @@ Partial Class frmFlowSearch1
Me.LabelControl1.TabIndex = 3 Me.LabelControl1.TabIndex = 3
Me.LabelControl1.Text = "Suchbegriff:" Me.LabelControl1.Text = "Suchbegriff:"
' '
'txtSearchInput
'
Me.txtSearchInput.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtSearchInput.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSearchInput.Location = New System.Drawing.Point(231, 189)
Me.txtSearchInput.Name = "txtSearchInput"
Me.txtSearchInput.Size = New System.Drawing.Size(693, 25)
Me.txtSearchInput.TabIndex = 4
'
'PictureEdit1 'PictureEdit1
' '
Me.PictureEdit1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.PictureEdit1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@ -429,14 +418,14 @@ Partial Class frmFlowSearch1
Me.PictureEdit1.Size = New System.Drawing.Size(208, 200) Me.PictureEdit1.Size = New System.Drawing.Size(208, 200)
Me.PictureEdit1.TabIndex = 8 Me.PictureEdit1.TabIndex = 8
' '
'TextEdit1 'txtSearchInput
' '
Me.TextEdit1.Location = New System.Drawing.Point(231, 220) Me.txtSearchInput.Location = New System.Drawing.Point(227, 189)
Me.TextEdit1.MenuManager = Me.RibbonControl1 Me.txtSearchInput.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1" Me.txtSearchInput.Name = "txtSearchInput"
Me.TextEdit1.Properties.Padding = New System.Windows.Forms.Padding(10) Me.txtSearchInput.Properties.Padding = New System.Windows.Forms.Padding(10)
Me.TextEdit1.Size = New System.Drawing.Size(528, 40) Me.txtSearchInput.Size = New System.Drawing.Size(697, 40)
Me.TextEdit1.TabIndex = 12 Me.txtSearchInput.TabIndex = 12
' '
'frmFlowSearch1 'frmFlowSearch1
' '
@ -445,9 +434,8 @@ Partial Class frmFlowSearch1
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(936, 769) Me.ClientSize = New System.Drawing.Size(936, 769)
Me.Controls.Add(Me.TextEdit1)
Me.Controls.Add(Me.PictureEdit1)
Me.Controls.Add(Me.txtSearchInput) Me.Controls.Add(Me.txtSearchInput)
Me.Controls.Add(Me.PictureEdit1)
Me.Controls.Add(Me.LabelControl1) Me.Controls.Add(Me.LabelControl1)
Me.Controls.Add(Me.DockPanel1) Me.Controls.Add(Me.DockPanel1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
@ -480,7 +468,7 @@ Partial Class frmFlowSearch1
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -505,7 +493,6 @@ Partial Class frmFlowSearch1
Friend WithEvents ToggleSwitchMonth As DevExpress.XtraEditors.ToggleSwitch Friend WithEvents ToggleSwitchMonth As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents txtSearchInput As TextBox
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents bsiStatus As DevExpress.XtraBars.BarStaticItem Friend WithEvents bsiStatus As DevExpress.XtraBars.BarStaticItem
Friend WithEvents ToggleSwitchYear As DevExpress.XtraEditors.ToggleSwitch Friend WithEvents ToggleSwitchYear As DevExpress.XtraEditors.ToggleSwitch
@ -522,5 +509,5 @@ Partial Class frmFlowSearch1
Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit
Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit
Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit Friend WithEvents txtSearchInput As DevExpress.XtraEditors.TextEdit
End Class End Class

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

@ -133,9 +133,6 @@ Partial Class frmFlowForm
Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22) Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden" Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
' '
'TimerRefreshData
'
'
'PictureBoxPM 'PictureBoxPM
' '
Me.PictureBoxPM.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.PictureBoxPM.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)