Make it possible to delete rows

This commit is contained in:
Jonathan Jenne 2021-11-04 11:43:26 +01:00
parent c6622ccbbc
commit 437569919f
10 changed files with 976 additions and 810 deletions

View File

@ -11,12 +11,7 @@ Public Class GridLoader
MyBase.New(pLogConfig, pLogConfig.GetLogger()) MyBase.New(pLogConfig, pLogConfig.GetLogger())
End Sub End Sub
Public Function GetGridFromElement(pTable As Schemas.Schema.Table) As GridControl Public Function GetGridFromElement(pGrid As GridControl, pTable As Schemas.Schema.Table) As GridControl
Dim oGrid As New GridControl With {
.Dock = DockStyle.Fill,
.Name = pTable.Name
}
Dim oInvisibleColumns As New List(Of String) From { Dim oInvisibleColumns As New List(Of String) From {
"BELEGKEY", "BELEGKEY",
"Zeilennummer", "Zeilennummer",
@ -28,10 +23,11 @@ Public Class GridLoader
"Laufnummer" "Laufnummer"
} }
oGrid.ForceInitialize() pGrid.Name = pTable.Name
oGrid.MainView.PopulateColumns() pGrid.ForceInitialize()
pGrid.MainView.PopulateColumns()
Dim oView As GridView = oGrid.DefaultView Dim oView As GridView = pGrid.DefaultView
oView.OptionsBehavior.ReadOnly = True oView.OptionsBehavior.ReadOnly = True
oView.OptionsBehavior.Editable = False oView.OptionsBehavior.Editable = False
@ -63,7 +59,7 @@ Public Class GridLoader
WithReadOnlyOptions(). WithReadOnlyOptions().
WithClipboardHandler() WithClipboardHandler()
Return oGrid Return pGrid
End Function End Function
Private Function GetColumnType(pColumn As Schemas.Schema.Column) Private Function GetColumnType(pColumn As Schemas.Schema.Column)

View File

@ -50,6 +50,9 @@
<PropertyGroup> <PropertyGroup>
<ApplicationIcon>MultiTool.ico</ApplicationIcon> <ApplicationIcon>MultiTool.ico</ApplicationIcon>
</PropertyGroup> </PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@ -276,6 +279,7 @@
</EmbeddedResource> </EmbeddedResource>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp"> <None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator> <Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput> <LastGenOutput>Application.Designer.vb</LastGenOutput>
@ -292,6 +296,7 @@
<Content Include="CREATE_DATABASE.sql" /> <Content Include="CREATE_DATABASE.sql" />
<Content Include="MultiTool.ico" /> <Content Include="MultiTool.ico" />
<Content Include="README.txt" /> <Content Include="README.txt" />
<None Include="Resources\actions_deletecircled.svg" />
<None Include="Resources\bo_unknown1.svg" /> <None Include="Resources\bo_unknown1.svg" />
<None Include="Resources\bo_unknown.svg" /> <None Include="Resources\bo_unknown.svg" />
<None Include="Resources\redo.svg" /> <None Include="Resources\redo.svg" />

View File

