From e3a00c0933810ce3e85e059b40a8eb569833e59c Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Mon, 24 Oct 2016 09:52:38 +0000
Subject: [PATCH] EgtCAM5 : - Aggiunta selezione MTable correntemente attiva.

---
 Constants/ConstDoors.vb                       |  3 +
 MTableDb/MTableDbView.xaml                    |  9 +-
 MTableDb/MTableDbViewModel.vb                 | 82 ++++++++++++++++++-
 MTableDb/MTableListBox.vb                     | 24 ++++++
 MTableDb/TableUtility.vb                      |  7 +-
 .../SingleFolderOpenFileDialogView.xaml       | 11 +++
 .../SingleFolderOpenFileDialogView.xaml.vb    |  3 +
 .../SingleFolderOpenFileDialogViewModel.vb    |  3 +
 StatusBar/StatusBarViewModel.vb               |  2 +
 9 files changed, 136 insertions(+), 8 deletions(-)
 create mode 100644 SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml
 create mode 100644 SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb
 create mode 100644 SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb

diff --git a/Constants/ConstDoors.vb b/Constants/ConstDoors.vb
index fe241fc..eeb4776 100644
--- a/Constants/ConstDoors.vb
+++ b/Constants/ConstDoors.vb
@@ -12,4 +12,7 @@ Module ConstDoors
    ' File template per scrittura MTable
    Public Const MTABLETEMPLATE_FILE As String = "MTableTemplate.ini"
 
+   ' File template per scrittura MTable
+   Public Const CURRMTABLE_FILE As String = "CurrMTable.ini"
+
 End Module
diff --git a/MTableDb/MTableDbView.xaml b/MTableDb/MTableDbView.xaml
index abd036f..5170696 100644
--- a/MTableDb/MTableDbView.xaml
+++ b/MTableDb/MTableDbView.xaml
@@ -47,6 +47,10 @@
                Style="{StaticResource MTableWindowButton}">
                <Image Source="/Resources/DrawPanel/Delete.png" Stretch="Uniform"/>
             </Button>
+            <Button Command="{Binding SetActiveTableCommand}"
+               CommandParameter="{Binding SelectedItem,ElementName=TablesListBox}"
+               ToolTip="{Binding SetActiveTableToolTip}" Width="40"
+               Style="{StaticResource MTableWindowButton}" Content="{Binding CurrMsg}"/>
          </StackPanel>
 
          <ListBox Name="TablesListBox" Grid.Row="1" ItemsSource="{Binding TablesList}"
@@ -59,7 +63,10 @@
             </ListBox.ItemContainerStyle>
             <ListBox.ItemTemplate>
                <DataTemplate>
-                  <TextBlock Text="{Binding TableName}"/>
+                  <StackPanel Orientation="Horizontal">
+                     <TextBlock Text="{Binding TableName}" Margin="0,0,5,0"/>
+                     <Ellipse Grid.Column="3" Height="10" Width="10" Fill="{Binding StateColor}" />
+                  </StackPanel>
                </DataTemplate>
             </ListBox.ItemTemplate>
          </ListBox>
diff --git a/MTableDb/MTableDbViewModel.vb b/MTableDb/MTableDbViewModel.vb
index 9adf472..2c519e8 100644
--- a/MTableDb/MTableDbViewModel.vb
+++ b/MTableDb/MTableDbViewModel.vb
@@ -21,9 +21,8 @@ Namespace EgtCAM5
          End Set
       End Property
 
-#Region "Fields & Properties for graphical elements"
+#Region "Messages"
 
-      Private m_Title As String
       Public ReadOnly Property Title As String
          Get
             Return EgtMsg(MSG_MAINWINDOW + 20)
@@ -132,7 +131,13 @@ Namespace EgtCAM5
          End Get
       End Property
 
-#End Region
+      Public ReadOnly Property CurrMsg As String
+         Get
+            Return EgtMsg(MSG_DOORS + 25)
+         End Get
+      End Property
+
+#End Region    ' Messages
 
 #Region "ToolTip"
 
@@ -157,6 +162,11 @@ Namespace EgtCAM5
             Return EgtMsg(MSG_DOORS + 4)
          End Get
       End Property
