egtstone3d/ScriptWindow/ScriptWindowVM.vb

Imports EgtUILib
Imports EgtWPFLib5
Imports System.IO
Imports System.Text

Public Class ScriptWindowVM
   Inherits VMBase

#Region "FIELD & PROPERTIES"

   Private m_sNameFile As String = String.Empty
   Public Property sNameFile As String
      Get
         Return m_sNameFile
      End Get
      Set(value As String)
         m_sNameFile = value
         NotifyPropertyChanged(NameOf(sNameFile))
      End Set
   End Property

   Private m_sRichTextParagraph As String = String.Empty
   Public Property sRichTextParagraph As String
      Get
         Return m_sRichTextParagraph
      End Get
      Set(value As String)
         'm_sRichTextParagraph = StringFromRichTextBox(Map.refScriptWindowV.sNameFile_RichTxBx)
         m_sRichTextParagraph = value
         NotifyPropertyChanged(NameOf(sRichTextParagraph))
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property Title As String
      Get
         Return "Script File"     ' Opzioni
      End Get
   End Property

   Public ReadOnly Property Conferma_Msg As String
      Get
         Return EgtMsg(110003)      ' Conferma
      End Get
   End Property

   Public ReadOnly Property Salva_Msg As String
      Get
         Return EgtMsg(110013)      ' Salva
      End Get
   End Property

   Public ReadOnly Property Annulla_Msg As String
      Get
         Return EgtMsg(110004)      ' Annulla
      End Get
   End Property

#End Region    ' Messages

   ' Definizione Comandi
   Private m_ConfermaCmd As ICommand
   Private m_cmdSaveAs As ICommand

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New()
      Map.SetRefScriptWindowVM(Me)
   End Sub

#End Region    ' Constructor

#Region "METHODS"

   Public Function SaveProject() As Boolean
      Dim sFile As String = ""
      Dim sFileName As String = ""
      ' Se nome vuoto, assegno "New"
      If String.IsNullOrWhiteSpace(m_sNameFile) Then
         sFile = "New.lua"
      Else
         sFile = m_sNameFile & ".lua"
      End If
      ' Eventuale sistemazione estensione
      sFile = IO.Path.ChangeExtension(sFile, "lua")
      ' Assegnazione nome file con dialogo
      Dim SaveFileDialog As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
         .Title = EgtMsg(110013),   ' Salva
         .Filter = "lua files (*.lua)|*.lua",
         .FileName = sFile,
         .FilterIndex = 1,
         .InitialDirectory = Map.refMainWindowVM.MainWindowM.sTempDir,
         .ValidateNames = False,
         .OverwritePrompt = True,
         .Mode = 1
      }
      If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         If Path.GetExtension(SaveFileDialog.SafeFileName).Equals(String.Empty) Then
            sFileName = SaveFileDialog.InitialDirectory & "\" & SaveFileDialog.SafeFileName & SaveFileDialog.SelFilter.sExstension.Trim("*"c)
         Else
            sFileName = SaveFileDialog.InitialDirectory & "\" & SaveFileDialog.SafeFileName
         End If
      End If
      Dim bOk = Map.refSceneHostVM.SaveProj(sFileName)
      File.WriteAllText(sFileName, m_sRichTextParagraph)
      ' Imposto stato gestione mouse diretto della scena a nessuno
      Map.refSceneHostVM.MainScene.SetStatusNull()
      Return True
   End Function

   Private Sub SaveScript(sPathFileScript As String, sRichTextParagraph As String)
      Map.refSceneHostVM.SaveProj(sPathFileScript)
      File.WriteAllText(sPathFileScript, sRichTextParagraph, Encoding.UTF8)
   End Sub

   Public Function RichTextBox(sPathFileScript As String) As String
      ' Recupero richtextbox
      Dim myRichTextBox As RichTextBox = Map.refScriptWindowV.sNameFile_RichTxBx
      ' Recupero flowdocument
      Dim myFlowDoc As FlowDocument = Map.refScriptWindowV.FDocumentFile
      ' Assegno al richtextbox il flowdocument
      myRichTextBox.Document = myFlowDoc
      ' Leggo il richtextbox dall'inizio alla fine
      Dim textRange As New TextRange(myRichTextBox.Document.ContentStart, myRichTextBox.Document.ContentEnd)
      Return textRange.Text
   End Function

#End Region    ' Methods

#Region "COMMANDS"

#Region "ConfermCmd"

   Public ReadOnly Property ConfermaCmd As ICommand
      Get
         If m_ConfermaCmd Is Nothing Then
            m_ConfermaCmd = New Command(AddressOf Conferma)
         End If
         Return m_ConfermaCmd
      End Get
   End Property

   Public Sub Conferma()
      ' Recupero il file script
      Dim sFileScript As String = RichTextBox(Map.refMainWindowVM.MainWindowM.sTempDir & "\" & "m_sNameFile" & ".lua")
      ' Salvo il file
      SaveScript(Map.refMainWindowVM.MainWindowM.sTempDir & "\" & m_sNameFile & ".lua", sFileScript)
      ' Eseguo il file
      EgtLuaExecFile(Map.refMainWindowVM.MainWindowM.sTempDir & "\" & m_sNameFile & ".lua")
      ' Imposto stato gestione mouse diretto della scena a nessuno
      Map.refSceneHostVM.MainScene.SetStatusNull()
   End Sub

#End Region    ' ConfermaCmd

#Region "SaveAsCommand"

   Public ReadOnly Property SalvaCmd As ICommand
      Get
         If m_cmdSaveAs Is Nothing Then
            m_cmdSaveAs = New Command(AddressOf SaveAs)
         End If
         Return m_cmdSaveAs
      End Get
   End Property

   Public Sub SaveAs()
      SaveProject()
   End Sub

#End Region ' SaveAsCommand

#End Region    ' Commands

End Class