ZooFlow: PropertyDialog, ContextMenu, Async Queries in Database

2020-10-29 16:05:10 +01:00
parent aaafb99275
commit 7750fdf6a5
18 changed files with 433 additions and 114 deletions
--- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb
+++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb
@@ -23,7 +23,9 @@ Partial Class frmObjectPropertyDialog
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmObjectPropertyDialog))
+        Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
        Me.TabFormControl1 = New DevExpress.XtraBars.TabFormControl()
+        Me.cmbBusinessEntity = New DevExpress.XtraBars.BarEditItem()
        Me.TabPageProperties = New DevExpress.XtraBars.TabFormPage()
        Me.TabFormContentContainer1 = New DevExpress.XtraBars.TabFormContentContainer()
        Me.LayoutControlProperties = New DevExpress.XtraLayout.LayoutControl()
@@ -32,36 +34,50 @@ Partial Class frmObjectPropertyDialog
        Me.TabFormContentContainer2 = New DevExpress.XtraBars.TabFormContentContainer()
        Me.TabPageLifecycle = New DevExpress.XtraBars.TabFormPage()
        Me.TabFormContentContainer3 = New DevExpress.XtraBars.TabFormContentContainer()
-        Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl()
-        Me.Button3 = New System.Windows.Forms.Button()
-        Me.Button2 = New System.Windows.Forms.Button()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
+        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabFormContentContainer1.SuspendLayout()
        CType(Me.LayoutControlProperties, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.PanelControl1.SuspendLayout()
        Me.SuspendLayout()
        '
+        'RepositoryItemComboBox1
+        '
+        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"
+        '
        'TabFormControl1
        '
+        Me.TabFormControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.cmbBusinessEntity, Me.BarStaticItem1})
        Me.TabFormControl1.Location = New System.Drawing.Point(0, 0)
        Me.TabFormControl1.Name = "TabFormControl1"
        Me.TabFormControl1.Pages.Add(Me.TabPageProperties)
        Me.TabFormControl1.Pages.Add(Me.TabPageMetadata)
        Me.TabFormControl1.Pages.Add(Me.TabPageLifecycle)
        Me.TabFormControl1.SelectedPage = Me.TabPageProperties
+        Me.TabFormControl1.ShowAddPageButton = False
+        Me.TabFormControl1.ShowTabCloseButtons = False
        Me.TabFormControl1.Size = New System.Drawing.Size(572, 71)
        Me.TabFormControl1.TabForm = Me
        Me.TabFormControl1.TabIndex = 0
+        Me.TabFormControl1.TabRightItemLinks.Add(Me.BarStaticItem1)
+        Me.TabFormControl1.TabRightItemLinks.Add(Me.cmbBusinessEntity)
        Me.TabFormControl1.TabStop = False
        '
+        'cmbBusinessEntity
+        '
+        Me.cmbBusinessEntity.Caption = "cmbBusinessEntity"
+        Me.cmbBusinessEntity.Edit = Me.RepositoryItemComboBox1
+        Me.cmbBusinessEntity.EditWidth = 100
+        Me.cmbBusinessEntity.Id = 6
+        Me.cmbBusinessEntity.Name = "cmbBusinessEntity"
+        '
        'TabPageProperties
        '
        Me.TabPageProperties.ContentContainer = Me.TabFormContentContainer1
        Me.TabPageProperties.Name = "TabPageProperties"
-        Me.TabPageProperties.ShowCloseButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.TabPageProperties.Text = "Eigenschaften"
        '
        'TabFormContentContainer1
@@ -75,10 +91,11 @@ Partial Class frmObjectPropertyDialog
        '
        'LayoutControlProperties
        '
-        Me.LayoutControlProperties.Location = New System.Drawing.Point(108, 80)
+        Me.LayoutControlProperties.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.LayoutControlProperties.Location = New System.Drawing.Point(0, 0)
        Me.LayoutControlProperties.Name = "LayoutControlProperties"
        Me.LayoutControlProperties.Root = Me.Root
