Public Class ucedit
    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 grpStandard As System.Windows.Forms.GroupBox
    Friend WithEvents standardlist 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 mnustandardpositionieren As System.Windows.Forms.MenuItem
    Friend WithEvents grpUsed As System.Windows.Forms.GroupBox
    Friend WithEvents usedlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
    Friend WithEvents mnuinsertStdTM As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
    Friend WithEvents mnuinsertidvtm As System.Windows.Forms.MenuItem
    Friend WithEvents mnudelplatzhalter As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(ucedit))
        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.grpStandard = New System.Windows.Forms.GroupBox()
        Me.standardlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
        Me.mnuinsertStdTM = New System.Windows.Forms.MenuItem()
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
        Me.mnustandardpositionieren = New System.Windows.Forms.MenuItem()
        Me.mnudelplatzhalter = New System.Windows.Forms.MenuItem()
        Me.GrpIDV = New System.Windows.Forms.GroupBox()
        Me.idvwerteList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
        Me.mnuinsertidvtm = New System.Windows.Forms.MenuItem()
        Me.grpUsed = New System.Windows.Forms.GroupBox()
        Me.usedlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.grpStandard.SuspendLayout()
        CType(Me.standardlist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GrpIDV.SuspendLayout()
        CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.grpUsed.SuspendLayout()
        CType(Me.usedlist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'grpStandard
        '
        Me.grpStandard.Controls.AddRange(New System.Windows.Forms.Control() {Me.standardlist})
        Me.grpStandard.Location = New System.Drawing.Point(8, 8)
        Me.grpStandard.Name = "grpStandard"
        Me.grpStandard.Size = New System.Drawing.Size(336, 152)
        Me.grpStandard.TabIndex = 0
        Me.grpStandard.TabStop = False
        Me.grpStandard.Text = "Verfügbare Standard-Werte"
        '
        'standardlist
        '
        Me.standardlist.AllowDelete = True
        Me.standardlist.AllowFilter = True
        Me.standardlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.standardlist.AllowSort = True
        Me.standardlist.AlternatingRows = True
        Me.standardlist.CaptionHeight = 17
        Me.standardlist.CollapseColor = System.Drawing.Color.Black
        Me.standardlist.ContextMenu = Me.ContextMenu2
        Me.standardlist.Cursor = System.Windows.Forms.Cursors.Default
        Me.standardlist.DataChanged = False
        Me.standardlist.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.standardlist.ExpandColor = System.Drawing.Color.Black
        Me.standardlist.FetchRowStyles = True
        Me.standardlist.FilterBar = True
        Me.standardlist.GroupByCaption = "Drag a column header here to group by that column"
        Me.standardlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
        Me.standardlist.Location = New System.Drawing.Point(3, 16)
        Me.standardlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.standardlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.standardlist.Name = "standardlist"
        Me.standardlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.standardlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.standardlist.PreviewInfo.ZoomFactor = 75
        Me.standardlist.PrintInfo.ShowOptionsDialog = False
        Me.standardlist.RecordSelectorWidth = 16
        GridLines1.Color = System.Drawing.Color.DarkGray
        GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.standardlist.RowDivider = GridLines1
        Me.standardlist.RowHeight = 15
        Me.standardlist.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.standardlist.ScrollTips = True
        Me.standardlist.Size = New System.Drawing.Size(325, 128)
        Me.standardlist.TabIndex = 28
        Me.standardlist.Text = "C1TrueDBGrid1"
        Me.standardlist.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>"
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuinsertStdTM})
        '
        'mnuinsertStdTM
        '
        Me.mnuinsertStdTM.Index = 0
        Me.mnuinsertStdTM.Text = "&Platzhalter im Dokument einfügen"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnustandardpositionieren, Me.mnudelplatzhalter})
        '
        'mnustandardpositionieren
        '
        Me.mnustandardpositionieren.Index = 0
        Me.mnustandardpositionieren.Text = "Cursor &im Dokument positionieren"
        '
        'mnudelplatzhalter
        '
        Me.mnudelplatzhalter.Index = 1
        Me.mnudelplatzhalter.Text = "&Platzhalter löschen"
        '
        'GrpIDV
        '
        Me.GrpIDV.Controls.AddRange(New System.Windows.Forms.Control() {Me.idvwerteList})
        Me.GrpIDV.Location = New System.Drawing.Point(8, 160)
        Me.GrpIDV.Name = "GrpIDV"
        Me.GrpIDV.Size = New System.Drawing.Size(336, 104)
        Me.GrpIDV.TabIndex = 1
        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.ContextMenu3
        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>"
        '
        'ContextMenu3
        '
        Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuinsertidvtm})
        '
        'mnuinsertidvtm
        '
        Me.mnuinsertidvtm.Index = 0
        Me.mnuinsertidvtm.Text = "&Platzhalter im Dokument einfügen"
        '
        'grpUsed
        '
        Me.grpUsed.Controls.AddRange(New System.Windows.Forms.Control() {Me.usedlist})
        Me.grpUsed.Location = New System.Drawing.Point(8, 272)
        Me.grpUsed.Name = "grpUsed"
        Me.grpUsed.Size = New System.Drawing.Size(336, 152)
        Me.grpUsed.TabIndex = 2
        Me.grpUsed.TabStop = False
        Me.grpUsed.Text = "Verwendete Werte"
        '
        '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.Images2"), 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
        GridLines3.Color = System.Drawing.Color.DarkGray
        GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.usedlist.RowDivider = GridLines3
        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>"
        '
        'ucedit
        '
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.grpUsed, Me.GrpIDV, Me.grpStandard})
        Me.Name = "ucedit"
        Me.Size = New System.Drawing.Size(352, 432)
        Me.grpStandard.ResumeLayout(False)
        CType(Me.standardlist, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GrpIDV.ResumeLayout(False)
        CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grpUsed.ResumeLayout(False)
        CType(Me.usedlist, 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()

    Public Event OnGetStandardvorlagenfelder(ByRef list As DataTable)
    Public Event OnGetIDVFelder(ByRef list As DataTable)
    Public Event OnGetUsedFelder(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 mnustandardpositionieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnustandardpositionieren.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 ucedit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RaiseEvent OnGetStandardvorlagenfelder(Me.StdFelder)
        Me.standardlist.DataSource = StdFelder
        Me.standardlist.DataMember = StdFelder.TableName
        Dim i As Integer
        DivFnkt.SpaltenTitel_Aktualisieren(Me.standardlist, StdFelder, "edex_sb_vorlagenfelder")
        'With Me.standardlist

        '    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.standardlist.Width * 0.1
        '    .Splits(0).DisplayColumns(1).Visible = True
        '    .Splits(0).DisplayColumns(1).Width = Me.standardlist.Width * 0.8
        'End With


        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

    End Sub

    Private Sub mnuinsertStdTM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuinsertStdTM.Click
        Dim i As Integer
        Dim s As String
        Dim sbtmindex As Integer = 0
        For i = 0 To Me.USEDFelder.Rows.Count - 1
            Try
                If Microsoft.VisualBasic.Left(Me.USEDFelder.Rows(i).Item("beginntextmarke"), 4) = "TMSB" Then
                    sbtmindex = sbtmindex + 1
                End If
            Catch
            End Try
        Next
        s = "TMSB_" + sbtmindex.ToString

        Dim row As DataRow
        row = Me.USEDFelder.NewRow
        row.Item(0) = Me.standardlist.Columns(0).Text
        row.Item(1) = Me.standardlist.Columns(1).Text
        row.Item(2) = ""
        row.Item(3) = s
        row.Item(4) = ""
        Me.USEDFelder.Rows.Add(row)
        RaiseEvent OnInsert_TM(s, False)
    End Sub

    Private Sub mnuinsertidvtm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuinsertidvtm.Click
        Dim i As Integer
        Dim s As String
        Dim sbtmindex As Integer = 0
        For i = 0 To Me.USEDFelder.Rows.Count - 1
            Try
                If Microsoft.VisualBasic.Left(Me.USEDFelder.Rows(i).Item("beginntextmarke"), 5) = "TMISB" Then
                    sbtmindex = sbtmindex + 1
                End If
            Catch
            End Try
        Next
        s = "TMISB_09_" + Me.idvwerteList.Columns(0).Text + "_09_" + sbtmindex.ToString

        Dim row As DataRow
        row = Me.USEDFelder.NewRow
        row.Item(0) = 0
        row.Item(1) = Me.idvwerteList.Columns(0).Text
        row.Item(2) = ""
        row.Item(3) = s
        row.Item(4) = ""
        Me.USEDFelder.Rows.Add(row)
        RaiseEvent OnInsert_TM(s, False)

    End Sub

    Private Sub mnudelplatzhalter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnudelplatzhalter.Click
        If Me.usedlist.Columns("feldname").Text <> "" Then
            RaiseEvent OnGoto_TM(Me.usedlist.Columns("feldname").Text, True)
            RaiseEvent OnDelete_TM(Me.usedlist.Columns("Feldname").Text, True)
        Else
            If Me.usedlist.Columns("Beginntextmarke").Text <> "" Then
                RaiseEvent OnGoto_TM(Me.usedlist.Columns("Beginntextmarke").Text, False)
                RaiseEvent OnDelete_TM(Me.usedlist.Columns("Beginntextmarke").Text, False)
            End If
            If Me.usedlist.Columns("EndeTextmarke").Text <> "" Then
                RaiseEvent OnGoto_TM(Me.usedlist.Columns("Endetextmarke").Text, False)
                RaiseEvent OnDelete_TM(Me.usedlist.Columns("endetextmarke").Text, False)
            End If
        End If
        Me.usedlist.Delete()
        Me.usedlist.UpdateData()
    End Sub
End Class