Imports System.Collections.ObjectModel
Imports EgtWPFLib5

Public Class OptionWindowVM

#Region "FIELDS & PROPERTIES"

   Public ReadOnly Property LanguageList As List(Of Language)
      Get
         Return OmagOFFICEMap.refMainWindowVM.MainWindowM.m_LanguageList
      End Get
   End Property

   Public Property SelectedLanguage As Language
      Get
         Return OmagOFFICEMap.refMainWindowVM.MainWindowM.m_SelectedLanguage
      End Get
      Set(value As Language)
         If value IsNot OmagOFFICEMap.refMainWindowVM.MainWindowM.m_SelectedLanguage Then
            OmagOFFICEMap.refMainWindowVM.MainWindowM.m_SelectedLanguage = value
            WriteMainPrivateProfileString(S_GENERAL, K_MESSAGES, OmagOFFICEMap.refMainWindowVM.MainWindowM.m_SelectedLanguage.Name)
         End If
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property Title As String
      Get
         'Return EgtMsg(MSG_MAINWINDOW + 5)
      End Get
   End Property

   Public ReadOnly Property CurrentLanguageMsg As String
      Get
         'Return EgtMsg(MSG_OPTIONPAGE + 1)
      End Get
   End Property
   Public ReadOnly Property LanguageAdvertMsg As String
      Get
         'Return EgtMsg(MSG_OPTIONPAGE + 2)
      End Get
   End Property

#End Region

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' Creo riferimento a questa classe in OmagOFFICEMap
      OmagOFFICEMap.SetRefOptionWindowVM(Me)
   End Sub

#End Region    ' CONSTRUCTOR

End Class