AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Panel aufgeräumt + Ribbon Control Pageheader

Browse Source
This commit is contained in:
OlgunR 2025-06-27 13:05:23 +02:00
parent f256220201
commit 5ac9b9b6fc
3 changed files with 298 additions and 115 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Global_Indexer/frmIndex.designer.vb generated
View File

@ -79,10 +79,13 @@ Partial Class frmIndex
Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components) Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components)
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.DxErrorProvider1 = New DevExpress.XtraEditors.DXErrorProvider.DXErrorProvider(Me.components) Me.DxErrorProvider1 = New DevExpress.XtraEditors.DXErrorProvider.DXErrorProvider(Me.components)
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.tlpIndex = New System.Windows.Forms.TableLayoutPanel()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
Me.pnlIndex.SuspendLayout()
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemLookUpEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemLookUpEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -118,6 +121,7 @@ Partial Class frmIndex
' '
resources.ApplyResources(Me.pnlIndex, "pnlIndex") resources.ApplyResources(Me.pnlIndex, "pnlIndex")
Me.pnlIndex.BackColor = System.Drawing.Color.White Me.pnlIndex.BackColor = System.Drawing.Color.White
Me.pnlIndex.Controls.Add(Me.tlpIndex)
Me.pnlIndex.Name = "pnlIndex" Me.pnlIndex.Name = "pnlIndex"
' '
'ComboboxDoctype 'ComboboxDoctype
@ -146,14 +150,15 @@ Partial Class frmIndex
' '
Me.RibbonControl1.EmptyAreaImageOptions.ImagePadding = New System.Windows.Forms.Padding(47, 49, 47, 49) Me.RibbonControl1.EmptyAreaImageOptions.ImagePadding = New System.Windows.Forms.Padding(47, 49, 47, 49)
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.checkItemPreview, Me.checkItemTopMost, Me.checkItemPreselection, Me.BarSubItem_Profilauswahl, Me.BarEditItem_Profilauswahl, Me.checkItemDeleteSource, Me.BarListItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarCheckItem_MultiIndexing, Me.BarToggleSwitchItem_Preselection, Me.BarButtonItem_OK}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.checkItemPreview, Me.checkItemTopMost, Me.checkItemPreselection, Me.BarSubItem_Profilauswahl, Me.BarEditItem_Profilauswahl, Me.checkItemDeleteSource, Me.BarListItem2, Me.BarEditItem1, Me.BarEditItem2, Me.BarCheckItem_MultiIndexing, Me.BarToggleSwitchItem_Preselection, Me.BarButtonItem_OK, Me.BarButtonItem3})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 31 Me.RibbonControl1.MaxItemId = 32
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.OptionsMenuMinWidth = 519 Me.RibbonControl1.OptionsMenuMinWidth = 519
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemCheckedComboBoxEdit1, Me.RepositoryItemLookUpEdit1, Me.RepositoryItemComboBox1, Me.RepositoryItemSearchLookUpEdit1}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemCheckedComboBoxEdit1, Me.RepositoryItemLookUpEdit1, Me.RepositoryItemComboBox1, Me.RepositoryItemSearchLookUpEdit1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'BarButtonItem1 'BarButtonItem1
@ -468,6 +473,17 @@ Partial Class frmIndex
' '
Me.DxErrorProvider1.ContainerControl = Me Me.DxErrorProvider1.ContainerControl = Me
' '
'BarButtonItem3
'
resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
Me.BarButtonItem3.Id = 31
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'tlpIndex
'
resources.ApplyResources(Me.tlpIndex, "tlpIndex")
Me.tlpIndex.Name = "tlpIndex"
'
'frmIndex 'frmIndex
' '
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
@ -484,6 +500,8 @@ Partial Class frmIndex
Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False)
Me.pnlIndex.ResumeLayout(False)
Me.pnlIndex.PerformLayout()
CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemLookUpEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemLookUpEdit1, System.ComponentModel.ISupportInitialize).EndInit()
@ -520,7 +538,6 @@ Partial Class frmIndex
Friend WithEvents PdfBarController2 As DevExpress.XtraPdfViewer.Bars.PdfBarController Friend WithEvents PdfBarController2 As DevExpress.XtraPdfViewer.Bars.PdfBarController
Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem
@ -558,4 +575,7 @@ Partial Class frmIndex
Friend WithEvents BarCheckItem_MultiIndexing As DevExpress.XtraBars.BarCheckItem Friend WithEvents BarCheckItem_MultiIndexing As DevExpress.XtraBars.BarCheckItem
Friend WithEvents BarToggleSwitchItem_Preselection As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents BarToggleSwitchItem_Preselection As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents BarButtonItem_OK As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem_OK As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents tlpIndex As TableLayoutPanel
End Class End Class