+      Public ReadOnly Property SetActiveTableToolTip As String
+         Get
+            Return EgtMsg(MSG_DOORS + 26)
+         End Get
+      End Property
 
 #End Region    ' ToolTip
 
@@ -165,6 +175,7 @@ Namespace EgtCAM5
       Private m_cmdSaveTable As ICommand
       Private m_cmdSaveTableAs As ICommand
       Private m_cmdRemoveTable As ICommand
+      Private m_cmdSetActiveTable As ICommand
       Private m_cmdAddMach As ICommand
       Private m_cmdRemoveMach As ICommand
       Private m_cmdAddRow As ICommand
@@ -178,6 +189,7 @@ Namespace EgtCAM5
       Sub New()
          EgtGetCurrMachineName(m_sPreviousActiveMachine)
          UpdateTables()
+         SetActiveTable()
          If m_TablesList.Count > 0 Then
             m_TablesList(0).IsSelected = True
          End If
@@ -216,6 +228,28 @@ Namespace EgtCAM5
          End If
       End Sub
 
+      Private Const MTABLENAME As String = "MTableName"
+      Private Const MTNAME As String = "MTName"
+
+      Private Sub SetActiveTable()
+         Dim ActiveMTableName As String = String.Empty
+         Dim ActiveMTableFilePath As String = Path.GetDirectoryName(IniFile.m_sTablesRoot) & "\CurrMTable.lua"
+         If File.Exists(ActiveMTableFilePath) Then
+            Dim ReadFile As IEnumerable(Of String) = File.ReadLines(ActiveMTableFilePath)
+            For LineIndex As Integer = 0 To ReadFile.Count - 1
+               If ReadFile(LineIndex).Contains(MTABLENAME) Then
+                  ActiveMTableName = TableUtility.SearchKey(ReadFile(LineIndex), MTNAME)
+                  Exit For
+               End If
+            Next
+            For Index As Integer = 0 To m_TablesList.Count - 1
+               If m_TablesList(Index).TableName = ActiveMTableName Then
+                  m_TablesList(Index).ActiveTable = True
+               End If
+            Next
+         End If
+      End Sub
+
 #End Region
 
 #Region "COMMANDS"
@@ -371,6 +405,48 @@ Namespace EgtCAM5
 
 #End Region    ' RemoveTableCommand
 
