Koncna verzija - #2.7.0.0

CHANGELOG.md

@@ -1,18 +1,35 @@
-# TPS1100 Convert - Change log
+# TPS1100 Convert: Zapisnik Razvoja
 
 Zapisnik razvoja programa TPS1100 Convert.
 
 ---
 
-## Verzija - 2.7.0.0
+## v2.7.0.0 (2024/06/20)
 
-Datum: 2024/06/15
+### Novo
 
-- Novo: Priprava GEO datoteke za preračun v Geo programu
+- Priprava GEO datoteke za obdelavo meritev v programu GeoPro/GeoX
-- Dodano izpisovanje kode točke za orientacije v seznamu točk
+- Dodano izpisovanje klasifikacije točk uporabljenih za orientacijo (Seznamu točk)
-- Sprememnjena vidnost polj za vnost stojišča in temp/pritiska v urejevalniku GSI datotek
+- Dodane kode za ročni vnos podatkov:
+	- (koda: 1) stojišče
+	- (koda: 2) temperatura in zračni pritisk pritisk
+	- (koda: 3) orientacije
+
+### Spremembe
+
+- Dodana vrstica z meniji Datoteka in Program
+- Posodobljen vmesnik v glavnem oknu aplikacije
+- Funkcije Info, Navodila in Nastavitve so prestavljene v vrstico z meniji
+- Sprememnjen način prikazovanja polj za ročni vnos podatkov za stojišče, temp./pritisk in orientacijo (Urejevalnik GSI datotek)
 - Odstranjena koda za "StakeOut" (ni uporabna)
 
+### V Delu
+
+- Delo na dokumentaciji:
+	- Navodila za uporabo programa
+	- Kodiranje podatkov (uporaba in opis kod)
+- Delo na funkcijah za uvoz in izvoz kodiranja podatkov v nastavitvah (Uvoz še ni aktiven)
+
 ---
 
 ## Verzija - 2.6.x

Form1.Designer.vb

@@ -33,23 +33,33 @@ Partial Class Form1
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.tsbFileName = New System.Windows.Forms.ToolStripTextBox()
         Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
-        Me.ToolStripButtonPripravi = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.tsbOpenFile = New System.Windows.Forms.ToolStripButton()
-        Me.ButtonUrediDat = New System.Windows.Forms.ToolStripButton()
         Me.LabelDatoteka = New System.Windows.Forms.ToolStripLabel()
+        Me.tsbOpenFile = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ButtonUrediDat = New System.Windows.Forms.ToolStripButton()
         Me.tsbConvert = New System.Windows.Forms.ToolStripButton()
         Me.tsbPointsOnly = New System.Windows.Forms.ToolStripButton()
-        Me.tsbHelp = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripButtonGeo = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButtonNavodila = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButtonPripravi = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
-        Me.ToolStripButtonNast = New System.Windows.Forms.ToolStripButton()
         Me.OpenFileDialogTocke = New System.Windows.Forms.OpenFileDialog()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.MenuToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OdpriGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
+        Me.PripraviGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.InfoOAplikacijiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OdpriGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PripraviGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.IzhodToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.StatusStrip1.SuspendLayout()
         Me.ToolStrip1.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
         'RichTextBox1
@@ -61,11 +71,11 @@ Partial Class Form1
         Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
         Me.RichTextBox1.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
-        Me.RichTextBox1.Location = New System.Drawing.Point(9, 47)
+        Me.RichTextBox1.Location = New System.Drawing.Point(9, 71)
         Me.RichTextBox1.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1)
         Me.RichTextBox1.Name = "RichTextBox1"
         Me.RichTextBox1.ReadOnly = True
-        Me.RichTextBox1.Size = New System.Drawing.Size(1233, 671)
+        Me.RichTextBox1.Size = New System.Drawing.Size(1233, 647)
         Me.RichTextBox1.TabIndex = 1
         Me.RichTextBox1.Text = resources.GetString("RichTextBox1.Text")
         Me.RichTextBox1.WordWrap = False
@@ -129,27 +139,22 @@ Partial Class Form1
         '
         Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
         Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(30, 30)
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButtonPripravi, Me.ToolStripSeparator2, Me.tsbOpenFile, Me.ButtonUrediDat, Me.tsbFileName, Me.LabelDatoteka, Me.ToolStripSeparator1, Me.tsbConvert, Me.tsbPointsOnly, Me.tsbHelp, Me.ToolStripButtonGeo, Me.ToolStripSeparator4, Me.tsbSaveAs, Me.ToolStripButtonNavodila, Me.ToolStripSeparator3, Me.ToolStripButtonNast})
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LabelDatoteka, Me.tsbFileName, Me.tsbOpenFile, Me.ToolStripButtonPripravi, Me.ToolStripSeparator5, Me.ButtonUrediDat, Me.ToolStripSeparator1, Me.tsbConvert, Me.tsbPointsOnly, Me.ToolStripButtonGeo, Me.ToolStripSeparator4, Me.tsbSaveAs})
-        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
         Me.ToolStrip1.Name = "ToolStrip1"
         Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(10, 5, 10, 5)
         Me.ToolStrip1.Size = New System.Drawing.Size(1251, 47)
         Me.ToolStrip1.TabIndex = 0
         Me.ToolStrip1.Text = "ToolStrip1"
         '
-        'ToolStripButtonPripravi
+        'LabelDatoteka
         '
-        Me.ToolStripButtonPripravi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
+        Me.LabelDatoteka.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.ToolStripButtonPripravi.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.LabelDatoteka.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_window_50
-        Me.ToolStripButtonPripravi.Name = "ToolStripButtonPripravi"
+        Me.LabelDatoteka.Name = "LabelDatoteka"
-        Me.ToolStripButtonPripravi.Size = New System.Drawing.Size(101, 34)
+        Me.LabelDatoteka.Size = New System.Drawing.Size(30, 34)
-        Me.ToolStripButtonPripravi.Text = "Pripravi GSI"
+        Me.LabelDatoteka.Text = "Datoteka"
-        Me.ToolStripButtonPripravi.ToolTipText = "Pripravi GSI iz datoteke z točkami..."
+        Me.LabelDatoteka.ToolTipText = "Ni datoteke"
-        '
-        'ToolStripSeparator2
-        '
-        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 37)
         '
         'tsbOpenFile
         '
@@ -160,6 +165,11 @@ Partial Class Form1
         Me.tsbOpenFile.Text = "Odpri GSI"
         Me.tsbOpenFile.ToolTipText = "Izberi GSI datoteko..."
         '
+        'ToolStripSeparator5
+        '
+        Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
+        Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 37)
+        '
         'ButtonUrediDat
         '
         Me.ButtonUrediDat.Enabled = False
@@ -170,15 +180,6 @@ Partial Class Form1
         Me.ButtonUrediDat.Text = "Uredi"
         Me.ButtonUrediDat.ToolTipText = "Uredi podatke GSI datoteke..."
         '
-        'LabelDatoteka
-        '
-        Me.LabelDatoteka.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.LabelDatoteka.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_window_50
-        Me.LabelDatoteka.Name = "LabelDatoteka"
-        Me.LabelDatoteka.Size = New System.Drawing.Size(30, 34)
-        Me.LabelDatoteka.Text = "Datoteka"
-        Me.LabelDatoteka.ToolTipText = "Ni datoteke"
-        '
         'tsbConvert
         '
         Me.tsbConvert.Enabled = False
@@ -201,16 +202,6 @@ Partial Class Form1
         Me.tsbPointsOnly.Text = "Točke"
         Me.tsbPointsOnly.ToolTipText = "Izvozi koordinate točk."
         '
