Public Class FormNastavitve

    Private Sub FormNastavitve_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.Stolpci = 0 Then
            RadioButton1.Checked = True
        ElseIf My.Settings.Stolpci = 1 Then
            RadioButton2.Checked = True
        End If

        If My.Settings.DecimalnoLocilo = "Pika" Then
            RadioButton3.Checked = True
        ElseIf My.Settings.DecimalnoLocilo = "Vejica" Then
            RadioButton4.Checked = True
        End If

        TextBoxLog.Text = My.Settings.DatLogfile.ToString
        TextBoxStoj.Text = My.Settings.KodaStojisce.ToString
        TextBoxStojInfo.Text = My.Settings.KodaStojisceInfo.ToString
        TextBoxQuickSet.Text = My.Settings.KodaQuickSet.ToString
        TextBoxSetAzi.Text = My.Settings.KodaSetAzi.ToString
        TextBoxRes.Text = My.Settings.KodaResection.ToString
        TextBoxFree.Text = My.Settings.KodaFreeStation.ToString
        TextBoxOriHt.Text = My.Settings.KodaOriHtTrans.ToString
        TextBoxMeasOri.Text = My.Settings.KodaMeasOri.ToString
        TextBoxMeas.Text = My.Settings.KodaMeas.ToString
        TextBoxStake.Text = My.Settings.KodaStake.ToString
        TextBoxImport.Text = My.Settings.KodaUserImport.ToString

        LabelFontInfo.Text = My.Settings.Pisava + " / " + My.Settings.PisavaVelikost.ToString

    End Sub
    Private Sub FormNastavitve_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing

        If RadioButton1.Checked = True Then
            My.Settings.Stolpci = 0
        End If

        If RadioButton2.Checked = True Then
            My.Settings.Stolpci = 1
        End If

        If RadioButton3.Checked = True Then
            My.Settings.DecimalnoLocilo = "Pika"
        End If

        If RadioButton4.Checked = True Then
            My.Settings.DecimalnoLocilo = "Vejica"
        End If

        My.Settings.DatLogfile = TextBoxLog.Text
        My.Settings.KodaStojisce = TextBoxStoj.Text
        My.Settings.KodaStojisceInfo = TextBoxStojInfo.Text
        My.Settings.KodaQuickSet = TextBoxQuickSet.Text
        My.Settings.KodaSetAzi = TextBoxSetAzi.Text
        My.Settings.KodaResection = TextBoxRes.Text
        My.Settings.KodaFreeStation = TextBoxFree.Text
        My.Settings.KodaOriHtTrans = TextBoxOriHt.Text
        My.Settings.KodaMeasOri = TextBoxMeasOri.Text
        My.Settings.KodaMeas = TextBoxMeas.Text
        My.Settings.KodaStake = TextBoxStake.Text
        My.Settings.KodaUserImport = TextBoxImport.Text

        My.Settings.Save()

        Form1.DatotekaLogfile = My.Settings.DatLogfile
        Form1.RichTextBox1.Font = New Font(My.Settings.Pisava, My.Settings.PisavaVelikost)
    End Sub
    Private Sub ButtonOdpriLog_Click(sender As Object, e As EventArgs) Handles ButtonOdpriLog.Click
        If SaveFileDialogLog.ShowDialog = DialogResult.OK Then
            TextBoxLog.Text = SaveFileDialogLog.FileName.ToString
            My.Settings.DatLogfile = SaveFileDialogLog.FileName.ToString
        End If
    End Sub

    Private Sub ButtonFont_Click(sender As Object, e As EventArgs) Handles ButtonFont.Click
        Dim fontdia1 = FontDialog1.Font.Name = My.Settings.Pisava
        Dim fontdia2 = FontDialog1.Font.Size = My.Settings.PisavaVelikost

        If FontDialog1.ShowDialog = DialogResult.OK Then
            My.Settings.Pisava = FontDialog1.Font.Name
            My.Settings.PisavaVelikost = FontDialog1.Font.Size
            LabelFontInfo.Text = My.Settings.Pisava + " / " + My.Settings.PisavaVelikost.ToString
        End If
    End Sub

    Private Sub IzvoziKodeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzvoziKodeToolStripMenuItem.Click
        Dim dataNast As String = ""

        dataNast = dataNast + "KodaStojisce = " + My.Settings.KodaStojisce + vbCrLf
        dataNast = dataNast + "KodaStojisceInfo = " + My.Settings.KodaStojisceInfo + vbCrLf
        dataNast = dataNast + "KodaQuickSet = " + My.Settings.KodaQuickSet + vbCrLf
        dataNast = dataNast + "KodaSetAzi = " + My.Settings.KodaSetAzi + vbCrLf
        dataNast = dataNast + "KodaResection = " + My.Settings.KodaResection + vbCrLf
        dataNast = dataNast + "KodaFreeStation = " + My.Settings.KodaFreeStation + vbCrLf
        dataNast = dataNast + "KodaOriHtTrans = " + My.Settings.KodaOriHtTrans + vbCrLf
        dataNast = dataNast + "KodaMeasOri = " + My.Settings.KodaMeasOri + vbCrLf
        dataNast = dataNast + "KodaMeas = " + My.Settings.KodaMeas + vbCrLf
        dataNast = dataNast + "KodaStake = " + My.Settings.KodaStake + vbCrLf
        dataNast = dataNast + "KodaUserImport = " + My.Settings.KodaUserImport + vbCrLf

        If SaveFileDialogNast.ShowDialog = DialogResult.OK Then
            My.Computer.FileSystem.WriteAllText(SaveFileDialogNast.FileName, dataNast, False)
        End If
    End Sub

    Private Sub ZapriToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZapriToolStripMenuItem.Click
        Me.Close()

    End Sub

    Private Sub UvoziKodeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UvoziKodeToolStripMenuItem.Click

    End Sub
End Class