109
Global_Indexer/frmIndex.resx
View File

@ -123,26 +123,59 @@
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing"> <data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 233</value> <value>0, 132</value>
</data>
<data name="SplitContainer1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="pnlIndex.AutoScroll" type="System.Boolean, mscorlib"> <data name="pnlIndex.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="tlpIndex.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="tlpIndex.AutoSizeMode" type="System.Windows.Forms.AutoSizeMode, System.Windows.Forms">
<value>GrowAndShrink</value>
</data>
<data name="tlpIndex.ColumnCount" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="tlpIndex.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="tlpIndex.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="tlpIndex.RowCount" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="tlpIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>615, 479</value>
</data>
<data name="tlpIndex.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;tlpIndex.Name" xml:space="preserve">
<value>tlpIndex</value>
</data>
<data name="&gt;&gt;tlpIndex.Type" xml:space="preserve">
<value>System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;tlpIndex.Parent" xml:space="preserve">
<value>pnlIndex</value>
</data>
<data name="&gt;&gt;tlpIndex.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="tlpIndex.LayoutSettings" type="System.Windows.Forms.TableLayoutSettings, System.Windows.Forms">
<value>&lt;?xml version="1.0" encoding="utf-16"?&gt;&lt;TableLayoutSettings&gt;&lt;Controls /&gt;&lt;Columns Styles="Percent,50,Percent,50" /&gt;&lt;Rows Styles="Percent,50,Percent,50" /&gt;&lt;/TableLayoutSettings&gt;</value>
</data>
<data name="pnlIndex.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="pnlIndex.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
</data> </data>
<data name="pnlIndex.Location" type="System.Drawing.Point, System.Drawing"> <data name="pnlIndex.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 44</value> <value>0, 34</value>
</data>
<data name="pnlIndex.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data> </data>
<data name="pnlIndex.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlIndex.Size" type="System.Drawing.Size, System.Drawing">
<value>968, 842</value> <value>615, 479</value>
</data> </data>
<data name="pnlIndex.TabIndex" type="System.Int32, mscorlib"> <data name="pnlIndex.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -168,9 +201,6 @@
<data name="ComboboxDoctype.Location" type="System.Drawing.Point, System.Drawing"> <data name="ComboboxDoctype.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ComboboxDoctype.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data>
<data name="BarButtonItem1.Caption" xml:space="preserve"> <data name="BarButtonItem1.Caption" xml:space="preserve">
<value>Datei überspringen</value> <value>Datei überspringen</value>
</data> </data>
@ -212,7 +242,7 @@
TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz
cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA
AAAAAADaAQAAAAYKAAAANzxiPsOcYmVyc3ByaW5ndCBkaWUgSW5kZXhpZXJ1bmcgZGVyIGFrdHVlbGxl AAAAAAA8AQAAAAYKAAAANzxiPsOcYmVyc3ByaW5ndCBkaWUgSW5kZXhpZXJ1bmcgZGVyIGFrdHVlbGxl
biBEYXRlaTwvYj4FCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRpb25zBQAA biBEYXRlaTwvYj4FCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRpb25zBQAA
AAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5kZXgTSW1hZ2VUb1RleHREaXN0 AAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5kZXgTSW1hZ2VUb1RleHREaXN0
YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUHAAAAJkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcElt YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUHAAAAJkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcElt
@ -263,7 +293,7 @@
TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz
cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA
AAAAAADaAQAAAAYKAAAALjxiPlfDpGhsZW4sIHVtIERhdGVpdm9yc2NoYXUgenUgYWt0aXZpZXJlbjwv AAAAAAA8AQAAAAYKAAAALjxiPlfDpGhsZW4sIHVtIERhdGVpdm9yc2NoYXUgenUgYWt0aXZpZXJlbjwv
Yj4FCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVy Yj4FCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVy
aQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5kZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAA aQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5kZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAA
E1N5c3RlbS5EcmF3aW5nLlNpemUHAAAAJkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25t E1N5c3RlbS5EcmF3aW5nLlNpemUHAAAAJkRldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25t
@ -318,7 +348,7 @@
TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz
cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA
AAAAAADaAQAAAAYKAAAAKjxiPlplaWd0IGRhcyBGZW5zdGVyIGltIFZvcmRlcmdydW5kIGFuPC9iPgUJ AAAAAAA8AQAAAAYKAAAAKjxiPlplaWd0IGRhcyBGZW5zdGVyIGltIFZvcmRlcmdydW5kIGFuPC9iPgUJ
AAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMFAAAACEltYWdlVXJpDFN2 AAAAKERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMFAAAACEltYWdlVXJpDFN2
Z0ltYWdlU2l6ZQlBbGlnbm1lbnQKSW1hZ2VJbmRleBNJbWFnZVRvVGV4dERpc3RhbmNlAQQEAAATU3lz Z0ltYWdlU2l6ZQlBbGlnbm1lbnQKSW1hZ2VJbmRleBNJbWFnZVRvVGV4dERpc3RhbmNlAQQEAAATU3lz
dGVtLkRyYXdpbmcuU2l6ZQcAAAAmRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSW1hZ2VBbGlnbm1lbnQC dGVtLkRyYXdpbmcuU2l6ZQcAAAAmRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSW1hZ2VBbGlnbm1lbnQC
@ -380,7 +410,7 @@
TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz
cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA
AAAAAADaAQAAAAYKAAAARjxiPlNwZWljaGVydCBkaWUgYWt0dWVsbGUgUHJvZmlsYXVzd2FobCBmw7xy AAAAAAA8AQAAAAYKAAAARjxiPlNwZWljaGVydCBkaWUgYWt0dWVsbGUgUHJvZmlsYXVzd2FobCBmw7xy
IHp1a8O8bmZ0aWdlIFNpdHp1bmdlbjwvYj4FCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVt IHp1a8O8bmZ0aWdlIFNpdHp1bmdlbjwvYj4FCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVt
SW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5kZXgT SW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5kZXgT
SW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUHAAAAJkRldkV4cHJlc3Mu SW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUHAAAAJkRldkV4cHJlc3Mu
@ -490,7 +520,7 @@
TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz
cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA
AAAAAADaAQAAAAYKAAAARzxiPkzDtnNjaHQgZGllIHVycHLDvG5nbGljaGUgRGF0ZWkgbmFjaCBhYmdl AAAAAAA8AQAAAAYKAAAARzxiPkzDtnNjaHQgZGllIHVycHLDvG5nbGljaGUgRGF0ZWkgbmFjaCBhYmdl
c2NobG9zc2VuZXIgSW5kZXhpZXJ1bmc8L2I+BQkAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRl c2NobG9zc2VuZXIgSW5kZXhpZXJ1bmc8L2I+BQkAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRl
bUltYWdlT3B0aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4 bUltYWdlT3B0aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4
E0ltYWdlVG9UZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplBwAAACZEZXZFeHByZXNz E0ltYWdlVG9UZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplBwAAACZEZXZFeHByZXNz
@ -562,7 +592,7 @@
TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz TGVmdEluZGVudAhNYXhXaWR0aBJPd25lckFsbG93SHRtbFRleHQEVGV4dAQEBAAAAAEfRGV2RXhwcmVz
cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz cy5VdGlscy5EZWZhdWx0Qm9vbGVhbgMAAAATU3lzdGVtLkRyYXdpbmcuSWNvbgcAAAAoRGV2RXhwcmVz
cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA cy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0aW9ucwIAAAAICAECAAAAAfj////8////AAAAAAoJCQAA
AAAAAADaAQAAAAYKAAAAPjxiPkluZGV4aWVydCBhbGxlIGdld8OkaGx0ZW4gRGF0ZWllbiBtaXQgZGVt AAAAAAA8AQAAAAYKAAAAPjxiPkluZGV4aWVydCBhbGxlIGdld8OkaGx0ZW4gRGF0ZWllbiBtaXQgZGVt
IHNlbGJlbiBQcm9maWw8L2I+BQkAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0 IHNlbGJlbiBQcm9maWw8L2I+BQkAAAAoRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbUltYWdlT3B0
aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4E0ltYWdlVG9U aW9ucwUAAAAISW1hZ2VVcmkMU3ZnSW1hZ2VTaXplCUFsaWdubWVudApJbWFnZUluZGV4E0ltYWdlVG9U
ZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplBwAAACZEZXZFeHByZXNzLlV0aWxzLlRv ZXh0RGlzdGFuY2UBBAQAABNTeXN0ZW0uRHJhd2luZy5TaXplBwAAACZEZXZFeHByZXNzLlV0aWxzLlRv
@ -604,12 +634,12 @@
<data name="BarButtonItem_OK.ItemAppearance.Pressed.Font" type="System.Drawing.Font, System.Drawing"> <data name="BarButtonItem_OK.ItemAppearance.Pressed.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
</data> </data>
<data name="BarButtonItem3.Caption" xml:space="preserve">
<value>BarButtonItem3</value>
</data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonControl1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve"> <data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Indexierung</value> <value>Indexierung</value>
</data> </data>
@ -626,7 +656,7 @@
<value>Combo</value> <value>Combo</value>
</data> </data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1691, 233</value> <value>1076, 132</value>
</data> </data>
<data name="labelFilePath.Caption" xml:space="preserve"> <data name="labelFilePath.Caption" xml:space="preserve">
<value>labelFilePath</value> <value>labelFilePath</value>
@ -700,13 +730,10 @@
</value> </value>
</data> </data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 1119</value> <value>0, 645</value>
</data>
<data name="RibbonStatusBar1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data> </data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1691, 32</value> <value>1076, 22</value>
</data> </data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value> <value>RibbonStatusBar1</value>
@ -777,11 +804,8 @@
<data name="colName.VisibleIndex" type="System.Int32, mscorlib"> <data name="colName.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
</data> </data>
<data name="colName.Width" type="System.Int32, mscorlib">
<value>118</value>
</data>
<data name="ComboboxDoctype.Size" type="System.Drawing.Size, System.Drawing"> <data name="ComboboxDoctype.Size" type="System.Drawing.Size, System.Drawing">
<value>968, 44</value> <value>615, 34</value>
</data> </data>
<data name="ComboboxDoctype.TabIndex" type="System.Int32, mscorlib"> <data name="ComboboxDoctype.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -817,10 +841,10 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="DocumentViewer1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="DocumentViewer1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 7, 5, 7</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing"> <data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing">
<value>717, 886</value> <value>457, 513</value>
</data> </data>
<data name="DocumentViewer1.TabIndex" type="System.Int32, mscorlib"> <data name="DocumentViewer1.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -850,13 +874,10 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>1691, 886</value> <value>1076, 513</value>
</data> </data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib"> <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>968</value> <value>615</value>
</data>
<data name="SplitContainer1.SplitterWidth" type="System.Int32, mscorlib">
<value>6</value>
</data> </data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -931,16 +952,16 @@
<value>100</value> <value>100</value>
</metadata> </metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing"> <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>11, 28</value> <value>7, 17</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1691, 1151</value> <value>1076, 667</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 7, 5, 7</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Datei Indexierung</value> <value>Datei Indexierung</value>
@ -1209,6 +1230,12 @@
<data name="&gt;&gt;DxErrorProvider1.Type" xml:space="preserve"> <data name="&gt;&gt;DxErrorProvider1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.DXErrorProvider.DXErrorProvider, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.DXErrorProvider.DXErrorProvider, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BarButtonItem3.Name" xml:space="preserve">
<value>BarButtonItem3</value>
</data>
<data name="&gt;&gt;BarButtonItem3.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmIndex</value> <value>frmIndex</value>
</data> </data>

