-piccole modifiche e pulizia codice

SceneButton/SceneButtonVM.vb

@@ -98,7 +98,7 @@ Public Class SceneButtonVM
       Dim Index As Integer = 1
       Dim SubTitle As String = String.Empty
       Dim sKeyTitle As String = TOPPANELLIST_BTN & "_" & Index.ToString()
-      While GetMainPrivateProfileString(sKeyTitle, "SubTitle", "", SubTitle) > 0
+      While GetMainPrivateProfileString(sKeyTitle, ConstEgtStone3D.SUBTITLE, "", SubTitle) > 0
          SetGroupButtonsLocation(sKeyTitle, m_TopPanelListGroupBtn)
          Index += 1
          sKeyTitle = TOPPANELLIST_BTN & "_" & Index.ToString()
@@ -131,7 +131,7 @@ Public Class SceneButtonVM
                ListBtn.Add(New _ButtonComboBox(sItems(1), sItems(2), sItems(3), sItems(4)))
             End If
          End If
-         Index = Index + 1
+         Index += 1
          sBtnString = String.Empty
       End While
    End Sub
@@ -140,7 +140,7 @@ Public Class SceneButtonVM
       Dim LocalListSceneBtn As New List(Of SceneBtn)
       Dim SubTitle As String = String.Empty
       SetButtonsLocation(PositionList, LocalListSceneBtn)
-      GetMainPrivateProfileString(PositionList, "SubTitle", "", SubTitle)
+      GetMainPrivateProfileString(PositionList, ConstEgtStone3D.SUBTITLE, "", SubTitle)
       ListGroupBtn.Add(New GroupSceneBtn(LocalListSceneBtn, SubTitle))
    End Sub
 
@@ -221,8 +221,6 @@ Public Class SceneBtn
 
 #Region "FIELDS & PROPETIES"
 
-   Private m_ResourcesDir As String = "C:\EgtData\EgtSTONE3D\Resources\"
-
    Private m_Name As String = String.Empty
    Public Property Name As String
       Get
@@ -269,7 +267,7 @@ Public Class SceneBtn
 
    Sub New(_Name As String, _Img As String, _Flag As String)
       m_Name = _Name
-      m_Img = m_ResourcesDir & _Img
+      m_Img = Map.refMainWindowVM.MainWindowM.sResourcesDir & "\" & _Img
       m_Flag = _Flag
    End Sub
 
@@ -379,36 +377,36 @@ Module SceneCmd
       Dim _SceneHostVM As SceneHostVM = DirectCast(Map.refSceneHostV.DataContext, SceneHostVM)
       Dim nVeinCtx As Integer = _SceneHostVM.MainScene.GetCtx()
       Select Case Flag
-         Case "AutoPair"
+         Case EGT_AUTOPAIR
             EgtSetCurrentContext(nVeinCtx)
             EgtLuaSetGlobIntVar("ASS.nVeinCtx", nVeinCtx)
             EgtLuaCallFunction("ASS.PairAll")
-         Case "Unpair"
+         Case EGT_UNPAIR
             SolidManagerM.Unpair(Map.refSceneHostV.m_nIdPart)
          Case EGT_PAIR
             Map.refSceneButtonV.LoadPairUC()
-         Case "ResetInters"
+         Case EGT_RESET_INTERS
             SolidManagerM.ResetInters()
          Case EGT_ROTATE
             Map.refSceneButtonV.LoadRotateUC()
          Case EGT_MOVE
             Map.refSceneButtonV.LoadMoveUC()
-         Case "Undo"
+         Case EGT_UNDO
             ' se con questa operazione torno all'inizio disattivo il bottone undo
             SolidManagerM.UndoEvent()
             SolidManagerM.ManageUndoRedo()
             EgtDraw()
-         Case "Redo"
+         Case EGT_REDO
             ' se con questa operazione ho finito la storia disponibile disattivo il bottone redo
             SolidManagerM.RedoEvent()
             SolidManagerM.ManageUndoRedo()
             EgtDraw()
-         Case "SelType"
+         Case EGT_SEL_TYPE
             Map.refSceneButtonV.MenuSelType.IsOpen = True
-         Case "ImportLoop"
+         Case EGT_IMPORT_LOOP
             'ImportLoop()
             EgtInsertFile("D:\Temp\marmo\Vein3D\OutLoop.nge")
-         Case "CreateSolidFromLoop"
+         Case EGT_CREATE_SOLID_LOOP
             SolidManagerM.CreateSolidFromLoop(Map.refSceneHostV.m_nIdPart)
          Case EGT_ALZ
             Map.refSceneHostV.m_SelType = GDB_TY.CRV_LINE