-        'tsbHelp
-        '
-        Me.tsbHelp.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.tsbHelp.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_info_50
-        Me.tsbHelp.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbHelp.Name = "tsbHelp"
-        Me.tsbHelp.Size = New System.Drawing.Size(62, 34)
-        Me.tsbHelp.Text = "Info"
-        Me.tsbHelp.ToolTipText = "O programu..."
-        '
         'ToolStripButtonGeo
         '
         Me.ToolStripButtonGeo.Enabled = False
@@ -235,36 +226,108 @@ Partial Class Form1
         Me.tsbSaveAs.Size = New System.Drawing.Size(93, 34)
         Me.tsbSaveAs.Text = "Shrani ..."
         '
-        'ToolStripButtonNavodila
+        'ToolStripButtonPripravi
         '
-        Me.ToolStripButtonNavodila.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripButtonPripravi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
-        Me.ToolStripButtonNavodila.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_question_mark_48
+        Me.ToolStripButtonPripravi.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.ToolStripButtonNavodila.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButtonPripravi.Name = "ToolStripButtonPripravi"
-        Me.ToolStripButtonNavodila.Name = "ToolStripButtonNavodila"
+        Me.ToolStripButtonPripravi.Size = New System.Drawing.Size(101, 34)
-        Me.ToolStripButtonNavodila.Size = New System.Drawing.Size(88, 34)
+        Me.ToolStripButtonPripravi.Text = "Pripravi GSI"
-        Me.ToolStripButtonNavodila.Text = "Navodila"
+        Me.ToolStripButtonPripravi.ToolTipText = "Pripravi GSI iz datoteke z točkami..."
-        Me.ToolStripButtonNavodila.ToolTipText = "Odpri PDF z navodili..."
-        '
-        'ToolStripSeparator3
-        '
-        Me.ToolStripSeparator3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 37)
-        '
-        'ToolStripButtonNast
-        '
-        Me.ToolStripButtonNast.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripButtonNast.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tools_50
-        Me.ToolStripButtonNast.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.ToolStripButtonNast.Name = "ToolStripButtonNast"
-        Me.ToolStripButtonNast.Size = New System.Drawing.Size(96, 34)
-        Me.ToolStripButtonNast.Text = "Nastavitve"
-        Me.ToolStripButtonNast.ToolTipText = "Odpri Nastavitve..."
         '
         'OpenFileDialogTocke
         '
         Me.OpenFileDialogTocke.Filter = "Datoteke točk|*.koo;*.txt|All files|*.*"
         '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatotekaToolStripMenuItem, Me.MenuToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(1251, 24)
+        Me.MenuStrip1.TabIndex = 3
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'MenuToolStripMenuItem
+        '
+        Me.MenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem, Me.ToolStripSeparator6, Me.PripraviGSIToolStripMenuItem, Me.InfoOAplikacijiToolStripMenuItem})
+        Me.MenuToolStripMenuItem.Name = "MenuToolStripMenuItem"
+        Me.MenuToolStripMenuItem.Size = New System.Drawing.Size(65, 20)
+        Me.MenuToolStripMenuItem.Text = "Program"
+        Me.MenuToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        '
+        'OdpriGSIToolStripMenuItem
+        '
+        Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tools_50
+        Me.OdpriGSIToolStripMenuItem.Name = "OdpriGSIToolStripMenuItem"
+        Me.OdpriGSIToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.OdpriGSIToolStripMenuItem.Text = "Nastavitve"
+        '
+        'ToolStripSeparator6
+        '
+        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(151, 6)
+        '
+        'PripraviGSIToolStripMenuItem
+        '
+        Me.PripraviGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_question_mark_48
+        Me.PripraviGSIToolStripMenuItem.Name = "PripraviGSIToolStripMenuItem"
+        Me.PripraviGSIToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
+        Me.PripraviGSIToolStripMenuItem.Text = "Navodila"
+        '
+        'InfoOAplikacijiToolStripMenuItem
+        '
+        Me.InfoOAplikacijiToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_information_50
+        Me.InfoOAplikacijiToolStripMenuItem.Name = "InfoOAplikacijiToolStripMenuItem"
+        Me.InfoOAplikacijiToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
+        Me.InfoOAplikacijiToolStripMenuItem.Text = "Info o aplikaciji"
+        '
+        'DatotekaToolStripMenuItem
+        '
+        Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem1, Me.PripraviGSIToolStripMenuItem1, Me.ToolStripSeparator3, Me.ShraniToolStripMenuItem, Me.ToolStripSeparator2, Me.IzhodToolStripMenuItem})
+        Me.DatotekaToolStripMenuItem.Name = "DatotekaToolStripMenuItem"
+        Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(66, 20)
+        Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
+        '
+        'OdpriGSIToolStripMenuItem1
+        '
+        Me.OdpriGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
+        Me.OdpriGSIToolStripMenuItem1.Name = "OdpriGSIToolStripMenuItem1"
+        Me.OdpriGSIToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+        Me.OdpriGSIToolStripMenuItem1.Text = "&Odpri GSI"
+        '
+        'PripraviGSIToolStripMenuItem1
+        '
+        Me.PripraviGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
+        Me.PripraviGSIToolStripMenuItem1.Name = "PripraviGSIToolStripMenuItem1"
+        Me.PripraviGSIToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+        Me.PripraviGSIToolStripMenuItem1.Text = "&Pripravi GSI"
+        '
+        'ShraniToolStripMenuItem
+        '
+        Me.ShraniToolStripMenuItem.Enabled = False
+        Me.ShraniToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
+        Me.ShraniToolStripMenuItem.Name = "ShraniToolStripMenuItem"
+        Me.ShraniToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ShraniToolStripMenuItem.Text = "&Shrani..."
+        '
+        'IzhodToolStripMenuItem
+        '
+        Me.IzhodToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
+        Me.IzhodToolStripMenuItem.Name = "IzhodToolStripMenuItem"
+        Me.IzhodToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.IzhodToolStripMenuItem.Text = "I&zhod"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
+        '
+        'ToolStripSeparator3
+        '
+        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
+        '
         'Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -273,8 +336,10 @@ Partial Class Form1
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.RichTextBox1)
         Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MainMenuStrip = Me.MenuStrip1
         Me.MinimumSize = New System.Drawing.Size(1000, 480)
         Me.Name = "Form1"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
@@ -283,6 +348,8 @@ Partial Class Form1
         Me.StatusStrip1.PerformLayout()
         Me.ToolStrip1.ResumeLayout(False)
         Me.ToolStrip1.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -297,19 +364,28 @@ Partial Class Form1
     Friend WithEvents tsbConvert As ToolStripButton
     Friend WithEvents tsbSaveAs As ToolStripButton
     Friend WithEvents ToolStrip1 As ToolStrip
-    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
     Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
     Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
     Friend WithEvents tsbPointsOnly As ToolStripButton
-    Friend WithEvents tsbHelp As ToolStripButton
     Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
     Friend WithEvents ButtonUrediDat As ToolStripButton
-    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
     Friend WithEvents LabelDatoteka As ToolStripLabel
     Friend WithEvents ToolStripProgressBar1 As ToolStripProgressBar
-    Friend WithEvents ToolStripButtonNast As ToolStripButton
     Friend WithEvents ToolStripButtonPripravi As ToolStripButton
     Friend WithEvents OpenFileDialogTocke As OpenFileDialog
     Friend WithEvents ToolStripButtonGeo As ToolStripButton