278
Global_Indexer/frmIndex.vb
View File

@ -1,17 +1,18 @@
Imports System.IO Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Security.AccessControl Imports System.Security.AccessControl
Imports System.Text
Imports System.Text.RegularExpressions
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraSpreadsheet.TileLayout
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.GUIs.Common
Imports DigitalData.GUIs.GlobalIndexer
Imports DigitalData.Modules.Base
'Imports System.Security.Principal 'Imports System.Security.Principal
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.GUIs.GlobalIndexer
Imports DevExpress.XtraEditors.Controls
Imports Limilabs.Mail
Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Windream Imports DigitalData.Modules.Windream
Imports Limilabs.Mail
'Imports DevExpress.DataAccess.Native.Json 'Imports DevExpress.DataAccess.Native.Json
'Imports GdPicture.Internal.MSOfficeBinary.translator.Spreadsheet.XlsFileFormat.Records 'Imports GdPicture.Internal.MSOfficeBinary.translator.Spreadsheet.XlsFileFormat.Records
@ -167,6 +168,32 @@ Public Class frmIndex
pnlIndex.Controls.Add(lbl) pnlIndex.Controls.Add(lbl)
End Sub End Sub
Private Sub AddLabelAndControl(labelText As String,
ctrl As Control,
indexName As String)
'--- Label vorbereiten ------------------------------------
Dim lbl As New Label With {
.Name = $"lbl_{indexName}",
.Text = labelText,
.AutoSize = True,
.Anchor = AnchorStyles.Left,
.Margin = New Padding(4, 4, 4, 4) 'äußerer Abstand
}
'--- Control vorbereiten ----------------------------------
ctrl.Anchor = AnchorStyles.Left Or AnchorStyles.Right
ctrl.Margin = New Padding(4, 4, 8, 4) 'äußerer Abstand rechts etwas größer
ctrl.Width = 260 'falls AutoSize=False
'--- Zeile dynamisch anlegen ------------------------------
tlpIndex.RowCount += 1
tlpIndex.RowStyles.Add(New RowStyle(SizeType.AutoSize))
tlpIndex.Controls.Add(lbl, 0, tlpIndex.RowCount - 1) 'Spalte 0 = Label
tlpIndex.Controls.Add(ctrl, 1, tlpIndex.RowCount - 1) 'Spalte 1 = Control
End Sub
Function Indexwert_checkValueDB(indexname As String, wert As String) Function Indexwert_checkValueDB(indexname As String, wert As String)
Try Try
Dim DR As DataRow Dim DR As DataRow
@ -1968,29 +1995,147 @@ Public Class frmIndex
End Try End Try
End Function End Function
'Private Sub LoadIndexe_Man()
' Try
' Dim oScreen As New DigitalData.Modules.Windows.Screen()
' Dim oDpiscale = oScreen.GetScreenScaling(Me)
' Dim oControlCount As Integer = 1
' Dim oLabelPosition As Integer = 11 * oDpiscale
' Dim oControlPosition As Integer = 33 * oDpiscale
' _Logger.Info("Loading Indicies for Screen Scaling Factor [{0}]", oDpiscale)
' Dim oControls As New ControlCreator(LOGCONFIG, pnlIndex, Me) With {
' .OnControlChanged = AddressOf PrepareDependingControl,
' .OnLookupData = AddressOf GetLookupData
' }
' 'Dim oControls As New ClassControls(pnlIndex, Me)
' If DT_INDEXEMAN.Rows.Count = 0 Then
' ' ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
' '_Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
' ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboboxDoctype.Text & " definiert")
' _Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboboxDoctype.Text & " definiert")
' End If
' For Each oRow As DataRow In DT_INDEXEMAN.Rows
' Dim oDataType = oRow.Item("DATATYPE")
' Dim MultiSelect As Boolean = oRow.Item("MULTISELECT")
' Dim AddNewItems As Boolean = oRow.Item("VKT_ADD_ITEM")
' Dim PreventDuplicates As Boolean = oRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
' Dim oControlName As String = oRow.Item("NAME")
' Dim oConnectionId = oRow.ItemEx("CONNECTION_ID", 0)
' Dim oSQLSuggestion = oRow.Item("SUGGESTION")
' Dim oSQLResult = oRow.Item("SQL_RESULT")
' LOGGER.Debug("IndexName: {0}", oControlName)
' LOGGER.Debug("SQL: {0}", oSQLResult)
' If oDataType <> ClassConstants.INDEX_TYPE_BOOLEAN Then
' addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount)
' End If
' Dim DefaultValue = Check_HistoryValues(oControlName, oRow.Item("DOKUMENTART"))
' If DefaultValue Is Nothing Then
' DefaultValue = GetPlaceholderValue(oRow.Item("DEFAULT_VALUE"), CURRENT_WORKFILE, USER_SHORTNAME)
' End If
' Select Case oDataType
' Case ClassConstants.INDEX_TYPE_BOOLEAN
' Dim chk As CheckEdit = oControls.AddCheckBox(oControlName, oControlPosition, DefaultValue, oRow.Item("COMMENT").ToString)
' If Not IsNothing(chk) Then
' pnlIndex.Controls.Add(chk)
' End If
' Case ClassConstants.INDEX_TYPE_INTEGER
' If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then
' Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
' If Not IsNothing(oControl) Then
' pnlIndex.Controls.Add(oControl)
' End If
' Else
' 'nur eine Textbox
' Dim oControl = oControls.AddTextBox(oControlName, oControlPosition, DefaultValue, oDataType)
' If Not IsNothing(oControl) Then
' pnlIndex.Controls.Add(oControl)
' End If
' End If
' Case ClassConstants.INDEX_TYPE_VARCHAR
' If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then
' Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
' If Not IsNothing(oControl) Then
' pnlIndex.Controls.Add(oControl)
' End If
' Else
' If oControlName.ToString.ToLower = "dateiname" Then
' Dim oControl = oControls.AddTextBox(oControlName, oControlPosition, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE), oDataType)
' If Not IsNothing(oControl) Then
' pnlIndex.Controls.Add(oControl)
' End If
' Else
' Dim VORBELGUNG As String = DefaultValue
' Dim oControl = oControls.AddTextBox(oControlName, oControlPosition, VORBELGUNG, oDataType)
' If Not IsNothing(oControl) Then
' pnlIndex.Controls.Add(oControl)
' End If
' End If
' End If
' Case "DATE"
' Dim oPicker = oControls.AddDateTimePicker(oControlName, oControlPosition, DefaultValue)
' pnlIndex.Controls.Add(oPicker)
' Case Else
' If USER_LANGUAGE = LANG_DE Then
' MsgBox("Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!", MsgBoxStyle.Critical, "Achtung:")
' Else
' MsgBox("Please check Datatype of Indexvalue!", MsgBoxStyle.Critical, "Warning:")
' End If
' _Logger.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
' End Select
' oControlCount += 1
' oLabelPosition += 50 * oDpiscale
' oControlPosition += 50 * oDpiscale
' 'make y as height in fom
' Next
' Dim oPanelHeight = oControlPosition - 30
' If pnlIndex.Height < oPanelHeight Then
' If (Me.Height - 315) < oPanelHeight Then
' Me.Height = (Me.Height - 315) + oPanelHeight
' End If
' pnlIndex.Height = oPanelHeight
' End If
' SendKeys.Send("{TAB}")
' Catch ex As Exception
' ShowErrorMessage(ex, "LoadIndexe_Man")
' End Try
'End Sub
Private Sub LoadIndexe_Man() Private Sub LoadIndexe_Man()
Try Try
Dim oScreen As New DigitalData.Modules.Windows.Screen() Dim oScreen As New DigitalData.Modules.Windows.Screen()
Dim oDpiscale = oScreen.GetScreenScaling(Me) Dim oDpiscale = oScreen.GetScreenScaling(Me)
Dim oControlCount As Integer = 1 Dim oRowTop As Integer = 20 * oDpiscale
Dim oLabelPosition As Integer = 11 * oDpiscale Dim oLabelLeft As Integer = 10
Dim oControlPosition As Integer = 33 * oDpiscale Dim oControlLeft As Integer = 160
Dim oControlWidth As Integer = 300
Dim oZeilenhoehe As Integer = 30 * oDpiscale
_Logger.Info("Loading Indicies for Screen Scaling Factor [{0}]", oDpiscale) _Logger.Info("Loading Indicies for Screen Scaling Factor [{0}]", oDpiscale)
Dim oControls As New ControlCreator(LOGCONFIG, pnlIndex, Me) With { Dim oControls As New ControlCreator(LOGCONFIG, pnlIndex, Me) With {
.OnControlChanged = AddressOf PrepareDependingControl, .OnControlChanged = AddressOf PrepareDependingControl,
.OnLookupData = AddressOf GetLookupData .OnLookupData = AddressOf GetLookupData
} }
'Dim oControls As New ClassControls(pnlIndex, Me)
If DT_INDEXEMAN.Rows.Count = 0 Then If DT_INDEXEMAN.Rows.Count = 0 Then
' ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
'_Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboboxDoctype.Text & " definiert") ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboboxDoctype.Text & " definiert")
_Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboboxDoctype.Text & " definiert") _Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboboxDoctype.Text & " definiert")
End If End If
@ -2008,75 +2153,65 @@ Public Class frmIndex
LOGGER.Debug("IndexName: {0}", oControlName) LOGGER.Debug("IndexName: {0}", oControlName)
LOGGER.Debug("SQL: {0}", oSQLResult) LOGGER.Debug("SQL: {0}", oSQLResult)
If oDataType <> ClassConstants.INDEX_TYPE_BOOLEAN Then
addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount)
End If
Dim DefaultValue = Check_HistoryValues(oControlName, oRow.Item("DOKUMENTART")) Dim DefaultValue = Check_HistoryValues(oControlName, oRow.Item("DOKUMENTART"))
If DefaultValue Is Nothing Then If DefaultValue Is Nothing Then
DefaultValue = GetPlaceholderValue(oRow.Item("DEFAULT_VALUE"), CURRENT_WORKFILE, USER_SHORTNAME) DefaultValue = GetPlaceholderValue(oRow.Item("DEFAULT_VALUE"), CURRENT_WORKFILE, USER_SHORTNAME)
End If End If
Dim ctrl As Control = Nothing
' Label nur anzeigen, wenn nicht BOOLEAN
If oDataType <> ClassConstants.INDEX_TYPE_BOOLEAN Then
Dim lbl As New Label()
lbl.Text = oRow.Item("COMMENT").ToString()
lbl.Left = oLabelLeft
lbl.Top = oRowTop
lbl.Width = oControlLeft - oLabelLeft - 10
lbl.Height = 20
lbl.TextAlign = ContentAlignment.MiddleRight
pnlIndex.Controls.Add(lbl)
End If
' Control erzeugen und platzieren
Select Case oDataType Select Case oDataType
Case ClassConstants.INDEX_TYPE_BOOLEAN Case ClassConstants.INDEX_TYPE_BOOLEAN
Dim chk As CheckEdit = oControls.AddCheckBox(oControlName, oControlPosition, DefaultValue, oRow.Item("COMMENT").ToString) Dim chk As CheckEdit = oControls.AddCheckBox(oControlName, oRowTop, DefaultValue, oRow.Item("COMMENT").ToString)
If Not IsNothing(chk) Then If chk IsNot Nothing Then
chk.Left = oControlLeft
chk.Top = oRowTop
chk.Width = oControlWidth
chk.Margin = New Padding(0, 4, 0, 4)
pnlIndex.Controls.Add(chk) pnlIndex.Controls.Add(chk)
End If End If
Case ClassConstants.INDEX_TYPE_INTEGER Case ClassConstants.INDEX_TYPE_INTEGER, ClassConstants.INDEX_TYPE_VARCHAR
If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then If (oSQLSuggestion = True AndAlso oSQLResult.ToString.Length > 0) OrElse MultiSelect = True Then
Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates) ctrl = oControls.AddLookupControl(oControlName, oRowTop, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
If Not IsNothing(oControl) Then
pnlIndex.Controls.Add(oControl)
End If
Else Else
'nur eine Textbox If oControlName.ToLower() = "dateiname" Then
Dim oControl = oControls.AddTextBox(oControlName, oControlPosition, DefaultValue, oDataType) ctrl = oControls.AddTextBox(oControlName, oRowTop, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE), oDataType)
If Not IsNothing(oControl) Then
pnlIndex.Controls.Add(oControl)
End If
End If
Case ClassConstants.INDEX_TYPE_VARCHAR
If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then
Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
If Not IsNothing(oControl) Then
pnlIndex.Controls.Add(oControl)
End If
Else
If oControlName.ToString.ToLower = "dateiname" Then
Dim oControl = oControls.AddTextBox(oControlName, oControlPosition, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE), oDataType)
If Not IsNothing(oControl) Then
pnlIndex.Controls.Add(oControl)
End If
Else Else
Dim VORBELGUNG As String = DefaultValue ctrl = oControls.AddTextBox(oControlName, oRowTop, DefaultValue, oDataType)
Dim oControl = oControls.AddTextBox(oControlName, oControlPosition, VORBELGUNG, oDataType)
If Not IsNothing(oControl) Then
pnlIndex.Controls.Add(oControl)
End If
End If End If
End If End If
Case "DATE" Case "DATE"
Dim oPicker = oControls.AddDateTimePicker(oControlName, oControlPosition, DefaultValue) ctrl = oControls.AddDateTimePicker(oControlName, oRowTop, DefaultValue)
pnlIndex.Controls.Add(oPicker)
Case Else Case Else
If USER_LANGUAGE = LANG_DE Then MsgBox("Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!", MsgBoxStyle.Critical, "Achtung:")
MsgBox("Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!", MsgBoxStyle.Critical, "Achtung:")
Else
MsgBox("Please check Datatype of Indexvalue!", MsgBoxStyle.Critical, "Warning:")
End If
_Logger.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man") _Logger.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
End Select End Select
oControlCount += 1 If ctrl IsNot Nothing Then
oLabelPosition += 50 * oDpiscale ctrl.Left = oControlLeft
oControlPosition += 50 * oDpiscale ctrl.Top = oRowTop
'make y as height in fom ctrl.Width = oControlWidth
Next pnlIndex.Controls.Add(ctrl)
Dim oPanelHeight = oControlPosition - 30 End If
oRowTop += oZeilenhoehe
Next
' Panel- und Formhöhe anpassen, wenn nötig
Dim oPanelHeight = oRowTop + 10
If pnlIndex.Height < oPanelHeight Then If pnlIndex.Height < oPanelHeight Then
If (Me.Height - 315) < oPanelHeight Then If (Me.Height - 315) < oPanelHeight Then
Me.Height = (Me.Height - 315) + oPanelHeight Me.Height = (Me.Height - 315) + oPanelHeight
@ -2085,6 +2220,7 @@ Public Class frmIndex
End If End If
SendKeys.Send("{TAB}") SendKeys.Send("{TAB}")
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex, "LoadIndexe_Man") ShowErrorMessage(ex, "LoadIndexe_Man")
End Try End Try