Merge pull request #513 from IDEMSInternational/master

updates my master

instat/DlgDefineClimaticData.vb

@@ -127,8 +127,6 @@ Public Class DlgDefineClimaticData
         clsDummyFunction = New RFunction
         clsNewDefautFunction = New RFunction
 
-        ucrSelectorDefineClimaticData.Reset()
-        ucrSelectorLinkedDataFrame.Reset()
         ucrInputCheckInput.Reset()
         ucrReceiverDate.SetMeAsReceiver()
 
@@ -230,17 +228,17 @@ Public Class DlgDefineClimaticData
         Dim bFound As Boolean = False
 
         ucrCurrentReceiver = ucrSelectorDefineClimaticData.CurrentReceiver
-
+        Dim strData As String = ucrSelectorDefineClimaticData.ucrAvailableDataFrames.cboAvailableDataFrames.Text
         For Each ucrTempReceiver As ucrReceiver In lstReceivers
             ucrTempReceiver.SetMeAsReceiver()
             lstRecognisedValues = GetRecognisedValues(ucrTempReceiver.Tag)
 
             If lstRecognisedValues.Count > 0 Then
                 For Each lviTempVariable As ListViewItem In ucrSelectorDefineClimaticData.lstAvailableVariable.Items
-                    Dim strClimaticType As String = GetClimaticTypeFromRCommand(lviTempVariable.Text)
+                    Dim strClimaticType As String = GetClimaticTypeFromRCommand(lviTempVariable.Text, strData)
                     For Each strValue As String In lstRecognisedValues
                         If Regex.Replace(lviTempVariable.Text.ToLower(), "[^\w]|_", String.Empty).Contains(strValue) OrElse (strClimaticType IsNot Nothing AndAlso strClimaticType.Contains(strValue)) Then
-                            ucrTempReceiver.Add(lviTempVariable.Text, ucrSelectorDefineClimaticData.ucrAvailableDataFrames.cboAvailableDataFrames.Text)
+                            ucrTempReceiver.Add(lviTempVariable.Text, strData)
                             bFound = True
                             Exit For
                         End If
@@ -263,43 +261,46 @@ Public Class DlgDefineClimaticData
         Dim ucrCurrentReceiver As ucrReceiver
         Dim bFound As Boolean = False
 
-        ucrCurrentReceiver = ucrSelectorLinkedDataFrame.CurrentReceiver
-
-        For Each ucrTempReceiver As ucrReceiver In lstNewReceivers
-            ucrTempReceiver.SetMeAsReceiver()
-            lstRecognisedValues = GetNewRecognisedValues(ucrTempReceiver.Tag)
-
-            If lstRecognisedValues.Count > 0 Then
-                For Each lviTempVariable As ListViewItem In ucrSelectorLinkedDataFrame.lstAvailableVariable.Items
-                    Dim strClimaticType As String = GetClimaticTypeFromRCommand(lviTempVariable.Text)
-                    For Each strValue As String In lstRecognisedValues
-                        If Regex.Replace(lviTempVariable.Text.ToLower(), "[^\w]|_", String.Empty).Contains(strValue) OrElse (strClimaticType IsNot Nothing AndAlso strClimaticType.Contains(strValue)) Then
-                            ucrTempReceiver.Add(lviTempVariable.Text, ucrSelectorLinkedDataFrame.ucrAvailableDataFrames.cboAvailableDataFrames.Text)
-                            bFound = True
+        If ucrChkLinkedMetaData.Checked Then
+            ucrCurrentReceiver = ucrSelectorLinkedDataFrame.CurrentReceiver
+            Dim strData As String = ucrSelectorLinkedDataFrame.ucrAvailableDataFrames.cboAvailableDataFrames.Text
+
+            For Each ucrTempReceiver As ucrReceiver In lstNewReceivers
+                ucrTempReceiver.SetMeAsReceiver()
+                lstRecognisedValues = GetNewRecognisedValues(ucrTempReceiver.Tag)
+
+                If lstRecognisedValues.Count > 0 Then
+                    For Each lviTempVariable As ListViewItem In ucrSelectorLinkedDataFrame.lstAvailableVariable.Items
+                        Dim strClimaticType As String = GetClimaticTypeFromRCommand(lviTempVariable.Text, strData)
+                        For Each strValue As String In lstRecognisedValues
+                            If Regex.Replace(lviTempVariable.Text.ToLower(), "[^\w]|_", String.Empty).Contains(strValue) OrElse (strClimaticType IsNot Nothing AndAlso strClimaticType.Contains(strValue)) Then
+                                ucrTempReceiver.Add(lviTempVariable.Text, strData)
+                                bFound = True
+                                Exit For
+                            End If
+                        Next
+                        If bFound Then
+                            bFound = False
                             Exit For
                         End If
                     Next
-                    If bFound Then
-                        bFound = False
-                        Exit For
-                    End If
-                Next
-            End If
-        Next
+                End If
+            Next
 
-        If ucrCurrentReceiver IsNot Nothing Then
-            ucrCurrentReceiver.SetMeAsReceiver()
+            If ucrCurrentReceiver IsNot Nothing Then
+                ucrCurrentReceiver.SetMeAsReceiver()
+            End If
         End If
     End Sub
 
