Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Drawing
Imports System.Drawing.Color
Imports System.ComponentModel
Namespace EDOKA
    Public Class frmRelEditor
        Inherits System.Windows.Forms.Form

#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

        ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
        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 ToolBar1 As System.Windows.Forms.ToolBar
        Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
        Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
        Friend WithEvents Panel1 As System.Windows.Forms.Panel
        Friend WithEvents Panel2 As System.Windows.Forms.Panel
        Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
        Friend WithEvents Splitter2 As System.Windows.Forms.Splitter
        Friend WithEvents TBLeft As C1.Win.C1TrueDBGrid.C1TrueDBGrid
        Friend WithEvents GrpFocus As System.Windows.Forms.GroupBox
        Friend WithEvents Label1 As System.Windows.Forms.Label
        Friend WithEvents FokusRight As System.Windows.Forms.RadioButton
        Friend WithEvents FokusLeft As System.Windows.Forms.RadioButton
        Friend WithEvents GrpRight As System.Windows.Forms.GroupBox
        Friend WithEvents GrpLeft As System.Windows.Forms.GroupBox
        Friend WithEvents Panel3 As System.Windows.Forms.Panel
        Friend WithEvents TBRight As C1.Win.C1TrueDBGrid.C1TrueDBGrid
        Friend WithEvents Panel4 As System.Windows.Forms.Panel
        Friend WithEvents Panel5 As System.Windows.Forms.Panel
        Friend WithEvents TBBottom As C1.Win.C1TrueDBGrid.C1TrueDBGrid
        Friend WithEvents GrpBottom As System.Windows.Forms.GroupBox
        Friend WithEvents BtnConnect As System.Windows.Forms.Button
        Friend WithEvents ToolBarBtnSave As System.Windows.Forms.ToolBarButton
        Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
        Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
        Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
        Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Me.components = New System.ComponentModel.Container()
            Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmRelEditor))
            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.ToolBar1 = New System.Windows.Forms.ToolBar()
            Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
            Me.ToolBarBtnSave = New System.Windows.Forms.ToolBarButton()
            Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
            Me.Panel1 = New System.Windows.Forms.Panel()
            Me.Panel2 = New System.Windows.Forms.Panel()
            Me.GrpRight = New System.Windows.Forms.GroupBox()
            Me.TBRight = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
            Me.Splitter1 = New System.Windows.Forms.Splitter()
            Me.GrpLeft = New System.Windows.Forms.GroupBox()
            Me.TBLeft = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
            Me.Splitter2 = New System.Windows.Forms.Splitter()
            Me.GrpFocus = New System.Windows.Forms.GroupBox()
            Me.Label1 = New System.Windows.Forms.Label()
            Me.FokusRight = New System.Windows.Forms.RadioButton()
            Me.FokusLeft = New System.Windows.Forms.RadioButton()
            Me.Panel3 = New System.Windows.Forms.Panel()
            Me.GrpBottom = New System.Windows.Forms.GroupBox()
            Me.TBBottom = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
            Me.Panel5 = New System.Windows.Forms.Panel()
            Me.BtnConnect = New System.Windows.Forms.Button()
            Me.Panel4 = New System.Windows.Forms.Panel()
            Me.MainMenu1 = New System.Windows.Forms.MainMenu()
            Me.MenuItem1 = New System.Windows.Forms.MenuItem()
            Me.MenuItem3 = New System.Windows.Forms.MenuItem()
            Me.MenuItem2 = New System.Windows.Forms.MenuItem()
            Me.Panel2.SuspendLayout()
            Me.GrpRight.SuspendLayout()
            CType(Me.TBRight, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.GrpLeft.SuspendLayout()
            CType(Me.TBLeft, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.GrpFocus.SuspendLayout()
            Me.Panel3.SuspendLayout()
            Me.GrpBottom.SuspendLayout()
            CType(Me.TBBottom, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.Panel5.SuspendLayout()
            Me.SuspendLayout()
            '
            'ToolBar1
            '
            Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarBtnSave})
            Me.ToolBar1.DropDownArrows = True
            Me.ToolBar1.ImageList = Me.ImageList1
            Me.ToolBar1.Name = "ToolBar1"
            Me.ToolBar1.ShowToolTips = True
            Me.ToolBar1.Size = New System.Drawing.Size(712, 25)
            Me.ToolBar1.TabIndex = 0
            '
            'ToolBarButton1
            '
            Me.ToolBarButton1.ImageIndex = 0
            '
            'ToolBarBtnSave
            '
            Me.ToolBarBtnSave.ImageIndex = 1
            '
            'ImageList1
            '
            Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
            Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
            Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
            Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
            '
            'Panel1
            '
            Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
            Me.Panel1.Location = New System.Drawing.Point(0, 25)
            Me.Panel1.Name = "Panel1"
            Me.Panel1.Size = New System.Drawing.Size(712, 16)
            Me.Panel1.TabIndex = 1
            '
            'Panel2
            '
            Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.GrpRight, Me.Splitter1, Me.GrpLeft})
            Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
            Me.Panel2.Location = New System.Drawing.Point(0, 41)
            Me.Panel2.Name = "Panel2"
            Me.Panel2.Size = New System.Drawing.Size(712, 199)
            Me.Panel2.TabIndex = 2
            '
            'GrpRight
            '
            Me.GrpRight.Controls.AddRange(New System.Windows.Forms.Control() {Me.TBRight})
            Me.GrpRight.Dock = System.Windows.Forms.DockStyle.Fill
            Me.GrpRight.Location = New System.Drawing.Point(315, 0)
            Me.GrpRight.Name = "GrpRight"
            Me.GrpRight.Size = New System.Drawing.Size(397, 199)
            Me.GrpRight.TabIndex = 2
            Me.GrpRight.TabStop = False
            Me.GrpRight.Text = "GroupBox2"
            '
            'TBRight
            '
            Me.TBRight.AllowFilter = True
            Me.TBRight.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
            Me.TBRight.AllowSort = True
            Me.TBRight.AllowUpdate = False
            Me.TBRight.AlternatingRows = True
            Me.TBRight.CaptionHeight = 17
            Me.TBRight.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
            Me.TBRight.CollapseColor = System.Drawing.Color.Black
            Me.TBRight.DataChanged = False
            Me.TBRight.DeadAreaBackColor = System.Drawing.Color.Gray
            Me.TBRight.Dock = System.Windows.Forms.DockStyle.Fill
            Me.TBRight.ExpandColor = System.Drawing.Color.Black
            Me.TBRight.FilterBar = True
            Me.TBRight.GroupByCaption = "Drag a column header here to group by that column"
            Me.TBRight.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
            Me.TBRight.Location = New System.Drawing.Point(3, 16)
            Me.TBRight.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
            Me.TBRight.Name = "TBRight"
            Me.TBRight.PreviewInfo.Location = New System.Drawing.Point(0, 0)
            Me.TBRight.PreviewInfo.Size = New System.Drawing.Size(0, 0)
            Me.TBRight.PreviewInfo.ZoomFactor = 75
            Me.TBRight.PrintInfo.ShowOptionsDialog = False
            Me.TBRight.RecordSelectorWidth = 16
            GridLines1.Color = System.Drawing.Color.DarkGray
            GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
            Me.TBRight.RowDivider = GridLines1
            Me.TBRight.RowHeight = 15
            Me.TBRight.RowSubDividerColor = System.Drawing.Color.DarkGray
            Me.TBRight.ScrollTips = False
            Me.TBRight.Size = New System.Drawing.Size(391, 180)
            Me.TBRight.TabIndex = 8
            Me.TBRight.Text = "C1TrueDBGrid1"
            Me.TBRight.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
            "r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
            "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
            "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
            "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
            "r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
            "lor:Highlight;}Style9{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
            ":Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:" & _
            "ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
            "}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
            " AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
            "oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWi" & _
            "dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
            "ClientRect>0, 0, 387, 176</ClientRect><BorderSide>0</BorderSide><CaptionStyle pa" & _
            "rent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRow" & _
            "Style parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Styl" & _
            "e13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=" & _
            """Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle pare" & _
            "nt=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><" & _
            "OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSel" & _
            "ector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style pare" & _
            "nt=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles>" & _
            "<Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style pare" & _
            "nt=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=" & _
            """Heading"" me=""Inactive"" /><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=""Headi" & _
            "ng"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=" & _
            """Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</ho" & _
            "rzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Client" & _
            "Area>0, 0, 387, 176</ClientArea></Blob>"
            '
            'Splitter1
            '
            Me.Splitter1.Location = New System.Drawing.Point(312, 0)
            Me.Splitter1.Name = "Splitter1"
            Me.Splitter1.Size = New System.Drawing.Size(3, 199)
            Me.Splitter1.TabIndex = 1
            Me.Splitter1.TabStop = False
            '
            'GrpLeft
            '
            Me.GrpLeft.Controls.AddRange(New System.Windows.Forms.Control() {Me.TBLeft})
            Me.GrpLeft.Dock = System.Windows.Forms.DockStyle.Left
            Me.GrpLeft.Name = "GrpLeft"
            Me.GrpLeft.Size = New System.Drawing.Size(312, 199)
            Me.GrpLeft.TabIndex = 0
            Me.GrpLeft.TabStop = False
            Me.GrpLeft.Text = "GroupBox1"
            '
            'TBLeft
            '
            Me.TBLeft.AllowFilter = True
            Me.TBLeft.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
            Me.TBLeft.AllowSort = True
            Me.TBLeft.AllowUpdate = False
            Me.TBLeft.AlternatingRows = True
            Me.TBLeft.CaptionHeight = 17
            Me.TBLeft.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
            Me.TBLeft.CollapseColor = System.Drawing.Color.Black
            Me.TBLeft.DataChanged = False
            Me.TBLeft.DeadAreaBackColor = System.Drawing.Color.Gray
            Me.TBLeft.Dock = System.Windows.Forms.DockStyle.Fill
            Me.TBLeft.ExpandColor = System.Drawing.Color.Black
            Me.TBLeft.FilterBar = True
            Me.TBLeft.GroupByCaption = "Drag a column header here to group by that column"
            Me.TBLeft.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
            Me.TBLeft.Location = New System.Drawing.Point(3, 16)
            Me.TBLeft.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
            Me.TBLeft.Name = "TBLeft"
            Me.TBLeft.PreviewInfo.Location = New System.Drawing.Point(0, 0)
            Me.TBLeft.PreviewInfo.Size = New System.Drawing.Size(0, 0)
            Me.TBLeft.PreviewInfo.ZoomFactor = 75
            Me.TBLeft.PrintInfo.ShowOptionsDialog = False
            Me.TBLeft.RecordSelectorWidth = 16
            GridLines2.Color = System.Drawing.Color.DarkGray
            GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
            Me.TBLeft.RowDivider = GridLines2
            Me.TBLeft.RowHeight = 15
            Me.TBLeft.RowSubDividerColor = System.Drawing.Color.DarkGray
            Me.TBLeft.ScrollTips = False
            Me.TBLeft.Size = New System.Drawing.Size(306, 180)
            Me.TBLeft.TabIndex = 8
            Me.TBLeft.Text = "C1TrueDBGrid1"
            Me.TBLeft.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
            "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
            "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
            "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
            "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
            "r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
            "lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
            ":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
            ":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
            "}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
            " AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
            "oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWi" & _
            "dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
            "ClientRect>0, 0, 302, 176</ClientRect><BorderSide>0</BorderSide><CaptionStyle pa" & _
            "rent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRow" & _
            "Style parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Styl" & _
            "e13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=" & _
            """Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle pare" & _
            "nt=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><" & _
            "OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSel" & _
            "ector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style pare" & _
            "nt=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles>" & _
            "<Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style pare" & _
            "nt=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=" & _
            """Heading"" me=""Inactive"" /><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=""Headi" & _
            "ng"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=" & _
            """Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</ho" & _
            "rzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Client" & _
            "Area>0, 0, 302, 176</ClientArea></Blob>"
            '
            'Splitter2
            '
            Me.Splitter2.Dock = System.Windows.Forms.DockStyle.Top
            Me.Splitter2.Location = New System.Drawing.Point(0, 240)
            Me.Splitter2.Name = "Splitter2"
            Me.Splitter2.Size = New System.Drawing.Size(712, 3)
            Me.Splitter2.TabIndex = 3
            Me.Splitter2.TabStop = False
            '
            'GrpFocus
            '
            Me.GrpFocus.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.FokusRight, Me.FokusLeft})
            Me.GrpFocus.Location = New System.Drawing.Point(216, 0)
            Me.GrpFocus.Name = "GrpFocus"
            Me.GrpFocus.Size = New System.Drawing.Size(200, 32)
            Me.GrpFocus.TabIndex = 17
            Me.GrpFocus.TabStop = False
            '
            'Label1
            '
            Me.Label1.Location = New System.Drawing.Point(78, 13)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(48, 16)
            Me.Label1.TabIndex = 2
            Me.Label1.Text = "Fokus"
            '
            'FokusRight
            '
            Me.FokusRight.Location = New System.Drawing.Point(176, 12)
            Me.FokusRight.Name = "FokusRight"
            Me.FokusRight.Size = New System.Drawing.Size(16, 16)
            Me.FokusRight.TabIndex = 1
            '
            'FokusLeft
            '
            Me.FokusLeft.Location = New System.Drawing.Point(9, 13)
            Me.FokusLeft.Name = "FokusLeft"
            Me.FokusLeft.Size = New System.Drawing.Size(104, 16)
            Me.FokusLeft.TabIndex = 0
            '
            'Panel3
            '
            Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.GrpBottom, Me.Panel5, Me.Panel4})
            Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
            Me.Panel3.Location = New System.Drawing.Point(0, 243)
            Me.Panel3.Name = "Panel3"
            Me.Panel3.Size = New System.Drawing.Size(712, 262)
            Me.Panel3.TabIndex = 18
            '
            'GrpBottom
            '
            Me.GrpBottom.Controls.AddRange(New System.Windows.Forms.Control() {Me.TBBottom})
            Me.GrpBottom.Dock = System.Windows.Forms.DockStyle.Fill
            Me.GrpBottom.Location = New System.Drawing.Point(0, 40)
            Me.GrpBottom.Name = "GrpBottom"
            Me.GrpBottom.Size = New System.Drawing.Size(712, 182)
            Me.GrpBottom.TabIndex = 2
            Me.GrpBottom.TabStop = False
            Me.GrpBottom.Text = "GroupBox1"
            '
            'TBBottom
            '
            Me.TBBottom.AllowFilter = True
            Me.TBBottom.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
            Me.TBBottom.AllowSort = True
            Me.TBBottom.AlternatingRows = True
            Me.TBBottom.CaptionHeight = 17
            Me.TBBottom.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
            Me.TBBottom.CollapseColor = System.Drawing.Color.Black
            Me.TBBottom.DataChanged = False
            Me.TBBottom.DeadAreaBackColor = System.Drawing.Color.Gray
            Me.TBBottom.Dock = System.Windows.Forms.DockStyle.Fill
            Me.TBBottom.ExpandColor = System.Drawing.Color.Black
            Me.TBBottom.FilterBar = True
            Me.TBBottom.GroupByCaption = "Drag a column header here to group by that column"
            Me.TBBottom.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
            Me.TBBottom.Location = New System.Drawing.Point(3, 16)
            Me.TBBottom.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
            Me.TBBottom.Name = "TBBottom"
            Me.TBBottom.PreviewInfo.Location = New System.Drawing.Point(0, 0)
            Me.TBBottom.PreviewInfo.Size = New System.Drawing.Size(0, 0)
            Me.TBBottom.PreviewInfo.ZoomFactor = 75
            Me.TBBottom.PrintInfo.ShowOptionsDialog = False
            Me.TBBottom.RecordSelectorWidth = 16
            GridLines3.Color = System.Drawing.Color.DarkGray
            GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
            Me.TBBottom.RowDivider = GridLines3
            Me.TBBottom.RowHeight = 15
            Me.TBBottom.RowSubDividerColor = System.Drawing.Color.DarkGray
            Me.TBBottom.ScrollTips = False
            Me.TBBottom.Size = New System.Drawing.Size(706, 163)
            Me.TBBottom.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
            Me.TBBottom.TabIndex = 9
            Me.TBBottom.Text = "C1TrueDBGrid1"
            Me.TBBottom.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
            "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
            "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
            "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
            "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
            "r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
            "lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
            ":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
            ":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
            "}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
            " AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
            "oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWi" & _
            "dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
            "ClientRect>0, 0, 702, 159</ClientRect><BorderSide>0</BorderSide><CaptionStyle pa" & _
            "rent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRow" & _
            "Style parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Styl" & _
            "e13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=" & _
            """Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle pare" & _
            "nt=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><" & _
            "OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSel" & _
            "ector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style pare" & _
            "nt=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles>" & _
            "<Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style pare" & _
            "nt=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=" & _
            """Heading"" me=""Inactive"" /><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=""Headi" & _
            "ng"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=" & _
            """Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</ho" & _
            "rzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Client" & _
            "Area>0, 0, 702, 159</ClientArea></Blob>"
            '
            'Panel5
            '
            Me.Panel5.Controls.AddRange(New System.Windows.Forms.Control() {Me.BtnConnect})
            Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top
            Me.Panel5.Name = "Panel5"
            Me.Panel5.Size = New System.Drawing.Size(712, 40)
            Me.Panel5.TabIndex = 1
            '
            'BtnConnect
            '
            Me.BtnConnect.Location = New System.Drawing.Point(288, 8)
            Me.BtnConnect.Name = "BtnConnect"
            Me.BtnConnect.TabIndex = 0
            Me.BtnConnect.Text = "&Verbinden"
            '
            'Panel4
            '
            Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
            Me.Panel4.Location = New System.Drawing.Point(0, 222)
            Me.Panel4.Name = "Panel4"
            Me.Panel4.Size = New System.Drawing.Size(712, 40)
            Me.Panel4.TabIndex = 0
            '
            'MainMenu1
            '
            Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
            '
            'MenuItem1
            '
            Me.MenuItem1.Index = 0
            Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem2})
            Me.MenuItem1.MergeOrder = 1
            Me.MenuItem1.MergeType = System.Windows.Forms.MenuMerge.Replace
            Me.MenuItem1.Shortcut = System.Windows.Forms.Shortcut.F4
            Me.MenuItem1.Text = "&Datei"
            '
            'MenuItem3
            '
            Me.MenuItem3.Index = 0
            Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlF5
            Me.MenuItem3.Text = "&Daten sichern"
            '
            'MenuItem2
            '
            Me.MenuItem2.Index = 1
            Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.AltF4
            Me.MenuItem2.Text = "&Schliessen"
            '
            'frmRelEditor
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(712, 505)
            Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3, Me.GrpFocus, Me.Splitter2, Me.Panel2, Me.Panel1, Me.ToolBar1})
            Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
            Me.Menu = Me.MainMenu1
            Me.Name = "frmRelEditor"
            Me.Text = "frmRelEditor"
            Me.Panel2.ResumeLayout(False)
            Me.GrpRight.ResumeLayout(False)
            CType(Me.TBRight, System.ComponentModel.ISupportInitialize).EndInit()
            Me.GrpLeft.ResumeLayout(False)
            CType(Me.TBLeft, System.ComponentModel.ISupportInitialize).EndInit()
            Me.GrpFocus.ResumeLayout(False)
            Me.Panel3.ResumeLayout(False)
            Me.GrpBottom.ResumeLayout(False)
            CType(Me.TBBottom, System.ComponentModel.ISupportInitialize).EndInit()
            Me.Panel5.ResumeLayout(False)
            Me.ResumeLayout(False)

        End Sub

#End Region

        Dim m_TableNameLeft As String
        Dim m_TableNameRight As String
        Dim m_TableNameBottom As String
        Dim m_KeyLeft As Long
        Dim m_KeyRight As Long
        Dim m_Eintrag As String
        Dim m_Eintragnr As Long


#Region "Properties"

        Property TableNameLeft() As String
            Get
                Return m_TableNameLeft
            End Get
            Set(ByVal Value As String)
                m_TableNameLeft = Value
            End Set
        End Property
        Property TableNameRight() As String
            Get
                Return m_TableNameRight
            End Get
            Set(ByVal Value As String)
                m_TableNameRight = Value
            End Set
        End Property
        Property TableNameBottom() As String
            Get
                Return m_TableNameBottom
            End Get
            Set(ByVal Value As String)
                m_TableNameBottom = Value
            End Set
        End Property
        Property KeyLeft() As Long
            Get
                Return m_KeyLeft
            End Get
            Set(ByVal Value As Long)
                m_KeyLeft = Value
            End Set
        End Property
        Property KeyRight() As Long
            Get
                Return m_KeyRight
            End Get
            Set(ByVal Value As Long)
                m_KeyRight = Value
            End Set
        End Property
        Property Eintrag() As String
            Get
                Return m_Eintrag
            End Get
            Set(ByVal Value As String)
                m_Eintrag = Value
            End Set
        End Property
        Property Eintragnr() As Long
            Get
                Return m_Eintragnr
            End Get
            Set(ByVal Value As Long)
                m_Eintragnr = Value
            End Set
        End Property
#End Region

#Region "Spalten-Formatierung"
        Public Sub SpaltenTitel_Aktualisieren(ByVal tblnr As Integer, ByVal tblname As String, ByVal ds As DataSet)
            'Spaltentitel setzen
            Dim titel As New EDOKA.MySpaltenTitel()
            Dim ts As New EDOKA.Tabellenspalte()
            Dim i As Integer
            Dim t As New DataTable()
            t = ds.Tables(0)
            If tblnr = 1 Then
                ts.Tabelle = tblname
                For i = 0 To Me.TBLeft.Columns.Count - 1
                    Dim s As String
                    s = Me.TBLeft.Columns(i).DataField
                    ts.Feld = s
                    ts.getspalte()
                    If ts.spaltenname <> "" Then
                        Me.TBLeft.Columns(i).Caption = ts.spaltenname

                        If ts.ColWith = 0 Then
                            Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
                            Me.TBLeft.Splits(0).DisplayColumns(i).Visible = False
                        Else
                            Me.TBLeft.Splits(0).DisplayColumns(i).Width = ts.ColWith
                        End If

                        'If Me.TBLeft.Columns(i).Caption = "" Then
                        '    Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
                        'Else
                        '    Me.TBLeft.Splits(0).DisplayColumns(i).Width = ts.ColWith
                        'End If
                        If ts.locked Then
                            Me.TBLeft.Splits(0).DisplayColumns(i).Locked = True
                        End If
                        If ts.AlsHacken Then
                            Me.TBLeft.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                        End If
                        'Präsentation von aktiv
                        If Me.TBLeft.Columns(i).DataField = "aktiv" Then
                            Me.TBLeft.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                            Me.TBLeft.Columns(i).ValueItems.DefaultItem = True
                            Me.TBLeft.Columns(i).DefaultValue = True
                            Me.TBLeft.Columns(i).FilterText = True
                        End If
                        If Me.TBLeft.Columns(i).DataField = "erstellt_am" Then
                            Me.TBLeft.Columns(i).DefaultValue = Now
                        End If
                    Else
                        Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
                    End If
                Next
            End If
            If tblnr = 2 Then
                ts.Tabelle = tblname
                For i = 0 To Me.TBRight.Columns.Count - 1
                    Dim s As String
                    s = Me.TBRight.Columns(i).DataField
                    ts.Feld = s
                    ts.getspalte()
                    Me.TBRight.Columns(i).Caption = ts.spaltenname
                    If ts.ColWith = 0 Then
                        Me.TBRight.Splits(0).DisplayColumns(i).Width = 0
                        Me.TBRight.Splits(0).DisplayColumns(i).Visible = False
                    Else
                        Me.TBRight.Splits(0).DisplayColumns(i).Width = ts.ColWith
                    End If

                    'If Me.TBRight.Columns(i).Caption = "" Then
                    '    Me.TBRight.Splits(0).DisplayColumns(i).Width = 0
                    'Else
                    '    Me.TBRight.Splits(0).DisplayColumns(i).Width = ts.ColWith
                    'End If
                    If ts.locked Then
                        Me.TBRight.Splits(0).DisplayColumns(i).Locked = True
                    End If
                    If ts.AlsHacken Then
                        Me.TBRight.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    End If

                    'Präsentation von aktiv
                    If Me.TBRight.Columns(i).DataField = "aktiv" Then
                        Me.TBRight.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                        Me.TBRight.Columns(i).ValueItems.DefaultItem = True
                        Me.TBRight.Columns(i).DefaultValue = True
                        Me.TBRight.Columns(i).FilterText = True
                    End If
                    If Me.TBRight.Columns(i).DataField = "erstellt_am" Then
                        Me.TBRight.Columns(i).DefaultValue = Now
                    End If
                Next
            End If
            If tblnr = 3 Then
                ts.Tabelle = tblname
                For i = 0 To Me.TBBottom.Columns.Count - 1
                    Dim s As String
                    s = Me.TBBottom.Columns(i).DataField
                    ts.Feld = s
                    ts.getspalte()
                    Me.TBBottom.Columns(i).Caption = ts.spaltenname

                    If ts.ColWith = 0 Then
                        Me.TBBottom.Splits(0).DisplayColumns(i).Width = 0
                        Me.TBBottom.Splits(0).DisplayColumns(i).Visible = False
                    Else
                        Me.TBBottom.Splits(0).DisplayColumns(i).Width = ts.ColWith
                    End If
                    'If Me.TBBottom.Columns(i).Caption = "" Then
                    '    Me.TBBottom.Splits(0).DisplayColumns(i).Width = 0
                    'Else
                    '    Me.TBBottom.Splits(0).DisplayColumns(i).Width = ts.ColWith
                    'End If
                    If ts.locked Then
                        Me.TBBottom.Splits(0).DisplayColumns(i).Locked = True
                    End If
                    If ts.AlsHacken Then
                        Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    End If


                    'Präsentation von aktiv
                    If Me.TBBottom.Columns(i).DataField = "aktiv" Then
                        Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                        Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
                        Me.TBBottom.Columns(i).DefaultValue = True
                        Me.TBBottom.Columns(i).FilterText = True
                    End If
                    If Me.TBBottom.Columns(i).DataField = "erstellt_am" Then
                        Me.TBBottom.Columns(i).DefaultValue = Now
                    End If
                Next
            End If
        End Sub

        Private Sub C1TrueDBGrid1_FetchCellTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBLeft.FetchCellTips
            Dim ts As New EDOKA.Tabellenspalte()
            ts.Tabelle = Me.TableNameLeft
            Try
                ts.Feld = Me.TBLeft.Columns(e.ColIndex).DataField
                ts.getspalte()
                e.CellTip = ts.TipText
                ts = Nothing
            Catch
            End Try
        End Sub

        Private Sub C1TrueDBGrid1_FetchCellTips1(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBRight.FetchCellTips
            Try
                Dim ts As New EDOKA.Tabellenspalte()
                ts.Tabelle = Me.TableNameRight
                ts.Feld = Me.TBRight.Columns(e.ColIndex).DataField
                ts.getspalte()
                e.CellTip = ts.TipText
                ts = Nothing
            Catch
            End Try
        End Sub

        Private Sub C1TrueDBGrid1_FetchCellTips3(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBBottom.FetchCellTips
            Try
                Dim ts As New EDOKA.Tabellenspalte()
                ts.Tabelle = Me.TableNameBottom
                ts.Feld = Me.TBBottom.Columns(e.ColIndex).DataField
                ts.getspalte()
                e.CellTip = ts.TipText
                ts = Nothing
            Catch
            End Try
        End Sub

        Public Sub TBBottom_Format()
            Dim i As Integer
            For i = 0 To Me.TBBottom.Columns.Count - 1
                'Präsentation von aktiv
                If Me.TBBottom.Columns(i).DataField = "aktiv" Then
                    Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    Me.TBBottom.Columns(i).DefaultValue = True
                    Me.TBBottom.Splits(0).DisplayColumns(i).Locked = False
                End If
                If Me.TBBottom.Columns(i).DataField = "zwingend" Then
                    Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
                    Me.TBBottom.Columns(i).DefaultValue = True
                End If
            Next
        End Sub

#End Region

#Region "UpdateGrpText"
        Public Sub UpdateGrpText(ByVal w1 As Integer, ByVal w2 As Integer, ByVal w3 As Integer)
            Me.GrpLeft.Text = Globals.MyTxt.gettext(w1)
            Me.GrpRight.Text = Globals.MyTxt.gettext(w2)
            Me.GrpBottom.Text = Globals.MyTxt.gettext(w3)
        End Sub
#End Region

#Region "Formhandling"

        Private Sub frmVerbEditor_Layout(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LayoutEventArgs) Handles MyBase.Layout
            Me.GrpLeft.Width = Me.ClientSize.Width / 2
            Me.GrpFocus.Left = Me.Splitter1.Left - (Me.GrpFocus.Width / 2)
            Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
            Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
        End Sub

        Private Sub Splitter1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter1.SplitterMoved
            Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
        End Sub

        Private Sub Splitter2_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter2.SplitterMoved
            Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
            Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
        End Sub

        Private Sub frmVerbEditor_WndChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
            Me.GrpLeft.Width = Me.ClientSize.Width / 2
            Me.GrpFocus.Left = Me.Splitter1.Left - (Me.GrpFocus.Width / 2)
            Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
            Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
        End Sub

        Public Sub FormSize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim ds As New edokadb.clsSysadminfunktion()
            If g_bRun Then

                Try
                    ds.cpMainConnectionProvider = conn
                    ds.iSysadminfnktnr = New SqlInt32(CType(m_Eintragnr, Int32))
                    ds.SelectOne()
                    If ds.iFleft.Value <> 0 Then Me.Left = ds.iFleft.Value
                    If ds.iFtop.Value <> 0 Then Me.Top = ds.iFtop.Value
                    If ds.iFwidth.Value <> 0 Then Me.Width = ds.iFwidth.Value
                    If ds.iFheight.Value <> 0 Then Me.Height = ds.iFheight.Value
                    Me.MenuItem1.Text = Me.Eintrag
                Catch
                    '    MsgBox("Error Resizing Form")
                Finally
                End Try
                ds.Dispose()
                Me.Text = Me.Eintrag
                Try
                    Globals.WinPos.Get_Position(Me)
                Catch
                Finally
                End Try
            End If

        End Sub

#End Region

        Private Sub frmVerbEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.FokusLeft.Checked = True
            Me.FokusRight.Checked = False
            Me.TBBottom.ScrollTips = True
            Me.TBBottom.ScrollTips = True
            Me.TBRight.ScrollTips = True
            Me.WindowState = FormWindowState.Maximized
        End Sub

        Private Sub TBBottom_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBBottom.FetchScrollTips
            Try
                Select Case e.ScrollBar
                    Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
                        e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBBottom.Splits(0).Rows.Count)
                End Select
                e.TipStyle.ForeColor = Color.Blue
            Catch
            End Try
        End Sub
        Private Sub TBLeft_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBLeft.FetchScrollTips
            Try
                Select Case e.ScrollBar
                    Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
                        e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBLeft.Splits(0).Rows.Count)
                End Select
                e.TipStyle.ForeColor = Color.Blue
            Catch
            End Try
        End Sub
        Private Sub TBRight_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBRight.FetchScrollTips
            Try
                Select Case e.ScrollBar
                    Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
                        e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBRight.Splits(0).Rows.Count)
                End Select
                e.TipStyle.ForeColor = Color.Blue
            Catch
            End Try
        End Sub

        Private Sub frmVerbEditor_Cloase(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
            Try
                Globals.WinPos.Set_Position(Me)
            Catch
            End Try
        End Sub

        Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click

        End Sub

        Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
            Me.ActiveControl = Me.ToolBar1
            Me.ActiveControl = Me.TBBottom
        End Sub
    End Class
End Namespace