This commit is contained in:
2021-06-28 16:02:25 +02:00
parent e9fb65eddf
commit 3feb7ebf4d
10 changed files with 785 additions and 395 deletions

View File

@@ -1,6 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDoc_Links
Inherits System.Windows.Forms.Form
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
@@ -23,45 +23,33 @@ Partial Class frmDoc_Links
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDoc_Links))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tslbl = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButtonDelete = New System.Windows.Forms.ToolStripButton()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.dgRecords = New DevExpress.XtraGrid.GridControl()
Me.GridControlRecords = New DevExpress.XtraGrid.GridControl()
Me.grvwGrid = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ToolStrip1.SuspendLayout()
CType(Me.dgRecords, System.ComponentModel.ISupportInitialize).BeginInit()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarStaticItemStatus = New DevExpress.XtraBars.BarStaticItem()
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.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbl, Me.ToolStripButtonDelete})
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.Name = "ToolStrip1"
'
'tslbl
'
resources.ApplyResources(Me.tslbl, "tslbl")
Me.tslbl.Name = "tslbl"
'
'ToolStripButtonDelete
'
Me.ToolStripButtonDelete.Image = Global.DD_Record_Organizer.My.Resources.Resources.delete
resources.ApplyResources(Me.ToolStripButtonDelete, "ToolStripButtonDelete")
Me.ToolStripButtonDelete.Name = "ToolStripButtonDelete"
'
'StatusStrip1
'
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Name = "StatusStrip1"
'
'dgRecords
'GridControlRecords
'
resources.ApplyResources(Me.dgRecords, "dgRecords")
Me.dgRecords.MainView = Me.grvwGrid
Me.dgRecords.Name = "dgRecords"
Me.dgRecords.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid})
resources.ApplyResources(Me.GridControlRecords, "GridControlRecords")
Me.GridControlRecords.MainView = Me.grvwGrid
Me.GridControlRecords.Name = "GridControlRecords"
Me.GridControlRecords.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid})
'
'grvwGrid
'
@@ -74,7 +62,7 @@ Partial Class frmDoc_Links
Me.grvwGrid.Appearance.SelectedRow.BackColor = System.Drawing.Color.Yellow
Me.grvwGrid.Appearance.SelectedRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.SelectedRow.Options.UseForeColor = True
Me.grvwGrid.GridControl = Me.dgRecords
Me.grvwGrid.GridControl = Me.GridControlRecords
Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True
@@ -89,27 +77,91 @@ Partial Class frmDoc_Links
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarStaticItemStatus, 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.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
'
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarStaticItemStatus
'
Me.BarStaticItemStatus.Id = 2
Me.BarStaticItemStatus.ItemAppearance.Normal.Font = CType(resources.GetObject("BarStaticItemStatus.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.BarStaticItemStatus.ItemAppearance.Normal.Options.UseFont = True
Me.BarStaticItemStatus.Name = "BarStaticItemStatus"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemStatus)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
'
'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"
'
'frmDoc_Links
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.dgRecords)
Me.Controls.Add(Me.GridControlRecords)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.Icon = CType(resources.GetObject("frmDoc_Links.IconOptions.Icon"), System.Drawing.Icon)
Me.Name = "frmDoc_Links"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.dgRecords, System.ComponentModel.ISupportInitialize).EndInit()
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents dgRecords As DevExpress.XtraGrid.GridControl
Friend WithEvents GridControlRecords As DevExpress.XtraGrid.GridControl
Friend WithEvents grvwGrid As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents ToolStripButtonDelete As ToolStripButton
Friend WithEvents tslbl As ToolStripLabel
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 BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarStaticItemStatus As DevExpress.XtraBars.BarStaticItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
End Class