MS anpassungen
This commit is contained in:
347
GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb
generated
347
GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb
generated
@@ -30,57 +30,57 @@ Partial Class frmFlowSearch1
|
||||
Me.bsiStatus = New DevExpress.XtraBars.BarStaticItem()
|
||||
Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
|
||||
Me.BarListItem1 = New DevExpress.XtraBars.BarListItem()
|
||||
Me.BarToggleSwitchItemTerm = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItemFulltext = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components)
|
||||
Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
|
||||
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
|
||||
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
|
||||
Me.DateEditTill = New DevExpress.XtraEditors.DateEdit()
|
||||
Me.ToggleSwitchMonth_Last = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchDateto = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.lblDatefrom = New DevExpress.XtraEditors.LabelControl()
|
||||
Me.DateEditFrom = New DevExpress.XtraEditors.DateEdit()
|
||||
Me.ToggleSwitchMonth = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchTomorrow = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchToday = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchLastWeek = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchYesterday = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchYear_Last = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchYear = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchYesterday = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchToday = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox()
|
||||
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox()
|
||||
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
|
||||
Me.txtSearchInput = New System.Windows.Forms.TextBox()
|
||||
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.BarToggleSwitchItemTerm = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItemFulltext = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
|
||||
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
|
||||
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
|
||||
Me.ToggleSwitch1 = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit()
|
||||
Me.DateEditBis = New DevExpress.XtraEditors.DateEdit()
|
||||
Me.lblDatefrom = New DevExpress.XtraEditors.LabelControl()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.DockPanel1.SuspendLayout()
|
||||
Me.DockPanel1_Container.SuspendLayout()
|
||||
CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.XtraTabControl1.SuspendLayout()
|
||||
Me.XtraTabPage1.SuspendLayout()
|
||||
CType(Me.ToggleSwitch1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DateEditBis.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DateEditBis.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DateEditTill.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DateEditTill.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchDateto.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DateEditFrom.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DateEditFrom.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl1
|
||||
@@ -128,6 +128,21 @@ Partial Class frmFlowSearch1
|
||||
Me.BarListItem1.Id = 5
|
||||
Me.BarListItem1.Name = "BarListItem1"
|
||||
'
|
||||
'BarToggleSwitchItemTerm
|
||||
'
|
||||
Me.BarToggleSwitchItemTerm.BindableChecked = True
|
||||
Me.BarToggleSwitchItemTerm.Caption = "Suche nach Term"
|
||||
Me.BarToggleSwitchItemTerm.Checked = True
|
||||
Me.BarToggleSwitchItemTerm.Id = 6
|
||||
Me.BarToggleSwitchItemTerm.Name = "BarToggleSwitchItemTerm"
|
||||
'
|
||||
'BarToggleSwitchItemFulltext
|
||||
'
|
||||
Me.BarToggleSwitchItemFulltext.Caption = "Volltext inkludieren"
|
||||
Me.BarToggleSwitchItemFulltext.Enabled = False
|
||||
Me.BarToggleSwitchItemFulltext.Id = 7
|
||||
Me.BarToggleSwitchItemFulltext.Name = "BarToggleSwitchItemFulltext"
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1})
|
||||
@@ -141,6 +156,14 @@ Partial Class frmFlowSearch1
|
||||
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
|
||||
Me.RibbonPageGroup2.Text = "Suchfunktionen"
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.AllowTextClipping = False
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemTerm)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemFulltext)
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "Suchvarianten"
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus)
|
||||
@@ -184,6 +207,49 @@ Partial Class frmFlowSearch1
|
||||
Me.DockPanel1_Container.Size = New System.Drawing.Size(218, 536)
|
||||
Me.DockPanel1_Container.TabIndex = 0
|
||||
'
|
||||
'XtraTabControl1
|
||||
'
|
||||
Me.XtraTabControl1.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.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom
|
||||
Me.XtraTabControl1.Location = New System.Drawing.Point(6, 43)
|
||||
Me.XtraTabControl1.Name = "XtraTabControl1"
|
||||
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
|
||||
Me.XtraTabControl1.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.XtraTabControl1.Size = New System.Drawing.Size(203, 490)
|
||||
Me.XtraTabControl1.TabIndex = 10
|
||||
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
|
||||
'
|
||||
'XtraTabPage1
|
||||
'
|
||||
Me.XtraTabPage1.Controls.Add(Me.DateEditTill)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth_Last)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchDateto)
|
||||
Me.XtraTabPage1.Controls.Add(Me.lblDatefrom)
|
||||
Me.XtraTabPage1.Controls.Add(Me.DateEditFrom)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchTomorrow)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchToday)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchLastWeek)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYesterday)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear_Last)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear)
|
||||
Me.XtraTabPage1.Name = "XtraTabPage1"
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(201, 467)
|
||||
Me.XtraTabPage1.Text = "Standard"
|
||||
'
|
||||
'DateEditTill
|
||||
'
|
||||
Me.DateEditTill.EditValue = Nothing
|
||||
Me.DateEditTill.Location = New System.Drawing.Point(3, 281)
|
||||
Me.DateEditTill.MenuManager = Me.RibbonControl1
|
||||
Me.DateEditTill.Name = "DateEditTill"
|
||||
Me.DateEditTill.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.DateEditTill.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.DateEditTill.Size = New System.Drawing.Size(117, 20)
|
||||
Me.DateEditTill.TabIndex = 2
|
||||
'
|
||||
'ToggleSwitchMonth_Last
|
||||
'
|
||||
Me.ToggleSwitchMonth_Last.Location = New System.Drawing.Point(3, 155)
|
||||
@@ -194,6 +260,37 @@ Partial Class frmFlowSearch1
|
||||
Me.ToggleSwitchMonth_Last.Size = New System.Drawing.Size(132, 19)
|
||||
Me.ToggleSwitchMonth_Last.TabIndex = 9
|
||||
'
|
||||
'ToggleSwitchDateto
|
||||
'
|
||||
Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 256)
|
||||
Me.ToggleSwitchDateto.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto"
|
||||
Me.ToggleSwitchDateto.Properties.OffText = "Datum bis"
|
||||
Me.ToggleSwitchDateto.Properties.OnText = "Datum bis"
|
||||
Me.ToggleSwitchDateto.Size = New System.Drawing.Size(122, 19)
|
||||
Me.ToggleSwitchDateto.TabIndex = 0
|
||||
'
|
||||
'lblDatefrom
|
||||
'
|
||||
Me.lblDatefrom.Location = New System.Drawing.Point(3, 211)
|
||||
Me.lblDatefrom.Name = "lblDatefrom"
|
||||
Me.lblDatefrom.Size = New System.Drawing.Size(34, 13)
|
||||
Me.lblDatefrom.TabIndex = 3
|
||||
Me.lblDatefrom.Text = "Datum"
|
||||
'
|
||||
'DateEditFrom
|
||||
'
|
||||
Me.DateEditFrom.EditValue = Nothing
|
||||
Me.DateEditFrom.Location = New System.Drawing.Point(3, 230)
|
||||
Me.DateEditFrom.MenuManager = Me.RibbonControl1
|
||||
Me.DateEditFrom.Name = "DateEditFrom"
|
||||
Me.DateEditFrom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.DateEditFrom.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.DateEditFrom.Properties.CalendarView = DevExpress.XtraEditors.Repository.CalendarView.ClassicNew
|
||||
Me.DateEditFrom.Properties.VistaDisplayMode = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.DateEditFrom.Size = New System.Drawing.Size(117, 20)
|
||||
Me.DateEditFrom.TabIndex = 1
|
||||
'
|
||||
'ToggleSwitchMonth
|
||||
'
|
||||
Me.ToggleSwitchMonth.Location = New System.Drawing.Point(3, 130)
|
||||
@@ -215,6 +312,16 @@ Partial Class frmFlowSearch1
|
||||
Me.ToggleSwitchTomorrow.TabIndex = 7
|
||||
Me.ToggleSwitchTomorrow.Visible = False
|
||||
'
|
||||
'ToggleSwitchToday
|
||||
'
|
||||
Me.ToggleSwitchToday.Location = New System.Drawing.Point(3, 3)
|
||||
Me.ToggleSwitchToday.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchToday.Name = "ToggleSwitchToday"
|
||||
Me.ToggleSwitchToday.Properties.OffText = "Heute"
|
||||
Me.ToggleSwitchToday.Properties.OnText = "On"
|
||||
Me.ToggleSwitchToday.Size = New System.Drawing.Size(95, 19)
|
||||
Me.ToggleSwitchToday.TabIndex = 2
|
||||
'
|
||||
'ToggleSwitchLastWeek
|
||||
'
|
||||
Me.ToggleSwitchLastWeek.Location = New System.Drawing.Point(3, 53)
|
||||
@@ -225,6 +332,16 @@ Partial Class frmFlowSearch1
|
||||
Me.ToggleSwitchLastWeek.Size = New System.Drawing.Size(132, 19)
|
||||
Me.ToggleSwitchLastWeek.TabIndex = 6
|
||||
'
|
||||
'ToggleSwitchYesterday
|
||||
'
|
||||
Me.ToggleSwitchYesterday.Location = New System.Drawing.Point(3, 28)
|
||||
Me.ToggleSwitchYesterday.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday"
|
||||
Me.ToggleSwitchYesterday.Properties.OffText = "Gestern"
|
||||
Me.ToggleSwitchYesterday.Properties.OnText = "Gestern"
|
||||
Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(95, 19)
|
||||
Me.ToggleSwitchYesterday.TabIndex = 3
|
||||
'
|
||||
'ToggleSwitchYear_Last
|
||||
'
|
||||
Me.ToggleSwitchYear_Last.Location = New System.Drawing.Point(3, 105)
|
||||
@@ -245,33 +362,11 @@ Partial Class frmFlowSearch1
|
||||
Me.ToggleSwitchYear.Size = New System.Drawing.Size(132, 19)
|
||||
Me.ToggleSwitchYear.TabIndex = 4
|
||||
'
|
||||
'ToggleSwitchYesterday
|
||||
'XtraTabPage2
|
||||
'
|
||||
Me.ToggleSwitchYesterday.Location = New System.Drawing.Point(3, 28)
|
||||
Me.ToggleSwitchYesterday.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday"
|
||||
Me.ToggleSwitchYesterday.Properties.OffText = "Gestern"
|
||||
Me.ToggleSwitchYesterday.Properties.OnText = "Gestern"
|
||||
Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(95, 19)
|
||||
Me.ToggleSwitchYesterday.TabIndex = 3
|
||||
'
|
||||
'ToggleSwitchToday
|
||||
'
|
||||
Me.ToggleSwitchToday.Location = New System.Drawing.Point(3, 3)
|
||||
Me.ToggleSwitchToday.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchToday.Name = "ToggleSwitchToday"
|
||||
Me.ToggleSwitchToday.Properties.OffText = "Heute"
|
||||
Me.ToggleSwitchToday.Properties.OnText = "On"
|
||||
Me.ToggleSwitchToday.Size = New System.Drawing.Size(95, 19)
|
||||
Me.ToggleSwitchToday.TabIndex = 2
|
||||
'
|
||||
'cmbLimitationDateAttr
|
||||
'
|
||||
Me.cmbLimitationDateAttr.FormattingEnabled = True
|
||||
Me.cmbLimitationDateAttr.Location = New System.Drawing.Point(6, 16)
|
||||
Me.cmbLimitationDateAttr.Name = "cmbLimitationDateAttr"
|
||||
Me.cmbLimitationDateAttr.Size = New System.Drawing.Size(178, 21)
|
||||
Me.cmbLimitationDateAttr.TabIndex = 1
|
||||
Me.XtraTabPage2.Name = "XtraTabPage2"
|
||||
Me.XtraTabPage2.Size = New System.Drawing.Size(201, 467)
|
||||
Me.XtraTabPage2.Text = "...tbd"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
@@ -282,6 +377,14 @@ Partial Class frmFlowSearch1
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Attribut"
|
||||
'
|
||||
'cmbLimitationDateAttr
|
||||
'
|
||||
Me.cmbLimitationDateAttr.FormattingEnabled = True
|
||||
Me.cmbLimitationDateAttr.Location = New System.Drawing.Point(6, 16)
|
||||
Me.cmbLimitationDateAttr.Name = "cmbLimitationDateAttr"
|
||||
Me.cmbLimitationDateAttr.Size = New System.Drawing.Size(178, 21)
|
||||
Me.cmbLimitationDateAttr.TabIndex = 1
|
||||
'
|
||||
'LabelControl1
|
||||
'
|
||||
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
@@ -309,115 +412,13 @@ Partial Class frmFlowSearch1
|
||||
Me.PictureEdit1.Location = New System.Drawing.Point(231, 224)
|
||||
Me.PictureEdit1.MenuManager = Me.RibbonControl1
|
||||
Me.PictureEdit1.Name = "PictureEdit1"
|
||||
Me.PictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
|
||||
Me.PictureEdit1.Properties.PictureAlignment = System.Drawing.ContentAlignment.BottomRight
|
||||
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
|
||||
Me.PictureEdit1.Properties.ZoomPercent = 300.0R
|
||||
Me.PictureEdit1.Size = New System.Drawing.Size(693, 517)
|
||||
Me.PictureEdit1.TabIndex = 8
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.AllowTextClipping = False
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemTerm)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemFulltext)
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "Suchvarianten"
|
||||
'
|
||||
'BarToggleSwitchItemTerm
|
||||
'
|
||||
Me.BarToggleSwitchItemTerm.BindableChecked = True
|
||||
Me.BarToggleSwitchItemTerm.Caption = "Suche nach Term"
|
||||
Me.BarToggleSwitchItemTerm.Checked = True
|
||||
Me.BarToggleSwitchItemTerm.Id = 6
|
||||
Me.BarToggleSwitchItemTerm.Name = "BarToggleSwitchItemTerm"
|
||||
'
|
||||
'BarToggleSwitchItemFulltext
|
||||
'
|
||||
Me.BarToggleSwitchItemFulltext.Caption = "Volltext"
|
||||
Me.BarToggleSwitchItemFulltext.Id = 7
|
||||
Me.BarToggleSwitchItemFulltext.Name = "BarToggleSwitchItemFulltext"
|
||||
'
|
||||
'XtraTabControl1
|
||||
'
|
||||
Me.XtraTabControl1.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.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom
|
||||
Me.XtraTabControl1.Location = New System.Drawing.Point(6, 43)
|
||||
Me.XtraTabControl1.Name = "XtraTabControl1"
|
||||
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
|
||||
Me.XtraTabControl1.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.XtraTabControl1.Size = New System.Drawing.Size(203, 490)
|
||||
Me.XtraTabControl1.TabIndex = 10
|
||||
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
|
||||
'
|
||||
'XtraTabPage1
|
||||
'
|
||||
Me.XtraTabPage1.Controls.Add(Me.DateEditBis)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth_Last)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitch1)
|
||||
Me.XtraTabPage1.Controls.Add(Me.lblDatefrom)
|
||||
Me.XtraTabPage1.Controls.Add(Me.DateEdit1)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchTomorrow)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchToday)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchLastWeek)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYesterday)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear_Last)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear)
|
||||
Me.XtraTabPage1.Name = "XtraTabPage1"
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(201, 467)
|
||||
Me.XtraTabPage1.Text = "Standard"
|
||||
'
|
||||
'XtraTabPage2
|
||||
'
|
||||
Me.XtraTabPage2.Name = "XtraTabPage2"
|
||||
Me.XtraTabPage2.Size = New System.Drawing.Size(201, 467)
|
||||
Me.XtraTabPage2.Text = "Explizit"
|
||||
'
|
||||
'ToggleSwitch1
|
||||
'
|
||||
Me.ToggleSwitch1.Location = New System.Drawing.Point(3, 256)
|
||||
Me.ToggleSwitch1.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitch1.Name = "ToggleSwitch1"
|
||||
Me.ToggleSwitch1.Properties.OffText = "Datum bis"
|
||||
Me.ToggleSwitch1.Properties.OnText = "Datum bis"
|
||||
Me.ToggleSwitch1.Size = New System.Drawing.Size(122, 19)
|
||||
Me.ToggleSwitch1.TabIndex = 0
|
||||
'
|
||||
'DateEdit1
|
||||
'
|
||||
Me.DateEdit1.EditValue = Nothing
|
||||
Me.DateEdit1.Location = New System.Drawing.Point(3, 230)
|
||||
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.Properties.CalendarView = DevExpress.XtraEditors.Repository.CalendarView.ClassicNew
|
||||
Me.DateEdit1.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard
|
||||
Me.DateEdit1.Properties.VistaDisplayMode = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.DateEdit1.Size = New System.Drawing.Size(117, 20)
|
||||
Me.DateEdit1.TabIndex = 1
|
||||
'
|
||||
'DateEditBis
|
||||
'
|
||||
Me.DateEditBis.EditValue = Nothing
|
||||
Me.DateEditBis.Location = New System.Drawing.Point(3, 281)
|
||||
Me.DateEditBis.MenuManager = Me.RibbonControl1
|
||||
Me.DateEditBis.Name = "DateEditBis"
|
||||
Me.DateEditBis.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.DateEditBis.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.DateEditBis.Size = New System.Drawing.Size(117, 20)
|
||||
Me.DateEditBis.TabIndex = 2
|
||||
'
|
||||
'lblDatefrom
|
||||
'
|
||||
Me.lblDatefrom.Location = New System.Drawing.Point(3, 211)
|
||||
Me.lblDatefrom.Name = "lblDatefrom"
|
||||
Me.lblDatefrom.Size = New System.Drawing.Size(34, 13)
|
||||
Me.lblDatefrom.TabIndex = 3
|
||||
Me.lblDatefrom.Text = "Datum"
|
||||
'
|
||||
'frmFlowSearch1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -439,24 +440,24 @@ Partial Class frmFlowSearch1
|
||||
Me.DockPanel1.ResumeLayout(False)
|
||||
Me.DockPanel1_Container.ResumeLayout(False)
|
||||
Me.DockPanel1_Container.PerformLayout()
|
||||
CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.XtraTabControl1.ResumeLayout(False)
|
||||
Me.XtraTabPage1.ResumeLayout(False)
|
||||
Me.XtraTabPage1.PerformLayout()
|
||||
CType(Me.ToggleSwitch1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DateEditBis.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DateEditBis.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DateEditTill.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DateEditTill.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchDateto.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DateEditFrom.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DateEditFrom.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -495,7 +496,7 @@ Partial Class frmFlowSearch1
|
||||
Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
|
||||
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
|
||||
Friend WithEvents lblDatefrom As DevExpress.XtraEditors.LabelControl
|
||||
Friend WithEvents DateEditBis As DevExpress.XtraEditors.DateEdit
|
||||
Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit
|
||||
Friend WithEvents ToggleSwitch1 As DevExpress.XtraEditors.ToggleSwitch
|
||||
Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit
|
||||
Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit
|
||||
Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch
|
||||
End Class
|
||||
|
||||
@@ -24,8 +24,21 @@ Public Class frmFlowSearch1
|
||||
Private CONST_DATE_TOMORROW As String = "TOMORROW"
|
||||
Private SEARCH_PARAM3
|
||||
|
||||
Dim oBASESEARCH As String
|
||||
Private ExplizitDate As Boolean = False
|
||||
|
||||
Dim oBASESEARCH As String
|
||||
Sub ResetTogglesDate()
|
||||
TOGGLE_Change = True
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
ToggleSwitchTomorrow.IsOn = False
|
||||
ToggleSwitchLastWeek.IsOn = False
|
||||
ToggleSwitchYear_Last.IsOn = False
|
||||
ToggleSwitchYear.IsOn = False
|
||||
ToggleSwitchMonth.IsOn = False
|
||||
ToggleSwitchMonth_Last.IsOn = False
|
||||
TOGGLE_Change = False
|
||||
End Sub
|
||||
|
||||
Private Sub ToggleSwitchToday_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchToday.Toggled, ToggleSwitchYesterday.Toggled, ToggleSwitchYear.Toggled, ToggleSwitchYear_Last.Toggled,
|
||||
ToggleSwitchMonth_Last.Toggled, ToggleSwitchMonth.Toggled, ToggleSwitchLastWeek.Toggled, ToggleSwitchTomorrow.Toggled
|
||||
@@ -111,6 +124,7 @@ Public Class frmFlowSearch1
|
||||
Case "ToggleSwitchLastWeek"
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchTomorrow.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
ToggleSwitchYear.IsOn = False
|
||||
ToggleSwitchYear_Last.IsOn = False
|
||||
ToggleSwitchMonth.IsOn = False
|
||||
@@ -218,17 +232,29 @@ Public Class frmFlowSearch1
|
||||
.WindowGuid = "FlowSearch",
|
||||
.WindowTitle = GetResultWindowString(oSearchTerm),
|
||||
.OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
|
||||
.ProfileGuid = 123456789
|
||||
.ProfileGuid = 354522
|
||||
}
|
||||
|
||||
Dim oP3 = $"{SEARCH_FACT_DATE_ATTRIBUTE}~{SEARCH_PARAM3}"
|
||||
Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{oSearchTerm}','{oP3}'"
|
||||
If ExplizitDate Then
|
||||
Dim oDate2 As Date
|
||||
If Not IsNothing(DateEditTill.EditValue) Then
|
||||
oDate2 = CDate(DateEditTill.EditValue)
|
||||
Else
|
||||
oDate2 = CDate(DateEditFrom.EditValue)
|
||||
End If
|
||||
Dim oProc = $"EXEC PRIDB_SEARCH_ADD_USR_DATE {My.Application.User.UserId},'{CDate(DateEditFrom.EditValue)}','{oDate2}'"
|
||||
If My.DatabaseIDB.ExecuteNonQuery(oProc) = True Then
|
||||
oP3 = $"{SEARCH_FACT_DATE_ATTRIBUTE}~DATEPART"
|
||||
End If
|
||||
End If
|
||||
Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{oSearchTerm}','{oP3}'"
|
||||
|
||||
If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
|
||||
Dim oDTDocResult = My.DatabaseIDB.GetDatatable(oBASESEARCH)
|
||||
If oDTDocResult.Rows.Count > 0 Then
|
||||
oParams.Results.Add(New DocumentResultList.DocumentResult() With {
|
||||
.Title = "MySearchTitle",
|
||||
.Title = "FlowSearchXYZ",
|
||||
.Datatable = oDTDocResult})
|
||||
Dim oForm As New frmDocumentResultList(My.LogConfig, _Environment, oParams)
|
||||
'AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
|
||||
@@ -241,7 +267,8 @@ Public Class frmFlowSearch1
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Else
|
||||
bsiStatus.Caption = "Error oin FlowSearch - Check Your log"
|
||||
End If
|
||||
'
|
||||
|
||||
@@ -276,22 +303,36 @@ Public Class frmFlowSearch1
|
||||
|
||||
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
||||
Me.txtSearchInput.Text = ""
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ResetTogglesDate()
|
||||
ToggleSwitchDateto.IsOn = False
|
||||
ExplizitDate = False
|
||||
End Sub
|
||||
|
||||
Private Sub ToggleSwitch1_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitch1.Toggled
|
||||
Private Sub ToggleSwitch1_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchDateto.Toggled
|
||||
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
|
||||
|
||||
If oToggle.IsOn Then
|
||||
DateEditBis.Enabled = True
|
||||
DateEditTill.Enabled = True
|
||||
lblDatefrom.Text = "Datum von"
|
||||
Else
|
||||
DateEditBis.Enabled = False
|
||||
DateEditTill.Enabled = False
|
||||
lblDatefrom.Text = "Datum"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DateEdit1_DateTimeChanged(sender As Object, e As EventArgs) Handles DateEdit1.DateTimeChanged
|
||||
ToggleSwitchToday.IsOn = False
|
||||
Private Sub DateEdit1_DateTimeChanged(sender As Object, e As EventArgs) Handles DateEditFrom.DateTimeChanged
|
||||
Dim oobj = DateEditFrom.EditValue
|
||||
If Not IsNothing(oobj) Then
|
||||
ResetTogglesDate()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DateEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles DateEditFrom.EditValueChanged
|
||||
Dim oobj = DateEditFrom.EditValue
|
||||
If Not IsNothing(oobj) Then
|
||||
ExplizitDate = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user