+#Region "SetActiveTableCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Exec.
+      ''' </summary>
+      Public ReadOnly Property SetActiveTableCommand As ICommand
+         Get
+            If m_cmdSetActiveTable Is Nothing Then
+               m_cmdSetActiveTable = New RelayCommand(AddressOf SetActiveTable)
+            End If
+            Return m_cmdSetActiveTable
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Exec.  This method is invoked by the ExecCommand.
+      ''' </summary>
+      Public Sub SetActiveTable(param As Object)
+         Dim SelectedMTable As MTableListBoxItem = DirectCast(param, MTableListBoxItem)
+         If IsNothing(SelectedMTable) Then Return
+         For Index As Integer = 0 To m_TablesList.Count - 1
+            If m_TablesList(Index).TableName = SelectedMTable.TableName Then
+               m_TablesList(Index).ActiveTable = True
+            Else
+               m_TablesList(Index).ActiveTable = False
+            End If
+         Next
+         ' Scrivo il file di configurazione con il nome di questa tavola
+         Dim FileContent As IEnumerable(Of String) = File.ReadLines(Path.GetDirectoryName(IniFile.m_sTablesRoot) & "\" & CURRMTABLE_FILE)
+         Dim NewTableFileContent As New List(Of String)
+         For LineIndex As Integer = 0 To FileContent.Count - 1
+            Dim sCurrLine As String = FileContent(LineIndex)
+            sCurrLine = sCurrLine.Replace(TableUtility.DATETIME, System.DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss"))
+            sCurrLine = sCurrLine.Replace(TableUtility.TABLENAME, SelectedMTable.TableName)
+            NewTableFileContent.Add(sCurrLine)
+         Next
+         File.WriteAllLines(Path.ChangeExtension(Path.GetDirectoryName(IniFile.m_sTablesRoot) & "\" & CURRMTABLE_FILE, ".lua"), NewTableFileContent, Text.Encoding.UTF8)
+
+      End Sub
+
+#End Region    ' SetActiveTableCommand
+
 #Region "AddMachCommand"
 
       ''' <summary>
diff --git a/MTableDb/MTableListBox.vb b/MTableDb/MTableListBox.vb
index af2d9a4..1ac1b13 100644
--- a/MTableDb/MTableListBox.vb
+++ b/MTableDb/MTableListBox.vb
@@ -64,6 +64,30 @@ Public Class MTableListBoxItem
       End Set
    End Property
 
+   Private m_ActiveTable As Boolean
+   Public Property ActiveTable As Boolean
+      Get
+         Return m_ActiveTable
+      End Get
+      Set(value As Boolean)
+         If value <> m_ActiveTable Then
+            m_ActiveTable = value
+            NotifyPropertyChanged("StateColor")
+         End If
+         m_ActiveTable = value
+      End Set
+   End Property
+
+   Public ReadOnly Property StateColor As Brush
+      Get
+         If ActiveTable Then
+            Return Brushes.Blue
+         Else
+            Return Brushes.Transparent
+         End If
+      End Get
+   End Property
+
    Private m_ActiveMachinesList As New ObservableCollection(Of MTableMachineListBoxItem)
    Public Property ActiveMachinesList As ObservableCollection(Of MTableMachineListBoxItem)
       Get
diff --git a/MTableDb/TableUtility.vb b/MTableDb/TableUtility.vb
index 4fc1bf7..52d5d47 100644
--- a/MTableDb/TableUtility.vb
+++ b/MTableDb/TableUtility.vb
@@ -3,8 +3,8 @@ Imports System.IO
 
 Module TableUtility
 
-   Private Const DATETIME As String = "%DATE_TIME%"
-   Private Const TABLENAME As String = "%TABLE_NAME%"
+   Friend Const DATETIME As String = "%DATE_TIME%"
+   Friend Const TABLENAME As String = "%TABLE_NAME%"
    Private Const MMACHINEDATA As String = ".MMachineData"
    Private Const MACHNAME As String = "MachName"
    Private Const NCGENERATE As String = "NcGenerate"
@@ -112,8 +112,7 @@ Module TableUtility
       End If
    End Sub
 
-   Private Function SearchKey(sLine As String, sKey As String) As String
-      Dim x = Regex.Match(sLine, "[,|{|\s]" & sKey & "\s*=\s*['|\""]?(.*?)\s*?[,|}|'|\""]").Groups(1).Value
+   Friend Function SearchKey(sLine As String, sKey As String) As String
       Return Regex.Match(sLine, "[,|{|\s]" & sKey & "\s*=\s*['|\""]?(.*?)\s*?[,|}|'|\""]").Groups(1).Value
    End Function
 
diff --git a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml
new file mode 100644
index 0000000..b9b8592
--- /dev/null
+++ b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml
@@ -0,0 +1,11 @@
+<UserControl x:Class="SingleFolderOpenFileDialogView"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="300" d:DesignWidth="300">
+    <Grid>
+            
+    </Grid>
+</UserControl>
diff --git a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb
new file mode 100644
index 0000000..6529245
--- /dev/null
+++ b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb
@@ -0,0 +1,3 @@
+Public Class SingleFolderOpenFileDialogView
+
+End Class
diff --git a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb
new file mode 100644
index 0000000..40a8453
--- /dev/null
+++ b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb
@@ -0,0 +1,3 @@
+Public Class SingleFolderOpenFileDialogViewModel
+
+End Class
diff --git a/StatusBar/StatusBarViewModel.vb b/StatusBar/StatusBarViewModel.vb
index 452cc17..9cab96c 100644
--- a/StatusBar/StatusBarViewModel.vb
+++ b/StatusBar/StatusBarViewModel.vb
@@ -250,9 +250,11 @@ Namespace EgtCAM5
                                                                              End If
                                                                           End Sub)
          Application.Msn.Register(Application.MACHININGMODE_ISCHECKED, Sub()
+                                                                          StatusOutput = String.Empty
                                                                           MachineListIsEnabled = False
                                                                        End Sub)
          Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
+                                                                     StatusOutput = String.Empty
                                                                      MachineListIsEnabled = True
                                                                   End Sub)
          ' Installo funzione gestione eventi per lua