Public Class ucnoedit
    Inherits System.Windows.Forms.UserControl

#Region " Vom Windows Form Designer generierter Code "

    Public Sub New()
        MyBase.New()

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

    End Sub

    'UserControl überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer

    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents grpUsed As System.Windows.Forms.GroupBox
    Friend WithEvents usedlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents GrpIDV As System.Windows.Forms.GroupBox
    Friend WithEvents idvwerteList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents mnuposdoc As System.Windows.Forms.MenuItem
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents verklist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents mnulink1 As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
    Friend WithEvents mnulink2 As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
    Friend WithEvents mnuDelVerk As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(ucnoedit))
        Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Me.grpUsed = New System.Windows.Forms.GroupBox()
        Me.usedlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
        Me.mnuposdoc = New System.Windows.Forms.MenuItem()
        Me.mnulink1 = New System.Windows.Forms.MenuItem()
        Me.GrpIDV = New System.Windows.Forms.GroupBox()
        Me.idvwerteList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
        Me.mnulink2 = New System.Windows.Forms.MenuItem()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.verklist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
        Me.mnuDelVerk = New System.Windows.Forms.MenuItem()
        Me.grpUsed.SuspendLayout()
        CType(Me.usedlist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GrpIDV.SuspendLayout()
        CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        CType(Me.verklist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'grpUsed
        '
        Me.grpUsed.Controls.AddRange(New System.Windows.Forms.Control() {Me.usedlist})
        Me.grpUsed.Location = New System.Drawing.Point(8, 8)
        Me.grpUsed.Name = "grpUsed"
        Me.grpUsed.Size = New System.Drawing.Size(336, 152)
        Me.grpUsed.TabIndex = 3
        Me.grpUsed.TabStop = False
        Me.grpUsed.Text = "Platzhalter im Dokument"
        '
        'usedlist
        '
        Me.usedlist.AllowDelete = True
        Me.usedlist.AllowFilter = True
        Me.usedlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.usedlist.AllowSort = True
        Me.usedlist.AlternatingRows = True
        Me.usedlist.CaptionHeight = 17
        Me.usedlist.CollapseColor = System.Drawing.Color.Black
        Me.usedlist.ContextMenu = Me.ContextMenu1
        Me.usedlist.Cursor = System.Windows.Forms.Cursors.Default
        Me.usedlist.DataChanged = False
        Me.usedlist.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.usedlist.ExpandColor = System.Drawing.Color.Black
        Me.usedlist.FetchRowStyles = True
        Me.usedlist.FilterBar = True
        Me.usedlist.GroupByCaption = "Drag a column header here to group by that column"
        Me.usedlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
        Me.usedlist.Location = New System.Drawing.Point(3, 16)
        Me.usedlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.usedlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.usedlist.Name = "usedlist"
        Me.usedlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.usedlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.usedlist.PreviewInfo.ZoomFactor = 75
        Me.usedlist.PrintInfo.ShowOptionsDialog = False
        Me.usedlist.RecordSelectorWidth = 16
        GridLines1.Color = System.Drawing.Color.DarkGray
        GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.usedlist.RowDivider = GridLines1
        Me.usedlist.RowHeight = 15
        Me.usedlist.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.usedlist.ScrollTips = True
        Me.usedlist.Size = New System.Drawing.Size(325, 128)
        Me.usedlist.TabIndex = 28
        Me.usedlist.Text = "C1TrueDBGrid1"
        Me.usedlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
        "Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
        "True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
        "Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
        "rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
        "ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
        "or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
        "ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
        "ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
        "1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
        "7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
        "Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
        "th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
        " 124</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
        "yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
        "w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
        "parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
        "Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
        "=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
        "OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
        "/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
        "e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
        """Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
        "ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
        "ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
        "/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
        " /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
        "or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
        " /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
        "ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
        "124</ClientArea></Blob>"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuposdoc, Me.mnulink1})
        '
        'mnuposdoc
        '
        Me.mnuposdoc.Index = 0
        Me.mnuposdoc.Text = "Cursor &im Dokument positionieren"
        '
        'mnulink1
        '
        Me.mnulink1.Index = 1
        Me.mnulink1.Text = "&Platzhalter mit dok. spez.  Wert verknüpfen"
        '
        'GrpIDV
        '
        Me.GrpIDV.Controls.AddRange(New System.Windows.Forms.Control() {Me.idvwerteList})
        Me.GrpIDV.Location = New System.Drawing.Point(8, 168)
        Me.GrpIDV.Name = "GrpIDV"
        Me.GrpIDV.Size = New System.Drawing.Size(336, 104)
        Me.GrpIDV.TabIndex = 4
        Me.GrpIDV.TabStop = False
        Me.GrpIDV.Text = "Verfügbare dokumentspezifische Werte"
        '
        'idvwerteList
        '
        Me.idvwerteList.AllowDelete = True
        Me.idvwerteList.AllowFilter = True
        Me.idvwerteList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.idvwerteList.AllowSort = True
        Me.idvwerteList.AlternatingRows = True
        Me.idvwerteList.CaptionHeight = 17
        Me.idvwerteList.CollapseColor = System.Drawing.Color.Black
        Me.idvwerteList.ContextMenu = Me.ContextMenu2
        Me.idvwerteList.Cursor = System.Windows.Forms.Cursors.Default
        Me.idvwerteList.DataChanged = False
        Me.idvwerteList.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.idvwerteList.ExpandColor = System.Drawing.Color.Black
        Me.idvwerteList.FetchRowStyles = True
        Me.idvwerteList.FilterBar = True
        Me.idvwerteList.GroupByCaption = "Drag a column header here to group by that column"
        Me.idvwerteList.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
        Me.idvwerteList.Location = New System.Drawing.Point(3, 16)
        Me.idvwerteList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.idvwerteList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.idvwerteList.Name = "idvwerteList"
        Me.idvwerteList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.idvwerteList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.idvwerteList.PreviewInfo.ZoomFactor = 75
        Me.idvwerteList.PrintInfo.ShowOptionsDialog = False
        Me.idvwerteList.RecordSelectorWidth = 16
        GridLines2.Color = System.Drawing.Color.DarkGray
        GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.idvwerteList.RowDivider = GridLines2
        Me.idvwerteList.RowHeight = 15
        Me.idvwerteList.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.idvwerteList.ScrollTips = True
        Me.idvwerteList.Size = New System.Drawing.Size(325, 80)
        Me.idvwerteList.TabIndex = 28
        Me.idvwerteList.Text = "C1TrueDBGrid1"
        Me.idvwerteList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
        "Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
        "True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
        ":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
        "rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
        "ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
        "or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
        "Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
        ", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
        "1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
        "7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
        "Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
        "th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
        " 76</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""Sty" & _
        "le10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRow" & _
        """ me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle p" & _
        "arent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingS" & _
        "tyle parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me=" & _
        """Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""O" & _
        "ddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /" & _
        "><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Style" & _
        "1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""" & _
        "Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foot" & _
        "er"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactiv" & _
        "e"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /" & _
        "><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" " & _
        "/><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelecto" & _
        "r"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" " & _
        "/></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modi" & _
        "fied</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, 7" & _
        "6</ClientArea></Blob>"
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnulink2})
        '
        'mnulink2
        '
        Me.mnulink2.Index = 0
        Me.mnulink2.Text = "&Platzhalter mit dok. spez. Wert verknüpfen"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.verklist})
        Me.GroupBox1.Location = New System.Drawing.Point(8, 280)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(336, 144)
        Me.GroupBox1.TabIndex = 5
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Zugeordnete, dokumentspezifische Werte"
        '
        'verklist
        '
        Me.verklist.AllowDelete = True
        Me.verklist.AllowFilter = True
        Me.verklist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.verklist.AllowSort = True
        Me.verklist.AlternatingRows = True
        Me.verklist.CaptionHeight = 17
        Me.verklist.CollapseColor = System.Drawing.Color.Black
        Me.verklist.ContextMenu = Me.ContextMenu3
        Me.verklist.Cursor = System.Windows.Forms.Cursors.Default
        Me.verklist.DataChanged = False
        Me.verklist.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.verklist.ExpandColor = System.Drawing.Color.Black
        Me.verklist.FetchRowStyles = True
        Me.verklist.FilterBar = True
        Me.verklist.GroupByCaption = "Drag a column header here to group by that column"
        Me.verklist.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
        Me.verklist.Location = New System.Drawing.Point(3, 16)
        Me.verklist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.verklist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.verklist.Name = "verklist"
        Me.verklist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.verklist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.verklist.PreviewInfo.ZoomFactor = 75
        Me.verklist.PrintInfo.ShowOptionsDialog = False
        Me.verklist.RecordSelectorWidth = 16
        GridLines3.Color = System.Drawing.Color.DarkGray
        GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.verklist.RowDivider = GridLines3
        Me.verklist.RowHeight = 15
        Me.verklist.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.verklist.ScrollTips = True
        Me.verklist.Size = New System.Drawing.Size(325, 120)
        Me.verklist.TabIndex = 28
        Me.verklist.Text = "C1TrueDBGrid1"
        Me.verklist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
        "Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
        "True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
        "Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
        "rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
        "ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
        "or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
        "ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
        "ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
        "1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
        "7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
        "Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
        "th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
        " 116</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
        "yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
        "w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
        "parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
        "Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
        "=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
        "OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
        "/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
        "e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
        """Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
        "ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
        "ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
        "/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
        " /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
        "or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
        " /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
        "ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
        "116</ClientArea></Blob>"
        '
        'ContextMenu3
        '
        Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuDelVerk})
        '
        'mnuDelVerk
        '
        Me.mnuDelVerk.Index = 0
        Me.mnuDelVerk.Text = "&Verknüpfung löschen"
        '
        'ucnoedit
        '
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.GrpIDV, Me.grpUsed})
        Me.Name = "ucnoedit"
        Me.Size = New System.Drawing.Size(352, 432)
        Me.grpUsed.ResumeLayout(False)
        CType(Me.usedlist, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GrpIDV.ResumeLayout(False)
        CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.verklist, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region


#Region "Deklarationen"
    Dim StdFelder As New DataTable()
    Dim IDVFelder As New DataTable()
    Dim USEDFelder As New DataTable()
    Dim VerkFelder As New DataTable()

    Public Event OnGetStandardvorlagenfelder(ByRef list As DataTable)
    Public Event OnGetIDVFelder(ByRef list As DataTable)
    Public Event OnGetUsedFelder(ByRef list As DataTable)
    Public Event OnGetVerknuepfteFelder(ByRef list As DataTable)

    Public Event OnInsert_TM(ByVal TMName As String, ByVal isfield As Boolean)
    Public Event OnGoto_TM(ByVal TMName As String, ByVal isfield As Boolean)
    Public Event OnDelete_TM(ByVal TMName As String, ByVal isfield As Boolean)



#End Region


    Private Sub ucnoedit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer

        RaiseEvent OnGetUsedFelder(Me.USEDFelder)
        Me.usedlist.DataSource = Me.USEDFelder
        Me.usedlist.DataMember = Me.USEDFelder.TableName
        DivFnkt.SpaltenTitel_Aktualisieren(Me.usedlist, Me.USEDFelder, "edex_sb_vorlagenfelder")

        'With Me.usedlist
        '    For i = 0 To .Splits(0).DisplayColumns.Count - 1
        '        .Splits(0).DisplayColumns(i).Visible = False
        '    Next
        '    .Splits(0).DisplayColumns(0).Visible = True
        '    .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.1
        '    .Splits(0).DisplayColumns(1).Visible = True
        '    .Splits(0).DisplayColumns(1).Width = Me.usedlist.Width * 0.8
        'End With


        RaiseEvent OnGetIDVFelder(Me.IDVFelder)
        Me.idvwerteList.DataSource = Me.IDVFelder
        Me.idvwerteList.DataMember = Me.IDVFelder.TableName
        DivFnkt.SpaltenTitel_Aktualisieren(Me.idvwerteList, Me.IDVFelder, "edex_sb_verk")
        'With Me.idvwerteList
        '    For i = 0 To .Splits(0).DisplayColumns.Count - 1
        '        .Splits(0).DisplayColumns(i).Visible = False
        '    Next
        '    .Splits(0).DisplayColumns(0).Visible = True
        '    .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.9
        '    .Splits(0).DisplayColumns(1).Visible = False
        'End With

        RaiseEvent OnGetVerknuepfteFelder(Me.VerkFelder)
        Me.verklist.DataSource = Me.VerkFelder
        Me.verklist.DataMember = Me.VerkFelder.TableName
        DivFnkt.SpaltenTitel_Aktualisieren(Me.verklist, Me.VerkFelder, "edex_sb_verk")
        'With Me.verklist
        '    For i = 0 To .Splits(0).DisplayColumns.Count - 1
        '        .Splits(0).DisplayColumns(i).Visible = False
        '    Next
        '    .Splits(0).DisplayColumns(0).Visible = True
        '    .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.45
        '    .Splits(0).DisplayColumns(1).Visible = True
        '    .Splits(0).DisplayColumns(1).Width = Me.usedlist.Width * 0.45
        'End With
    End Sub

    Private Sub mnuposdoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuposdoc.Click
        If Me.usedlist.Columns("Feldname").Text <> "" Then
            RaiseEvent OnGoto_TM(Me.usedlist.Columns("feldname").Text, True)
            Exit Sub
        End If
        If Me.usedlist.Columns("beginntextmarke").Text <> "" Then
            RaiseEvent OnGoto_TM(Me.usedlist.Columns("beginntextmarke").Text, False)
            Exit Sub
        End If

        If Me.usedlist.Columns("endetextmarke").Text <> "" Then
            RaiseEvent OnGoto_TM(Me.usedlist.Columns("endetextmarke").Text, False)
        End If
    End Sub

    Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup, ContextMenu2.Popup
        If Me.USEDFelder.Rows.Count = 0 Then
            Me.mnuposdoc.Enabled = False
            Me.mnulink1.Enabled = False
            Me.mnulink2.Enabled = False
        Else
            Me.mnuposdoc.Enabled = True
            Me.mnulink1.Enabled = True
            Me.mnulink2.Enabled = True
        End If

        If Me.IDVFelder.Rows.Count = 0 Then
            Me.mnulink1.Enabled = False
            Me.mnulink2.Enabled = False
        Else
            Me.mnulink1.Enabled = True
            Me.mnulink2.Enabled = True
        End If

    End Sub

    Private Sub mnulink1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnulink1.Click, mnulink2.Click
        Dim row As DataRow
        row = Me.VerkFelder.NewRow
        row.Item(0) = Me.idvwerteList.Columns(0).Text
        row.Item(1) = Me.usedlist.Columns(1).Text
        row.Item(2) = Me.usedlist.Columns(0).Text
        Me.VerkFelder.Rows.Add(row)
    End Sub


    Private Sub ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup
        If Me.VerkFelder.Rows.Count = 0 Then
            Me.mnuDelVerk.Enabled = False
        Else
            Me.mnuDelVerk.Enabled = True
        End If
    End Sub

    Private Sub mnuDelVerk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDelVerk.Click
        Me.verklist.Delete()
        Me.verklist.UpdateData()
    End Sub
End Class