Imports System.ComponentModel
Imports EgtUILib


Public Class RefreshPanelViewModel
   Implements INotifyPropertyChanged
   Private m_rfSceneManagerViewModel As SceneManagerViewModel

   Private m_MsgError As String
   Public Property MsgError As String
      Get
         Return m_MsgError
      End Get
      Set(value As String)
         m_MsgError = value
         NotifyPropertyChanged("MsgError")
      End Set
   End Property

   Private m_ButtonVisibility As Visibility = Visibility.Collapsed
   Public Property ButtonVisibility As Visibility
      Get
         Return m_ButtonVisibility
      End Get
      Set(value As Visibility)
         m_ButtonVisibility = value
         NotifyPropertyChanged("ButtonVisibility")
      End Set
   End Property

#Region "Messages"
   Public ReadOnly Property RefreshMsg As String
      Get
         Return EgtMsg(50301)
      End Get
   End Property

#End Region

#Region "ToolTip"
   Public ReadOnly Property RefreshToolTip As String
      Get
         Return EgtMsg(50301)
      End Get
   End Property

#End Region



   Private m_CmdRefreshBtn As ICommand
   Private m_CmdShowErrorBtn As ICommand

   Sub New(ByRef rSceneManagerViewModel As SceneManagerViewModel)
      m_rfSceneManagerViewModel = rSceneManagerViewModel
   End Sub

#Region "COMMAND"

#Region "RefreshBtnCommand"

   ''' <summary>
   ''' Returns a command that do Exec.
   ''' </summary>
   Public ReadOnly Property RefreshBtnCommand As ICommand
      Get
         If m_CmdRefreshBtn Is Nothing Then
            ' Richiamo il comando che già esiste
            m_CmdRefreshBtn = New Command(AddressOf m_rfSceneManagerViewModel.RefreshBtn)
         End If
         Return m_CmdRefreshBtn
      End Get
   End Property


#End Region    ' RefreshBtnCommand
   Friend m_MsgGraphic As String

   Public ReadOnly Property ShowErrorBtnCommand As ICommand
      Get
         If m_CmdShowErrorBtn Is Nothing Then
            m_CmdShowErrorBtn = New Command(AddressOf ShowErrorBtn)
         End If
         Return m_CmdShowErrorBtn
      End Get
   End Property

   Public Sub ShowErrorBtn()
      MessageBox.Show(m_MsgGraphic, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
   End Sub

#End Region    ' Command

   Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

   Public Sub NotifyPropertyChanged(propName As String)
      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
   End Sub

End Class