Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigXml/ConfigData.vb =================================================================== diff -u -r1940 -r1961 --- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigXml/ConfigData.vb (.../ConfigData.vb) (revision 1940) +++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigXml/ConfigData.vb (.../ConfigData.vb) (revision 1961) @@ -1,12 +1,13 @@ Public Class ConfigData - public Property Scriptpad() As ConfigProperty + Public Property Scriptpad() As ConfigProperty Public Property BestandenMapPad() As ConfigProperty Public Property JobControlExePad() As ConfigProperty Public Property GraveerInstellingenXmlPad() As ConfigProperty + Public Property HandleidingPad As ConfigProperty End Class Public Class ConfigProperty - public Property Schermnaam() As Object + Public Property Schermnaam() As Object Public Property Waarde() As Object Public Property Beschrijving() As String Public Property SubConfigs() As List(Of ConfigProperty) Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigXml/Configs.vb =================================================================== diff -u -r1951 -r1961 --- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigXml/Configs.vb (.../Configs.vb) (revision 1951) +++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigXml/Configs.vb (.../Configs.vb) (revision 1961) @@ -121,6 +121,16 @@ End Set End Property + Public Property HandleidingPad As String Implements IConfigsClass.HandleidingPad + Get + Return ConverteerWaarde(Of String)(_configData.HandleidingPad) + End Get + Set + ConfigUtil.PrepareForSetProperty(_configData.HandleidingPad) + ConfigUtil.StelNieuwFilePadIn(Value, _configData.HandleidingPad) + End Set + End Property + Private Class ConfigUtil Public Shared Sub PrepareForSetProperty(ByRef configP As ConfigProperty) Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigText/ConfigsClass.vb =================================================================== diff -u -r1936 -r1961 --- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigText/ConfigsClass.vb (.../ConfigsClass.vb) (revision 1936) +++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigText/ConfigsClass.vb (.../ConfigsClass.vb) (revision 1961) @@ -165,6 +165,8 @@ End Set End Property + Public Property HandleidingPad As String Implements IConfigsClass.HandleidingPad + #End Region End Class \ No newline at end of file Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/IConfigsClass.vb =================================================================== diff -u -r1936 -r1961 --- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/IConfigsClass.vb (.../IConfigsClass.vb) (revision 1936) +++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/IConfigsClass.vb (.../IConfigsClass.vb) (revision 1961) @@ -5,4 +5,5 @@ Property BestandenMapPad As String Property JobControlExePad As String Property GraveerInstellingenXmlPad As String + Property HandleidingPad As String End Interface \ No newline at end of file