Imports System.IO
Imports EgtUILib

Public Class ModifStartEndCutWindowVM

   Private m_Title As String = String.Empty
   Public Property Title As String
      Get
         Return m_Title
      End Get
      Set(value As String)
         m_Title = value
      End Set
   End Property
   Public ReadOnly Property ValueMsg As String
      Get
         Return EgtMsg(MSG_SPLITPAGEUC + 35)
      End Get
   End Property

   Public ReadOnly Property OkMsg As String
      Get
         Return EgtMsg(91651)          'Ok
      End Get
   End Property

   Public ReadOnly Property ExitMsg As String
      Get
         Return EgtMsg(91652)          'Annulla
      End Get
   End Property

   Private m_sValue As String
   Public Property sValue As String
      Get
         Return m_sValue
      End Get
      Set(value As String)
         m_sValue = value
      End Set
   End Property

   Sub New()

   End Sub

   Friend Function SetVal(dVal As Double) As Boolean
      sValue = DoubleToString(dVal, 3)
      Return True
   End Function

   Friend Function GetVal() As Double
      Dim dVal As Double = 0
      StringToDouble(sValue, dVal)
      Return dVal
   End Function

End Class