You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
504 lines
28 KiB
504 lines
28 KiB
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
|