Release - 2.7.0.9

CHANGELOG.md

@@ -4,7 +4,16 @@ Zapisnik razvoja programa TPS1100 Convert.
 
 ---
 
-## v2.7.0.6 (2024/06/26)
+## v2.7.0.9 (2024/06/29)
+
+- Popravki nalaganja nastavitev iz datoteke "tps1100_kode.txt" pri zagonu aplikacije
+- Popravki delovanja shranjevanja nastavitev v oknu za nastavitve
+
+
+---
+
+
+## v2.7.0.8 (2024/06/26)
 
 - Preverjanje za posodobitev aplikacije
 - Popravljeno branje decimalnega ločila v "Pripravi GSI".

FormNastavitve.vb

@@ -65,10 +65,34 @@ Public Class FormNastavitve
 
         My.Settings.Save()
 
+        ShraniNastDat()
+
         Form1.DatotekaLogfile = My.Settings.DatLogfile
         Form1.RichTextBox1.Font = New Font(My.Settings.Pisava, My.Settings.PisavaVelikost)
     End Sub
 
+    Public Sub ShraniNastDat()
+        ' Izvoz kodiranja v TXT datoteko
+        Dim dataNast As String = ""
+
+        dataNast = dataNast + "DecimalnoLocilo = " + My.Settings.DecimalnoLocilo + vbCrLf
+        dataNast = dataNast + "StolpciTab = " + My.Settings.Stolpci.ToString + vbCrLf
+        dataNast = dataNast + "KodaStojisce = " + My.Settings.KodaStojisce + vbCrLf
+        dataNast = dataNast + "KodaStojisceInfo = " + My.Settings.KodaStojisceInfo + vbCrLf
+        dataNast = dataNast + "KodaStojisceOri = " + My.Settings.KodaStojisceOri + 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 + "KodaUserImport = " + My.Settings.KodaUserImport + vbCrLf
+
+        My.Computer.FileSystem.WriteAllText("tps1100_kode.txt", dataNast, False)
+
+    End Sub
+
     Private Sub ButtonOdpriLog_Click(sender As Object, e As EventArgs) Handles ButtonOdpriLog.Click
         ' Pokaži pot do datoteke z zapisnikom procesiranja
         If SaveFileDialogLog.ShowDialog = DialogResult.OK Then

My Project/AssemblyInfo.vb

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.7.0.8")>
+<Assembly: AssemblyVersion("2.7.0.9")>
-<Assembly: AssemblyFileVersion("2.7.0.8")>
+<Assembly: AssemblyFileVersion("2.7.0.9")>
 <Assembly: NeutralResourcesLanguage("sl-SI")>

TPS1100 Convert.vbproj

@@ -31,7 +31,7 @@
     <MinimumRequiredVersion>2.1.0.4</MinimumRequiredVersion>
     <WebPage>publish.html</WebPage>
     <AutorunEnabled>true</AutorunEnabled>
-    <ApplicationRevision>8</ApplicationRevision>
+    <ApplicationRevision>9</ApplicationRevision>
     <ApplicationVersion>2.7.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>
@@ -206,6 +206,9 @@
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
     <None Include="My Project\Icons\icons8-caps-lock-on-50.png" />
+    <Content Include="tps1100_kode.txt">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
     <Content Include="version.txt" />
     <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">

tps1100_kode.txt

@@ -0,0 +1,13 @@
+DecimalnoLocilo = Pika
+StolpciTab = 1
+KodaStojisce = 1
+KodaStojisceInfo = 2
+KodaStojisceOri = 3
+KodaQuickSet = 10
+KodaSetAzi = 20
+KodaResection = 30
+KodaFreeStation = 40
+KodaOriHtTrans = 50
+KodaMeasOri = 80
+KodaMeas = 90
+KodaUserImport = 99

version.txt

@@ -1 +1 @@
-2.7.0.8
+2.7.0.9