diff --git a/instat/dlgScript.Designer.vb b/instat/dlgScript.Designer.vb index ba37efac17..a5686b7ed2 100644 --- a/instat/dlgScript.Designer.vb +++ b/instat/dlgScript.Designer.vb @@ -25,20 +25,43 @@ Partial Class dlgScript Me.tbFeatures = New System.Windows.Forms.TabControl() Me.tbPageSaveData = New System.Windows.Forms.TabPage() Me.rdoFromRFile = New System.Windows.Forms.RadioButton() + Me.ucrInputSaveRFile = New instat.ucrInputTextBox() + Me.lblSaveText = New System.Windows.Forms.Label() + Me.lblSaveDataFrame = New System.Windows.Forms.Label() + Me.lblSaveColumn = New System.Windows.Forms.Label() + Me.ucrInputDataframeColumn = New instat.ucrInputTextBox() + Me.ucrInputSaveColumn = New instat.ucrInputTextBox() + Me.rdoVariable = New System.Windows.Forms.RadioButton() Me.rdoDataFrame = New System.Windows.Forms.RadioButton() + Me.ucrChkDisplayGraph = New instat.ucrCheck() + Me.ucrChkSaveDataFrameSingle = New instat.ucrCheck() + Me.ucrInputSaveDataFrame = New instat.ucrInputTextBox() Me.lblSaveObjectFormat = New System.Windows.Forms.Label() + Me.ucrCboSaveOutputObjectFormat = New instat.ucrInputComboBox() Me.lblSaveObjectType = New System.Windows.Forms.Label() + Me.ucrCboSaveOutputObjectType = New instat.ucrInputComboBox() Me.rdoSaveOutputObject = New System.Windows.Forms.RadioButton() Me.rdoSaveDataFrame = New System.Windows.Forms.RadioButton() Me.rdoSaveColumn = New System.Windows.Forms.RadioButton() + Me.ucrSaveObject = New instat.ucrSave() + Me.ucrDataFrameSaveOutputSelect = New instat.ucrDataFrame() + Me.ucrPnlSaveData = New instat.UcrPanel() + Me.ucrPnlSaveDataFrame = New instat.UcrPanel() Me.tbPageGetData = New System.Windows.Forms.TabPage() + Me.ucrReceiverGetOutputObject = New instat.ucrReceiverSingle() + Me.ucrReceiverGetColumns = New instat.ucrReceiverMultiple() Me.lblGetColumn = New System.Windows.Forms.Label() Me.lblGetObjectType = New System.Windows.Forms.Label() Me.rdoGetOutputObject = New System.Windows.Forms.RadioButton() Me.lblGetOutputObject = New System.Windows.Forms.Label() Me.rdoGetDataFrame = New System.Windows.Forms.RadioButton() Me.rdoGetColumn = New System.Windows.Forms.RadioButton() + Me.ucrDataFrameGetDF = New instat.ucrDataFrame() + Me.ucrCboGetOutputObjectType = New instat.ucrInputComboBox() + Me.ucrPnlGetData = New instat.UcrPanel() + Me.ucrSelectorGetObject = New instat.ucrSelectorByDataFrameAddRemove() Me.tbPageCommand = New System.Windows.Forms.TabPage() + Me.ucrChkWindow = New instat.ucrCheck() Me.rdoWindow = New System.Windows.Forms.RadioButton() Me.rdoListData = New System.Windows.Forms.RadioButton() Me.rdoViewData = New System.Windows.Forms.RadioButton() @@ -48,33 +71,6 @@ Partial Class dlgScript Me.rdoGgplotify = New System.Windows.Forms.RadioButton() Me.rdoCommandPackage = New System.Windows.Forms.RadioButton() Me.rdoCommandObject = New System.Windows.Forms.RadioButton() - Me.tbPageExamples = New System.Windows.Forms.TabPage() - Me.cmdHelp = New System.Windows.Forms.Button() - Me.rdoExampleData = New System.Windows.Forms.RadioButton() - Me.rdoExampleFunction = New System.Windows.Forms.RadioButton() - Me.lstExampleCollection = New System.Windows.Forms.ListView() - Me.clmDatasets = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.clmDesc = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.Label3 = New System.Windows.Forms.Label() - Me.lblPreview = New System.Windows.Forms.Label() - Me.txtScript = New System.Windows.Forms.TextBox() - Me.ucrInputSaveRFile = New instat.ucrInputTextBox() - Me.ucrChkDisplayGraph = New instat.ucrCheck() - Me.ucrChkSaveDataFrameSingle = New instat.ucrCheck() - Me.ucrInputSaveDataFrame = New instat.ucrInputTextBox() - Me.ucrCboSaveOutputObjectFormat = New instat.ucrInputComboBox() - Me.ucrCboSaveOutputObjectType = New instat.ucrInputComboBox() - Me.ucrSaveObject = New instat.ucrSave() - Me.ucrDataFrameSaveOutputSelect = New instat.ucrDataFrame() - Me.ucrPnlSaveData = New instat.UcrPanel() - Me.ucrPnlSaveDataFrame = New instat.UcrPanel() - Me.ucrReceiverGetOutputObject = New instat.ucrReceiverSingle() - Me.ucrReceiverGetColumns = New instat.ucrReceiverMultiple() - Me.ucrDataFrameGetDF = New instat.ucrDataFrame() - Me.ucrCboGetOutputObjectType = New instat.ucrInputComboBox() - Me.ucrPnlGetData = New instat.UcrPanel() - Me.ucrSelectorGetObject = New instat.ucrSelectorByDataFrameAddRemove() - Me.ucrChkWindow = New instat.ucrCheck() Me.ucrChkInto = New instat.ucrCheck() Me.ucrInputSaveData = New instat.ucrInputTextBox() Me.ucrCboCommandDataPackage = New instat.ucrInputComboBox() @@ -86,8 +82,18 @@ Partial Class dlgScript Me.ucrInputRemoveObjects = New instat.ucrInputTextBox() Me.ucrCboCommandPackage = New instat.ucrInputComboBox() Me.ucrPnlCommands = New instat.UcrPanel() + Me.tbPageExamples = New System.Windows.Forms.TabPage() + Me.cmdHelp = New System.Windows.Forms.Button() + Me.rdoExampleData = New System.Windows.Forms.RadioButton() + Me.rdoExampleFunction = New System.Windows.Forms.RadioButton() Me.ucrPnlExample = New instat.UcrPanel() + Me.lstExampleCollection = New System.Windows.Forms.ListView() + Me.clmDatasets = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.clmDesc = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.Label3 = New System.Windows.Forms.Label() Me.ucrCboExamplePackages = New instat.ucrInputComboBox() + Me.lblPreview = New System.Windows.Forms.Label() + Me.txtScript = New System.Windows.Forms.TextBox() Me.ucrBase = New instat.ucrButtons() Me.tbFeatures.SuspendLayout() Me.tbPageSaveData.SuspendLayout() @@ -105,13 +111,19 @@ Partial Class dlgScript Me.tbFeatures.Location = New System.Drawing.Point(8, 7) Me.tbFeatures.Name = "tbFeatures" Me.tbFeatures.SelectedIndex = 0 - Me.tbFeatures.Size = New System.Drawing.Size(446, 271) + Me.tbFeatures.Size = New System.Drawing.Size(446, 304) Me.tbFeatures.TabIndex = 31 ' 'tbPageSaveData ' - Me.tbPageSaveData.Controls.Add(Me.ucrInputSaveRFile) Me.tbPageSaveData.Controls.Add(Me.rdoFromRFile) + Me.tbPageSaveData.Controls.Add(Me.ucrInputSaveRFile) + Me.tbPageSaveData.Controls.Add(Me.lblSaveText) + Me.tbPageSaveData.Controls.Add(Me.lblSaveDataFrame) + Me.tbPageSaveData.Controls.Add(Me.lblSaveColumn) + Me.tbPageSaveData.Controls.Add(Me.ucrInputDataframeColumn) + Me.tbPageSaveData.Controls.Add(Me.ucrInputSaveColumn) + Me.tbPageSaveData.Controls.Add(Me.rdoVariable) Me.tbPageSaveData.Controls.Add(Me.rdoDataFrame) Me.tbPageSaveData.Controls.Add(Me.ucrChkDisplayGraph) Me.tbPageSaveData.Controls.Add(Me.ucrChkSaveDataFrameSingle) @@ -129,7 +141,7 @@ Partial Class dlgScript Me.tbPageSaveData.Controls.Add(Me.ucrPnlSaveDataFrame) Me.tbPageSaveData.Location = New System.Drawing.Point(4, 22) Me.tbPageSaveData.Name = "tbPageSaveData" - Me.tbPageSaveData.Size = New System.Drawing.Size(438, 245) + Me.tbPageSaveData.Size = New System.Drawing.Size(438, 278) Me.tbPageSaveData.TabIndex = 2 Me.tbPageSaveData.Text = "Save Data" Me.tbPageSaveData.UseVisualStyleBackColor = True @@ -137,7 +149,7 @@ Partial Class dlgScript 'rdoFromRFile ' Me.rdoFromRFile.AutoSize = True - Me.rdoFromRFile.Location = New System.Drawing.Point(83, 125) + Me.rdoFromRFile.Location = New System.Drawing.Point(49, 202) Me.rdoFromRFile.Margin = New System.Windows.Forms.Padding(2) Me.rdoFromRFile.Name = "rdoFromRFile" Me.rdoFromRFile.Size = New System.Drawing.Size(81, 17) @@ -146,18 +158,123 @@ Partial Class dlgScript Me.rdoFromRFile.Text = "From R File:" Me.rdoFromRFile.UseVisualStyleBackColor = True ' + 'ucrInputSaveRFile + ' + Me.ucrInputSaveRFile.AddQuotesIfUnrecognised = True + Me.ucrInputSaveRFile.AutoSize = True + Me.ucrInputSaveRFile.IsMultiline = False + Me.ucrInputSaveRFile.IsReadOnly = False + Me.ucrInputSaveRFile.Location = New System.Drawing.Point(67, 228) + Me.ucrInputSaveRFile.Margin = New System.Windows.Forms.Padding(9) + Me.ucrInputSaveRFile.Name = "ucrInputSaveRFile" + Me.ucrInputSaveRFile.Size = New System.Drawing.Size(145, 21) + Me.ucrInputSaveRFile.TabIndex = 64 + ' + 'lblSaveText + ' + Me.lblSaveText.AutoSize = True + Me.lblSaveText.Location = New System.Drawing.Point(299, 72) + Me.lblSaveText.Name = "lblSaveText" + Me.lblSaveText.Size = New System.Drawing.Size(116, 13) + Me.lblSaveText.TabIndex = 71 + Me.lblSaveText.Text = "(separated by commas)" + ' + 'lblSaveDataFrame + ' + Me.lblSaveDataFrame.AutoSize = True + Me.lblSaveDataFrame.Location = New System.Drawing.Point(64, 103) + Me.lblSaveDataFrame.Name = "lblSaveDataFrame" + Me.lblSaveDataFrame.Size = New System.Drawing.Size(65, 13) + Me.lblSaveDataFrame.TabIndex = 70 + Me.lblSaveDataFrame.Text = "Data Frame:" + ' + 'lblSaveColumn + ' + Me.lblSaveColumn.AutoSize = True + Me.lblSaveColumn.Location = New System.Drawing.Point(64, 72) + Me.lblSaveColumn.Name = "lblSaveColumn" + Me.lblSaveColumn.Size = New System.Drawing.Size(49, 13) + Me.lblSaveColumn.TabIndex = 69 + Me.lblSaveColumn.Text = "Name(s):" + ' + 'ucrInputDataframeColumn + ' + Me.ucrInputDataframeColumn.AddQuotesIfUnrecognised = True + Me.ucrInputDataframeColumn.AutoSize = True + Me.ucrInputDataframeColumn.IsMultiline = False + Me.ucrInputDataframeColumn.IsReadOnly = False + Me.ucrInputDataframeColumn.Location = New System.Drawing.Point(131, 103) + Me.ucrInputDataframeColumn.Margin = New System.Windows.Forms.Padding(9) + Me.ucrInputDataframeColumn.Name = "ucrInputDataframeColumn" + Me.ucrInputDataframeColumn.Size = New System.Drawing.Size(155, 21) + Me.ucrInputDataframeColumn.TabIndex = 68 + ' + 'ucrInputSaveColumn + ' + Me.ucrInputSaveColumn.AddQuotesIfUnrecognised = True + Me.ucrInputSaveColumn.AutoSize = True + Me.ucrInputSaveColumn.IsMultiline = False + Me.ucrInputSaveColumn.IsReadOnly = False + Me.ucrInputSaveColumn.Location = New System.Drawing.Point(132, 72) + Me.ucrInputSaveColumn.Margin = New System.Windows.Forms.Padding(9) + Me.ucrInputSaveColumn.Name = "ucrInputSaveColumn" + Me.ucrInputSaveColumn.Size = New System.Drawing.Size(154, 21) + Me.ucrInputSaveColumn.TabIndex = 67 + ' + 'rdoVariable + ' + Me.rdoVariable.AutoSize = True + Me.rdoVariable.Location = New System.Drawing.Point(49, 48) + Me.rdoVariable.Margin = New System.Windows.Forms.Padding(2) + Me.rdoVariable.Name = "rdoVariable" + Me.rdoVariable.Size = New System.Drawing.Size(97, 17) + Me.rdoVariable.TabIndex = 66 + Me.rdoVariable.TabStop = True + Me.rdoVariable.Text = "From Variables:" + Me.rdoVariable.UseVisualStyleBackColor = True + ' 'rdoDataFrame ' Me.rdoDataFrame.AutoSize = True - Me.rdoDataFrame.Location = New System.Drawing.Point(83, 48) + Me.rdoDataFrame.Location = New System.Drawing.Point(48, 126) Me.rdoDataFrame.Margin = New System.Windows.Forms.Padding(2) Me.rdoDataFrame.Name = "rdoDataFrame" - Me.rdoDataFrame.Size = New System.Drawing.Size(109, 17) + Me.rdoDataFrame.Size = New System.Drawing.Size(104, 17) Me.rdoDataFrame.TabIndex = 62 Me.rdoDataFrame.TabStop = True - Me.rdoDataFrame.Text = "From Data Frame:" + Me.rdoDataFrame.Text = "Into Data Frame:" Me.rdoDataFrame.UseVisualStyleBackColor = True ' + 'ucrChkDisplayGraph + ' + Me.ucrChkDisplayGraph.AutoSize = True + Me.ucrChkDisplayGraph.Checked = False + Me.ucrChkDisplayGraph.Location = New System.Drawing.Point(88, 217) + Me.ucrChkDisplayGraph.Name = "ucrChkDisplayGraph" + Me.ucrChkDisplayGraph.Size = New System.Drawing.Size(113, 23) + Me.ucrChkDisplayGraph.TabIndex = 60 + ' + 'ucrChkSaveDataFrameSingle + ' + Me.ucrChkSaveDataFrameSingle.AutoSize = True + Me.ucrChkSaveDataFrameSingle.Checked = False + Me.ucrChkSaveDataFrameSingle.Location = New System.Drawing.Point(55, 174) + Me.ucrChkSaveDataFrameSingle.Name = "ucrChkSaveDataFrameSingle" + Me.ucrChkSaveDataFrameSingle.Size = New System.Drawing.Size(146, 23) + Me.ucrChkSaveDataFrameSingle.TabIndex = 59 + ' + 'ucrInputSaveDataFrame + ' + Me.ucrInputSaveDataFrame.AddQuotesIfUnrecognised = True + Me.ucrInputSaveDataFrame.AutoSize = True + Me.ucrInputSaveDataFrame.IsMultiline = False + Me.ucrInputSaveDataFrame.IsReadOnly = False + Me.ucrInputSaveDataFrame.Location = New System.Drawing.Point(67, 147) + Me.ucrInputSaveDataFrame.Margin = New System.Windows.Forms.Padding(9) + Me.ucrInputSaveDataFrame.Name = "ucrInputSaveDataFrame" + Me.ucrInputSaveDataFrame.Size = New System.Drawing.Size(145, 21) + Me.ucrInputSaveDataFrame.TabIndex = 57 + ' 'lblSaveObjectFormat ' Me.lblSaveObjectFormat.AutoSize = True @@ -167,6 +284,18 @@ Partial Class dlgScript Me.lblSaveObjectFormat.TabIndex = 56 Me.lblSaveObjectFormat.Text = "Format:" ' + 'ucrCboSaveOutputObjectFormat + ' + Me.ucrCboSaveOutputObjectFormat.AddQuotesIfUnrecognised = True + Me.ucrCboSaveOutputObjectFormat.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrCboSaveOutputObjectFormat.GetSetSelectedIndex = -1 + Me.ucrCboSaveOutputObjectFormat.IsReadOnly = False + Me.ucrCboSaveOutputObjectFormat.Location = New System.Drawing.Point(88, 160) + Me.ucrCboSaveOutputObjectFormat.Margin = New System.Windows.Forms.Padding(9) + Me.ucrCboSaveOutputObjectFormat.Name = "ucrCboSaveOutputObjectFormat" + Me.ucrCboSaveOutputObjectFormat.Size = New System.Drawing.Size(141, 21) + Me.ucrCboSaveOutputObjectFormat.TabIndex = 55 + ' 'lblSaveObjectType ' Me.lblSaveObjectType.AutoSize = True @@ -176,6 +305,18 @@ Partial Class dlgScript Me.lblSaveObjectType.TabIndex = 54 Me.lblSaveObjectType.Text = "Type:" ' + 'ucrCboSaveOutputObjectType + ' + Me.ucrCboSaveOutputObjectType.AddQuotesIfUnrecognised = True + Me.ucrCboSaveOutputObjectType.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrCboSaveOutputObjectType.GetSetSelectedIndex = -1 + Me.ucrCboSaveOutputObjectType.IsReadOnly = False + Me.ucrCboSaveOutputObjectType.Location = New System.Drawing.Point(87, 116) + Me.ucrCboSaveOutputObjectType.Margin = New System.Windows.Forms.Padding(9) + Me.ucrCboSaveOutputObjectType.Name = "ucrCboSaveOutputObjectType" + Me.ucrCboSaveOutputObjectType.Size = New System.Drawing.Size(144, 21) + Me.ucrCboSaveOutputObjectType.TabIndex = 53 + ' 'rdoSaveOutputObject ' Me.rdoSaveOutputObject.Appearance = System.Windows.Forms.Appearance.Button @@ -227,6 +368,44 @@ Partial Class dlgScript Me.rdoSaveColumn.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.rdoSaveColumn.UseVisualStyleBackColor = True ' + 'ucrSaveObject + ' + Me.ucrSaveObject.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrSaveObject.Location = New System.Drawing.Point(88, 193) + Me.ucrSaveObject.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.ucrSaveObject.Name = "ucrSaveObject" + Me.ucrSaveObject.Size = New System.Drawing.Size(258, 22) + Me.ucrSaveObject.TabIndex = 35 + ' + 'ucrDataFrameSaveOutputSelect + ' + Me.ucrDataFrameSaveOutputSelect.AutoSize = True + Me.ucrDataFrameSaveOutputSelect.bDropUnusedFilterLevels = False + Me.ucrDataFrameSaveOutputSelect.bUseCurrentFilter = True + Me.ucrDataFrameSaveOutputSelect.Location = New System.Drawing.Point(86, 54) + Me.ucrDataFrameSaveOutputSelect.Margin = New System.Windows.Forms.Padding(0) + Me.ucrDataFrameSaveOutputSelect.Name = "ucrDataFrameSaveOutputSelect" + Me.ucrDataFrameSaveOutputSelect.Size = New System.Drawing.Size(224, 59) + Me.ucrDataFrameSaveOutputSelect.TabIndex = 29 + ' + 'ucrPnlSaveData + ' + Me.ucrPnlSaveData.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrPnlSaveData.Location = New System.Drawing.Point(13, 12) + Me.ucrPnlSaveData.Margin = New System.Windows.Forms.Padding(6) + Me.ucrPnlSaveData.Name = "ucrPnlSaveData" + Me.ucrPnlSaveData.Size = New System.Drawing.Size(402, 36) + Me.ucrPnlSaveData.TabIndex = 47 + ' + 'ucrPnlSaveDataFrame + ' + Me.ucrPnlSaveDataFrame.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrPnlSaveDataFrame.Location = New System.Drawing.Point(5, 48) + Me.ucrPnlSaveDataFrame.Margin = New System.Windows.Forms.Padding(6) + Me.ucrPnlSaveDataFrame.Name = "ucrPnlSaveDataFrame" + Me.ucrPnlSaveDataFrame.Size = New System.Drawing.Size(429, 208) + Me.ucrPnlSaveDataFrame.TabIndex = 65 + ' 'tbPageGetData ' Me.tbPageGetData.Controls.Add(Me.ucrReceiverGetOutputObject) @@ -244,11 +423,37 @@ Partial Class dlgScript Me.tbPageGetData.Location = New System.Drawing.Point(4, 22) Me.tbPageGetData.Name = "tbPageGetData" Me.tbPageGetData.Padding = New System.Windows.Forms.Padding(3) - Me.tbPageGetData.Size = New System.Drawing.Size(438, 245) + Me.tbPageGetData.Size = New System.Drawing.Size(438, 278) Me.tbPageGetData.TabIndex = 1 Me.tbPageGetData.Text = "Get Data" Me.tbPageGetData.UseVisualStyleBackColor = True ' + 'ucrReceiverGetOutputObject + ' + Me.ucrReceiverGetOutputObject.AutoSize = True + Me.ucrReceiverGetOutputObject.frmParent = Nothing + Me.ucrReceiverGetOutputObject.Location = New System.Drawing.Point(240, 117) + Me.ucrReceiverGetOutputObject.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverGetOutputObject.Name = "ucrReceiverGetOutputObject" + Me.ucrReceiverGetOutputObject.Selector = Nothing + Me.ucrReceiverGetOutputObject.Size = New System.Drawing.Size(138, 20) + Me.ucrReceiverGetOutputObject.strNcFilePath = "" + Me.ucrReceiverGetOutputObject.TabIndex = 27 + Me.ucrReceiverGetOutputObject.ucrSelector = Nothing + ' + 'ucrReceiverGetColumns + ' + Me.ucrReceiverGetColumns.AutoSize = True + Me.ucrReceiverGetColumns.frmParent = Nothing + Me.ucrReceiverGetColumns.Location = New System.Drawing.Point(243, 104) + Me.ucrReceiverGetColumns.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverGetColumns.Name = "ucrReceiverGetColumns" + Me.ucrReceiverGetColumns.Selector = Nothing + Me.ucrReceiverGetColumns.Size = New System.Drawing.Size(137, 105) + Me.ucrReceiverGetColumns.strNcFilePath = "" + Me.ucrReceiverGetColumns.TabIndex = 49 + Me.ucrReceiverGetColumns.ucrSelector = Nothing + ' 'lblGetColumn ' Me.lblGetColumn.AutoSize = True @@ -329,6 +534,50 @@ Partial Class dlgScript Me.rdoGetColumn.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.rdoGetColumn.UseVisualStyleBackColor = True ' + 'ucrDataFrameGetDF + ' + Me.ucrDataFrameGetDF.AutoSize = True + Me.ucrDataFrameGetDF.bDropUnusedFilterLevels = False + Me.ucrDataFrameGetDF.bUseCurrentFilter = True + Me.ucrDataFrameGetDF.Location = New System.Drawing.Point(81, 55) + Me.ucrDataFrameGetDF.Margin = New System.Windows.Forms.Padding(0) + Me.ucrDataFrameGetDF.Name = "ucrDataFrameGetDF" + Me.ucrDataFrameGetDF.Size = New System.Drawing.Size(224, 59) + Me.ucrDataFrameGetDF.TabIndex = 31 + ' + 'ucrCboGetOutputObjectType + ' + Me.ucrCboGetOutputObjectType.AddQuotesIfUnrecognised = True + Me.ucrCboGetOutputObjectType.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrCboGetOutputObjectType.GetSetSelectedIndex = -1 + Me.ucrCboGetOutputObjectType.IsReadOnly = False + Me.ucrCboGetOutputObjectType.Location = New System.Drawing.Point(241, 72) + Me.ucrCboGetOutputObjectType.Margin = New System.Windows.Forms.Padding(9) + Me.ucrCboGetOutputObjectType.Name = "ucrCboGetOutputObjectType" + Me.ucrCboGetOutputObjectType.Size = New System.Drawing.Size(137, 21) + Me.ucrCboGetOutputObjectType.TabIndex = 47 + ' + 'ucrPnlGetData + ' + Me.ucrPnlGetData.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrPnlGetData.Location = New System.Drawing.Point(5, 10) + Me.ucrPnlGetData.Margin = New System.Windows.Forms.Padding(6) + Me.ucrPnlGetData.Name = "ucrPnlGetData" + Me.ucrPnlGetData.Size = New System.Drawing.Size(402, 36) + Me.ucrPnlGetData.TabIndex = 42 + ' + 'ucrSelectorGetObject + ' + Me.ucrSelectorGetObject.AutoSize = True + Me.ucrSelectorGetObject.bDropUnusedFilterLevels = False + Me.ucrSelectorGetObject.bShowHiddenColumns = False + Me.ucrSelectorGetObject.bUseCurrentFilter = True + Me.ucrSelectorGetObject.Location = New System.Drawing.Point(9, 52) + Me.ucrSelectorGetObject.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorGetObject.Name = "ucrSelectorGetObject" + Me.ucrSelectorGetObject.Size = New System.Drawing.Size(320, 274) + Me.ucrSelectorGetObject.TabIndex = 34 + ' 'tbPageCommand ' Me.tbPageCommand.Controls.Add(Me.ucrChkWindow) @@ -354,11 +603,20 @@ Partial Class dlgScript Me.tbPageCommand.Controls.Add(Me.ucrPnlCommands) Me.tbPageCommand.Location = New System.Drawing.Point(4, 22) Me.tbPageCommand.Name = "tbPageCommand" - Me.tbPageCommand.Size = New System.Drawing.Size(438, 245) + Me.tbPageCommand.Size = New System.Drawing.Size(438, 278) Me.tbPageCommand.TabIndex = 3 Me.tbPageCommand.Text = "Commands" Me.tbPageCommand.UseVisualStyleBackColor = True ' + 'ucrChkWindow + ' + Me.ucrChkWindow.AutoSize = True + Me.ucrChkWindow.Checked = False + Me.ucrChkWindow.Location = New System.Drawing.Point(233, 94) + Me.ucrChkWindow.Name = "ucrChkWindow" + Me.ucrChkWindow.Size = New System.Drawing.Size(126, 23) + Me.ucrChkWindow.TabIndex = 67 + ' 'rdoWindow ' Me.rdoWindow.AutoSize = True @@ -461,311 +719,14 @@ Partial Class dlgScript Me.rdoCommandObject.Text = "Remove Object(s):" Me.rdoCommandObject.UseVisualStyleBackColor = True ' - 'tbPageExamples + 'ucrChkInto ' - Me.tbPageExamples.Controls.Add(Me.cmdHelp) - Me.tbPageExamples.Controls.Add(Me.rdoExampleData) - Me.tbPageExamples.Controls.Add(Me.rdoExampleFunction) - Me.tbPageExamples.Controls.Add(Me.ucrPnlExample) - Me.tbPageExamples.Controls.Add(Me.lstExampleCollection) - Me.tbPageExamples.Controls.Add(Me.Label3) - Me.tbPageExamples.Controls.Add(Me.ucrCboExamplePackages) - Me.tbPageExamples.Location = New System.Drawing.Point(4, 22) - Me.tbPageExamples.Name = "tbPageExamples" - Me.tbPageExamples.Size = New System.Drawing.Size(438, 245) - Me.tbPageExamples.TabIndex = 4 - Me.tbPageExamples.Text = "Library" - Me.tbPageExamples.UseVisualStyleBackColor = True - ' - 'cmdHelp - ' - Me.cmdHelp.Location = New System.Drawing.Point(361, 4) - Me.cmdHelp.Name = "cmdHelp" - Me.cmdHelp.Size = New System.Drawing.Size(75, 23) - Me.cmdHelp.TabIndex = 61 - Me.cmdHelp.Text = "R Help" - Me.cmdHelp.UseVisualStyleBackColor = True - ' - 'rdoExampleData - ' - Me.rdoExampleData.Appearance = System.Windows.Forms.Appearance.Button - Me.rdoExampleData.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoExampleData.FlatAppearance.BorderSize = 2 - Me.rdoExampleData.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoExampleData.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.rdoExampleData.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.rdoExampleData.Location = New System.Drawing.Point(14, 54) - Me.rdoExampleData.Name = "rdoExampleData" - Me.rdoExampleData.Size = New System.Drawing.Size(80, 30) - Me.rdoExampleData.TabIndex = 57 - Me.rdoExampleData.TabStop = True - Me.rdoExampleData.Text = "Data" - Me.rdoExampleData.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - Me.rdoExampleData.UseVisualStyleBackColor = True - ' - 'rdoExampleFunction - ' - Me.rdoExampleFunction.Appearance = System.Windows.Forms.Appearance.Button - Me.rdoExampleFunction.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoExampleFunction.FlatAppearance.BorderSize = 2 - Me.rdoExampleFunction.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoExampleFunction.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.rdoExampleFunction.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.rdoExampleFunction.Location = New System.Drawing.Point(92, 54) - Me.rdoExampleFunction.Name = "rdoExampleFunction" - Me.rdoExampleFunction.Size = New System.Drawing.Size(80, 30) - Me.rdoExampleFunction.TabIndex = 58 - Me.rdoExampleFunction.TabStop = True - Me.rdoExampleFunction.Text = "Function" - Me.rdoExampleFunction.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - Me.rdoExampleFunction.UseVisualStyleBackColor = True - ' - 'lstExampleCollection - ' - Me.lstExampleCollection.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.clmDatasets, Me.clmDesc}) - Me.lstExampleCollection.FullRowSelect = True - Me.lstExampleCollection.HideSelection = False - Me.lstExampleCollection.Location = New System.Drawing.Point(3, 93) - Me.lstExampleCollection.MultiSelect = False - Me.lstExampleCollection.Name = "lstExampleCollection" - Me.lstExampleCollection.ShowGroups = False - Me.lstExampleCollection.ShowItemToolTips = True - Me.lstExampleCollection.Size = New System.Drawing.Size(415, 146) - Me.lstExampleCollection.Sorting = System.Windows.Forms.SortOrder.Ascending - Me.lstExampleCollection.TabIndex = 53 - Me.lstExampleCollection.UseCompatibleStateImageBehavior = False - Me.lstExampleCollection.View = System.Windows.Forms.View.Details - ' - 'clmDatasets - ' - Me.clmDatasets.Text = "Data" - Me.clmDatasets.Width = 142 - ' - 'clmDesc - ' - Me.clmDesc.Text = "Description" - Me.clmDesc.Width = 266 - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(13, 5) - Me.Label3.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(50, 13) - Me.Label3.TabIndex = 52 - Me.Label3.Text = "Package" - ' - 'lblPreview - ' - Me.lblPreview.AutoSize = True - Me.lblPreview.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblPreview.Location = New System.Drawing.Point(9, 281) - Me.lblPreview.Name = "lblPreview" - Me.lblPreview.Size = New System.Drawing.Size(48, 13) - Me.lblPreview.TabIndex = 30 - Me.lblPreview.Text = "Preview:" - ' - 'txtScript - ' - Me.txtScript.Location = New System.Drawing.Point(5, 299) - Me.txtScript.Multiline = True - Me.txtScript.Name = "txtScript" - Me.txtScript.ScrollBars = System.Windows.Forms.ScrollBars.Both - Me.txtScript.Size = New System.Drawing.Size(445, 96) - Me.txtScript.TabIndex = 32 - ' - 'ucrInputSaveRFile - ' - Me.ucrInputSaveRFile.AddQuotesIfUnrecognised = True - Me.ucrInputSaveRFile.AutoSize = True - Me.ucrInputSaveRFile.IsMultiline = False - Me.ucrInputSaveRFile.IsReadOnly = False - Me.ucrInputSaveRFile.Location = New System.Drawing.Point(92, 150) - Me.ucrInputSaveRFile.Margin = New System.Windows.Forms.Padding(9) - Me.ucrInputSaveRFile.Name = "ucrInputSaveRFile" - Me.ucrInputSaveRFile.Size = New System.Drawing.Size(145, 21) - Me.ucrInputSaveRFile.TabIndex = 64 - ' - 'ucrChkDisplayGraph - ' - Me.ucrChkDisplayGraph.AutoSize = True - Me.ucrChkDisplayGraph.Checked = False - Me.ucrChkDisplayGraph.Location = New System.Drawing.Point(88, 217) - Me.ucrChkDisplayGraph.Name = "ucrChkDisplayGraph" - Me.ucrChkDisplayGraph.Size = New System.Drawing.Size(113, 23) - Me.ucrChkDisplayGraph.TabIndex = 60 - ' - 'ucrChkSaveDataFrameSingle - ' - Me.ucrChkSaveDataFrameSingle.AutoSize = True - Me.ucrChkSaveDataFrameSingle.Checked = False - Me.ucrChkSaveDataFrameSingle.Location = New System.Drawing.Point(91, 101) - Me.ucrChkSaveDataFrameSingle.Name = "ucrChkSaveDataFrameSingle" - Me.ucrChkSaveDataFrameSingle.Size = New System.Drawing.Size(146, 23) - Me.ucrChkSaveDataFrameSingle.TabIndex = 59 - ' - 'ucrInputSaveDataFrame - ' - Me.ucrInputSaveDataFrame.AddQuotesIfUnrecognised = True - Me.ucrInputSaveDataFrame.AutoSize = True - Me.ucrInputSaveDataFrame.IsMultiline = False - Me.ucrInputSaveDataFrame.IsReadOnly = False - Me.ucrInputSaveDataFrame.Location = New System.Drawing.Point(92, 70) - Me.ucrInputSaveDataFrame.Margin = New System.Windows.Forms.Padding(9) - Me.ucrInputSaveDataFrame.Name = "ucrInputSaveDataFrame" - Me.ucrInputSaveDataFrame.Size = New System.Drawing.Size(145, 21) - Me.ucrInputSaveDataFrame.TabIndex = 57 - ' - 'ucrCboSaveOutputObjectFormat - ' - Me.ucrCboSaveOutputObjectFormat.AddQuotesIfUnrecognised = True - Me.ucrCboSaveOutputObjectFormat.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrCboSaveOutputObjectFormat.GetSetSelectedIndex = -1 - Me.ucrCboSaveOutputObjectFormat.IsReadOnly = False - Me.ucrCboSaveOutputObjectFormat.Location = New System.Drawing.Point(88, 160) - Me.ucrCboSaveOutputObjectFormat.Margin = New System.Windows.Forms.Padding(9) - Me.ucrCboSaveOutputObjectFormat.Name = "ucrCboSaveOutputObjectFormat" - Me.ucrCboSaveOutputObjectFormat.Size = New System.Drawing.Size(141, 21) - Me.ucrCboSaveOutputObjectFormat.TabIndex = 55 - ' - 'ucrCboSaveOutputObjectType - ' - Me.ucrCboSaveOutputObjectType.AddQuotesIfUnrecognised = True - Me.ucrCboSaveOutputObjectType.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrCboSaveOutputObjectType.GetSetSelectedIndex = -1 - Me.ucrCboSaveOutputObjectType.IsReadOnly = False - Me.ucrCboSaveOutputObjectType.Location = New System.Drawing.Point(87, 116) - Me.ucrCboSaveOutputObjectType.Margin = New System.Windows.Forms.Padding(9) - Me.ucrCboSaveOutputObjectType.Name = "ucrCboSaveOutputObjectType" - Me.ucrCboSaveOutputObjectType.Size = New System.Drawing.Size(144, 21) - Me.ucrCboSaveOutputObjectType.TabIndex = 53 - ' - 'ucrSaveObject - ' - Me.ucrSaveObject.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrSaveObject.Location = New System.Drawing.Point(88, 193) - Me.ucrSaveObject.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.ucrSaveObject.Name = "ucrSaveObject" - Me.ucrSaveObject.Size = New System.Drawing.Size(258, 22) - Me.ucrSaveObject.TabIndex = 35 - ' - 'ucrDataFrameSaveOutputSelect - ' - Me.ucrDataFrameSaveOutputSelect.AutoSize = True - Me.ucrDataFrameSaveOutputSelect.bDropUnusedFilterLevels = False - Me.ucrDataFrameSaveOutputSelect.bUseCurrentFilter = True - Me.ucrDataFrameSaveOutputSelect.Location = New System.Drawing.Point(86, 54) - Me.ucrDataFrameSaveOutputSelect.Margin = New System.Windows.Forms.Padding(0) - Me.ucrDataFrameSaveOutputSelect.Name = "ucrDataFrameSaveOutputSelect" - Me.ucrDataFrameSaveOutputSelect.Size = New System.Drawing.Size(224, 59) - Me.ucrDataFrameSaveOutputSelect.TabIndex = 29 - ' - 'ucrPnlSaveData - ' - Me.ucrPnlSaveData.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrPnlSaveData.Location = New System.Drawing.Point(13, 12) - Me.ucrPnlSaveData.Margin = New System.Windows.Forms.Padding(6) - Me.ucrPnlSaveData.Name = "ucrPnlSaveData" - Me.ucrPnlSaveData.Size = New System.Drawing.Size(402, 36) - Me.ucrPnlSaveData.TabIndex = 47 - ' - 'ucrPnlSaveDataFrame - ' - Me.ucrPnlSaveDataFrame.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrPnlSaveDataFrame.Location = New System.Drawing.Point(5, 48) - Me.ucrPnlSaveDataFrame.Margin = New System.Windows.Forms.Padding(6) - Me.ucrPnlSaveDataFrame.Name = "ucrPnlSaveDataFrame" - Me.ucrPnlSaveDataFrame.Size = New System.Drawing.Size(429, 134) - Me.ucrPnlSaveDataFrame.TabIndex = 65 - ' - 'ucrReceiverGetOutputObject - ' - Me.ucrReceiverGetOutputObject.AutoSize = True - Me.ucrReceiverGetOutputObject.frmParent = Nothing - Me.ucrReceiverGetOutputObject.Location = New System.Drawing.Point(240, 117) - Me.ucrReceiverGetOutputObject.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverGetOutputObject.Name = "ucrReceiverGetOutputObject" - Me.ucrReceiverGetOutputObject.Selector = Nothing - Me.ucrReceiverGetOutputObject.Size = New System.Drawing.Size(138, 20) - Me.ucrReceiverGetOutputObject.strNcFilePath = "" - Me.ucrReceiverGetOutputObject.TabIndex = 27 - Me.ucrReceiverGetOutputObject.ucrSelector = Nothing - ' - 'ucrReceiverGetColumns - ' - Me.ucrReceiverGetColumns.AutoSize = True - Me.ucrReceiverGetColumns.frmParent = Nothing - Me.ucrReceiverGetColumns.Location = New System.Drawing.Point(243, 104) - Me.ucrReceiverGetColumns.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverGetColumns.Name = "ucrReceiverGetColumns" - Me.ucrReceiverGetColumns.Selector = Nothing - Me.ucrReceiverGetColumns.Size = New System.Drawing.Size(137, 105) - Me.ucrReceiverGetColumns.strNcFilePath = "" - Me.ucrReceiverGetColumns.TabIndex = 49 - Me.ucrReceiverGetColumns.ucrSelector = Nothing - ' - 'ucrDataFrameGetDF - ' - Me.ucrDataFrameGetDF.AutoSize = True - Me.ucrDataFrameGetDF.bDropUnusedFilterLevels = False - Me.ucrDataFrameGetDF.bUseCurrentFilter = True - Me.ucrDataFrameGetDF.Location = New System.Drawing.Point(81, 55) - Me.ucrDataFrameGetDF.Margin = New System.Windows.Forms.Padding(0) - Me.ucrDataFrameGetDF.Name = "ucrDataFrameGetDF" - Me.ucrDataFrameGetDF.Size = New System.Drawing.Size(224, 59) - Me.ucrDataFrameGetDF.TabIndex = 31 - ' - 'ucrCboGetOutputObjectType - ' - Me.ucrCboGetOutputObjectType.AddQuotesIfUnrecognised = True - Me.ucrCboGetOutputObjectType.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrCboGetOutputObjectType.GetSetSelectedIndex = -1 - Me.ucrCboGetOutputObjectType.IsReadOnly = False - Me.ucrCboGetOutputObjectType.Location = New System.Drawing.Point(241, 72) - Me.ucrCboGetOutputObjectType.Margin = New System.Windows.Forms.Padding(9) - Me.ucrCboGetOutputObjectType.Name = "ucrCboGetOutputObjectType" - Me.ucrCboGetOutputObjectType.Size = New System.Drawing.Size(137, 21) - Me.ucrCboGetOutputObjectType.TabIndex = 47 - ' - 'ucrPnlGetData - ' - Me.ucrPnlGetData.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrPnlGetData.Location = New System.Drawing.Point(5, 10) - Me.ucrPnlGetData.Margin = New System.Windows.Forms.Padding(6) - Me.ucrPnlGetData.Name = "ucrPnlGetData" - Me.ucrPnlGetData.Size = New System.Drawing.Size(402, 36) - Me.ucrPnlGetData.TabIndex = 42 - ' - 'ucrSelectorGetObject - ' - Me.ucrSelectorGetObject.AutoSize = True - Me.ucrSelectorGetObject.bDropUnusedFilterLevels = False - Me.ucrSelectorGetObject.bShowHiddenColumns = False - Me.ucrSelectorGetObject.bUseCurrentFilter = True - Me.ucrSelectorGetObject.Location = New System.Drawing.Point(9, 52) - Me.ucrSelectorGetObject.Margin = New System.Windows.Forms.Padding(0) - Me.ucrSelectorGetObject.Name = "ucrSelectorGetObject" - Me.ucrSelectorGetObject.Size = New System.Drawing.Size(320, 274) - Me.ucrSelectorGetObject.TabIndex = 34 - ' - 'ucrChkWindow - ' - Me.ucrChkWindow.AutoSize = True - Me.ucrChkWindow.Checked = False - Me.ucrChkWindow.Location = New System.Drawing.Point(233, 94) - Me.ucrChkWindow.Name = "ucrChkWindow" - Me.ucrChkWindow.Size = New System.Drawing.Size(126, 23) - Me.ucrChkWindow.TabIndex = 67 - ' - 'ucrChkInto - ' - Me.ucrChkInto.AutoSize = True - Me.ucrChkInto.Checked = False - Me.ucrChkInto.Location = New System.Drawing.Point(233, 33) - Me.ucrChkInto.Name = "ucrChkInto" - Me.ucrChkInto.Size = New System.Drawing.Size(84, 23) - Me.ucrChkInto.TabIndex = 63 + Me.ucrChkInto.AutoSize = True + Me.ucrChkInto.Checked = False + Me.ucrChkInto.Location = New System.Drawing.Point(233, 33) + Me.ucrChkInto.Name = "ucrChkInto" + Me.ucrChkInto.Size = New System.Drawing.Size(84, 23) + Me.ucrChkInto.TabIndex = 63 ' 'ucrInputSaveData ' @@ -881,6 +842,65 @@ Partial Class dlgScript Me.ucrPnlCommands.Size = New System.Drawing.Size(429, 238) Me.ucrPnlCommands.TabIndex = 47 ' + 'tbPageExamples + ' + Me.tbPageExamples.Controls.Add(Me.cmdHelp) + Me.tbPageExamples.Controls.Add(Me.rdoExampleData) + Me.tbPageExamples.Controls.Add(Me.rdoExampleFunction) + Me.tbPageExamples.Controls.Add(Me.ucrPnlExample) + Me.tbPageExamples.Controls.Add(Me.lstExampleCollection) + Me.tbPageExamples.Controls.Add(Me.Label3) + Me.tbPageExamples.Controls.Add(Me.ucrCboExamplePackages) + Me.tbPageExamples.Location = New System.Drawing.Point(4, 22) + Me.tbPageExamples.Name = "tbPageExamples" + Me.tbPageExamples.Size = New System.Drawing.Size(438, 278) + Me.tbPageExamples.TabIndex = 4 + Me.tbPageExamples.Text = "Library" + Me.tbPageExamples.UseVisualStyleBackColor = True + ' + 'cmdHelp + ' + Me.cmdHelp.Location = New System.Drawing.Point(361, 4) + Me.cmdHelp.Name = "cmdHelp" + Me.cmdHelp.Size = New System.Drawing.Size(75, 23) + Me.cmdHelp.TabIndex = 61 + Me.cmdHelp.Text = "R Help" + Me.cmdHelp.UseVisualStyleBackColor = True + ' + 'rdoExampleData + ' + Me.rdoExampleData.Appearance = System.Windows.Forms.Appearance.Button + Me.rdoExampleData.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoExampleData.FlatAppearance.BorderSize = 2 + Me.rdoExampleData.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoExampleData.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.rdoExampleData.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.rdoExampleData.Location = New System.Drawing.Point(14, 54) + Me.rdoExampleData.Name = "rdoExampleData" + Me.rdoExampleData.Size = New System.Drawing.Size(80, 30) + Me.rdoExampleData.TabIndex = 57 + Me.rdoExampleData.TabStop = True + Me.rdoExampleData.Text = "Data" + Me.rdoExampleData.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.rdoExampleData.UseVisualStyleBackColor = True + ' + 'rdoExampleFunction + ' + Me.rdoExampleFunction.Appearance = System.Windows.Forms.Appearance.Button + Me.rdoExampleFunction.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoExampleFunction.FlatAppearance.BorderSize = 2 + Me.rdoExampleFunction.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoExampleFunction.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.rdoExampleFunction.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.rdoExampleFunction.Location = New System.Drawing.Point(92, 54) + Me.rdoExampleFunction.Name = "rdoExampleFunction" + Me.rdoExampleFunction.Size = New System.Drawing.Size(80, 30) + Me.rdoExampleFunction.TabIndex = 58 + Me.rdoExampleFunction.TabStop = True + Me.rdoExampleFunction.Text = "Function" + Me.rdoExampleFunction.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.rdoExampleFunction.UseVisualStyleBackColor = True + ' 'ucrPnlExample ' Me.ucrPnlExample.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink @@ -890,6 +910,42 @@ Partial Class dlgScript Me.ucrPnlExample.Size = New System.Drawing.Size(402, 34) Me.ucrPnlExample.TabIndex = 56 ' + 'lstExampleCollection + ' + Me.lstExampleCollection.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.clmDatasets, Me.clmDesc}) + Me.lstExampleCollection.FullRowSelect = True + Me.lstExampleCollection.HideSelection = False + Me.lstExampleCollection.Location = New System.Drawing.Point(3, 93) + Me.lstExampleCollection.MultiSelect = False + Me.lstExampleCollection.Name = "lstExampleCollection" + Me.lstExampleCollection.ShowGroups = False + Me.lstExampleCollection.ShowItemToolTips = True + Me.lstExampleCollection.Size = New System.Drawing.Size(415, 146) + Me.lstExampleCollection.Sorting = System.Windows.Forms.SortOrder.Ascending + Me.lstExampleCollection.TabIndex = 53 + Me.lstExampleCollection.UseCompatibleStateImageBehavior = False + Me.lstExampleCollection.View = System.Windows.Forms.View.Details + ' + 'clmDatasets + ' + Me.clmDatasets.Text = "Data" + Me.clmDatasets.Width = 142 + ' + 'clmDesc + ' + Me.clmDesc.Text = "Description" + Me.clmDesc.Width = 266 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(13, 5) + Me.Label3.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(50, 13) + Me.Label3.TabIndex = 52 + Me.Label3.Text = "Package" + ' 'ucrCboExamplePackages ' Me.ucrCboExamplePackages.AddQuotesIfUnrecognised = True @@ -902,11 +958,30 @@ Partial Class dlgScript Me.ucrCboExamplePackages.Size = New System.Drawing.Size(137, 21) Me.ucrCboExamplePackages.TabIndex = 51 ' + 'lblPreview + ' + Me.lblPreview.AutoSize = True + Me.lblPreview.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblPreview.Location = New System.Drawing.Point(9, 314) + Me.lblPreview.Name = "lblPreview" + Me.lblPreview.Size = New System.Drawing.Size(48, 13) + Me.lblPreview.TabIndex = 30 + Me.lblPreview.Text = "Preview:" + ' + 'txtScript + ' + Me.txtScript.Location = New System.Drawing.Point(5, 332) + Me.txtScript.Multiline = True + Me.txtScript.Name = "txtScript" + Me.txtScript.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtScript.Size = New System.Drawing.Size(445, 96) + Me.txtScript.TabIndex = 32 + ' 'ucrBase ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(6, 399) + Me.ucrBase.Location = New System.Drawing.Point(6, 431) Me.ucrBase.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrBase.Name = "ucrBase" Me.ucrBase.Size = New System.Drawing.Size(408, 52) @@ -917,7 +992,7 @@ Partial Class dlgScript Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi Me.AutoSize = True - Me.ClientSize = New System.Drawing.Size(458, 458) + Me.ClientSize = New System.Drawing.Size(458, 489) Me.Controls.Add(Me.txtScript) Me.Controls.Add(Me.lblPreview) Me.Controls.Add(Me.tbFeatures) @@ -1009,4 +1084,10 @@ Partial Class dlgScript Friend WithEvents rdoFromRFile As RadioButton Friend WithEvents rdoDataFrame As RadioButton Friend WithEvents ucrPnlSaveDataFrame As UcrPanel + Friend WithEvents lblSaveText As Label + Friend WithEvents lblSaveDataFrame As Label + Friend WithEvents lblSaveColumn As Label + Friend WithEvents ucrInputDataframeColumn As ucrInputTextBox + Friend WithEvents ucrInputSaveColumn As ucrInputTextBox + Friend WithEvents rdoVariable As RadioButton End Class diff --git a/instat/dlgScript.vb b/instat/dlgScript.vb index 56b6fca3e7..2f8f71f0b7 100644 --- a/instat/dlgScript.vb +++ b/instat/dlgScript.vb @@ -78,6 +78,7 @@ Public Class dlgScript ucrPnlSaveDataFrame.AddRadioButton(rdoDataFrame) ucrPnlSaveDataFrame.AddRadioButton(rdoFromRFile) + ucrPnlSaveDataFrame.AddRadioButton(rdoVariable) ucrChkSaveDataFrameSingle.SetText("Single") @@ -777,6 +778,11 @@ Public Class dlgScript Private Sub HideShowSaveDataFrameControls() ucrInputSaveRFile.SetVisible(False) ucrInputSaveDataFrame.SetVisible(False) + ucrInputSaveColumn.SetVisible(False) + ucrInputDataframeColumn.SetVisible(False) + lblSaveColumn.Visible = False + lblSaveDataFrame.Visible = False + lblSaveText.Visible = False ucrChkSaveDataFrameSingle.SetVisible(False) If rdoDataFrame.Checked Then ucrInputSaveDataFrame.SetVisible(True) @@ -786,7 +792,52 @@ Public Class dlgScript ElseIf rdoFromRFile.Checked Then ucrInputSaveRFile.SetVisible(True) ucrInputSaveRFile.OnControlValueChanged() + ElseIf rdoVariable.Checked Then + ucrInputSaveColumn.SetVisible(True) + ucrInputDataframeColumn.SetVisible(True) + lblSaveText.Visible = True + lblSaveColumn.Visible = True + lblSaveDataFrame.Visible = True + ucrChkSaveDataFrameSingle.SetVisible(True) + ucrInputSaveDataFrame.OnControlValueChanged() End If End Sub + Private Sub ucrInputDataframeColumn_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrInputDataframeColumn.ControlContentsChanged, ucrInputSaveColumn.ControlContentsChanged, + ucrChkSaveDataFrameSingle.ControlContentsChanged + Dim strScript As String = "" + + If rdoVariable.Checked Then + If Not ucrInputDataframeColumn.IsEmpty() AndAlso Not ucrInputSaveColumn.IsEmpty Then + Dim clsDataFrameFunction As New RFunction + Dim clsImportRFunction As New RFunction + Dim strColumneName As String = ucrInputSaveColumn.GetText() + Dim strDataFrameName As String = ucrInputDataframeColumn.GetText() + + clsImportRFunction.SetRCommand(frmMain.clsRLink.strInstatDataObject & "$import_data") + clsDataFrameFunction.SetRCommand("data.frame") + + Dim strAssignedScript As String = "" + clsDataFrameFunction.AddParameter("dataframe", ucrInputSaveColumn.GetText(), bIncludeArgumentName:=False) + clsDataFrameFunction.SetAssignTo(ucrInputDataframeColumn.GetText) + clsDataFrameFunction.ToScript(strScript:=strAssignedScript) + + If ucrChkSaveDataFrameSingle.Checked Then + ' If it's a single data frame then wrap it into a list + Dim clsDataListRFunction As New RFunction + clsDataListRFunction.SetRCommand("list") + clsDataListRFunction.AddParameter(strParameterName:=strDataFrameName, strParameterValue:=strDataFrameName) + clsImportRFunction.AddParameter(strParameterName:="data_tables", clsRFunctionParameter:=clsDataListRFunction) + Else + ' If it's already a list of data frames, then add the name directly + clsImportRFunction.AddParameter(strParameterName:="data_tables", strParameterValue:=strDataFrameName) + End If + + strScript = "# Save variables " & """" & strColumneName & """" & " into data frame " & """" & strDataFrameName & """" & Environment.NewLine & strAssignedScript & clsImportRFunction.ToScript() + + End If + End If + PreviewScript(strScript) + End Sub + End Class \ No newline at end of file