MS

2023-03-22 15:46:32 +01:00
parent 60c739833f
commit 9a9fe72b4f
13 changed files with 1818 additions and 396 deletions
--- a/app/DD-Record-Organizer/frmDocRecordLink.Designer.vb
+++ b/app/DD-Record-Organizer/frmDocRecordLink.Designer.vb
@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class frmDocRecordLink
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    <System.Diagnostics.DebuggerNonUserCode()> _
@@ -25,19 +25,25 @@ Partial Class frmDocRecordLink
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocRecordLink))
        Me.txtFileInfo = New System.Windows.Forms.TextBox()
        Me.Label3 = New System.Windows.Forms.Label()
-        Me.btnLink = New System.Windows.Forms.Button()
        Me.dgEntityRecords = New DevExpress.XtraGrid.GridControl()
        Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tsslbl = New System.Windows.Forms.ToolStripStatusLabel()
        Me.cmbConstructorForms = New System.Windows.Forms.ComboBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.btnloadData2Entity = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.txtEntity = New System.Windows.Forms.TextBox()
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
        CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.StatusStrip1.SuspendLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'txtFileInfo
@@ -52,13 +58,6 @@ Partial Class frmDocRecordLink
        resources.ApplyResources(Me.Label3, "Label3")
        Me.Label3.Name = "Label3"
        '
-        'btnLink
-        '
-        resources.ApplyResources(Me.btnLink, "btnLink")
-        Me.btnLink.Image = Global.DD_Record_Organizer.My.Resources.Resources.Link
-        Me.btnLink.Name = "btnLink"
-        Me.btnLink.UseVisualStyleBackColor = True
-        '
        'dgEntityRecords
        '
        resources.ApplyResources(Me.dgEntityRecords, "dgEntityRecords")
@@ -88,18 +87,6 @@ Partial Class frmDocRecordLink
        Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
        Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
        '
-        'StatusStrip1
-        '
-        Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslbl})
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-        Me.StatusStrip1.Name = "StatusStrip1"
-        '
-        'tsslbl
-        '
-        Me.tsslbl.Name = "tsslbl"
-        resources.ApplyResources(Me.tsslbl, "tsslbl")
-        '
        'cmbConstructorForms
        '
        resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms")
@@ -131,40 +118,111 @@ Partial Class frmDocRecordLink
        Me.txtEntity.Name = "txtEntity"
        Me.txtEntity.ReadOnly = True
        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem1, Me.BarButtonItem2})
+        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
+        Me.RibbonControl1.MaxItemId = 4
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowPageHeadersInFormCaption = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'bsiInfo
+        '
+        resources.ApplyResources(Me.bsiInfo, "bsiInfo")
+        Me.bsiInfo.Id = 1
+        Me.bsiInfo.Name = "bsiInfo"
+        '
+        'BarButtonItem1
+        '
+        resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
+        Me.BarButtonItem1.Id = 2
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo)
+        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        '
+        'BarButtonItem2
+        '
+        resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
+        Me.BarButtonItem2.Id = 3
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
        'frmDocRecordLink
        '
        resources.ApplyResources(Me, "$this")
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.Controls.Add(Me.txtEntity)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.btnloadData2Entity)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.cmbConstructorForms)
-        Me.Controls.Add(Me.StatusStrip1)
        Me.Controls.Add(Me.dgEntityRecords)
        Me.Controls.Add(Me.txtFileInfo)
        Me.Controls.Add(Me.Label3)
-        Me.Controls.Add(Me.btnLink)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmDocRecordLink.IconOptions.Icon"), System.Drawing.Icon)
        Me.Name = "frmDocRecordLink"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
        CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents txtFileInfo As TextBox
    Friend WithEvents Label3 As Label
-    Friend WithEvents btnLink As Button
    Friend WithEvents dgEntityRecords As DevExpress.XtraGrid.GridControl
    Friend WithEvents grvwGrid As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents StatusStrip1 As StatusStrip
-    Friend WithEvents tsslbl As ToolStripStatusLabel
    Friend WithEvents cmbConstructorForms As ComboBox
    Friend WithEvents Label1 As Label
    Friend WithEvents btnloadData2Entity As Button
    Friend WithEvents Label2 As Label
    Friend WithEvents txtEntity As TextBox
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
 End Class