EgtDOORCreator 1.9f1 :

- correzioni per W, H e T in componenti (in file come DGD.dW, DGD.dH, DGD.dT) in HardwareManager.
2018-06-16 07:55:03 +00:00
parent 48eee073a2
commit b216319e9b
6 changed files with 61 additions and 12 deletions
@@ -249,12 +249,18 @@ Friend Module OptionModule
      Dim Width As String = String.Empty
      DefaultGetPrivateProfileString(S_SIZE_INI, K_WIDTH_INI, "32", Width)
      m_Width = Width
+      Dim dWidth As Double
+      If StringToDouble(m_Width, dWidth) Then EgtLuaSetGlobNumVar("W", dWidth)
      Dim Height As String = String.Empty
      DefaultGetPrivateProfileString(S_SIZE_INI, K_HEIGHT_INI, "80", Height)
      m_Height = Height
+      Dim dHeight As Double
+      If StringToDouble(m_Height, dHeight) Then EgtLuaSetGlobNumVar("H", dHeight)
      Dim Thickness As String = String.Empty
      DefaultGetPrivateProfileString(S_SIZE_INI, K_THICKNESS_INI, "1.75", Thickness)
      m_Thickness = Thickness
+      Dim dThickness As Double
+      If StringToDouble(m_Thickness, dThickness) Then EgtLuaSetGlobNumVar("T", dThickness)
      ' carico i valori associati allo swing della porta
      Dim SwingTypeList As New List(Of String)
      DefaultGetPrivateProfileList(S_SIZE_INI, K_SWING_LIST_INI, SwingTypeList)