@ -80,6 +80,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property actions_deletecircled() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("actions_deletecircled", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>

View File

@ -124,6 +124,9 @@
<data name="redo" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="redo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\redo.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\redo.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="bo_unknown1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_unknown1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="wraptext" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="wraptext" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wraptext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\wraptext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -148,12 +151,12 @@
<data name="open21" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="open21" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open21.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\open21.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="parameters" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\parameters.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="paymentrefund" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="paymentrefund" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\paymentrefund.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\paymentrefund.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="open1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bo_unknown" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="bo_unknown" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_unknown.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\bo_unknown.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
@ -169,8 +172,8 @@
<data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="singlepageview" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="open1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="parameters" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\parameters.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="export" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\export.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\export.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -214,7 +217,7 @@
<data name="itemtypechecked" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="itemtypechecked" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="bo_unknown1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_deletecircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_unknown1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
</root> </root>

View File

@ -0,0 +1,76 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC-Manifestoptionen
Wenn Sie die Ebene der Benutzerkontensteuerung für Windows ändern möchten, ersetzen Sie den
Knoten "requestedExecutionLevel" wie folgt.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Durch Angabe des Elements "requestedExecutionLevel" wird die Datei- und Registrierungsvirtualisierung deaktiviert.
Entfernen Sie dieses Element, wenn diese Virtualisierung aus Gründen der Abwärtskompatibilität
für die Anwendung erforderlich ist.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- Eine Liste der Windows-Versionen, unter denen diese Anwendung getestet
und für die sie entwickelt wurde. Wenn Sie die Auskommentierung der entsprechenden Elemente aufheben,
wird von Windows automatisch die kompatibelste Umgebung ausgewählt. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
<!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere
DPI-Werte skaliert wird. WPF-Anwendungen (Windows Presentation Foundation) sind automatisch mit DPI-Werten kompatibel und müssen sich nicht
anmelden. Für Windows Forms-Anwendungen für .NET Framework 4.6, die sich für diese Einstellung anmelden, muss
auch die Einstellung "'EnableWindowsFormsHighDpiAutoResizing" in der "app.config" auf "true" festgelegt werden. -->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
</windowsSettings>
</application>
-->
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>

View File

@ -0,0 +1,15 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="DeleteCircled">
<path d="M16,4C9.4,4,4,9.4,4,16s5.4,12,12,12s12-5.4,12-12S22.6,4,16,4z M23.1,20.2l-2.8,2.8L16,18.8l-4.2,4.2 l-2.8-2.8l4.2-4.2l-4.2-4.2l2.8-2.8l4.2,4.2l4.2-4.2l2.8,2.8L18.8,16L23.1,20.2z" class="Red" />
</g>
</svg>

View File

@ -51,10 +51,12 @@ Partial Class frmImportMain
Me.txtCurrentFile = New DevExpress.XtraBars.BarStaticItem() Me.txtCurrentFile = New DevExpress.XtraBars.BarStaticItem()
Me.btnConfig = New DevExpress.XtraBars.BarButtonItem() Me.btnConfig = New DevExpress.XtraBars.BarButtonItem()
Me.txtCulture = New DevExpress.XtraBars.BarStaticItem() Me.txtCulture = New DevExpress.XtraBars.BarStaticItem()
Me.btnRemoveRow = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup7 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -73,6 +75,14 @@ Partial Class frmImportMain
Me.SplitContainerGrids2 = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerGrids2 = New DevExpress.XtraEditors.SplitContainerControl()
Me.BehaviorManager = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components) Me.BehaviorManager = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components)
Me.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.MultiTool.Form.frmWaitForm), True, True) Me.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.MultiTool.Form.frmWaitForm), True, True)
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridControl4 = New DevExpress.XtraGrid.GridControl()
Me.GridView4 = New DevExpress.XtraGrid.Views.Grid.GridView()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.SuspendLayout() Me.SplitContainerMain.SuspendLayout()
CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlFiles, System.ComponentModel.ISupportInitialize).BeginInit()
@ -92,34 +102,30 @@ Partial Class frmImportMain
CType(Me.SplitContainerGrids2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerGrids2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerGrids2.SuspendLayout() Me.SplitContainerGrids2.SuspendLayout()
CType(Me.BehaviorManager, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BehaviorManager, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SplitContainerMain 'SplitContainerMain
' '
resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain") resources.ApplyResources(Me.SplitContainerMain, "SplitContainerMain")
Me.SplitContainerMain.Name = "SplitContainerMain" Me.SplitContainerMain.Name = "SplitContainerMain"
resources.ApplyResources(Me.SplitContainerMain.Panel1, "SplitContainerMain.Panel1")
Me.SplitContainerMain.Panel1.Controls.Add(Me.GridControlFiles) Me.SplitContainerMain.Panel1.Controls.Add(Me.GridControlFiles)
Me.SplitContainerMain.Panel1.Controls.Add(Me.PanelControl1) Me.SplitContainerMain.Panel1.Controls.Add(Me.PanelControl1)
resources.ApplyResources(Me.SplitContainerMain.Panel2, "SplitContainerMain.Panel2") resources.ApplyResources(Me.SplitContainerMain.Panel1, "SplitContainerMain.Panel1")
Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainerGrids) Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitContainerGrids)
resources.ApplyResources(Me.SplitContainerMain.Panel2, "SplitContainerMain.Panel2")
Me.SplitContainerMain.SplitterPosition = 380 Me.SplitContainerMain.SplitterPosition = 380
' '
'GridControlFiles 'GridControlFiles
' '
resources.ApplyResources(Me.GridControlFiles, "GridControlFiles") resources.ApplyResources(Me.GridControlFiles, "GridControlFiles")
Me.GridControlFiles.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlFiles.EmbeddedNavigator.AccessibleDescription")
Me.GridControlFiles.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlFiles.EmbeddedNavigator.AccessibleName")
Me.GridControlFiles.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlFiles.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlFiles.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlFiles.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlFiles.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlFiles.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlFiles.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlFiles.EmbeddedNavigator.ToolTip = resources.GetString("GridControlFiles.EmbeddedNavigator.ToolTip")
Me.GridControlFiles.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlFiles.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlFiles.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlFiles.EmbeddedNavigator.ToolTipTitle")
Me.GridControlFiles.MainView = Me.GridViewFiles Me.GridControlFiles.MainView = Me.GridViewFiles
Me.GridControlFiles.MenuManager = Me.RibbonControl Me.GridControlFiles.MenuManager = Me.RibbonControl
Me.GridControlFiles.Name = "GridControlFiles" Me.GridControlFiles.Name = "GridControlFiles"
@ -129,7 +135,6 @@ Partial Class frmImportMain
'GridViewFiles 'GridViewFiles
' '
Me.GridViewFiles.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.gridBand3}) Me.GridViewFiles.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.gridBand3})
resources.ApplyResources(Me.GridViewFiles, "GridViewFiles")
Me.GridViewFiles.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colSelected, Me.colFilename, Me.colMandator, Me.colCreatedAt}) Me.GridViewFiles.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colSelected, Me.colFilename, Me.colMandator, Me.colCreatedAt})
Me.GridViewFiles.GridControl = Me.GridControlFiles Me.GridViewFiles.GridControl = Me.GridControlFiles
Me.GridViewFiles.Name = "GridViewFiles" Me.GridViewFiles.Name = "GridViewFiles"
@ -192,14 +197,10 @@ Partial Class frmImportMain
' '
'RibbonControl 'RibbonControl
' '
resources.ApplyResources(Me.RibbonControl, "RibbonControl")
Me.RibbonControl.ExpandCollapseItem.Id = 0 Me.RibbonControl.ExpandCollapseItem.Id = 0
Me.RibbonControl.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer) Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.txtVersion, Me.txtFilesLoaded, Me.btnLoadFiles, Me.btnTransferFile, Me.btnOpenInputDirectory, Me.btnOpenOutputDirectory, Me.btnOpenSchemaDirectory, Me.btnReloadFile, Me.btnTransferAllFiles, Me.BarButtonItem1, Me.btnShowXml, Me.btnOpenLogDirectory, Me.btnOpenConfigDirectory, Me.txtCurrentFile, Me.btnConfig, Me.txtCulture, Me.btnRemoveRow})
Me.RibbonControl.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer) resources.ApplyResources(Me.RibbonControl, "RibbonControl")
Me.RibbonControl.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.RibbonControl.MaxItemId = 28
Me.RibbonControl.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl.ExpandCollapseItem.SearchTags")
Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.txtVersion, Me.txtFilesLoaded, Me.btnLoadFiles, Me.btnTransferFile, Me.btnOpenInputDirectory, Me.btnOpenOutputDirectory, Me.btnOpenSchemaDirectory, Me.btnReloadFile, Me.btnTransferAllFiles, Me.BarButtonItem1, Me.btnShowXml, Me.btnOpenLogDirectory, Me.btnOpenConfigDirectory, Me.txtCurrentFile, Me.btnConfig, Me.txtCulture})
Me.RibbonControl.MaxItemId = 27
Me.RibbonControl.Name = "RibbonControl" Me.RibbonControl.Name = "RibbonControl"
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage2}) Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage2})
Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemProgressBar1}) Me.RibbonControl.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemProgressBar1})
@ -210,12 +211,9 @@ Partial Class frmImportMain
' '
'txtVersion 'txtVersion
' '
resources.ApplyResources(Me.txtVersion, "txtVersion")
Me.txtVersion.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right Me.txtVersion.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
resources.ApplyResources(Me.txtVersion, "txtVersion")
Me.txtVersion.Id = 1 Me.txtVersion.Id = 1
Me.txtVersion.ImageOptions.ImageIndex = CType(resources.GetObject("txtVersion.ImageOptions.ImageIndex"), Integer)
Me.txtVersion.ImageOptions.LargeImageIndex = CType(resources.GetObject("txtVersion.ImageOptions.LargeImageIndex"), Integer)
Me.txtVersion.ImageOptions.SvgImage = CType(resources.GetObject("txtVersion.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.txtVersion.Name = "txtVersion" Me.txtVersion.Name = "txtVersion"
Me.txtVersion.Tag = "Version {0}" Me.txtVersion.Tag = "Version {0}"
' '
@ -223,9 +221,6 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.txtFilesLoaded, "txtFilesLoaded") resources.ApplyResources(Me.txtFilesLoaded, "txtFilesLoaded")
Me.txtFilesLoaded.Id = 2 Me.txtFilesLoaded.Id = 2
Me.txtFilesLoaded.ImageOptions.ImageIndex = CType(resources.GetObject("txtFilesLoaded.ImageOptions.ImageIndex"), Integer)
Me.txtFilesLoaded.ImageOptions.LargeImageIndex = CType(resources.GetObject("txtFilesLoaded.ImageOptions.LargeImageIndex"), Integer)
Me.txtFilesLoaded.ImageOptions.SvgImage = CType(resources.GetObject("txtFilesLoaded.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.txtFilesLoaded.Name = "txtFilesLoaded" Me.txtFilesLoaded.Name = "txtFilesLoaded"
Me.txtFilesLoaded.Tag = "{0} Dateien geladen" Me.txtFilesLoaded.Tag = "{0} Dateien geladen"
' '
@ -233,8 +228,6 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.btnLoadFiles, "btnLoadFiles") resources.ApplyResources(Me.btnLoadFiles, "btnLoadFiles")
Me.btnLoadFiles.Id = 3 Me.btnLoadFiles.Id = 3
Me.btnLoadFiles.ImageOptions.ImageIndex = CType(resources.GetObject("btnLoadFiles.ImageOptions.ImageIndex"), Integer)
Me.btnLoadFiles.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnLoadFiles.ImageOptions.LargeImageIndex"), Integer)
Me.btnLoadFiles.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.export Me.btnLoadFiles.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.export
Me.btnLoadFiles.Name = "btnLoadFiles" Me.btnLoadFiles.Name = "btnLoadFiles"
' '
@ -242,8 +235,6 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.btnTransferFile, "btnTransferFile") resources.ApplyResources(Me.btnTransferFile, "btnTransferFile")
Me.btnTransferFile.Id = 4 Me.btnTransferFile.Id = 4
Me.btnTransferFile.ImageOptions.ImageIndex = CType(resources.GetObject("btnTransferFile.ImageOptions.ImageIndex"), Integer)
Me.btnTransferFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnTransferFile.ImageOptions.LargeImageIndex"), Integer)
Me.btnTransferFile.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_send1 Me.btnTransferFile.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_send1
Me.btnTransferFile.Name = "btnTransferFile" Me.btnTransferFile.Name = "btnTransferFile"
' '
@ -251,8 +242,6 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.btnOpenInputDirectory, "btnOpenInputDirectory") resources.ApplyResources(Me.btnOpenInputDirectory, "btnOpenInputDirectory")
Me.btnOpenInputDirectory.Id = 6 Me.btnOpenInputDirectory.Id = 6
Me.btnOpenInputDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenInputDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenInputDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenInputDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenInputDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.open22 Me.btnOpenInputDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.open22
Me.btnOpenInputDirectory.Name = "btnOpenInputDirectory" Me.btnOpenInputDirectory.Name = "btnOpenInputDirectory"
' '
@ -260,8 +249,6 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.btnOpenOutputDirectory, "btnOpenOutputDirectory") resources.ApplyResources(Me.btnOpenOutputDirectory, "btnOpenOutputDirectory")
Me.btnOpenOutputDirectory.Id = 7 Me.btnOpenOutputDirectory.Id = 7
Me.btnOpenOutputDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenOutputDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenOutputDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenOutputDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenOutputDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.up Me.btnOpenOutputDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.up
Me.btnOpenOutputDirectory.Name = "btnOpenOutputDirectory" Me.btnOpenOutputDirectory.Name = "btnOpenOutputDirectory"
' '
@ -269,8 +256,6 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.btnOpenSchemaDirectory, "btnOpenSchemaDirectory") resources.ApplyResources(Me.btnOpenSchemaDirectory, "btnOpenSchemaDirectory")
Me.btnOpenSchemaDirectory.Id = 9 Me.btnOpenSchemaDirectory.Id = 9
Me.btnOpenSchemaDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenSchemaDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenSchemaDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenSchemaDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenSchemaDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.open1 Me.btnOpenSchemaDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.open1
Me.btnOpenSchemaDirectory.Name = "btnOpenSchemaDirectory" Me.btnOpenSchemaDirectory.Name = "btnOpenSchemaDirectory"
' '
@ -279,8 +264,6 @@ Partial Class frmImportMain
resources.ApplyResources(Me.btnReloadFile, "btnReloadFile") resources.ApplyResources(Me.btnReloadFile, "btnReloadFile")
Me.btnReloadFile.Enabled = False Me.btnReloadFile.Enabled = False
Me.btnReloadFile.Id = 11 Me.btnReloadFile.Id = 11
Me.btnReloadFile.ImageOptions.ImageIndex = CType(resources.GetObject("btnReloadFile.ImageOptions.ImageIndex"), Integer)
Me.btnReloadFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnReloadFile.ImageOptions.LargeImageIndex"), Integer)
Me.btnReloadFile.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.rotatecounterclockwise Me.btnReloadFile.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.rotatecounterclockwise
Me.btnReloadFile.Name = "btnReloadFile" Me.btnReloadFile.Name = "btnReloadFile"
' '
@ -289,8 +272,6 @@ Partial Class frmImportMain
resources.ApplyResources(Me.btnTransferAllFiles, "btnTransferAllFiles") resources.ApplyResources(Me.btnTransferAllFiles, "btnTransferAllFiles")
Me.btnTransferAllFiles.Enabled = False Me.btnTransferAllFiles.Enabled = False
Me.btnTransferAllFiles.Id = 13 Me.btnTransferAllFiles.Id = 13
Me.btnTransferAllFiles.ImageOptions.ImageIndex = CType(resources.GetObject("btnTransferAllFiles.ImageOptions.ImageIndex"), Integer)
Me.btnTransferAllFiles.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnTransferAllFiles.ImageOptions.LargeImageIndex"), Integer)
Me.btnTransferAllFiles.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_send Me.btnTransferAllFiles.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_send
Me.btnTransferAllFiles.Name = "btnTransferAllFiles" Me.btnTransferAllFiles.Name = "btnTransferAllFiles"
' '
@ -299,8 +280,6 @@ Partial Class frmImportMain
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Enabled = False Me.BarButtonItem1.Enabled = False
Me.BarButtonItem1.Id = 14 Me.BarButtonItem1.Id = 14
Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.mailmergepreview Me.BarButtonItem1.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.mailmergepreview
Me.BarButtonItem1.Name = "BarButtonItem1" Me.BarButtonItem1.Name = "BarButtonItem1"
' '
@ -309,8 +288,6 @@ Partial Class frmImportMain
resources.ApplyResources(Me.btnShowXml, "btnShowXml") resources.ApplyResources(Me.btnShowXml, "btnShowXml")
Me.btnShowXml.Enabled = False Me.btnShowXml.Enabled = False
Me.btnShowXml.Id = 15 Me.btnShowXml.Id = 15
Me.btnShowXml.ImageOptions.ImageIndex = CType(resources.GetObject("btnShowXml.ImageOptions.ImageIndex"), Integer)
Me.btnShowXml.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnShowXml.ImageOptions.LargeImageIndex"), Integer)
Me.btnShowXml.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.togglefieldcodes Me.btnShowXml.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.togglefieldcodes
Me.btnShowXml.Name = "btnShowXml" Me.btnShowXml.Name = "btnShowXml"
' '
@ -318,8 +295,6 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.btnOpenLogDirectory, "btnOpenLogDirectory") resources.ApplyResources(Me.btnOpenLogDirectory, "btnOpenLogDirectory")
Me.btnOpenLogDirectory.Id = 16 Me.btnOpenLogDirectory.Id = 16
Me.btnOpenLogDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenLogDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenLogDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenLogDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenLogDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.logical Me.btnOpenLogDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.logical
Me.btnOpenLogDirectory.Name = "btnOpenLogDirectory" Me.btnOpenLogDirectory.Name = "btnOpenLogDirectory"
' '
@ -327,8 +302,6 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.btnOpenConfigDirectory, "btnOpenConfigDirectory") resources.ApplyResources(Me.btnOpenConfigDirectory, "btnOpenConfigDirectory")
Me.btnOpenConfigDirectory.Id = 17 Me.btnOpenConfigDirectory.Id = 17
Me.btnOpenConfigDirectory.ImageOptions.ImageIndex = CType(resources.GetObject("btnOpenConfigDirectory.ImageOptions.ImageIndex"), Integer)
Me.btnOpenConfigDirectory.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnOpenConfigDirectory.ImageOptions.LargeImageIndex"), Integer)
Me.btnOpenConfigDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.parameters Me.btnOpenConfigDirectory.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.parameters
Me.btnOpenConfigDirectory.Name = "btnOpenConfigDirectory" Me.btnOpenConfigDirectory.Name = "btnOpenConfigDirectory"
' '
@ -336,9 +309,6 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.txtCurrentFile, "txtCurrentFile") resources.ApplyResources(Me.txtCurrentFile, "txtCurrentFile")
Me.txtCurrentFile.Id = 23 Me.txtCurrentFile.Id = 23
Me.txtCurrentFile.ImageOptions.ImageIndex = CType(resources.GetObject("txtCurrentFile.ImageOptions.ImageIndex"), Integer)
Me.txtCurrentFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("txtCurrentFile.ImageOptions.LargeImageIndex"), Integer)
Me.txtCurrentFile.ImageOptions.SvgImage = CType(resources.GetObject("txtCurrentFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.txtCurrentFile.Name = "txtCurrentFile" Me.txtCurrentFile.Name = "txtCurrentFile"
Me.txtCurrentFile.Tag = "Aktuelle Datei: {0}" Me.txtCurrentFile.Tag = "Aktuelle Datei: {0}"
' '
@ -346,25 +316,27 @@ Partial Class frmImportMain
' '
resources.ApplyResources(Me.btnConfig, "btnConfig") resources.ApplyResources(Me.btnConfig, "btnConfig")
Me.btnConfig.Id = 24 Me.btnConfig.Id = 24
Me.btnConfig.ImageOptions.ImageIndex = CType(resources.GetObject("btnConfig.ImageOptions.ImageIndex"), Integer)
Me.btnConfig.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnConfig.ImageOptions.LargeImageIndex"), Integer)
Me.btnConfig.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.bo_unknown Me.btnConfig.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.bo_unknown
Me.btnConfig.Name = "btnConfig" Me.btnConfig.Name = "btnConfig"
' '
'txtCulture 'txtCulture
' '
resources.ApplyResources(Me.txtCulture, "txtCulture")
Me.txtCulture.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right Me.txtCulture.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
resources.ApplyResources(Me.txtCulture, "txtCulture")
Me.txtCulture.Id = 26 Me.txtCulture.Id = 26
Me.txtCulture.ImageOptions.ImageIndex = CType(resources.GetObject("txtCulture.ImageOptions.ImageIndex"), Integer)
Me.txtCulture.ImageOptions.LargeImageIndex = CType(resources.GetObject("txtCulture.ImageOptions.LargeImageIndex"), Integer)
Me.txtCulture.ImageOptions.SvgImage = CType(resources.GetObject("txtCulture.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.txtCulture.Name = "txtCulture" Me.txtCulture.Name = "txtCulture"
Me.txtCulture.Tag = "Culture: {0}" Me.txtCulture.Tag = "Culture: {0}"
' '
'btnRemoveRow
'
resources.ApplyResources(Me.btnRemoveRow, "btnRemoveRow")
Me.btnRemoveRow.Id = 27
Me.btnRemoveRow.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_deletecircled
Me.btnRemoveRow.Name = "btnRemoveRow"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup4, Me.RibbonPageGroup3}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup4, Me.RibbonPageGroup3, Me.RibbonPageGroup7})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
' '
@ -390,6 +362,12 @@ Partial Class frmImportMain
Me.RibbonPageGroup3.Name = "RibbonPageGroup3" Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
' '
'RibbonPageGroup7
'
Me.RibbonPageGroup7.ItemLinks.Add(Me.btnRemoveRow)
Me.RibbonPageGroup7.Name = "RibbonPageGroup7"
resources.ApplyResources(Me.RibbonPageGroup7, "RibbonPageGroup7")
'
'RibbonPage2 'RibbonPage2
' '
Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup5, Me.RibbonPageGroup2, Me.RibbonPageGroup6}) Me.RibbonPage2.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup5, Me.RibbonPageGroup2, Me.RibbonPageGroup6})
@ -426,17 +404,16 @@ Partial Class frmImportMain
' '
'RepositoryItemProgressBar1 'RepositoryItemProgressBar1
' '
resources.ApplyResources(Me.RepositoryItemProgressBar1, "RepositoryItemProgressBar1")
Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1" Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1"
Me.RepositoryItemProgressBar1.ShowTitle = True Me.RepositoryItemProgressBar1.ShowTitle = True
' '
'RibbonStatusBar 'RibbonStatusBar
' '
resources.ApplyResources(Me.RibbonStatusBar, "RibbonStatusBar")
Me.RibbonStatusBar.ItemLinks.Add(Me.txtCulture) Me.RibbonStatusBar.ItemLinks.Add(Me.txtCulture)
Me.RibbonStatusBar.ItemLinks.Add(Me.txtVersion) Me.RibbonStatusBar.ItemLinks.Add(Me.txtVersion)
Me.RibbonStatusBar.ItemLinks.Add(Me.txtFilesLoaded) Me.RibbonStatusBar.ItemLinks.Add(Me.txtFilesLoaded)
Me.RibbonStatusBar.ItemLinks.Add(Me.txtCurrentFile) Me.RibbonStatusBar.ItemLinks.Add(Me.txtCurrentFile)
resources.ApplyResources(Me.RibbonStatusBar, "RibbonStatusBar")
Me.RibbonStatusBar.Name = "RibbonStatusBar" Me.RibbonStatusBar.Name = "RibbonStatusBar"
Me.RibbonStatusBar.Ribbon = Me.RibbonControl Me.RibbonStatusBar.Ribbon = Me.RibbonControl
' '
@ -449,9 +426,9 @@ Partial Class frmImportMain
' '
'LabelControl1 'LabelControl1
' '
resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font) Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
Me.LabelControl1.Appearance.Options.UseFont = True Me.LabelControl1.Appearance.Options.UseFont = True
resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Name = "LabelControl1" Me.LabelControl1.Name = "LabelControl1"
' '
'lookupMandator 'lookupMandator
@ -464,7 +441,6 @@ Partial Class frmImportMain
' '
'GridLookUpEdit1View 'GridLookUpEdit1View
' '
resources.ApplyResources(Me.GridLookUpEdit1View, "GridLookUpEdit1View")
Me.GridLookUpEdit1View.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colId, Me.colName}) Me.GridLookUpEdit1View.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colId, Me.colName})
Me.GridLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus Me.GridLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
Me.GridLookUpEdit1View.Name = "GridLookUpEdit1View" Me.GridLookUpEdit1View.Name = "GridLookUpEdit1View"
@ -488,10 +464,10 @@ Partial Class frmImportMain
resources.ApplyResources(Me.SplitContainerGrids, "SplitContainerGrids") resources.ApplyResources(Me.SplitContainerGrids, "SplitContainerGrids")
Me.SplitContainerGrids.Horizontal = False Me.SplitContainerGrids.Horizontal = False
Me.SplitContainerGrids.Name = "SplitContainerGrids" Me.SplitContainerGrids.Name = "SplitContainerGrids"
resources.ApplyResources(Me.SplitContainerGrids.Panel1, "SplitContainerGrids.Panel1")
Me.SplitContainerGrids.Panel1.Controls.Add(Me.SplitContainerGrids1) Me.SplitContainerGrids.Panel1.Controls.Add(Me.SplitContainerGrids1)
resources.ApplyResources(Me.SplitContainerGrids.Panel2, "SplitContainerGrids.Panel2") resources.ApplyResources(Me.SplitContainerGrids.Panel1, "SplitContainerGrids.Panel1")
Me.SplitContainerGrids.Panel2.Controls.Add(Me.SplitContainerGrids2) Me.SplitContainerGrids.Panel2.Controls.Add(Me.SplitContainerGrids2)
resources.ApplyResources(Me.SplitContainerGrids.Panel2, "SplitContainerGrids.Panel2")
Me.SplitContainerGrids.SplitterPosition = 288 Me.SplitContainerGrids.SplitterPosition = 288
' '
'SplitContainerGrids1 'SplitContainerGrids1
@ -499,16 +475,20 @@ Partial Class frmImportMain
resources.ApplyResources(Me.SplitContainerGrids1, "SplitContainerGrids1") resources.ApplyResources(Me.SplitContainerGrids1, "SplitContainerGrids1")
Me.SplitContainerGrids1.Horizontal = False Me.SplitContainerGrids1.Horizontal = False
Me.SplitContainerGrids1.Name = "SplitContainerGrids1" Me.SplitContainerGrids1.Name = "SplitContainerGrids1"
Me.SplitContainerGrids1.Panel1.Controls.Add(Me.GridControl1)
resources.ApplyResources(Me.SplitContainerGrids1.Panel1, "SplitContainerGrids1.Panel1") resources.ApplyResources(Me.SplitContainerGrids1.Panel1, "SplitContainerGrids1.Panel1")
Me.SplitContainerGrids1.Panel2.Controls.Add(Me.GridControl2)
resources.ApplyResources(Me.SplitContainerGrids1.Panel2, "SplitContainerGrids1.Panel2") resources.ApplyResources(Me.SplitContainerGrids1.Panel2, "SplitContainerGrids1.Panel2")
Me.SplitContainerGrids1.SplitterPosition = 118 Me.SplitContainerGrids1.SplitterPosition = 129
' '
'SplitContainerGrids2 'SplitContainerGrids2
' '
resources.ApplyResources(Me.SplitContainerGrids2, "SplitContainerGrids2") resources.ApplyResources(Me.SplitContainerGrids2, "SplitContainerGrids2")
Me.SplitContainerGrids2.Horizontal = False Me.SplitContainerGrids2.Horizontal = False
Me.SplitContainerGrids2.Name = "SplitContainerGrids2" Me.SplitContainerGrids2.Name = "SplitContainerGrids2"
Me.SplitContainerGrids2.Panel1.Controls.Add(Me.GridControl3)
resources.ApplyResources(Me.SplitContainerGrids2.Panel1, "SplitContainerGrids2.Panel1") resources.ApplyResources(Me.SplitContainerGrids2.Panel1, "SplitContainerGrids2.Panel1")
Me.SplitContainerGrids2.Panel2.Controls.Add(Me.GridControl4)
resources.ApplyResources(Me.SplitContainerGrids2.Panel2, "SplitContainerGrids2.Panel2") resources.ApplyResources(Me.SplitContainerGrids2.Panel2, "SplitContainerGrids2.Panel2")
Me.SplitContainerGrids2.SplitterPosition = 126 Me.SplitContainerGrids2.SplitterPosition = 126
' '
@ -516,6 +496,55 @@ Partial Class frmImportMain
' '
Me.SplashScreenManager.ClosingDelay = 500 Me.SplashScreenManager.ClosingDelay = 500
' '
'GridControl1
'
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
'
'GridControl2
'
resources.ApplyResources(Me.GridControl2, "GridControl2")
Me.GridControl2.MainView = Me.GridView2
Me.GridControl2.Name = "GridControl2"
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
'
'GridView2
'
Me.GridView2.GridControl = Me.GridControl2
Me.GridView2.Name = "GridView2"
'
'GridControl3
'
resources.ApplyResources(Me.GridControl3, "GridControl3")
Me.GridControl3.MainView = Me.GridView3
Me.GridControl3.Name = "GridControl3"
Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
'
'GridView3
'
Me.GridView3.GridControl = Me.GridControl3
Me.GridView3.Name = "GridView3"
'
'GridControl4
'
resources.ApplyResources(Me.GridControl4, "GridControl4")
Me.GridControl4.MainView = Me.GridView4
Me.GridControl4.Name = "GridControl4"
Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4})
'
'GridView4
'
Me.GridView4.GridControl = Me.GridControl4
Me.GridView4.Name = "GridView4"
'
'frmImportMain 'frmImportMain
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -548,6 +577,14 @@ Partial Class frmImportMain
CType(Me.SplitContainerGrids2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerGrids2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerGrids2.ResumeLayout(False) Me.SplitContainerGrids2.ResumeLayout(False)
CType(Me.BehaviorManager, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BehaviorManager, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -601,4 +638,14 @@ Partial Class frmImportMain
Friend WithEvents RepositoryItemProgressBar1 As Repository.RepositoryItemProgressBar Friend WithEvents RepositoryItemProgressBar1 As Repository.RepositoryItemProgressBar
Friend WithEvents SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager Friend WithEvents SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager
Friend WithEvents txtCulture As DevExpress.XtraBars.BarStaticItem Friend WithEvents txtCulture As DevExpress.XtraBars.BarStaticItem
Friend WithEvents btnRemoveRow As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup7 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As GridView
Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView2 As GridView
Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView3 As GridView
Friend WithEvents GridControl4 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView4 As GridView
End Class End Class

File diff suppressed because it is too large Load Diff

View File

@ -31,10 +31,10 @@ Public Class frmImportMain
Private GridLoader As GridLoader Private GridLoader As GridLoader
Private GridBuilder As GridBuilder Private GridBuilder As GridBuilder
Private CurrentSchemaName As String Private CurrentSchemaName As String = Nothing
Private CurrentSchema As Schema Private CurrentSchema As Schema = Nothing
Private CurrentGrid As GridControl = Nothing
Private CurrentDocument As Document Private CurrentDocument As Document = Nothing
Public Sub New() Public Sub New()
InitializeComponent() InitializeComponent()
@ -140,6 +140,10 @@ Public Class frmImportMain
CurrentSchema = SchemaLoader.GetSchemaFromFile(CurrentSchemaName) CurrentSchema = SchemaLoader.GetSchemaFromFile(CurrentSchemaName)
Grids = CreateGridsAndColumns(CurrentSchema) Grids = CreateGridsAndColumns(CurrentSchema)
For Each oGrid As GridControl In Grids
AddHandler oGrid.GotFocus, AddressOf Grid_Focus
Next
Catch ex As Exception Catch ex As Exception
FormHelper.ShowError(ex, My.Resources.frmImportMainExtra.Laden_der_Winline_Daten) FormHelper.ShowError(ex, My.Resources.frmImportMainExtra.Laden_der_Winline_Daten)
Finally Finally
@ -148,6 +152,9 @@ Public Class frmImportMain
End Try End Try
End Sub End Sub
Private Sub Grid_Focus(sender As GridControl, e As EventArgs)
CurrentGrid = sender
End Sub
Private Function CreateGridsAndColumns(pSchema As Schemas.Schema) As List(Of GridControl) Private Function CreateGridsAndColumns(pSchema As Schemas.Schema) As List(Of GridControl)
Dim oGrids As New List(Of GridControl) Dim oGrids As New List(Of GridControl)
@ -155,30 +162,26 @@ Public Class frmImportMain
For Each oTable In pSchema.Tables For Each oTable In pSchema.Tables
If oTableCounter = 0 Then If oTableCounter = 0 Then
Dim oGrid = GridLoader.GetGridFromElement(oTable) Dim oGrid = GridLoader.GetGridFromElement(GridControl1, oTable)
AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick
SplitContainerGrids1.Panel1.Controls.Add(oGrid)
oGrids.Add(oGrid) oGrids.Add(oGrid)
End If End If
If oTableCounter = 1 Then If oTableCounter = 1 Then
Dim oGrid = GridLoader.GetGridFromElement(oTable) Dim oGrid = GridLoader.GetGridFromElement(GridControl2, oTable)
AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick
SplitContainerGrids1.Panel2.Controls.Add(oGrid)
oGrids.Add(oGrid) oGrids.Add(oGrid)
End If End If
If oTableCounter = 2 Then If oTableCounter = 2 Then
Dim oGrid = GridLoader.GetGridFromElement(oTable) Dim oGrid = GridLoader.GetGridFromElement(GridControl3, oTable)
AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick
SplitContainerGrids2.Panel1.Controls.Add(oGrid)
oGrids.Add(oGrid) oGrids.Add(oGrid)
End If End If
If oTableCounter = 3 Then If oTableCounter = 3 Then
Dim oGrid = GridLoader.GetGridFromElement(oTable) Dim oGrid = GridLoader.GetGridFromElement(GridControl4, oTable)
AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick AddHandler oGrid.DoubleClick, AddressOf Grid_MouseDoubleClick
SplitContainerGrids2.Panel2.Controls.Add(oGrid)
oGrids.Add(oGrid) oGrids.Add(oGrid)
End If End If
@ -296,6 +299,10 @@ Public Class frmImportMain
Try Try
Dim oDatasources As New Dictionary(Of String, DataTable) Dim oDatasources As New Dictionary(Of String, DataTable)
For Each oGrid In Grids
oGrid.DataSource = Nothing
Next
' List of Root Elements in XML ' List of Root Elements in XML
For Each oRow In pDocument.Rows For Each oRow In pDocument.Rows
Dim oGrid As GridControl = Grids. Dim oGrid As GridControl = Grids.
@ -314,6 +321,7 @@ Public Class frmImportMain
oDatasources.Add(oRow.Name, oTable) oDatasources.Add(oRow.Name, oTable)
oGrid.DataSource = Nothing
oGrid.DataSource = oTable oGrid.DataSource = oTable
End If End If
@ -440,5 +448,31 @@ Public Class frmImportMain
oForm.ShowDialog() oForm.ShowDialog()
End Sub End Sub
Private Sub btnRemoveRow_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnRemoveRow.ItemClick
If CurrentGrid Is Nothing Then
Exit Sub
End If
Dim oMessage As String = "Wollen Sie die ausgewählte Zeile wirklich löschen?"
If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
' Get GUID of currently selected row
Dim oView As GridView = CurrentGrid.FocusedView
Dim oRow As DataRowView = oView.GetRow(oView.FocusedRowHandle)
Dim oGuid = oRow.Row.Item("GUID")
' Get currently selected document
Dim oDocument As Document = GridViewFiles.GetRow(GridViewFiles.FocusedRowHandle)
Dim oNewRows = oDocument.Rows.
Where(Function(r) r.Id.ToString <> oGuid).
ToList()
oDocument.Rows = oNewRows
Dim oIndex = DocumentLoader.Files.IndexOf(oDocument)
DocumentLoader.Files.Item(oIndex) = oDocument
lookupMandator.EditValue = oDocument.Mandator
LoadDocument(oDocument)
End If
End Sub
End Class End Class

View File

@ -10,8 +10,7 @@ Namespace Documents
Private ReadOnly Winline As Winline.Data Private ReadOnly Winline As Winline.Data
Public Files As New List(Of Document) Public Property Files As New List(Of Document)
Public Sub New(pLogConfig As LogConfig, pWinline As Winline.Data) Public Sub New(pLogConfig As LogConfig, pWinline As Winline.Data)
MyBase.New(pLogConfig, pLogConfig.GetLogger()) MyBase.New(pLogConfig, pLogConfig.GetLogger())