-    Friend WithEvents ToolStripButtonNavodila As ToolStripButton
+    Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents MenuToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents OdpriGSIToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PripraviGSIToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
+    Friend WithEvents InfoOAplikacijiToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DatotekaToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents OdpriGSIToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents PripraviGSIToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
+    Friend WithEvents ShraniToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents IzhodToolStripMenuItem As ToolStripMenuItem
 End Class

Form1.resx

@@ -155,6 +155,9 @@ Lokacija zapisnika = </value>
   <metadata name="OpenFileDialogTocke.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>519, 17</value>
   </metadata>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>684, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

Form1.vb

@@ -2,7 +2,6 @@
 Imports System.Runtime.InteropServices.ComTypes
 
 Public Class Form1
-
     Public DatotekaLogfile As String = My.Settings.DatLogfile
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If DatotekaLogfile = "" Then
@@ -21,8 +20,7 @@ Public Class Form1
         RichTextBox1.Font = New Font(My.Settings.Pisava, My.Settings.PisavaVelikost)
     End Sub
 
-    Public streamLines As Integer = 0
+    Public Sub OdpriDatotekoGsi()
-    Private Sub tsbOpenFile_Click(sender As Object, e As EventArgs) Handles tsbOpenFile.Click
         OpenFileDialog1.ReadOnlyChecked = False
         If OpenFileDialog1.ShowDialog = DialogResult.OK Then
             RichTextBox1.Clear()
@@ -43,6 +41,7 @@ Public Class Form1
             ToolStripStatusLabel1.Text = My.Settings.ZadnjaMapa
             tsbSaveAs.Text = "Shrani ..."
             tsbSaveAs.Enabled = False
+            ShraniToolStripMenuItem.Enabled = False
             tsbConvert.Enabled = True
             tsbPointsOnly.Enabled = True
             ToolStripButtonGeo.Enabled = True
@@ -55,12 +54,61 @@ Public Class Form1
             RichTextBox1.Clear()
             tsbSaveAs.Text = "Shrani ..."
             tsbSaveAs.Enabled = False
+            ShraniToolStripMenuItem.Enabled = False
             tsbConvert.Enabled = False
             tsbPointsOnly.Enabled = False
         End If
         OpenFileDialog1.Dispose()
     End Sub
 
+    Public Sub PripraviDatotekoGsi()
+        If OpenFileDialogTocke.ShowDialog = DialogResult.OK Then
+            RichTextBox1.Clear()
+            Dim streamReader As StreamReader = New StreamReader(OpenFileDialogTocke.FileName)
+            Do Until streamReader.EndOfStream
+                streamLines = streamLines + 1
+                Dim readLine As String = streamReader.ReadLine().Replace(" ", vbTab)
+                readLine = readLine.Replace(";", vbTab)
+                readLine = readLine.Replace(".", ",")
+                Dim line() As String = readLine.Split(vbTab)
+                Dim podPtId As String = "*11" + Format(streamLines, "0000") + "+" + line(0).PadLeft(16, "0") + " "
+                Dim izrE As Double = line(1) * 1000
+                Dim podE As String = "81..00+" + Format(izrE, "#0000000000000000") + " "
+                Dim izrN As Double = line(2) * 1000
+                Dim podN As String = "82..00+" + Format(izrN, "#0000000000000000") + " "
+                Dim izrH As Double = line(3) * 1000
+                Dim podH As String = "83..00+" + Format(izrH, "#0000000000000000") + " "
+                ' Dim podE As String = "81..00+" + izrE2.PadLeft(16, "0") + " "
+                RichTextBox1.AppendText(podPtId + podE + podN + podH + vbCrLf)
+            Loop
+            ToolStripProgressBar1.Maximum = streamLines
+            streamReader.Close()
+            streamReader.Dispose()
+            ToolStripStatusLabel1.Text = "Prebrano: " + streamLines.ToString + "/" + ToolStripProgressBar1.Maximum.ToString + " vrstic"
+            SaveFileDialog1.Filter = "GSI datoteka|*.GSI"
+            SaveFileDialog1.FileName = Path.GetFileNameWithoutExtension(OpenFileDialogTocke.FileName)
+            tsbSaveAs.Enabled = True
+            ShraniToolStripMenuItem.Enabled = True
+            tsbSaveAs.Text = "Shrani GSI"
+        End If
+    End Sub
+
+    Public Sub ShraniDatoteko()
+        SaveFileDialog1.FileName = Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
+        SaveFileDialog1.InitialDirectory = My.Settings.MapaShrani
+        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
+            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
+            My.Computer.FileSystem.WriteAllText(DatotekaLogfile, System.DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + " | " + OpenFileDialog1.FileName.ToString + " -> " + SaveFileDialog1.FileName.ToString + vbCrLf, True)
+            My.Settings.MapaShrani = Path.GetDirectoryName(SaveFileDialog1.FileName)
+            My.Settings.Save()
+            ToolStripStatusLabel1.Text = "Datoteka shranjena >>> " + SaveFileDialog1.FileName.ToString
+            RichTextBox1.BackColor = SystemColors.ControlLightLight
+            ShraniToolStripMenuItem.Enabled = False
+        End If
+    End Sub
+
+    Public streamLines As Integer = 0
+
     Private Sub tsbConvert_Click(sender As Object, e As EventArgs) Handles tsbConvert.Click
         ToolStripStatusLabel1.Text = "Procesiranje..."
         RichTextBox1.Clear()
@@ -288,6 +336,7 @@ Public Class Form1
         ToolStripStatusLabel1.Text = "Prebrano: " + i.ToString + "/" + ToolStripProgressBar1.Maximum.ToString + " vrstic"
         SaveFileDialog1.Filter = "Zapisnik meritve|*.mer|Text file|*.txt|All files|*.*"
         tsbSaveAs.Enabled = True
+        ShraniToolStripMenuItem.Enabled = True
         tsbSaveAs.Text = "Shrani Zapisnik"
     End Sub
 
@@ -424,66 +473,10 @@ Public Class Form1
         SaveFileDialog1.Filter = "KOO|*.koo|TXT|*.txt|All files|*.*"
         streamReader.Close()
         tsbSaveAs.Enabled = True
+        ShraniToolStripMenuItem.Enabled = True
         tsbSaveAs.Text = "Shrani Točke"
     End Sub
 
