Detect ROM ID and ROM Type from snippit image name

Author: tomaz82

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()