Imports System.Collections.ObjectModel
Imports System.Runtime.InteropServices
Imports System.IO
Imports EgtUILib
Imports System.Threading
Imports System.Windows.Threading
Imports System.ComponentModel
Imports EgtWPFLib5

Public Class StatusBarVM
   Inherits EgtWPFLib5.StatusBarVM

#Region "FIELDS & PROPERTIES"

   ' Funzioni di callback per output In interfaccia da LUA
   'Private m_ProcEventsCallback As New ProcessEventsCallback(AddressOf ProcessEvents)
   Private m_OutTextCallback As New OutTextCallback(AddressOf OutText)
   Private m_RefreshTimer As New DispatcherTimer
   ' tempo di cancellazione messaggio
   Private m_nRefreshTime As Integer = 5000

   ' GRAPHICAL ELEMENTS
   Private m_StatusOutput As String
   Public Property StatusOutput As String
      Get
         Return m_StatusOutput
      End Get
      Set(value As String)
         m_StatusOutput = value
         NotifyPropertyChanged("StatusOutput")
      End Set
   End Property

   Private m_UnitMeasure As String = OptionModule.m_SelectedMeasureUnit

   Public Property UnitMeasure As String
      Get
         Return m_UnitMeasure
      End Get
      Set(value As String)
         If Trim(value) = ConstGen.VAL_INCHES Then value = "in"
         m_UnitMeasure = value
         NotifyPropertyChanged("UnitMeasure")
      End Set
   End Property

   Private m_SnapPointTypeList As New List(Of SPItem)({New SPItem(SP.PT_END, EgtMsg(1105)), New SPItem(SP.PT_SKETCH, EgtMsg(1102)), New SPItem(SP.PT_MID, EgtMsg(1107)), New SPItem(SP.CENTER, EgtMsg(1109)), New SPItem(SP.PT_INTERS, EgtMsg(1115)), New SPItem(SP.CENTROID, EgtMsg(1111))})
   Public ReadOnly Property SnapPointTypeList As List(Of SPItem)
      Get
         Return m_SnapPointTypeList
      End Get
   End Property

   Private m_SnapPointSelect As SPItem = m_SnapPointTypeList(0)
   Public Property SnapPointSelect As SPItem
      Get
         ActivateSnapPointSelected(m_SnapPointSelect)
         Return m_SnapPointSelect
      End Get
      Set(value As SPItem)
         m_SnapPointSelect = value
         NotifyPropertyChanged("SnapPointSelect")
      End Set
   End Property

#End Region    ' Fields & Properties

   ' applica la selezione del punto notevole
   Public Sub ActivateSnapPointSelected(SnapPoint As SPItem)
      Map.refSceneManagerVM.ProjectScene.SetSnapPointType(SnapPoint.SPValue)
   End Sub

#Region "CONSTRUCTOR"

   Sub New()
      Map.SetRefStatusBarVM(Me)
      '' Installo funzione gestione eventi per lua
      'EgtSetProcessEvents(m_ProcEventsCallback)
      ' Installo funzione output testo su status per lua
      EgtSetOutText(m_OutTextCallback)
      m_nRefreshTime = GetMainPrivateProfileInt(S_GENERAL, K_REFRESHTIME, 5000)
   End Sub

#End Region    ' Constructor

   ' riceve le stringhe dei messaggi lua EgtOutText
   Public Function OutText(ByRef psText As IntPtr) As Boolean
      ' Assegno stringa
      OutputMessage = (Marshal.PtrToStringUni(psText))
      m_StatusOutput = OutputMessage
      NotifyPropertyChanged("StatusOutput")
      AddHandler m_RefreshTimer.Tick, AddressOf RefreshTimer_tick
      m_RefreshTimer.Interval = TimeSpan.FromMilliseconds(m_nRefreshTime)
      m_RefreshTimer.Start()
      Return True
   End Function

   ' dopo m_nRefreshTime pulisco il messaggio
   Private Sub RefreshTimer_tick()
      m_StatusOutput = String.Empty
      NotifyPropertyChanged("StatusOutput")
   End Sub

End Class

Public Class SPItem
   Private m_SPValue As SP
   Public ReadOnly Property SPValue As SP
      Get
         Return m_SPValue
      End Get
   End Property
   Private m_SPMessage As String
   Public ReadOnly Property SPMessage As String
      Get
         Return m_SPMessage
      End Get
   End Property

   Sub New(Value As SP, Message As String)
      m_SPValue = Value
      m_SPMessage = Message
   End Sub

End Class