-aggiornato messaggi

OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderVM.vb

@@ -74,57 +74,57 @@ Public Class ManageLayerExpanderVM
 
    Public ReadOnly Property NewPartMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 2)
+         Return EgtMsg(5352)     ' Nuovo Pezzo
       End Get
    End Property
    Public ReadOnly Property NewLayerMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 3)
+         Return EgtMsg(5353)     ' Nuovo Layer
       End Get
    End Property
    Public ReadOnly Property ColorMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 4)
+         Return EgtMsg(5354)     ' Colore
       End Get
    End Property
    Public ReadOnly Property SelectMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 6)
+         Return EgtMsg(5356)     ' Seleziona
       End Get
    End Property
    Public ReadOnly Property DeselectMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 7)
+         Return EgtMsg(5357)     ' Deseleziona
       End Get
    End Property
    Public ReadOnly Property NameMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 8)
+         Return EgtMsg(5358)     ' Nome
       End Get
    End Property
    Public ReadOnly Property InfoMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 9)
+         Return EgtMsg(5359)     ' Info
       End Get
    End Property
    Public ReadOnly Property RelocateMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 10)
+         Return EgtMsg(5360)     ' Sposta
       End Get
    End Property
    Public ReadOnly Property CopyMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 11)
+         Return EgtMsg(5361)     ' Copia
       End Get
    End Property
    Public ReadOnly Property DeleteMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 12)
+         Return EgtMsg(5362)     ' Elimina
       End Get
    End Property
    Public ReadOnly Property SaveMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 13)
+         Return EgtMsg(5363)     ' Salva
       End Get
    End Property
 
@@ -480,7 +480,7 @@ Public Class ManageLayerExpanderVM
       If EgtIsPart(RightClickedTreeItemId) And EgtExistsInfo(RightClickedTreeItemId, GDB_SI_LIST) Then
          ' Pezzo in lavorazione, vuoi cancellarlo lo stesso ? - Erase Confirm
          'If MessageBox.Show(EgtMsg(MSG_DRAWOPTION + 17), EgtMsg(MSG_DRAWOPTION + 16), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return
-         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(MSG_DRAWOPTION + 17), EgtMsg(MSG_DRAWOPTION + 16), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5367), EgtMsg(5366), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return  ' Pezzo in lavorazione, vuoi cancellarlo lo stesso ? Conferma Cancellazione
       End If
       ' Recupero Id vicino per prossimo selezionato in albero
       Dim nNewId As Integer = EgtGetNext(RightClickedTreeItemId)