-    Private Sub tsbSaveAs_Click(sender As Object, e As EventArgs) Handles tsbSaveAs.Click
-        SaveFileDialog1.FileName = Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
-        SaveFileDialog1.InitialDirectory = My.Settings.MapaShrani
-        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
-            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
-            My.Computer.FileSystem.WriteAllText(DatotekaLogfile, System.DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + " | " + OpenFileDialog1.FileName.ToString + " -> " + SaveFileDialog1.FileName.ToString + vbCrLf, True)
-            My.Settings.MapaShrani = Path.GetDirectoryName(SaveFileDialog1.FileName)
-            My.Settings.Save()
-            ToolStripStatusLabel1.Text = "Datoteka shranjena >>> " + SaveFileDialog1.FileName.ToString
-            RichTextBox1.BackColor = SystemColors.ControlLightLight
-        End If
-    End Sub
-
-    Private Sub tsbHelp_Click(sender As Object, e As EventArgs) Handles tsbHelp.Click
-        ' MessageBox.Show("Za konvertiranje GSI datoteke najprej izberi datoteko, ki jo želiš konvertirati z ukazom 'Open File'. Nato izberi metodo konverzije (Poročilo, Merjene točke, Vse točke). Po končani knverziji shrani novo datoteko z ukazom 'Save As...'","Kratka navodila")
-        SplashScreen1.ShowDialog()
-    End Sub
-
-    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ButtonUrediDat.Click
-        Form2.ShowDialog()
-    End Sub
-
-    Private Sub ToolStripButtonNast_Click(sender As Object, e As EventArgs) Handles ToolStripButtonNast.Click
-        FormNastavitve.ShowDialog()
-    End Sub
-
-    Private Sub ToolStripButtonPripravi_Click(sender As Object, e As EventArgs) Handles ToolStripButtonPripravi.Click
-        If OpenFileDialogTocke.ShowDialog = DialogResult.OK Then
-            RichTextBox1.Clear()
-            Dim streamReader As StreamReader = New StreamReader(OpenFileDialogTocke.FileName)
-            Do Until streamReader.EndOfStream
-                streamLines = streamLines + 1
-                Dim readLine As String = streamReader.ReadLine().Replace(" ", vbTab)
-                readLine = readLine.Replace(";", vbTab)
-                readLine = readLine.Replace(".", ",")
-                Dim line() As String = readLine.Split(vbTab)
-                Dim podPtId As String = "*11" + Format(streamLines, "0000") + "+" + line(0).PadLeft(16, "0") + " "
-                Dim izrE As Double = line(1) * 1000
-                Dim podE As String = "81..00+" + Format(izrE, "#0000000000000000") + " "
-                Dim izrN As Double = line(2) * 1000
-                Dim podN As String = "82..00+" + Format(izrN, "#0000000000000000") + " "
-                Dim izrH As Double = line(3) * 1000
-                Dim podH As String = "83..00+" + Format(izrH, "#0000000000000000") + " "
-                ' Dim podE As String = "81..00+" + izrE2.PadLeft(16, "0") + " "
-                RichTextBox1.AppendText(podPtId + podE + podN + podH + vbCrLf)
-            Loop
-            ToolStripProgressBar1.Maximum = streamLines
-            streamReader.Close()
-            streamReader.Dispose()
-            ToolStripStatusLabel1.Text = "Prebrano: " + streamLines.ToString + "/" + ToolStripProgressBar1.Maximum.ToString + " vrstic"
-            SaveFileDialog1.Filter = "GSI datoteka|*.GSI"
-            SaveFileDialog1.FileName = Path.GetFileNameWithoutExtension(OpenFileDialogTocke.FileName)
-            tsbSaveAs.Enabled = True
-            tsbSaveAs.Text = "Shrani GSI"
-        End If
-    End Sub
-
     ' Priprava GEO datoteke
     Private Sub ToolStripButtonGeo_Click(sender As Object, e As EventArgs) Handles ToolStripButtonGeo.Click
         RichTextBox1.Clear()
@@ -527,7 +520,10 @@ Public Class Form1
                     Dim numPress As Double
                     numPress = infoPress * 0.750062
                     infoPress = Format(numPress, "0.00").ToString
-                    izpisText = infoTemp + " " + infoPress + vbCrLf
+                    If measuredPoints = 0 Then
+                        izpisText = infoTemp + " " + infoPress + vbCrLf
+                    End If
+
                     measuredPoints = 0
                 End If
 
@@ -543,7 +539,7 @@ Public Class Form1
                 End If
 
                 If dataKoda = My.Settings.KodaUserImport Then
-                    measuredPoints = 0
+                    measuredPoints = 1
                 End If
 
                 If dataKoda = My.Settings.KodaMeasOri Then
@@ -656,10 +652,61 @@ Public Class Form1
         SaveFileDialog1.Filter = "GEO datoteka|*.GEO"
         SaveFileDialog1.FileName = Path.GetFileNameWithoutExtension(OpenFileDialogTocke.FileName)
         tsbSaveAs.Enabled = True
+        ShraniToolStripMenuItem.Enabled = True
         tsbSaveAs.Text = "Shrani GEO"
     End Sub
 
-    Private Sub ToolStripButtonNavodila_Click(sender As Object, e As EventArgs) Handles ToolStripButtonNavodila.Click
+    Private Sub InfoOAplikacijiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoOAplikacijiToolStripMenuItem.Click
+        ' MessageBox.Show("Za konvertiranje GSI datoteke najprej izberi datoteko, ki jo želiš konvertirati z ukazom 'Open File'. Nato izberi metodo konverzije (Poročilo, Merjene točke, Vse točke). Po končani knverziji shrani novo datoteko z ukazom 'Save As...'","Kratka navodila")
+        SplashScreen1.ShowDialog()
+    End Sub
+
+    Private Sub PripraviGSIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PripraviGSIToolStripMenuItem.Click
         Process.Start("Navodila.pdf")
     End Sub
+
+    Private Sub OdpriGSIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OdpriGSIToolStripMenuItem.Click
+        FormNastavitve.ShowDialog()
+    End Sub
+
+    Private Sub OdpriGSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OdpriGSIToolStripMenuItem1.Click
+        OdpriDatotekoGsi()
+
+    End Sub
+    Private Sub tsbOpenFile_Click(sender As Object, e As EventArgs) Handles tsbOpenFile.Click
+        OdpriDatotekoGsi()
+
+    End Sub
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ButtonUrediDat.Click
+        Form2.ShowDialog()
+    End Sub
+
+    Private Sub ToolStripButtonNast_Click(sender As Object, e As EventArgs)
+        FormNastavitve.ShowDialog()
+    End Sub
+
+    Private Sub ToolStripButtonPripravi_Click(sender As Object, e As EventArgs) Handles ToolStripButtonPripravi.Click
+        PripraviDatotekoGsi()
+
+    End Sub
+
+    Private Sub PripraviGSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PripraviGSIToolStripMenuItem1.Click
+        PripraviDatotekoGsi()
+
+    End Sub
+    Private Sub tsbSaveAs_Click(sender As Object, e As EventArgs) Handles tsbSaveAs.Click
+        ShraniDatoteko()
+
+    End Sub
+
+    Private Sub ShraniToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShraniToolStripMenuItem.Click
+        ShraniDatoteko()
+
+    End Sub
+
+    Private Sub IzhodToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzhodToolStripMenuItem.Click
+        Me.Close()
+        Application.Exit()
+
+    End Sub
 End Class

Form2.Designer.vb

@@ -142,7 +142,6 @@ Partial Class Form2
         '
         'ToolStripTextBox1
         '
-        Me.ToolStripTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
         Me.ToolStripTextBox1.Size = New System.Drawing.Size(90, 27)
         Me.ToolStripTextBox1.Text = "NAME"
@@ -158,7 +157,6 @@ Partial Class Form2
         '
         'ToolStripTextBox2
         '
-        Me.ToolStripTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripTextBox2.Name = "ToolStripTextBox2"
         Me.ToolStripTextBox2.Size = New System.Drawing.Size(60, 27)
         Me.ToolStripTextBox2.Text = "0.000"
@@ -174,7 +172,6 @@ Partial Class Form2
         '
         'ToolStripTextBox5
         '
-        Me.ToolStripTextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripTextBox5.Name = "ToolStripTextBox5"
         Me.ToolStripTextBox5.Size = New System.Drawing.Size(70, 27)
         Me.ToolStripTextBox5.Text = "0.0000"
@@ -190,7 +187,6 @@ Partial Class Form2
         '
         'ToolStripTextBox3
         '
-        Me.ToolStripTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripTextBox3.Name = "ToolStripTextBox3"
         Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 27)
         Me.ToolStripTextBox3.Text = "20.0"
@@ -206,7 +202,6 @@ Partial Class Form2
         '
         'ToolStripTextBox4
         '
