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

MonoRepoUtils: Generate list of wix file entries from folder

Browse Source
This commit is contained in:
Jonathan Jenne 2022-06-15 16:36:10 +02:00
parent 3c3b07ee49
commit e35f5c84c3
5 changed files with 181 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ConfigCreator/MonoRepoUtils.vbproj
View File

@ -52,13 +52,17 @@
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Dialogs.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.Desktop.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraDialogs.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Data" />

4
ConfigCreator/My Project/licenses.licx
View File

@ -0,0 +1,4 @@
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

179
ConfigCreator/frmStart.Designer.vb generated
View File

@ -58,6 +58,16 @@ Partial Class frmStart
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.BehaviorManager1 = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components)
Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
Me.LayoutControl3 = New DevExpress.XtraLayout.LayoutControl()
Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup()
Me.MemoEdit2 = New DevExpress.XtraEditors.MemoEdit()
Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem()
Me.btnOpenDirectory = New DevExpress.XtraEditors.SimpleButton()
Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem()
Me.XtraFolderBrowserDialog1 = New DevExpress.XtraEditors.XtraFolderBrowserDialog(Me.components)
CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
@ -89,15 +99,24 @@ Partial Class frmStart
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage1.SuspendLayout()
CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage3.SuspendLayout()
CType(Me.LayoutControl3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl3.SuspendLayout()
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MemoEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ComboBoxEdit1
'
Me.ComboBoxEdit1.Location = New System.Drawing.Point(108, 20)
Me.ComboBoxEdit1.Location = New System.Drawing.Point(117, 20)
Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.ComboBoxEdit1.Properties.Items.AddRange(New Object() {"ZUGFERD_SERVICE"})
Me.ComboBoxEdit1.Size = New System.Drawing.Size(742, 20)
Me.ComboBoxEdit1.Size = New System.Drawing.Size(733, 20)
Me.ComboBoxEdit1.StyleController = Me.LayoutControl1
Me.ComboBoxEdit1.TabIndex = 0
'
@ -110,7 +129,7 @@ Partial Class frmStart
Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(1099, 391)
Me.LayoutControl1.Size = New System.Drawing.Size(1099, 390)
Me.LayoutControl1.TabIndex = 1
Me.LayoutControl1.Text = "LayoutControl1"
'
@ -120,7 +139,7 @@ Partial Class frmStart
Me.MemoEdit1.Name = "MemoEdit1"
Me.MemoEdit1.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MemoEdit1.Properties.Appearance.Options.UseFont = True
Me.MemoEdit1.Size = New System.Drawing.Size(1059, 293)
Me.MemoEdit1.Size = New System.Drawing.Size(1059, 292)
Me.MemoEdit1.StyleController = Me.LayoutControl1
Me.MemoEdit1.TabIndex = 5
'
@ -139,7 +158,7 @@ Partial Class frmStart
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(1099, 391)
Me.Root.Size = New System.Drawing.Size(1099, 390)
Me.Root.TextVisible = False
'
'LayoutControlItem1
@ -168,7 +187,7 @@ Partial Class frmStart
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 42)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem3.Size = New System.Drawing.Size(1079, 329)
Me.LayoutControlItem3.Size = New System.Drawing.Size(1079, 328)
Me.LayoutControlItem3.Text = "Config Template"
Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(85, 13)
@ -177,9 +196,9 @@ Partial Class frmStart
'
Me.FluentDesignFormContainer1.Controls.Add(Me.XtraTabControl1)
Me.FluentDesignFormContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.FluentDesignFormContainer1.Location = New System.Drawing.Point(0, 159)
Me.FluentDesignFormContainer1.Location = New System.Drawing.Point(0, 160)
Me.FluentDesignFormContainer1.Name = "FluentDesignFormContainer1"
Me.FluentDesignFormContainer1.Size = New System.Drawing.Size(1101, 414)
Me.FluentDesignFormContainer1.Size = New System.Drawing.Size(1101, 413)
Me.FluentDesignFormContainer1.TabIndex = 2
'
'XtraTabControl1
@ -188,15 +207,15 @@ Partial Class frmStart
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage2
Me.XtraTabControl1.Size = New System.Drawing.Size(1101, 414)
Me.XtraTabControl1.Size = New System.Drawing.Size(1101, 413)
Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage2, Me.XtraTabPage1})
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage2, Me.XtraTabPage1, Me.XtraTabPage3})
'
'XtraTabPage2
'
Me.XtraTabPage2.Controls.Add(Me.LayoutControl2)
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1099, 391)
Me.XtraTabPage2.Size = New System.Drawing.Size(1099, 390)
Me.XtraTabPage2.Text = "EmailSignature Generator"
'
'LayoutControl2
@ -212,18 +231,18 @@ Partial Class frmStart
Me.LayoutControl2.Location = New System.Drawing.Point(0, 0)
Me.LayoutControl2.Name = "LayoutControl2"
Me.LayoutControl2.Root = Me.LayoutControlGroup1
Me.LayoutControl2.Size = New System.Drawing.Size(1099, 391)
Me.LayoutControl2.Size = New System.Drawing.Size(1099, 390)
Me.LayoutControl2.TabIndex = 0
Me.LayoutControl2.Text = "LayoutControl2"
'
'txxTemplate
'
Me.txxTemplate.Location = New System.Drawing.Point(135, 140)
Me.txxTemplate.Location = New System.Drawing.Point(144, 140)
Me.txxTemplate.MenuManager = Me.RibbonControl1
Me.txxTemplate.Name = "txxTemplate"
Me.txxTemplate.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txxTemplate.Properties.Appearance.Options.UseFont = True
Me.txxTemplate.Size = New System.Drawing.Size(944, 231)
Me.txxTemplate.Size = New System.Drawing.Size(935, 230)
Me.txxTemplate.StyleController = Me.LayoutControl2
Me.txxTemplate.TabIndex = 4
'
@ -235,7 +254,7 @@ Partial Class frmStart
Me.RibbonControl1.MaxItemId = 4
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.Size = New System.Drawing.Size(1101, 159)
Me.RibbonControl1.Size = New System.Drawing.Size(1101, 160)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
@ -273,37 +292,37 @@ Partial Class frmStart
'
'txtBannerUrl
'
Me.txtBannerUrl.Location = New System.Drawing.Point(135, 20)
Me.txtBannerUrl.Location = New System.Drawing.Point(144, 20)
Me.txtBannerUrl.MenuManager = Me.RibbonControl1
Me.txtBannerUrl.Name = "txtBannerUrl"
Me.txtBannerUrl.Size = New System.Drawing.Size(361, 20)
Me.txtBannerUrl.Size = New System.Drawing.Size(352, 20)
Me.txtBannerUrl.StyleController = Me.LayoutControl2
Me.txtBannerUrl.TabIndex = 5
'
'txtTrackingUrl
'
Me.txtTrackingUrl.Location = New System.Drawing.Point(631, 20)
Me.txtTrackingUrl.Location = New System.Drawing.Point(640, 20)
Me.txtTrackingUrl.MenuManager = Me.RibbonControl1
Me.txtTrackingUrl.Name = "txtTrackingUrl"
Me.txtTrackingUrl.Size = New System.Drawing.Size(448, 20)
Me.txtTrackingUrl.Size = New System.Drawing.Size(439, 20)
Me.txtTrackingUrl.StyleController = Me.LayoutControl2
Me.txtTrackingUrl.TabIndex = 6
'
'txtOutputPath
'
Me.txtOutputPath.Location = New System.Drawing.Point(631, 60)
Me.txtOutputPath.Location = New System.Drawing.Point(640, 60)
Me.txtOutputPath.MenuManager = Me.RibbonControl1
Me.txtOutputPath.Name = "txtOutputPath"
Me.txtOutputPath.Size = New System.Drawing.Size(448, 20)
Me.txtOutputPath.Size = New System.Drawing.Size(439, 20)
Me.txtOutputPath.StyleController = Me.LayoutControl2
Me.txtOutputPath.TabIndex = 7
'
'txtADGroup
'
Me.txtADGroup.Location = New System.Drawing.Point(135, 60)
Me.txtADGroup.Location = New System.Drawing.Point(144, 60)
Me.txtADGroup.MenuManager = Me.RibbonControl1
Me.txtADGroup.Name = "txtADGroup"
Me.txtADGroup.Size = New System.Drawing.Size(361, 20)
Me.txtADGroup.Size = New System.Drawing.Size(352, 20)
Me.txtADGroup.StyleController = Me.LayoutControl2
Me.txtADGroup.TabIndex = 8
'
@ -321,10 +340,10 @@ Partial Class frmStart
'
'txtADRoot
'
Me.txtADRoot.Location = New System.Drawing.Point(135, 100)
Me.txtADRoot.Location = New System.Drawing.Point(144, 100)
Me.txtADRoot.MenuManager = Me.RibbonControl1
Me.txtADRoot.Name = "txtADRoot"
Me.txtADRoot.Size = New System.Drawing.Size(361, 20)
Me.txtADRoot.Size = New System.Drawing.Size(352, 20)
Me.txtADRoot.StyleController = Me.LayoutControl2
Me.txtADRoot.TabIndex = 10
'
@ -334,7 +353,7 @@ Partial Class frmStart
Me.LayoutControlGroup1.GroupBordersVisible = False
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem10})
Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Size = New System.Drawing.Size(1099, 391)
Me.LayoutControlGroup1.Size = New System.Drawing.Size(1099, 390)
Me.LayoutControlGroup1.TextVisible = False
'
'LayoutControlItem4
@ -343,7 +362,7 @@ Partial Class frmStart
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem4.Size = New System.Drawing.Size(1079, 251)
Me.LayoutControlItem4.Size = New System.Drawing.Size(1079, 250)
Me.LayoutControlItem4.Text = "HTML Template"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(112, 13)
'
@ -410,7 +429,7 @@ Partial Class frmStart
'
Me.XtraTabPage1.Controls.Add(Me.LayoutControl1)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(1099, 391)
Me.XtraTabPage1.Size = New System.Drawing.Size(1099, 390)
Me.XtraTabPage1.Text = "ConfigCreator"
'
'RibbonPage2
@ -418,6 +437,91 @@ Partial Class frmStart
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'XtraTabPage3
'
Me.XtraTabPage3.Controls.Add(Me.LayoutControl3)
Me.XtraTabPage3.Name = "XtraTabPage3"
Me.XtraTabPage3.Size = New System.Drawing.Size(1099, 390)
Me.XtraTabPage3.Text = "XtraTabPage3"
'
'LayoutControl3
'
Me.LayoutControl3.Controls.Add(Me.MemoEdit2)
Me.LayoutControl3.Controls.Add(Me.btnOpenDirectory)
Me.LayoutControl3.Controls.Add(Me.TextEdit1)
Me.LayoutControl3.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl3.Location = New System.Drawing.Point(0, 0)
Me.LayoutControl3.Name = "LayoutControl3"
Me.LayoutControl3.Root = Me.LayoutControlGroup2
Me.LayoutControl3.Size = New System.Drawing.Size(1099, 390)
Me.LayoutControl3.TabIndex = 1
Me.LayoutControl3.Text = "LayoutControl3"
'
'LayoutControlGroup2
'
Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.LayoutControlGroup2.GroupBordersVisible = False
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem11, Me.LayoutControlItem13, Me.LayoutControlItem12})
Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
Me.LayoutControlGroup2.Size = New System.Drawing.Size(1099, 390)
Me.LayoutControlGroup2.TextVisible = False
'
'MemoEdit2
'
Me.MemoEdit2.Location = New System.Drawing.Point(131, 38)
Me.MemoEdit2.MenuManager = Me.RibbonControl1
Me.MemoEdit2.Name = "MemoEdit2"
Me.MemoEdit2.Size = New System.Drawing.Size(956, 340)
Me.MemoEdit2.StyleController = Me.LayoutControl3
Me.MemoEdit2.TabIndex = 4
'
'LayoutControlItem11
'
Me.LayoutControlItem11.Control = Me.MemoEdit2
Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 26)
Me.LayoutControlItem11.Name = "LayoutControlItem11"
Me.LayoutControlItem11.Size = New System.Drawing.Size(1079, 344)
Me.LayoutControlItem11.TextSize = New System.Drawing.Size(107, 13)
'
'btnOpenDirectory
'
Me.btnOpenDirectory.Location = New System.Drawing.Point(966, 12)
Me.btnOpenDirectory.Name = "btnOpenDirectory"
Me.btnOpenDirectory.Size = New System.Drawing.Size(121, 22)
Me.btnOpenDirectory.StyleController = Me.LayoutControl3
Me.btnOpenDirectory.TabIndex = 5
Me.btnOpenDirectory.Text = "SimpleButton3"
'
'LayoutControlItem12
'
Me.LayoutControlItem12.Control = Me.btnOpenDirectory
Me.LayoutControlItem12.Location = New System.Drawing.Point(954, 0)
Me.LayoutControlItem12.Name = "LayoutControlItem12"
Me.LayoutControlItem12.Size = New System.Drawing.Size(125, 26)
Me.LayoutControlItem12.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem12.TextVisible = False
'
'TextEdit1
'
Me.TextEdit1.Location = New System.Drawing.Point(131, 12)
Me.TextEdit1.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Size = New System.Drawing.Size(831, 20)
Me.TextEdit1.StyleController = Me.LayoutControl3
Me.TextEdit1.TabIndex = 6
'
'LayoutControlItem13
'
Me.LayoutControlItem13.Control = Me.TextEdit1
Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem13.Name = "LayoutControlItem13"
Me.LayoutControlItem13.Size = New System.Drawing.Size(954, 26)
Me.LayoutControlItem13.TextSize = New System.Drawing.Size(107, 13)
'
'XtraFolderBrowserDialog1
'
Me.XtraFolderBrowserDialog1.SelectedPath = "XtraFolderBrowserDialog1"
'
'frmStart
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -462,6 +566,15 @@ Partial Class frmStart
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage1.ResumeLayout(False)
CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage3.ResumeLayout(False)
CType(Me.LayoutControl3, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl3.ResumeLayout(False)
CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MemoEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -503,4 +616,14 @@ Partial Class frmStart
Friend WithEvents BehaviorManager1 As DevExpress.Utils.Behaviors.BehaviorManager
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents LayoutControl3 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents MemoEdit2 As MemoEdit
Friend WithEvents btnOpenDirectory As SimpleButton
Friend WithEvents TextEdit1 As TextEdit
Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents XtraFolderBrowserDialog1 As XtraFolderBrowserDialog
End Class

3
ConfigCreator/frmStart.resx
View File

@ -120,4 +120,7 @@
<metadata name="BehaviorManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="XtraFolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>171, 17</value>
</metadata>
</root>

19
ConfigCreator/frmStart.vb
View File

@ -4,6 +4,7 @@ Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Interfaces
Imports DigitalData.GUIs.MonoRepoUtils.Config
Imports System.Text
Public Class frmStart
Private Const ZUGFERD_SERVICE = "ZUGFERD_SERVICE"
@ -113,4 +114,22 @@ Public Class frmStart
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
SaveSettings()
End Sub
Private Sub btnOpenDirectory_Click(sender As Object, e As EventArgs) Handles btnOpenDirectory.Click
Dim oResult = XtraFolderBrowserDialog1.ShowDialog()
If oResult = DialogResult.OK Then
Dim oPath = XtraFolderBrowserDialog1.SelectedPath
Dim oFiles = IO.Directory.GetFiles(oPath, "*.dll")
Dim oStringBuilder As New StringBuilder()
For Each oFile In oFiles
Dim oFileInfo = New FileInfo(oFile)
Dim oText = $"<File Id=""{oFileInfo.Name}"" Name=""{oFileInfo.Name}"" KeyPath=""no"" Checksum=""yes"" />"
oStringBuilder.Append($"{oText}{vbNewLine}")
Next
MemoEdit2.EditValue = oStringBuilder.ToString
End If
End Sub
End Class