Merge pull request #44 from tomaz82/auto-author

Auto author and auto rom id / type

Author: JockeJarre

b2sbackglassdesigner/b2sbackglassdesigner/Modules/moduleB2S.vb

@@ -52,6 +52,7 @@ Module moduleB2S
 
     Public Property DefaultOpacity() As Single = 1
     Public Property DefaultVPTablesFolder() As String = String.Empty
+    Public Property LatestAuthor() As String = String.Empty
 
     Public Property NoToolEvents() As Boolean = False
 

b2sbackglassdesigner/b2sbackglassdesigner/classes/B2S/BackglassData.vb

@@ -127,6 +127,10 @@ Public Class Backglass
                 If Not _author.Equals(value) Then
                     _author = value
                     IsDirty = True
+                    If value IsNot Nothing Then
+                        LatestAuthor = value
+                        B2SBackglassDesigner.formDesigner.SaveSettings()
+                    End If
                 End If
             End Set
         End Property

b2sbackglassdesigner/b2sbackglassdesigner/classes/Base classes/formBase.vb

@@ -69,6 +69,9 @@
             If node.SelectSingleNode("VPTablesFolder") IsNot Nothing Then
                 DefaultVPTablesFolder = node.SelectSingleNode("VPTablesFolder").Attributes("Value").InnerText
             End If
+            If node.SelectSingleNode("LatestAuthor") IsNot Nothing Then
+                LatestAuthor = node.SelectSingleNode("LatestAuthor").Attributes("Value").InnerText
+            End If
             Me.Location = New Point(x, y)
             Me.Size = New Size(width, height)
             Me.WindowState = If(maximized, FormWindowState.Maximized, FormWindowState.Normal)
@@ -147,6 +150,7 @@
             If SaveName.Equals("formDesigner", StringComparison.CurrentCultureIgnoreCase) Then
                 helper.AddXMLAttribute(XmlSettings, nodeForm, "Opacity", "Value", CInt(DefaultOpacity * 100).ToString())
                 helper.AddXMLAttribute(XmlSettings, nodeForm, "VPTablesFolder", "Value", DefaultVPTablesFolder)
+                helper.AddXMLAttribute(XmlSettings, nodeForm, "LatestAuthor", "Value", LatestAuthor)
             End If
             ' save
             Try

b2sbackglassdesigner/b2sbackglassdesigner/classes/Tab/B2STabPage.vb

@@ -1079,6 +1079,26 @@ Public Class B2STabPage
                 .Location = loc
                 .Image = image
                 .IsImageSnippit = True
+                If Char.IsDigit(name.Last()) Then
+                    Dim copy As String = name
+                    Dim numbers As String = ""
+                    While Char.IsDigit(copy.Last())
+                        numbers = copy.Last() + numbers
+                        copy = copy.Substring(0, copy.Length - 1)
+                    End While
+                    If numbers.Length AndAlso copy.Length Then
+                        If copy.Substring(copy.Length - 1, 1) = "L" Then
+                            .RomID = CInt(numbers)
+                            .RomIDType = eRomIDType.Lamp
+                        ElseIf copy.Substring(copy.Length - 1, 1) = "S" Then
+                            .RomID = CInt(numbers)
+                            .RomIDType = eRomIDType.Solenoid
+                        ElseIf copy.Length > 1 AndAlso copy.Substring(copy.Length - 2, 2) = "Gi" Then
+                            .RomID = CInt(numbers)
+                            .RomIDType = eRomIDType.GIString
+                        End If
+                    End If
+                End If
             End With
             If BackglassData.IsDMDImageShown Then
                 newBulb.ParentForm = eParentForm.DMD

b2sbackglassdesigner/b2sbackglassdesigner/forms/formAddSnippit.resx

@@ -312,6 +312,9 @@
   <data name="txtX.TabIndex" type="System.Int32, mscorlib">
     <value>3</value>
   </data>
+  <data name="txtX.Text" xml:space="preserve">
+    <value>0</value>
+  </data>
   <data name="&gt;&gt;txtX.Name" xml:space="preserve">
     <value>txtX</value>
   </data>
@@ -372,6 +375,9 @@
   <data name="txtY.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
   </data>
+  <data name="txtY.Text" xml:space="preserve">
+    <value>0</value>
+  </data>
   <data name="&gt;&gt;txtY.Name" xml:space="preserve">
     <value>txtY</value>
   </data>

b2sbackglassdesigner/b2sbackglassdesigner/forms/formAddSnippit.vb

@@ -111,8 +111,8 @@ Public Class formAddSnippit
             PictureBoxImage.BackgroundImage = Nothing
             txtImageFileName.Text = String.Empty
             txtName.Text = String.Empty
-            txtX.Text = String.Empty
-            txtY.Text = String.Empty
+            txtX.Text = "0"
+            txtY.Text = "0"
             txtImageFileName.Enabled = True
             txtName.Enabled = True
             btnChooseImageFile.Focus()

b2sbackglassdesigner/b2sbackglassdesigner/forms/formSettings.vb

@@ -26,8 +26,13 @@ Public Class formSettings
         txtName.Text = name
         txtFileName.Text = filename
         chkDualBackglass.Checked = dualbackglass
-        txtAuthor.Text = author
-        txtArtwork.Text = artwork
+        If newtable Then
+            txtAuthor.Text = LatestAuthor
+            txtArtwork.Text = LatestAuthor
+        Else
+            txtAuthor.Text = author
+            txtArtwork.Text = artwork
+        End If
         If tabletype = eTableType.NotDefined Then
             cmbTableType.Text = String.Empty
         Else