-        Me.ToolStripTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripTextBox4.Name = "ToolStripTextBox4"
         Me.ToolStripTextBox4.Size = New System.Drawing.Size(60, 27)
         Me.ToolStripTextBox4.Text = "1013"

FormNastavitve.Designer.vb

@@ -37,30 +37,32 @@ Partial Class FormNastavitve
         Me.OpenFileDialogLog = New System.Windows.Forms.OpenFileDialog()
         Me.SaveFileDialogLog = New System.Windows.Forms.SaveFileDialog()
         Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
-        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.TextBoxOriHz = New System.Windows.Forms.TextBox()
         Me.Label14 = New System.Windows.Forms.Label()
-        Me.Label13 = New System.Windows.Forms.Label()
         Me.Label12 = New System.Windows.Forms.Label()
-        Me.TextBoxStojInfo = New System.Windows.Forms.TextBox()
-        Me.TextBoxStoj = New System.Windows.Forms.TextBox()
-        Me.TextBoxMeasOri = New System.Windows.Forms.TextBox()
-        Me.TextBoxQuickSet = New System.Windows.Forms.TextBox()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.TextBoxSetAzi = New System.Windows.Forms.TextBox()
-        Me.TextBoxRes = New System.Windows.Forms.TextBox()
-        Me.TextBoxFree = New System.Windows.Forms.TextBox()
-        Me.TextBoxOriHt = New System.Windows.Forms.TextBox()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.TextBoxImport = New System.Windows.Forms.TextBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.TextBoxMeas = New System.Windows.Forms.TextBox()
-        Me.Label6 = New System.Windows.Forms.Label()
         Me.Label10 = New System.Windows.Forms.Label()
+        Me.TextBoxImport = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.TextBoxMeas = New System.Windows.Forms.TextBox()
+        Me.TextBoxMeasOri = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
         Me.Label11 = New System.Windows.Forms.Label()
+        Me.TextBoxOriHt = New System.Windows.Forms.TextBox()
+        Me.TextBoxFree = New System.Windows.Forms.TextBox()
+        Me.TextBoxRes = New System.Windows.Forms.TextBox()
+        Me.TextBoxSetAzi = New System.Windows.Forms.TextBox()
+        Me.TextBoxQuickSet = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBoxStoj = New System.Windows.Forms.TextBox()
+        Me.TextBoxStojInfo = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
         Me.LabelFontInfo = New System.Windows.Forms.Label()
         Me.ButtonFont = New System.Windows.Forms.Button()
@@ -73,8 +75,6 @@ Partial Class FormNastavitve
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.ZapriToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ButtonShraniZapri = New System.Windows.Forms.Button()
-        Me.TextBoxOriHz = New System.Windows.Forms.TextBox()
-        Me.Label7 = New System.Windows.Forms.Label()
         Me.GroupBox1.SuspendLayout()
         Me.TableLayoutPanel1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
@@ -288,18 +288,30 @@ Partial Class FormNastavitve
         Me.TableLayoutPanel3.Size = New System.Drawing.Size(239, 390)
         Me.TableLayoutPanel3.TabIndex = 0
         '
-        'Label15
+        'Label7
         '
-        Me.Label15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.Label7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label15.AutoSize = True
+        Me.Label7.AutoSize = True
-        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(78, 90)
-        Me.Label15.Location = New System.Drawing.Point(3, 270)
+        Me.Label7.Name = "Label7"
-        Me.Label15.Name = "Label15"
+        Me.Label7.Size = New System.Drawing.Size(79, 30)
-        Me.Label15.Size = New System.Drawing.Size(39, 30)
+        Me.Label7.TabIndex = 9
-        Me.Label15.TabIndex = 22
+        Me.Label7.Text = "Orientacija (Hz)"
-        Me.Label15.Text = "Koda"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'TextBoxOriHz
+        '
+        Me.TextBoxOriHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxOriHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxOriHz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxOriHz.Location = New System.Drawing.Point(3, 93)
+        Me.TextBoxOriHz.Name = "TextBoxOriHz"
+        Me.TextBoxOriHz.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxOriHz.TabIndex = 9
+        Me.TextBoxOriHz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         'Label14
         '
@@ -314,18 +326,6 @@ Partial Class FormNastavitve
         Me.Label14.Text = "Koda"
         Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
-        'Label13
-        '
-        Me.Label13.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(78, 60)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(88, 30)
-        Me.Label13.TabIndex = 5
-        Me.Label13.Text = "Info Temp/Pritisk"
-        Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
         'Label12
         '
         Me.Label12.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -338,232 +338,6 @@ Partial Class FormNastavitve
         Me.Label12.Text = "Stojišče "
         Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
-        'TextBoxStojInfo
-        '
-        Me.TextBoxStojInfo.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxStojInfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxStojInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxStojInfo.Location = New System.Drawing.Point(3, 63)
-        Me.TextBoxStojInfo.Name = "TextBoxStojInfo"
-        Me.TextBoxStojInfo.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxStojInfo.TabIndex = 5
-        Me.TextBoxStojInfo.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'TextBoxStoj
-        '
-        Me.TextBoxStoj.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxStoj.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxStoj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxStoj.Location = New System.Drawing.Point(3, 33)
-        Me.TextBoxStoj.Name = "TextBoxStoj"
-        Me.TextBoxStoj.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxStoj.TabIndex = 4
-        Me.TextBoxStoj.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'TextBoxMeasOri
-        '
-        Me.TextBoxMeasOri.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxMeasOri.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxMeasOri.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxMeasOri.Location = New System.Drawing.Point(3, 303)
-        Me.TextBoxMeasOri.Name = "TextBoxMeasOri"
-        Me.TextBoxMeasOri.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxMeasOri.TabIndex = 12
-        Me.TextBoxMeasOri.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'TextBoxQuickSet
-        '
-        Me.TextBoxQuickSet.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxQuickSet.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxQuickSet.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxQuickSet.Location = New System.Drawing.Point(3, 123)
-        Me.TextBoxQuickSet.Name = "TextBoxQuickSet"
-        Me.TextBoxQuickSet.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxQuickSet.TabIndex = 6
-        Me.TextBoxQuickSet.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'Label9
-        '
-        Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(78, 300)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(58, 30)
-        Me.Label9.TabIndex = 16
-        Me.Label9.Text = "Orientation"
-        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'TextBoxSetAzi
-        '
-        Me.TextBoxSetAzi.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxSetAzi.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxSetAzi.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxSetAzi.Location = New System.Drawing.Point(3, 153)
-        Me.TextBoxSetAzi.Name = "TextBoxSetAzi"
-        Me.TextBoxSetAzi.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxSetAzi.TabIndex = 7
-        Me.TextBoxSetAzi.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'TextBoxRes
-        '
-        Me.TextBoxRes.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxRes.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxRes.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxRes.Location = New System.Drawing.Point(3, 183)
-        Me.TextBoxRes.Name = "TextBoxRes"
-        Me.TextBoxRes.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxRes.TabIndex = 8
-        Me.TextBoxRes.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'TextBoxFree
-        '
-        Me.TextBoxFree.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxFree.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxFree.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxFree.Location = New System.Drawing.Point(3, 213)
-        Me.TextBoxFree.Name = "TextBoxFree"
-        Me.TextBoxFree.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxFree.TabIndex = 9
-        Me.TextBoxFree.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'TextBoxOriHt
-        '
-        Me.TextBoxOriHt.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxOriHt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxOriHt.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxOriHt.Location = New System.Drawing.Point(3, 243)
-        Me.TextBoxOriHt.Name = "TextBoxOriHt"
-        Me.TextBoxOriHt.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxOriHt.TabIndex = 10
-        Me.TextBoxOriHt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'Label8
-        '
-        Me.Label8.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(78, 360)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(120, 30)
-        Me.Label8.TabIndex = 7
-        Me.Label8.Text = "Imported / User-entered"
-        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'TextBoxImport
-        '
-        Me.TextBoxImport.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxImport.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxImport.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxImport.Location = New System.Drawing.Point(3, 363)
-        Me.TextBoxImport.Name = "TextBoxImport"
-        Me.TextBoxImport.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxImport.TabIndex = 14
-        Me.TextBoxImport.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'Label1
-        '
-        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(78, 120)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(54, 30)
-        Me.Label1.TabIndex = 0
-        Me.Label1.Text = "Quick Set"
-        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'Label2
-        '
-        Me.Label2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(78, 150)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(63, 30)
-        Me.Label2.TabIndex = 1
-        Me.Label2.Text = "Set Azimuth"
-        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'Label3
-        '
-        Me.Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(78, 180)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(55, 30)
-        Me.Label3.TabIndex = 2
-        Me.Label3.Text = "Resection"
-        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'Label4
-        '
-        Me.Label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(78, 210)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(64, 30)
-        Me.Label4.TabIndex = 3
-        Me.Label4.Text = "Free Station"
-        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'Label5
-        '
-        Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(78, 240)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(103, 30)
-        Me.Label5.TabIndex = 4
-        Me.Label5.Text = "Ori. and Ht. Transfer"
-        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'TextBoxMeas
-        '
-        Me.TextBoxMeas.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxMeas.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxMeas.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxMeas.Location = New System.Drawing.Point(3, 333)
-        Me.TextBoxMeas.Name = "TextBoxMeas"
-        Me.TextBoxMeas.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxMeas.TabIndex = 11
-        Me.TextBoxMeas.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'Label6
-        '
-        Me.Label6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(78, 330)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(54, 30)
-        Me.Label6.TabIndex = 5
-        Me.Label6.Text = "Measured"
-        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
         'Label10
         '
         Me.Label10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -577,6 +351,94 @@ Partial Class FormNastavitve
         Me.Label10.Text = "Stojišče"
         Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