-        Me.LayoutControlProperties.Size = New System.Drawing.Size(180, 120)
+        Me.LayoutControlProperties.Size = New System.Drawing.Size(572, 534)
        Me.LayoutControlProperties.TabIndex = 0
        Me.LayoutControlProperties.Text = "LayoutControl1"
        '
@@ -87,14 +104,13 @@ Partial Class frmObjectPropertyDialog
        Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
        Me.Root.GroupBordersVisible = False
        Me.Root.Name = "Root"
-        Me.Root.Size = New System.Drawing.Size(180, 120)
+        Me.Root.Size = New System.Drawing.Size(572, 534)
        Me.Root.TextVisible = False
        '
        'TabPageMetadata
        '
        Me.TabPageMetadata.ContentContainer = Me.TabFormContentContainer2
        Me.TabPageMetadata.Name = "TabPageMetadata"
-        Me.TabPageMetadata.ShowCloseButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.TabPageMetadata.Text = "Metadaten"
        '
        'TabFormContentContainer2
@@ -109,7 +125,6 @@ Partial Class frmObjectPropertyDialog
        '
        Me.TabPageLifecycle.ContentContainer = Me.TabFormContentContainer3
        Me.TabPageLifecycle.Name = "TabPageLifecycle"
-        Me.TabPageLifecycle.ShowCloseButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.TabPageLifecycle.Text = "Lebenszyklus"
        '
        'TabFormContentContainer3
@@ -120,62 +135,28 @@ Partial Class frmObjectPropertyDialog
        Me.TabFormContentContainer3.Size = New System.Drawing.Size(572, 534)
        Me.TabFormContentContainer3.TabIndex = 3
        '
-        'PanelControl1
+        'BarStaticItem1
        '
-        Me.PanelControl1.Controls.Add(Me.Button3)
-        Me.PanelControl1.Controls.Add(Me.Button2)
-        Me.PanelControl1.Controls.Add(Me.Button1)
-        Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.PanelControl1.Location = New System.Drawing.Point(0, 554)
-        Me.PanelControl1.Name = "PanelControl1"
-        Me.PanelControl1.Size = New System.Drawing.Size(572, 51)
-        Me.PanelControl1.TabIndex = 1
-        '
-        'Button3
-        '
-        Me.Button3.Location = New System.Drawing.Point(230, 6)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(106, 33)
-        Me.Button3.TabIndex = 0
-        Me.Button3.Text = "OK"
-        Me.Button3.UseVisualStyleBackColor = True
-        '
-        'Button2
-        '
-        Me.Button2.Location = New System.Drawing.Point(342, 6)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(106, 33)
-        Me.Button2.TabIndex = 0
-        Me.Button2.Text = "Abbrechen"
-        Me.Button2.UseVisualStyleBackColor = True
-        '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(454, 6)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(106, 33)
-        Me.Button1.TabIndex = 0
-        Me.Button1.Text = "Übernehmen"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.BarStaticItem1.Caption = "Entity:"
+        Me.BarStaticItem1.Id = 0
+        Me.BarStaticItem1.Name = "BarStaticItem1"
        '
        'frmObjectPropertyDialog
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(572, 605)
-        Me.Controls.Add(Me.PanelControl1)
        Me.Controls.Add(Me.TabFormContentContainer1)
        Me.Controls.Add(Me.TabFormControl1)
        Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.Name = "frmObjectPropertyDialog"
        Me.TabFormControl = Me.TabFormControl1
        Me.Text = "Objekt-Eigenschaften"
+        CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabFormContentContainer1.ResumeLayout(False)
        CType(Me.LayoutControlProperties, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.PanelControl1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
@@ -189,8 +170,7 @@ Partial Class frmObjectPropertyDialog
    Friend WithEvents TabFormContentContainer3 As DevExpress.XtraBars.TabFormContentContainer
    Friend WithEvents LayoutControlProperties As DevExpress.XtraLayout.LayoutControl
    Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
-    Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl
-    Friend WithEvents Button2 As Windows.Forms.Button
-    Friend WithEvents Button1 As Windows.Forms.Button
-    Friend WithEvents Button3 As Windows.Forms.Button
+    Friend WithEvents cmbBusinessEntity As DevExpress.XtraBars.BarEditItem
+    Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
+    Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
 End Class