Index: TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.Designer.vb =================================================================== diff -u -r1907 -r2074 --- TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.Designer.vb (.../FormConfigsWijzigen.Designer.vb) (revision 1907) +++ TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.Designer.vb (.../FormConfigsWijzigen.Designer.vb) (revision 2074) @@ -57,6 +57,10 @@ Me.TextBoxArdisPath = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog() + Me.TextBoxComputerIdentificatie = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.TextBoxComputerIdentificatieAlias = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() Me.GroupBox2.SuspendLayout Me.GroupBox1.SuspendLayout Me.TabControlHoofdConfigs.SuspendLayout @@ -75,7 +79,7 @@ Me.GroupBox2.Controls.Add(Me.TextBoxConfigPath) Me.GroupBox2.Controls.Add(Me.Label3) Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!) - Me.GroupBox2.Location = New System.Drawing.Point(15, 15) + Me.GroupBox2.Location = New System.Drawing.Point(15, 67) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(797, 115) Me.GroupBox2.TabIndex = 5 @@ -144,7 +148,7 @@ Me.GroupBox1.Controls.Add(Me.CheckBoxVerwerk) Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!) - Me.GroupBox1.Location = New System.Drawing.Point(15, 136) + Me.GroupBox1.Location = New System.Drawing.Point(15, 188) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(797, 115) Me.GroupBox1.TabIndex = 9 @@ -191,6 +195,10 @@ 'TabPage1 ' Me.TabPage1.BackColor = System.Drawing.Color.White + Me.TabPage1.Controls.Add(Me.Label9) + Me.TabPage1.Controls.Add(Me.TextBoxComputerIdentificatieAlias) + Me.TabPage1.Controls.Add(Me.TextBoxComputerIdentificatie) + Me.TabPage1.Controls.Add(Me.Label8) Me.TabPage1.Controls.Add(Me.GroupBox6) Me.TabPage1.Controls.Add(Me.GroupBox2) Me.TabPage1.Controls.Add(Me.GroupBox1) @@ -207,7 +215,7 @@ Me.GroupBox6.Controls.Add(Me.CheckBoxLogs) Me.GroupBox6.Controls.Add(Me.Label7) Me.GroupBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!) - Me.GroupBox6.Location = New System.Drawing.Point(15, 257) + Me.GroupBox6.Location = New System.Drawing.Point(15, 309) Me.GroupBox6.Name = "GroupBox6" Me.GroupBox6.Size = New System.Drawing.Size(797, 115) Me.GroupBox6.TabIndex = 10 @@ -415,6 +423,42 @@ ' Me.OpenFileDialog.FileName = "OpenFileDialog1" ' + 'TextBoxComputerIdentificatie + ' + Me.TextBoxComputerIdentificatie.Location = New System.Drawing.Point(18, 32) + Me.TextBoxComputerIdentificatie.Name = "TextBoxComputerIdentificatie" + Me.TextBoxComputerIdentificatie.ReadOnly = true + Me.TextBoxComputerIdentificatie.Size = New System.Drawing.Size(258, 30) + Me.TextBoxComputerIdentificatie.TabIndex = 12 + ' + 'Label8 + ' + Me.Label8.AutoSize = true + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!) + Me.Label8.Location = New System.Drawing.Point(18, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(144, 17) + Me.Label8.TabIndex = 11 + Me.Label8.Text = "Computer identificatie" + ' + 'TextBoxComputerIdentificatieAlias + ' + Me.TextBoxComputerIdentificatieAlias.Location = New System.Drawing.Point(282, 32) + Me.TextBoxComputerIdentificatieAlias.Name = "TextBoxComputerIdentificatieAlias" + Me.TextBoxComputerIdentificatieAlias.ReadOnly = true + Me.TextBoxComputerIdentificatieAlias.Size = New System.Drawing.Size(258, 30) + Me.TextBoxComputerIdentificatieAlias.TabIndex = 13 + ' + 'Label9 + ' + Me.Label9.AutoSize = true + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!) + Me.Label9.Location = New System.Drawing.Point(279, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(38, 17) + Me.Label9.TabIndex = 14 + Me.Label9.Text = "Alias" + ' 'FormConfigsWijzigen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) @@ -431,6 +475,7 @@ Me.GroupBox1.PerformLayout Me.TabControlHoofdConfigs.ResumeLayout(false) Me.TabPage1.ResumeLayout(false) + Me.TabPage1.PerformLayout Me.GroupBox6.ResumeLayout(false) Me.GroupBox6.PerformLayout Me.TabPage2.ResumeLayout(false) @@ -477,4 +522,8 @@ Friend WithEvents GroupBox6 As GroupBox Friend WithEvents CheckBoxLogs As CheckBox Friend WithEvents Label7 As Label + Friend WithEvents TextBoxComputerIdentificatie As TextBox + Friend WithEvents Label8 As Label + Friend WithEvents TextBoxComputerIdentificatieAlias As TextBox + Friend WithEvents Label9 As Label End Class Index: TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.vb =================================================================== diff -u -r1869 -r2074 --- TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.vb (.../FormConfigsWijzigen.vb) (revision 1869) +++ TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.vb (.../FormConfigsWijzigen.vb) (revision 2074) @@ -22,6 +22,9 @@ #Region "Basis configs" Private Sub laadBasisConfigs() + TextBoxComputerIdentificatie.Text = Configs.GetComputerIdentifier() + TextBoxComputerIdentificatieAlias.Text = Configs.GeefOorsprongIdAlias() + TextBoxConfigPath.Text = My.Settings.PathNaarConfigMap CheckBoxVerwerk.Checked = My.Settings.VerwerkStatus CheckBoxLogs.Checked = My.Settings.LogOpslaanStatus