+        'TextBoxImport
+        '
+        Me.TextBoxImport.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxImport.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxImport.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxImport.Location = New System.Drawing.Point(3, 363)
+        Me.TextBoxImport.Name = "TextBoxImport"
+        Me.TextBoxImport.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxImport.TabIndex = 14
+        Me.TextBoxImport.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(78, 360)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(120, 30)
+        Me.Label8.TabIndex = 7
+        Me.Label8.Text = "Imported / User-entered"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'TextBoxMeas
+        '
+        Me.TextBoxMeas.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxMeas.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxMeas.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxMeas.Location = New System.Drawing.Point(3, 333)
+        Me.TextBoxMeas.Name = "TextBoxMeas"
+        Me.TextBoxMeas.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxMeas.TabIndex = 11
+        Me.TextBoxMeas.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxMeasOri
+        '
+        Me.TextBoxMeasOri.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxMeasOri.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxMeasOri.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxMeasOri.Location = New System.Drawing.Point(3, 303)
+        Me.TextBoxMeasOri.Name = "TextBoxMeasOri"
+        Me.TextBoxMeasOri.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxMeasOri.TabIndex = 12
+        Me.TextBoxMeasOri.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(78, 330)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(54, 30)
+        Me.Label6.TabIndex = 5
+        Me.Label6.Text = "Measured"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(78, 300)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(58, 30)
+        Me.Label9.TabIndex = 16
+        Me.Label9.Text = "Orientation"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label15
+        '
+        Me.Label15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label15.Location = New System.Drawing.Point(3, 270)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(39, 30)
+        Me.Label15.TabIndex = 22
+        Me.Label15.Text = "Koda"
+        Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
         'Label11
         '
         Me.Label11.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -590,6 +452,169 @@ Partial Class FormNastavitve
         Me.Label11.Text = "Meritve"
         Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
+        'TextBoxOriHt
+        '
+        Me.TextBoxOriHt.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxOriHt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxOriHt.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxOriHt.Location = New System.Drawing.Point(3, 243)
+        Me.TextBoxOriHt.Name = "TextBoxOriHt"
+        Me.TextBoxOriHt.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxOriHt.TabIndex = 10
+        Me.TextBoxOriHt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxFree
+        '
+        Me.TextBoxFree.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxFree.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxFree.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxFree.Location = New System.Drawing.Point(3, 213)
+        Me.TextBoxFree.Name = "TextBoxFree"
+        Me.TextBoxFree.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxFree.TabIndex = 9
+        Me.TextBoxFree.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxRes
+        '
+        Me.TextBoxRes.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxRes.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxRes.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxRes.Location = New System.Drawing.Point(3, 183)
+        Me.TextBoxRes.Name = "TextBoxRes"
+        Me.TextBoxRes.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxRes.TabIndex = 8
+        Me.TextBoxRes.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxSetAzi
+        '
+        Me.TextBoxSetAzi.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxSetAzi.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxSetAzi.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxSetAzi.Location = New System.Drawing.Point(3, 153)
+        Me.TextBoxSetAzi.Name = "TextBoxSetAzi"
+        Me.TextBoxSetAzi.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxSetAzi.TabIndex = 7
+        Me.TextBoxSetAzi.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxQuickSet
+        '
+        Me.TextBoxQuickSet.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxQuickSet.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxQuickSet.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxQuickSet.Location = New System.Drawing.Point(3, 123)
+        Me.TextBoxQuickSet.Name = "TextBoxQuickSet"
+        Me.TextBoxQuickSet.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxQuickSet.TabIndex = 6
+        Me.TextBoxQuickSet.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(78, 240)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(103, 30)
+        Me.Label5.TabIndex = 4
+        Me.Label5.Text = "Ori. and Ht. Transfer"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(78, 210)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(64, 30)
+        Me.Label4.TabIndex = 3
+        Me.Label4.Text = "Free Station"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(78, 180)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 30)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "Resection"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(78, 150)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(63, 30)
+        Me.Label2.TabIndex = 1
+        Me.Label2.Text = "Set Azimuth"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(78, 120)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(54, 30)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Quick Set"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'TextBoxStoj
+        '
+        Me.TextBoxStoj.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxStoj.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxStoj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxStoj.Location = New System.Drawing.Point(3, 33)
+        Me.TextBoxStoj.Name = "TextBoxStoj"
+        Me.TextBoxStoj.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxStoj.TabIndex = 4
+        Me.TextBoxStoj.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxStojInfo
+        '
+        Me.TextBoxStojInfo.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxStojInfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxStojInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxStojInfo.Location = New System.Drawing.Point(3, 63)
+        Me.TextBoxStojInfo.Name = "TextBoxStojInfo"
+        Me.TextBoxStojInfo.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxStojInfo.TabIndex = 5
+        Me.TextBoxStojInfo.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label13
+        '
+        Me.Label13.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(78, 60)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(88, 30)
+        Me.Label13.TabIndex = 5
+        Me.Label13.Text = "Info Temp/Pritisk"
+        Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
         'GroupBox4
         '
         Me.GroupBox4.Controls.Add(Me.LabelFontInfo)
@@ -688,31 +713,6 @@ Partial Class FormNastavitve
         Me.ButtonShraniZapri.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.ButtonShraniZapri.UseVisualStyleBackColor = True
         '
