MS kleine Dinge

2020-11-09 17:38:43 +01:00
parent 88edadc816
commit 9f89961957
11 changed files with 267 additions and 143 deletions
--- a/GUIs.ZooFlow/frmSearchStart.Designer.vb
+++ b/GUIs.ZooFlow/frmSearchStart.Designer.vb
@@ -65,24 +65,26 @@ Partial Class frmSearchStart
        Me.ContextMenuStripMultiselect = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.MehrfachauswahlAktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.MehrfachauswahlInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
-        CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.RepositoryItemRadioGroup1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.Panel1.SuspendLayout
-        CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.XtraTabControl1.SuspendLayout
-        CType(Me.GridControlSerchTerms,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.ContextMenuStripSearchTerms.SuspendLayout
-        CType(Me.GridViewSearchTerms,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.SplitContainerControlSearch,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SplitContainerControlSearch.SuspendLayout
-        Me.ContextMenuStripMultiselect.SuspendLayout
-        Me.SuspendLayout
+        Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControl1.SuspendLayout()
+        CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStripSearchTerms.SuspendLayout()
+        CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControlSearch.SuspendLayout()
+        Me.ContextMenuStripMultiselect.SuspendLayout()
+        CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
        '
        'RibbonControl1
        '
-        Me.RibbonControl1.AutoSizeItems = true
+        Me.RibbonControl1.AutoSizeItems = True
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonItem4})
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
@@ -98,14 +100,14 @@ Partial Class frmSearchStart
        '
        Me.BarButtonItemNewSearch.Caption = "Neue Suche"
        Me.BarButtonItemNewSearch.Id = 1
-        Me.BarButtonItemNewSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemNewSearch.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItemNewSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemNewSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.BarButtonItemNewSearch.Name = "BarButtonItemNewSearch"
        '
        'BarButtonItem2
        '
        Me.BarButtonItem2.Caption = "Suchprofil speichern"
        Me.BarButtonItem2.Id = 2
-        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.BarButtonItem2.Name = "BarButtonItem2"
        Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
        '
@@ -130,7 +132,7 @@ Partial Class frmSearchStart
        '
        Me.BarButtonItem1.Caption = "Suche leeren"
        Me.BarButtonItem1.Id = 5
-        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.BarButtonItem1.Name = "BarButtonItem1"
        '
        'BarButtonItem3
@@ -144,12 +146,12 @@ Partial Class frmSearchStart
        Me.BarEditItem2.Caption = "Suchen"
        Me.BarEditItem2.Edit = Me.RepositoryItemComboBox1
        Me.BarEditItem2.Id = 7
-        Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarEditItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarEditItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.BarEditItem2.Name = "BarEditItem2"
        '
        'RepositoryItemComboBox1
        '
-        Me.RepositoryItemComboBox1.AutoHeight = false
+        Me.RepositoryItemComboBox1.AutoHeight = False
        Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
        Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
        '
@@ -160,9 +162,9 @@ Partial Class frmSearchStart
        '
        'BarButtonItem4
        '
-        Me.BarButtonItem4.Caption = "Suche starten"
+        Me.BarButtonItem4.Caption = "Suche starten (F2)"
        Me.BarButtonItem4.Id = 9
-        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.BarButtonItem4.Name = "BarButtonItem4"
        '
        'RibbonPage1
@@ -200,7 +202,7 @@ Partial Class frmSearchStart
        Me.Panel1.Controls.Add(Me.cmbProfile)
        Me.Panel1.Controls.Add(Me.Label1)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+        Me.Panel1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Panel1.Location = New System.Drawing.Point(0, 159)
        Me.Panel1.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
        Me.Panel1.Name = "Panel1"
@@ -209,10 +211,10 @@ Partial Class frmSearchStart
        '
        'cmbProfile
        '
-        Me.cmbProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left)  _
-            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+        Me.cmbProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.cmbProfile.DisplayMember = "DOKART_ID"
-        Me.cmbProfile.FormattingEnabled = true
+        Me.cmbProfile.FormattingEnabled = True
        Me.cmbProfile.Location = New System.Drawing.Point(3, 23)
        Me.cmbProfile.Name = "cmbProfile"
        Me.cmbProfile.Size = New System.Drawing.Size(1065, 21)
@@ -221,7 +223,7 @@ Partial Class frmSearchStart
        '
        'Label1
        '
-        Me.Label1.AutoSize = true
+        Me.Label1.AutoSize = True
        Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.Label1.Location = New System.Drawing.Point(3, 3)
        Me.Label1.Name = "Label1"
@@ -344,23 +346,23 @@ Partial Class frmSearchStart
        '
        'GridViewSearchTerms
        '
-        Me.GridViewSearchTerms.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(236,Byte),Integer), CType(CType(233,Byte),Integer), CType(CType(125,Byte),Integer))
-        Me.GridViewSearchTerms.Appearance.EvenRow.Options.UseBackColor = true
+        Me.GridViewSearchTerms.Appearance.EvenRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(236, Byte), Integer), CType(CType(233, Byte), Integer), CType(CType(125, Byte), Integer))
+        Me.GridViewSearchTerms.Appearance.EvenRow.Options.UseBackColor = True
        Me.GridViewSearchTerms.GridControl = Me.GridControlSerchTerms
        Me.GridViewSearchTerms.Name = "GridViewSearchTerms"
        Me.GridViewSearchTerms.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True]
