_ Partial Class frmChooseParentRecord Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmChooseParentRecord)) Me.Panel1 = New System.Windows.Forms.Panel() Me.Label1 = New System.Windows.Forms.Label() Me.GridControl = New DevExpress.XtraGrid.GridControl() Me.GridView = New DevExpress.XtraGrid.Views.Grid.GridView() Me.Panel1.SuspendLayout() CType(Me.GridControl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Panel1 ' Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(964, 34) Me.Panel1.TabIndex = 0 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(12, 9) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(557, 15) Me.Label1.TabIndex = 0 Me.Label1.Text = "Bitte wählen Sie einen gültigen Parentdatensatz für den neu zu erstellenden bzw. " & _ "den aktuellen Datensatz" ' 'GridControl ' Me.GridControl.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.GridControl.Location = New System.Drawing.Point(4, 37) Me.GridControl.MainView = Me.GridView Me.GridControl.Name = "GridControl" Me.GridControl.Size = New System.Drawing.Size(955, 393) Me.GridControl.TabIndex = 1 Me.GridControl.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView}) ' 'GridView ' Me.GridView.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua Me.GridView.Appearance.EvenRow.Options.UseBackColor = True Me.GridView.GridControl = Me.GridControl Me.GridView.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always Me.GridView.Name = "GridView" Me.GridView.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView.OptionsBehavior.Editable = False Me.GridView.OptionsBehavior.ReadOnly = True Me.GridView.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridView.OptionsSelection.EnableAppearanceFocusedCell = False Me.GridView.OptionsSelection.EnableAppearanceFocusedRow = False Me.GridView.OptionsSelection.EnableAppearanceHideSelection = False Me.GridView.OptionsSelection.MultiSelect = True Me.GridView.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect Me.GridView.OptionsView.ColumnAutoWidth = False Me.GridView.OptionsView.EnableAppearanceEvenRow = True Me.GridView.OptionsView.ShowAutoFilterRow = True Me.GridView.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always ' 'frmChooseParentRecord ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(964, 471) Me.Controls.Add(Me.GridControl) Me.Controls.Add(Me.Panel1) Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmChooseParentRecord" Me.Text = "Choose a parent record" Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() CType(Me.GridControl, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents GridControl As DevExpress.XtraGrid.GridControl Friend WithEvents GridView As DevExpress.XtraGrid.Views.Grid.GridView End Class