-        'TextBoxOriHz
-        '
-        Me.TextBoxOriHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBoxOriHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.TextBoxOriHz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.TextBoxOriHz.Location = New System.Drawing.Point(3, 93)
-        Me.TextBoxOriHz.Name = "TextBoxOriHz"
-        Me.TextBoxOriHz.Size = New System.Drawing.Size(69, 22)
-        Me.TextBoxOriHz.TabIndex = 9
-        Me.TextBoxOriHz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'Label7
-        '
-        Me.Label7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(78, 90)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(79, 30)
-        Me.Label7.TabIndex = 9
-        Me.Label7.Text = "Orientacija (Hz)"
-        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
         'FormNastavitve
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

My Project/Resources.Designer.vb

@@ -621,6 +621,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property icons8_menu_50() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("icons8-menu-50", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized resource of type System.Drawing.Bitmap.
         '''</summary>
@@ -752,7 +762,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Looks up a localized string similar to # TPS1100-Convert
+        '''  Looks up a localized string similar to # TPS1100 Convert
         '''
         '''![&quot;logo&quot;](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/Icons/TPS1100CNVRT_logo.png)
         '''
@@ -762,11 +772,9 @@ Namespace My.Resources
         '''
         '''- Zapisnik Meritev (podatki meritev kot so Hz, V, SD, HD,...)
         '''- Koordinate Točk (seznam točk v obliki E, N, Ht, koda in klasifikacija)
+        '''- Priprava GSI datoteke iz seznama točk (Uvoz TXT/KOO/... datotek)
         '''
-        '''Program uporablja kodiranje za prepoznavo posameznih elementov meritev.
+        '''Program uporablja kodi [rest of string was truncated]&quot;;.
-        '''
-        '''&lt;br&gt;
-        '''Aplikacij [rest of string was truncated]&quot;;.
         '''</summary>
         Friend ReadOnly Property README() As String
             Get

My Project/Resources.resx

@@ -130,6 +130,9 @@
   <data name="icons8-send-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-send-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="48" xml:space="preserve">
+    <value>Information 7</value>
+  </data>
   <data name="58" xml:space="preserve">
     <value>Prism constant</value>
   </data>
@@ -163,30 +166,21 @@
   <data name="icons8_folder_50_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-folder-50-2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="85" xml:space="preserve">
-    <value>St. Northing</value>
-  </data>
   <data name="TPS1100CNVRT_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\TPS1100CNVRT_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="76" xml:space="preserve">
     <value>Remark 6</value>
   </data>
-  <data name="19" xml:space="preserve">
+  <data name="icons8_do_not_disturb_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>Time</value>
+    <value>Icons\icons8-do-not-disturb-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="icons8_close_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="icons8_opened_folder_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>Icons\icons8-close-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>Icons\icons8-opened-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="31" xml:space="preserve">
-    <value>Slope distance</value>
   </data>
   <data name="51" xml:space="preserve">
     <value>PPM/mm</value>
   </data>
-  <data name="45" xml:space="preserve">
-    <value>Information 4</value>
-  </data>
   <data name="icons8_browse_folder_50_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-browse-folder-50-2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -202,14 +196,11 @@
   <data name="icons8_open_end_wrench_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-open-end-wrench-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="82" xml:space="preserve">
-    <value>Northing</value>
-  </data>
   <data name="12" xml:space="preserve">
     <value>Serial number</value>
   </data>
-  <data name="icons8_close_window_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="icons8_add_new_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>Icons\icons8-close-window-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>Icons\icons8-add-new-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="icons8_cancel_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-cancel-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -217,8 +208,8 @@
   <data name="Fine_Print_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\Fine-Print-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="71" xml:space="preserve">
+  <data name="85" xml:space="preserve">
-    <value>Remark 1</value>
+    <value>St. Northing</value>
   </data>
   <data name="59" xml:space="preserve">
     <value>PPM</value>
@@ -232,21 +223,27 @@
   <data name="43" xml:space="preserve">
     <value>Information 2</value>
   </data>
+  <data name="icons8_close_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>Icons\icons8-close-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="icons8_clear_symbol_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-clear-symbol-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="icons8_edit_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>Icons\icons8-edit-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="icons8-support-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-support-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="25" xml:space="preserve">
-    <value>Horizontal Angle Correction</value>
-  </data>
   <data name="79" xml:space="preserve">
     <value>Remark 9</value>
   </data>
   <data name="Save_as_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\Save-as-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="41" xml:space="preserve">
+    <value>Code-Block ID</value>
+  </data>
   <data name="74" xml:space="preserve">
     <value>Remark 4</value>
   </data>
@@ -256,9 +253,6 @@
   <data name="icons8_drawing_compass_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-drawing-compass-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="icons8_do_not_disturb_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>Icons\icons8-do-not-disturb-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="44" xml:space="preserve">
     <value>Information 3</value>
   </data>
@@ -274,8 +268,8 @@
   <data name="icons8_info_squared_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-info-squared-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="icons8-move-to-folder-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="icons8-check-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>Icons\icons8-move-to-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="icons8_undo_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-undo-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -289,11 +283,14 @@
   <data name="88" xml:space="preserve">
     <value>Instrument height</value>
   </data>
+  <data name="42" xml:space="preserve">
+    <value>Information 1</value>
+  </data>
   <data name="icons8-question-mark-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-question-mark-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="icons8_opened_folder_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="19" xml:space="preserve">
-    <value>Icons\icons8-opened-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>Time</value>
   </data>
   <data name="icons8_no_entry_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-no-entry-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -313,11 +310,14 @@
   <data name="icons8_connection_status_on_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-connection-status-on-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="48" xml:space="preserve">
+  <data name="82" xml:space="preserve">
-    <value>Information 7</value>
+    <value>Northing</value>
   </data>
-  <data name="21" xml:space="preserve">
+  <data name="71" xml:space="preserve">
-    <value>Horizontal Angle</value>
+    <value>Remark 1</value>
+  </data>
+  <data name="45" xml:space="preserve">
+    <value>Information 4</value>
   </data>
   <data name="icons8_advance_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-advance-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -331,8 +331,8 @@
   <data name="87" xml:space="preserve">
     <value>Reflector height</value>
   </data>
-  <data name="icons8_add_new_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="icons8-move-to-folder-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>Icons\icons8-add-new-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>Icons\icons8-move-to-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="icons8-add-folder-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>Icons\icons8-add-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -340,19 +340,22 @@
   <data name="32" xml:space="preserve">
     <value>Horizontal distance</value>
   </data>
-  <data name="icons8_edit_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="31" xml:space="preserve">
-    <value>Icons\icons8-edit-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>Slope distance</value>
   </data>
-  <data name="41" xml:space="preserve">
+  <data name="25" xml:space="preserve">
-    <value>Code-Block ID</value>
+    <value>Horizontal Angle Correction</value>
+  </data>
+  <data name="21" xml:space="preserve">
+    <value>Horizontal Angle</value>
   </data>
   <data name="84" xml:space="preserve">
     <value>St. Easting</value>
   </data>
-  <data name="42" xml:space="preserve">
+  <data name="icons8_close_window_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>Information 1</value>
+    <value>Icons\icons8-close-window-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="icons8-check-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="icons8-menu-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>Icons\icons8-menu-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Podatki/TEST.GSI

@@ -2,6 +2,7 @@
 *110001+00000000000GS001 81..00+0000000465423089 82..00+0000000110526243 83..00+0000000000301586 
 *110002+00000000000GS002 81..00+0000000465437688 82..00+0000000110547569 83..00+0000000000302107 
 *110003+00000000000GS003 81..00+0000000465472908 82..00+0000000110527226 83..00+0000000000302945 
+*410000+0000000000000002 71....+0000000000000021 72....+0000000000001018 
 *410010+0000000000000040 
 *110004+00000000000GS001 21.324+0000000013831010 22.324+0000000008932340 31..00+0000000000029523 32..10+0000000000029522 87..10+0000000000002500 58..16+0000000000000175 33..10-0000000000000754 81..00+0000000531242578 82..00+0000000073008189 83..00+0000000000800864 71....+0000000000000000 
 *110005+00000000000GS002 21.324+0000000019023040 22.324+0000000010338410 31..00+0000000000007115 32..10+0000000000006914 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000000268 81..00+0000000531221776 82..00+0000000073023505 83..00+0000000000801350 71....+0000000000000000 

README.md

@@ -10,7 +10,7 @@ Enostavna priprava in izvoz podatkov meritev v različnih oblikah...
 - Koordinate Točk (seznam točk v obliki E, N, Ht, koda in klasifikacija)
 - Priprava GSI datoteke iz seznama točk (Uvoz TXT/KOO/... datotek)
 
-Program uporablja kodiranje za prepoznavo posameznih elementov meritev.
+Program uporablja kodiranje podatkov za prepoznavo posameznih elementov meritev.
 <br>
 
 Aplikacija je še v razvoju, zato so nekatere možnosti omejene.<br>
@@ -41,5 +41,7 @@ Programski jezik: VB.NET
 
 !["slika1"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen1.png)
 !["slika2"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen2.png)
+!["slika2a"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen2a.png)
+!["slika2b"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen2b.png)
 !["slika3"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen3.png)
 !["slika3"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen4.png)

SplashScreen1.Designer.vb

@@ -32,12 +32,13 @@ Partial Class SplashScreen1
         Me.Version = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Copyright = New System.Windows.Forms.Label()
-        Me.Button1 = New System.Windows.Forms.Button()
         Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
         Me.LabelCompany = New System.Windows.Forms.Label()
-        Me.ApplicationTitle = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.LinkLabel2 = New System.Windows.Forms.LinkLabel()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.ApplicationTitle = New System.Windows.Forms.Label()
+        Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
         Me.MainLayoutPanel.SuspendLayout()
         Me.DetailsLayoutPanel.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -69,6 +70,7 @@ Partial Class SplashScreen1
         Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 156.0!))
         Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 143.0!))
         Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 142.0!))
