Rows_Options

Author: Fidel365

instat/dlgView.vb

@@ -56,16 +56,13 @@ Public Class dlgView
         ucrPnlDisplayWindow.AddParameterValuesCondition(rdoDispSepOutputWindow, "checked", "viewer")
 
         ucrPnlDisplayWindow.AddToLinkedControls(ucrChkDisplayFromTop, {rdoDispOutputWindow}, bNewLinkedHideIfParameterMissing:=True, bNewLinkedAddRemoveParameter:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=True)
-        ucrPnlDisplayWindow.AddToLinkedControls(ucrChkRowNumbers, {rdoDispOutputWindow}, bNewLinkedHideIfParameterMissing:=True, bNewLinkedAddRemoveParameter:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=True)
+        ucrPnlDisplayWindow.AddToLinkedControls(ucrNudNumberRows, {rdoDispOutputWindow}, bNewLinkedHideIfParameterMissing:=True, bNewLinkedAddRemoveParameter:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=True)
         ucrPnlDisplayWindow.AddToLinkedControls(ucrViewChkPreview, {rdoHTMLOutputWindow}, bNewLinkedHideIfParameterMissing:=True, bNewLinkedAddRemoveParameter:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=True)
 
-
         ucrNudNumberRows.SetParameter(New RParameter("n", 1))
         ucrReceiverView.SetParameter(New RParameter("x", 1, bNewIncludeArgumentName:=False))
-
-        ucrChkRowNumbers.SetText("Rows")
-        ucrChkRowNumbers.AddToLinkedControls(ucrNudNumberRows, {True}, bNewLinkedHideIfParameterMissing:=True)
         ucrNudNumberRows.SetRDefault(6)
+        ucrNudNumberRows.SetLinkedDisplayControl(lblNumberofRows)
 
         ucrChkDisplayFromTop.SetText("Display From Top")
         ucrChkDisplayFromTop.AddFunctionNamesCondition(True, {"head", "tail"})
@@ -124,9 +121,9 @@ Public Class dlgView
 
         clsDummyFunction.AddParameter("checked", "window", iPosition:=0)
 
-        'clsGetObjectDataFunction.SetRCommand(frmMain.clsRLink.strInstatDataObject & "$get_object_data")
-        'clsGetObjectDataFunction.AddParameter("data_name", Chr(34) & ucrSelectorForView.ucrAvailableDataFrames.cboAvailableDataFrames.Text & Chr(34), iPosition:=0)
-        'clsGetObjectDataFunction.AddParameter("as_file", "TRUE", iPosition:=2)
+        clsGetObjectDataFunction.SetRCommand(frmMain.clsRLink.strInstatDataObject & "$get_object_data")
+        clsGetObjectDataFunction.AddParameter("data_name", Chr(34) & ucrSelectorForView.ucrAvailableDataFrames.cboAvailableDataFrames.Text & Chr(34), iPosition:=0)
+        clsGetObjectDataFunction.AddParameter("as_file", "TRUE", iPosition:=2)
 
 
         clsOutputWindowFunction.SetPackageName("utils")
@@ -207,13 +204,11 @@ Public Class dlgView
     Private Sub ChangeFunctionParameters()
         If rdoDispOutputWindow.Checked Then
             clsDummyFunction.AddParameter("checked", "window", iPosition:=0)
-
             cmdTableOptions.Visible = False
             ucrSaveData.Visible = True
             ucrBase.clsRsyntax.iCallType = 2
             ucrBase.clsRsyntax.RemoveFromAfterCodes(clsGetObjectDataFunction)
             ucrSaveData.SetSaveType(RObjectTypeLabel.Table, strRObjectFormat:=RObjectFormat.Text)
-            'ucrBase.clsRsyntax.AddToAfterCodes(clsGetObjectDataFunction)
             If ucrNudNumberRows.GetText <> "" OrElse ucrChkDisplayFromTop.Checked Then
                 ucrBase.clsRsyntax.SetBaseRFunction(clsOutputWindowFunction)
 
@@ -234,7 +229,6 @@ Public Class dlgView
             cmdTableOptions.Visible = False
             ucrSaveData.Visible = False
         Else
-            'ucrBase.clsRsyntax.AddToAfterCodes(clsGetObjectDataFunction)
             ucrSaveData.SetSaveType(RObjectTypeLabel.Table, strRObjectFormat:=RObjectFormat.Html)
             clsDummyFunction.AddParameter("checked", "html", iPosition:=0)
             ucrBase.clsRsyntax.SetBaseROperator(clsBaseOperator)
@@ -257,7 +251,7 @@ Public Class dlgView
         If bControlsUpdated Then
             ChangeFunctionParameters()
         End If
-        '  GetObjectName()
+        GetObjectName()
     End Sub
 
     Private Sub ucrChkSortColumn_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkSortColumn.ControlValueChanged, ucrPnlDisplayWindow.ControlValueChanged
@@ -286,21 +280,21 @@ Public Class dlgView
         TestOKEnabled()
     End Sub
 
-    'Private Sub ucrSaveData_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSaveData.ControlValueChanged
-    '    GetObjectName()
-    'End Sub
-
-    'Private Sub GetObjectName()
-    '    If rdoDispOutputWindow.Checked Then
-    '        Dim strPrefix As String = clsOutputWindowFunction.GetRObjectToAssignTo 'If(ucrSaveData.GetText <> "", ucrSaveData.GetText, "last_table")
-    '        clsGetObjectDataFunction.AddParameter("object_name", Chr(34) & strPrefix & Chr(34), iPosition:=1)
-    '    ElseIf rdoHTMLOutputWindow.Checked Then
-    '        Dim strPrefix As String = clsBaseOperator.GetRObjectToAssignTo
-    '        clsGetObjectDataFunction.AddParameter("object_name", Chr(34) & strPrefix & Chr(34), iPosition:=1)
-    '    End If
-    'End Sub
-
-    'Private Sub ucrSelectorForView_DataFrameChanged() Handles ucrSelectorForView.DataFrameChanged
-    '    clsGetObjectDataFunction.AddParameter("data_name", Chr(34) & ucrSelectorForView.ucrAvailableDataFrames.cboAvailableDataFrames.Text & Chr(34), iPosition:=0)
-    'End Sub
+    Private Sub ucrSaveData_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSaveData.ControlValueChanged
+        GetObjectName()
+    End Sub
+
+    Private Sub GetObjectName()
+        If rdoDispOutputWindow.Checked Then
+            Dim strPrefix As String = clsOutputWindowFunction.GetRObjectToAssignTo 'If(ucrSaveData.GetText <> "", ucrSaveData.GetText, "last_table")
+            clsGetObjectDataFunction.AddParameter("object_name", Chr(34) & strPrefix & Chr(34), iPosition:=1)
+        ElseIf rdoHTMLOutputWindow.Checked Then
+            Dim strPrefix As String = clsBaseOperator.GetRObjectToAssignTo
+            clsGetObjectDataFunction.AddParameter("object_name", Chr(34) & strPrefix & Chr(34), iPosition:=1)
+        End If
+    End Sub
+
+    Private Sub ucrSelectorForView_DataFrameChanged() Handles ucrSelectorForView.DataFrameChanged
+        clsGetObjectDataFunction.AddParameter("data_name", Chr(34) & ucrSelectorForView.ucrAvailableDataFrames.cboAvailableDataFrames.Text & Chr(34), iPosition:=0)
+    End Sub
 End Class