-    Private Function GetClimaticTypeFromRCommand(strName As String) As String
+    Private Function GetClimaticTypeFromRCommand(strName As String, strDataName As String) As String
         Try
             Dim clsGetClimaticTypeFunction As New RFunction
 
             clsGetClimaticTypeFunction.SetRCommand(frmMain.clsRLink.strInstatDataObject & "$get_column_climatic_type")
             clsGetClimaticTypeFunction.AddParameter("attr_name", Chr(34) & "Climatic_Type" & Chr(34))
             clsGetClimaticTypeFunction.AddParameter("col_name", Chr(34) & strName & Chr(34))
-            clsGetClimaticTypeFunction.AddParameter("data_name", Chr(34) & ucrSelectorLinkedDataFrame.strCurrentDataFrame & Chr(34))
+            clsGetClimaticTypeFunction.AddParameter("data_name", Chr(34) & strDataName & Chr(34))
 
             Dim result As SymbolicExpression
             result = frmMain.clsRLink.RunInternalScriptGetValue(clsGetClimaticTypeFunction.ToScript())
@@ -402,13 +403,11 @@ Public Class DlgDefineClimaticData
         strCurrentDataframeName = ucrSelectorDefineClimaticData.strCurrentDataFrame
         clsGetColFunction.AddParameter("data_name", Chr(34) & strCurrentDataframeName & Chr(34), iPosition:=0)
         AutoFillReceivers()
-        SetRSelector()
     End Sub
 
-    Private Sub ucrSelectorLinkedDataFrame_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorLinkedDataFrame.ControlValueChanged
+    Private Sub ucrSelectorLinkedDataFrame_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorLinkedDataFrame.ControlValueChanged, ucrChkLinkedMetaData.ControlValueChanged
         clsGetColFunction.AddParameter("data_name", Chr(34) & ucrSelectorLinkedDataFrame.strCurrentDataFrame & Chr(34), iPosition:=1)
         NewAutoFillReceivers()
-        NewSetRSelector()
     End Sub
 
     Private Sub Controls_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrReceiverDate.ControlContentsChanged

instat/Interface/IDataViewGrid.vb

@@ -48,6 +48,8 @@ Public Interface IDataViewGrid
 
     Sub Focus()
 
+    Sub RemoveAllBackgroundColors()
+
     Function GetSelectedColumns() As List(Of clsColumnHeaderDisplay)
 
     Function GetFirstRowHeader() As String

instat/Model/DataFrame/clsDataFrame.vb

@@ -181,6 +181,7 @@ Public Class clsDataFrame
             Else
                 bRefreshed = False
             End If
+            _clsVisibleDataFramePage.HasDataChangedForAutoSave = True
         End If
         _clsColumnMetaData.RefreshData()
         Return bRefreshed

instat/Model/DataFrame/clsDataFramePage.vb

@@ -31,6 +31,7 @@ Public Class clsDataFramePage
     Private _lstColumns As List(Of clsColumnHeaderDisplay)
     Private _hasChanged As Boolean
     Private _useColumnSelectionInDataView As Boolean
+    Private _HasDataChangedForAutoSave As Boolean
 
     Private ReadOnly Property iColumnIncrements As Integer
         Get
@@ -140,6 +141,19 @@ Public Class clsDataFramePage
         End Set
     End Property
 
+    ''' <summary>
+    ''' holds whether the dataframe is different from visual grid component and trigger auto save
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property HasDataChangedForAutoSave() As Boolean
+        Get
+            Return _HasDataChangedForAutoSave
+        End Get
+        Set(ByVal value As Boolean)
+            _HasDataChangedForAutoSave = value
+        End Set
+    End Property
+
     ''' <summary>
     ''' Create a new instance of a dataframe page
     ''' </summary>
@@ -152,6 +166,7 @@ Public Class clsDataFramePage
         _iColumnStart = 1
         _iRowStart = 1
         _hasChanged = True
+        _HasDataChangedForAutoSave = True
         _useColumnSelectionInDataView = True
     End Sub
 

instat/UserControls/DataGrid/Linux/ucrDataViewLinuxGrid.vb

@@ -175,6 +175,10 @@ Public Class ucrDataViewLinuxGrid
         dataGrid.Rows(iRow).Cells(iColumn).Value = GetCurrentDataFrameFocus.DisplayedData(iRow, iColumn)
     End Sub
 
+    Private Sub RemoveAllBackgroundColors() Implements IDataViewGrid.RemoveAllBackgroundColors
+
+    End Sub
+
     Public Sub SearchRowInGrid(rowNumbers As List(Of Integer), strColumn As String, Optional iRow As Integer = 0,
                             Optional bApplyToRows As Boolean = False) Implements IDataViewGrid.SearchRowInGrid
     End Sub

instat/UserControls/DataGrid/ReoGrid/ucrDataViewReoGrid.vb

@@ -375,6 +375,15 @@ Public Class ucrDataViewReoGrid
         Next
     End Sub
 
+    Private Sub RemoveAllBackgroundColors() Implements IDataViewGrid.RemoveAllBackgroundColors
+        For rowNumber As Integer = 0 To grdData.CurrentWorksheet.RowCount - 1
+            For colIndex As Integer = 0 To grdData.CurrentWorksheet.ColumnCount - 1
+                grdData.CurrentWorksheet.Cells(rowNumber, colIndex).Style.BackColor = Color.Transparent
+            Next
+        Next
+        grdData.CurrentWorksheet.RequestInvalidate()
+    End Sub
+
     Public Sub SearchRowInGrid(rowNumbers As List(Of Integer), strColumn As String, Optional iRow As Integer = 0,
                             Optional bApplyToRows As Boolean = False) Implements IDataViewGrid.SearchRowInGrid
         Dim currSheet = grdData.CurrentWorksheet