+        Me.DetailsLayoutPanel.Controls.Add(Me.LinkLabel3, 1, 4)
         Me.DetailsLayoutPanel.Controls.Add(Me.Version, 0, 0)
         Me.DetailsLayoutPanel.Controls.Add(Me.Label1, 0, 1)
         Me.DetailsLayoutPanel.Controls.Add(Me.Copyright, 0, 4)
@@ -124,16 +126,6 @@ Partial Class SplashScreen1
         Me.Copyright.TabIndex = 2
         Me.Copyright.Text = "Copyright"
         '
-        'Button1
-        '
-        Me.Button1.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.Button1.Location = New System.Drawing.Point(190, 146)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 25)
-        Me.Button1.TabIndex = 2
-        Me.Button1.Text = "OK"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
         'LinkLabel1
         '
         Me.LinkLabel1.Anchor = System.Windows.Forms.AnchorStyles.Left
@@ -157,17 +149,15 @@ Partial Class SplashScreen1
         Me.LabelCompany.TabIndex = 3
         Me.LabelCompany.Text = "Company"
         '
-        'ApplicationTitle
+        'Button1
         '
-        Me.ApplicationTitle.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.Button1.Anchor = System.Windows.Forms.AnchorStyles.None
-        Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
+        Me.Button1.Location = New System.Drawing.Point(190, 146)
-        Me.ApplicationTitle.Font = New System.Drawing.Font("Gill Sans MT Condensed", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.Name = "Button1"
-        Me.ApplicationTitle.Location = New System.Drawing.Point(117, 24)
+        Me.Button1.Size = New System.Drawing.Size(75, 25)
-        Me.ApplicationTitle.Name = "ApplicationTitle"
+        Me.Button1.TabIndex = 2
-        Me.ApplicationTitle.Size = New System.Drawing.Size(270, 59)
+        Me.Button1.Text = "OK"
-        Me.ApplicationTitle.TabIndex = 0
+        Me.Button1.UseVisualStyleBackColor = True
-        Me.ApplicationTitle.Text = "TPS1100 Convert"
-        Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
         '
         'LinkLabel2
         '
@@ -191,6 +181,30 @@ Partial Class SplashScreen1
         Me.PictureBox1.TabIndex = 3
         Me.PictureBox1.TabStop = False
         '
+        'ApplicationTitle
+        '
+        Me.ApplicationTitle.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
+        Me.ApplicationTitle.Font = New System.Drawing.Font("Gill Sans MT Condensed", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ApplicationTitle.Location = New System.Drawing.Point(117, 24)
+        Me.ApplicationTitle.Name = "ApplicationTitle"
+        Me.ApplicationTitle.Size = New System.Drawing.Size(270, 59)
+        Me.ApplicationTitle.TabIndex = 0
+        Me.ApplicationTitle.Text = "TPS1100 Convert"
+        Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'LinkLabel3
+        '
+        Me.LinkLabel3.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.LinkLabel3.AutoSize = True
+        Me.LinkLabel3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LinkLabel3.Location = New System.Drawing.Point(159, 126)
+        Me.LinkLabel3.Name = "LinkLabel3"
+        Me.LinkLabel3.Size = New System.Drawing.Size(117, 13)
+        Me.LinkLabel3.TabIndex = 7
+        Me.LinkLabel3.TabStop = True
+        Me.LinkLabel3.Text = "Zgodovina Razvoja"
+        '
         'SplashScreen1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -218,4 +232,5 @@ Partial Class SplashScreen1
     Friend WithEvents LinkLabel1 As LinkLabel
     Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents LinkLabel2 As LinkLabel
+    Friend WithEvents LinkLabel3 As LinkLabel
 End Class

SplashScreen1.vb

@@ -48,4 +48,8 @@ Public NotInheritable Class SplashScreen1
         Dim webAddress2 As String = "https://multibox.nohost.me/gitea/boris/TPS1100-Convert"
         Process.Start(webAddress2)
     End Sub
+
+    Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
+        Process.Start("CHANGELOG.md")
+    End Sub
 End Class

TPS1100 Convert.vbproj

@@ -203,7 +203,9 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
-    <None Include="CHANGELOG.md" />
+    <None Include="CHANGELOG.md">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
@@ -309,6 +311,7 @@
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </AdditionalFiles>
     <None Include="My Project\Icons\icons8-check-file-50.png" />
+    <None Include="My Project\Icons\icons8-menu-50.png" />
     <Content Include="Podatki\TEST.txt" />
     <Content Include="TPS1100CNVRT.ico" />
   </ItemGroup>

bin/Release/TPS1100 Convert.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>0tN4ZgC92KW6BqEWZIv7JJgNNn1f1VSlto9T/qFVl64=</dsig:DigestValue>
+        <dsig:DigestValue>6inyc06EaaiiQbENLu4O26A0+UreBmMRXBr2zOBZ+Oo=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

bin/Release/TPS1100 Convert.exe.manifest

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="TPS1100 Convert.exe" size="1229824">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="TPS1100 Convert.exe" size="1234944">
       <assemblyIdentity name="TPS1100 Convert" version="2.7.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>LionUoY5pimdkx9/3g3ZZ1mEk0X+34QC9qSJHHTbh2E=</dsig:DigestValue>
+        <dsig:DigestValue>Ck+Hsj11hMK8XQwT0taSkNmh9irYI8LWuZWYNSXLE/M=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>