-        Me.GridViewSearchTerms.OptionsBehavior.Editable = false
-        Me.GridViewSearchTerms.OptionsSelection.EnableAppearanceFocusedCell = false
-        Me.GridViewSearchTerms.OptionsView.EnableAppearanceEvenRow = true
-        Me.GridViewSearchTerms.OptionsView.ShowGroupPanel = false
-        Me.GridViewSearchTerms.OptionsView.ShowViewCaption = true
+        Me.GridViewSearchTerms.OptionsBehavior.Editable = False
+        Me.GridViewSearchTerms.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewSearchTerms.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewSearchTerms.OptionsView.ShowGroupPanel = False
+        Me.GridViewSearchTerms.OptionsView.ShowViewCaption = True
        Me.GridViewSearchTerms.ViewCaption = "Such-Kriterium"
        '
        'SplitContainerControlSearch
        '
-        Me.SplitContainerControlSearch.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.SplitContainerControlSearch.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.SplitContainerControlSearch.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
        Me.SplitContainerControlSearch.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2
        Me.SplitContainerControlSearch.Location = New System.Drawing.Point(0, 207)
@@ -393,50 +395,53 @@ Partial Class frmSearchStart
        Me.MehrfachauswahlInaktivierenToolStripMenuItem.Size = New System.Drawing.Size(232, 22)
        Me.MehrfachauswahlInaktivierenToolStripMenuItem.Text = "Mehrfachauswahl inaktivieren"
        '
-        'SimpleButton1
+        'DateEdit1
        '
-        Me.SimpleButton1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left)  _
-            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
-        Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
-        Me.SimpleButton1.Location = New System.Drawing.Point(461, 523)
-        Me.SimpleButton1.Name = "SimpleButton1"
-        Me.SimpleButton1.Size = New System.Drawing.Size(141, 45)
-        Me.SimpleButton1.TabIndex = 19
-        Me.SimpleButton1.Text = "Starte Suche"
+        Me.DateEdit1.EditValue = Nothing
+        Me.DateEdit1.Location = New System.Drawing.Point(173, 543)
+        Me.DateEdit1.MenuManager = Me.RibbonControl1
+        Me.DateEdit1.Name = "DateEdit1"
+        Me.DateEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.DateEdit1.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.DateEdit1.Size = New System.Drawing.Size(100, 20)
+        Me.DateEdit1.TabIndex = 19
        '
        'frmSearchStart
        '
        Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True]
-        Me.Appearance.Options.UseFont = true
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+        Me.Appearance.Options.UseFont = True
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(1070, 601)
-        Me.Controls.Add(Me.SimpleButton1)
+        Me.Controls.Add(Me.DateEdit1)
        Me.Controls.Add(Me.SplitContainerControlSearch)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.RibbonStatusBar1)
        Me.Controls.Add(Me.RibbonControl1)
        Me.Font = New System.Drawing.Font("Tahoma", 8.25!)
-        Me.IconOptions.Icon = CType(resources.GetObject("frmSearchStart.IconOptions.Icon"),System.Drawing.Icon)
-        Me.IconOptions.SvgImage = CType(resources.GetObject("frmSearchStart.IconOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmSearchStart.IconOptions.Icon"), System.Drawing.Icon)
+        Me.IconOptions.SvgImage = CType(resources.GetObject("frmSearchStart.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.KeyPreview = True
        Me.Name = "frmSearchStart"
        Me.Ribbon = Me.RibbonControl1
        Me.StatusBar = Me.RibbonStatusBar1
        Me.Text = "ZooFlow Suche"
-        CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.RepositoryItemRadioGroup1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).EndInit
-        Me.Panel1.ResumeLayout(false)
-        Me.Panel1.PerformLayout
-        CType(Me.XtraTabControl1,System.ComponentModel.ISupportInitialize).EndInit
-        Me.XtraTabControl1.ResumeLayout(false)
-        CType(Me.GridControlSerchTerms,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ContextMenuStripSearchTerms.ResumeLayout(false)
-        CType(Me.GridViewSearchTerms,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.SplitContainerControlSearch,System.ComponentModel.ISupportInitialize).EndInit
-        Me.SplitContainerControlSearch.ResumeLayout(false)
-        Me.ContextMenuStripMultiselect.ResumeLayout(false)
-        Me.ResumeLayout(false)
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControl1.ResumeLayout(False)
+        CType(Me.GridControlSerchTerms, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStripSearchTerms.ResumeLayout(False)
+        CType(Me.GridViewSearchTerms, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControlSearch.ResumeLayout(False)
+        Me.ContextMenuStripMultiselect.ResumeLayout(False)
+        CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
        Me.PerformLayout

 End Sub
@@ -478,9 +483,9 @@ End Sub
    Friend WithEvents MehrfachauswahlInaktivierenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents ContextMenuStripSearchTerms As ContextMenuStrip
    Friend WithEvents tsmOperator As ToolStripMenuItem
-    Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
    Friend WithEvents BracketLeftToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents KlammerRechtsToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents KlammerEntfernenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit
 End Class