diff --git a/instat/DlgDefineClimaticData.Designer.vb b/instat/DlgDefineClimaticData.Designer.vb index cfd7f27a21e..d50f0fef080 100644 --- a/instat/DlgDefineClimaticData.Designer.vb +++ b/instat/DlgDefineClimaticData.Designer.vb @@ -38,11 +38,7 @@ Partial Class DlgDefineClimaticData 'Do not modify it using the code editor. Private Sub InitializeComponent() - Me.ucrChkLinkedMetaData = New instat.ucrCheck() - Me.ucrSelectorLinkedDataFrame = New instat.ucrSelectorByDataFrameAddRemove() - Me.ucrInputCheckInput = New instat.ucrInputTextBox() Me.cmdCheckUnique = New System.Windows.Forms.Button() - Me.ucrSelectorDefineClimaticData = New instat.ucrSelectorByDataFrameAddRemove() Me.lblStationName = New System.Windows.Forms.Label() Me.lblDOY = New System.Windows.Forms.Label() Me.lblLongitude = New System.Windows.Forms.Label() @@ -53,7 +49,6 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverLongitude = New instat.ucrReceiverSingle() Me.ucrReceiverLatitude = New instat.ucrReceiverSingle() Me.ucrReceiverAltitude = New instat.ucrReceiverSingle() - Me.ucrBase = New instat.ucrButtons() Me.grpDateTime = New System.Windows.Forms.GroupBox() Me.ucrReceiverYear = New instat.ucrReceiverSingle() Me.lblDate = New System.Windows.Forms.Label() @@ -68,11 +63,11 @@ Partial Class DlgDefineClimaticData Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() + Me.grpMeta = New System.Windows.Forms.GroupBox() Me.ucrReceiverStationMeta = New instat.ucrReceiverSingle() Me.ucrReceiverLonMeta = New instat.ucrReceiverSingle() Me.ucrReceiverLatMeta = New instat.ucrReceiverSingle() Me.ucrReceiverAltMeta = New instat.ucrReceiverSingle() - Me.grpMeta = New System.Windows.Forms.GroupBox() Me.lblRain = New System.Windows.Forms.Label() Me.grpElements = New System.Windows.Forms.GroupBox() Me.ucrReceiverMaxRH = New instat.ucrReceiverSingle() @@ -94,46 +89,17 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverMinTemp = New instat.ucrReceiverSingle() Me.lblWindSpeed = New System.Windows.Forms.Label() Me.lblWindDirection = New System.Windows.Forms.Label() + Me.ucrChkLinkedMetaData = New instat.ucrCheck() + Me.ucrSelectorLinkedDataFrame = New instat.ucrSelectorByDataFrameAddRemove() + Me.ucrInputCheckInput = New instat.ucrInputTextBox() + Me.ucrSelectorDefineClimaticData = New instat.ucrSelectorByDataFrameAddRemove() + Me.ucrBase = New instat.ucrButtons() Me.grpStation.SuspendLayout() Me.grpDateTime.SuspendLayout() Me.grpMeta.SuspendLayout() Me.grpElements.SuspendLayout() Me.SuspendLayout() ' - 'ucrChkLinkedMetaData - ' - Me.ucrChkLinkedMetaData.AutoSize = True - Me.ucrChkLinkedMetaData.Checked = False - Me.ucrChkLinkedMetaData.Location = New System.Drawing.Point(16, 204) - Me.ucrChkLinkedMetaData.Margin = New System.Windows.Forms.Padding(6) - Me.ucrChkLinkedMetaData.Name = "ucrChkLinkedMetaData" - Me.ucrChkLinkedMetaData.Size = New System.Drawing.Size(195, 23) - Me.ucrChkLinkedMetaData.TabIndex = 21 - ' - 'ucrSelectorLinkedDataFrame - ' - Me.ucrSelectorLinkedDataFrame.AutoSize = True - Me.ucrSelectorLinkedDataFrame.bDropUnusedFilterLevels = False - Me.ucrSelectorLinkedDataFrame.bShowHiddenColumns = False - Me.ucrSelectorLinkedDataFrame.bUseCurrentFilter = True - Me.ucrSelectorLinkedDataFrame.Location = New System.Drawing.Point(16, 224) - Me.ucrSelectorLinkedDataFrame.Margin = New System.Windows.Forms.Padding(0) - Me.ucrSelectorLinkedDataFrame.Name = "ucrSelectorLinkedDataFrame" - Me.ucrSelectorLinkedDataFrame.Size = New System.Drawing.Size(213, 183) - Me.ucrSelectorLinkedDataFrame.TabIndex = 20 - ' - 'ucrInputCheckInput - ' - Me.ucrInputCheckInput.AddQuotesIfUnrecognised = True - Me.ucrInputCheckInput.AutoSize = True - Me.ucrInputCheckInput.IsMultiline = False - Me.ucrInputCheckInput.IsReadOnly = False - Me.ucrInputCheckInput.Location = New System.Drawing.Point(147, 439) - Me.ucrInputCheckInput.Margin = New System.Windows.Forms.Padding(9) - Me.ucrInputCheckInput.Name = "ucrInputCheckInput" - Me.ucrInputCheckInput.Size = New System.Drawing.Size(253, 21) - Me.ucrInputCheckInput.TabIndex = 18 - ' 'cmdCheckUnique ' Me.cmdCheckUnique.ImeMode = System.Windows.Forms.ImeMode.NoControl @@ -144,18 +110,6 @@ Partial Class DlgDefineClimaticData Me.cmdCheckUnique.Text = "Check Duplicates" Me.cmdCheckUnique.UseVisualStyleBackColor = True ' - 'ucrSelectorDefineClimaticData - ' - Me.ucrSelectorDefineClimaticData.AutoSize = True - Me.ucrSelectorDefineClimaticData.bDropUnusedFilterLevels = False - Me.ucrSelectorDefineClimaticData.bShowHiddenColumns = False - Me.ucrSelectorDefineClimaticData.bUseCurrentFilter = True - Me.ucrSelectorDefineClimaticData.Location = New System.Drawing.Point(16, 9) - Me.ucrSelectorDefineClimaticData.Margin = New System.Windows.Forms.Padding(0) - Me.ucrSelectorDefineClimaticData.Name = "ucrSelectorDefineClimaticData" - Me.ucrSelectorDefineClimaticData.Size = New System.Drawing.Size(213, 183) - Me.ucrSelectorDefineClimaticData.TabIndex = 13 - ' 'lblStationName ' Me.lblStationName.AutoSize = True @@ -218,7 +172,7 @@ Partial Class DlgDefineClimaticData Me.grpStation.Controls.Add(Me.ucrReceiverAltitude) Me.grpStation.Location = New System.Drawing.Point(242, 234) Me.grpStation.Name = "grpStation" - Me.grpStation.Size = New System.Drawing.Size(112, 173) + Me.grpStation.Size = New System.Drawing.Size(126, 173) Me.grpStation.TabIndex = 14 Me.grpStation.TabStop = False Me.grpStation.Tag = "" @@ -232,9 +186,9 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverStation.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverStation.Name = "ucrReceiverStation" Me.ucrReceiverStation.Selector = Nothing - Me.ucrReceiverStation.Size = New System.Drawing.Size(93, 20) + Me.ucrReceiverStation.Size = New System.Drawing.Size(100, 20) Me.ucrReceiverStation.strNcFilePath = "" - Me.ucrReceiverStation.TabIndex = 8 + Me.ucrReceiverStation.TabIndex = 6 Me.ucrReceiverStation.ucrSelector = Nothing ' 'ucrReceiverLongitude @@ -245,9 +199,9 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverLongitude.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverLongitude.Name = "ucrReceiverLongitude" Me.ucrReceiverLongitude.Selector = Nothing - Me.ucrReceiverLongitude.Size = New System.Drawing.Size(93, 20) + Me.ucrReceiverLongitude.Size = New System.Drawing.Size(100, 20) Me.ucrReceiverLongitude.strNcFilePath = "" - Me.ucrReceiverLongitude.TabIndex = 10 + Me.ucrReceiverLongitude.TabIndex = 8 Me.ucrReceiverLongitude.ucrSelector = Nothing ' 'ucrReceiverLatitude @@ -258,9 +212,9 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverLatitude.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverLatitude.Name = "ucrReceiverLatitude" Me.ucrReceiverLatitude.Selector = Nothing - Me.ucrReceiverLatitude.Size = New System.Drawing.Size(93, 20) + Me.ucrReceiverLatitude.Size = New System.Drawing.Size(100, 20) Me.ucrReceiverLatitude.strNcFilePath = "" - Me.ucrReceiverLatitude.TabIndex = 9 + Me.ucrReceiverLatitude.TabIndex = 7 Me.ucrReceiverLatitude.ucrSelector = Nothing ' 'ucrReceiverAltitude @@ -271,21 +225,11 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverAltitude.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverAltitude.Name = "ucrReceiverAltitude" Me.ucrReceiverAltitude.Selector = Nothing - Me.ucrReceiverAltitude.Size = New System.Drawing.Size(93, 20) + Me.ucrReceiverAltitude.Size = New System.Drawing.Size(100, 20) Me.ucrReceiverAltitude.strNcFilePath = "" - Me.ucrReceiverAltitude.TabIndex = 11 + Me.ucrReceiverAltitude.TabIndex = 9 Me.ucrReceiverAltitude.ucrSelector = Nothing ' - 'ucrBase - ' - Me.ucrBase.AutoSize = True - Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(6, 476) - Me.ucrBase.Margin = New System.Windows.Forms.Padding(4) - Me.ucrBase.Name = "ucrBase" - Me.ucrBase.Size = New System.Drawing.Size(408, 52) - Me.ucrBase.TabIndex = 19 - ' 'grpDateTime ' Me.grpDateTime.Controls.Add(Me.lblDOY) @@ -298,7 +242,7 @@ Partial Class DlgDefineClimaticData Me.grpDateTime.Controls.Add(Me.ucrReceiverMonth) Me.grpDateTime.Controls.Add(Me.ucrReceiverDay) Me.grpDateTime.Controls.Add(Me.lblDay) - Me.grpDateTime.Location = New System.Drawing.Point(372, 234) + Me.grpDateTime.Location = New System.Drawing.Point(242, 12) Me.grpDateTime.Name = "grpDateTime" Me.grpDateTime.Size = New System.Drawing.Size(126, 196) Me.grpDateTime.TabIndex = 15 @@ -316,7 +260,7 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverYear.Selector = Nothing Me.ucrReceiverYear.Size = New System.Drawing.Size(98, 20) Me.ucrReceiverYear.strNcFilePath = "" - Me.ucrReceiverYear.TabIndex = 3 + Me.ucrReceiverYear.TabIndex = 2 Me.ucrReceiverYear.ucrSelector = Nothing ' 'lblDate @@ -349,7 +293,7 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverDOY.Selector = Nothing Me.ucrReceiverDOY.Size = New System.Drawing.Size(98, 20) Me.ucrReceiverDOY.strNcFilePath = "" - Me.ucrReceiverDOY.TabIndex = 9 + Me.ucrReceiverDOY.TabIndex = 5 Me.ucrReceiverDOY.ucrSelector = Nothing ' 'lblYear @@ -385,7 +329,7 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverMonth.Selector = Nothing Me.ucrReceiverMonth.Size = New System.Drawing.Size(98, 20) Me.ucrReceiverMonth.strNcFilePath = "" - Me.ucrReceiverMonth.TabIndex = 5 + Me.ucrReceiverMonth.TabIndex = 3 Me.ucrReceiverMonth.ucrSelector = Nothing ' 'ucrReceiverDay @@ -398,7 +342,7 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverDay.Selector = Nothing Me.ucrReceiverDay.Size = New System.Drawing.Size(98, 20) Me.ucrReceiverDay.strNcFilePath = "" - Me.ucrReceiverDay.TabIndex = 7 + Me.ucrReceiverDay.TabIndex = 4 Me.ucrReceiverDay.ucrSelector = Nothing ' 'lblDay @@ -451,6 +395,24 @@ Partial Class DlgDefineClimaticData Me.Label4.TabIndex = 0 Me.Label4.Text = "Name:" ' + 'grpMeta + ' + Me.grpMeta.Controls.Add(Me.Label1) + Me.grpMeta.Controls.Add(Me.Label2) + Me.grpMeta.Controls.Add(Me.Label3) + Me.grpMeta.Controls.Add(Me.Label4) + Me.grpMeta.Controls.Add(Me.ucrReceiverStationMeta) + Me.grpMeta.Controls.Add(Me.ucrReceiverLonMeta) + Me.grpMeta.Controls.Add(Me.ucrReceiverLatMeta) + Me.grpMeta.Controls.Add(Me.ucrReceiverAltMeta) + Me.grpMeta.Location = New System.Drawing.Point(242, 234) + Me.grpMeta.Name = "grpMeta" + Me.grpMeta.Size = New System.Drawing.Size(112, 173) + Me.grpMeta.TabIndex = 22 + Me.grpMeta.TabStop = False + Me.grpMeta.Tag = "" + Me.grpMeta.Text = "Station" + ' 'ucrReceiverStationMeta ' Me.ucrReceiverStationMeta.AutoSize = True @@ -503,24 +465,6 @@ Partial Class DlgDefineClimaticData Me.ucrReceiverAltMeta.TabIndex = 11 Me.ucrReceiverAltMeta.ucrSelector = Nothing ' - 'grpMeta - ' - Me.grpMeta.Controls.Add(Me.Label1) - Me.grpMeta.Controls.Add(Me.Label2) - Me.grpMeta.Controls.Add(Me.Label3) - Me.grpMeta.Controls.Add(Me.Label4) - Me.grpMeta.Controls.Add(Me.ucrReceiverStationMeta) - Me.grpMeta.Controls.Add(Me.ucrReceiverLonMeta) - Me.grpMeta.Controls.Add(Me.ucrReceiverLatMeta) - Me.grpMeta.Controls.Add(Me.ucrReceiverAltMeta) - Me.grpMeta.Location = New System.Drawing.Point(242, 234) - Me.grpMeta.Name = "grpMeta" - Me.grpMeta.Size = New System.Drawing.Size(112, 173) - Me.grpMeta.TabIndex = 22 - Me.grpMeta.TabStop = False - Me.grpMeta.Tag = "" - Me.grpMeta.Text = "Station" - ' 'lblRain ' Me.lblRain.AutoSize = True @@ -553,9 +497,9 @@ Partial Class DlgDefineClimaticData Me.grpElements.Controls.Add(Me.ucrReceiverMinTemp) Me.grpElements.Controls.Add(Me.lblWindSpeed) Me.grpElements.Controls.Add(Me.lblWindDirection) - Me.grpElements.Location = New System.Drawing.Point(238, 6) + Me.grpElements.Location = New System.Drawing.Point(374, 12) Me.grpElements.Name = "grpElements" - Me.grpElements.Size = New System.Drawing.Size(260, 225) + Me.grpElements.Size = New System.Drawing.Size(151, 395) Me.grpElements.TabIndex = 16 Me.grpElements.TabStop = False Me.grpElements.Text = "Elements" @@ -564,11 +508,11 @@ Partial Class DlgDefineClimaticData ' Me.ucrReceiverMaxRH.AutoSize = True Me.ucrReceiverMaxRH.frmParent = Me - Me.ucrReceiverMaxRH.Location = New System.Drawing.Point(144, 193) + Me.ucrReceiverMaxRH.Location = New System.Drawing.Point(18, 366) Me.ucrReceiverMaxRH.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverMaxRH.Name = "ucrReceiverMaxRH" Me.ucrReceiverMaxRH.Selector = Nothing - Me.ucrReceiverMaxRH.Size = New System.Drawing.Size(99, 20) + Me.ucrReceiverMaxRH.Size = New System.Drawing.Size(116, 20) Me.ucrReceiverMaxRH.strNcFilePath = "" Me.ucrReceiverMaxRH.TabIndex = 19 Me.ucrReceiverMaxRH.ucrSelector = Nothing @@ -577,7 +521,7 @@ Partial Class DlgDefineClimaticData ' Me.lblMaxRH.AutoSize = True Me.lblMaxRH.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblMaxRH.Location = New System.Drawing.Point(141, 178) + Me.lblMaxRH.Location = New System.Drawing.Point(15, 351) Me.lblMaxRH.Name = "lblMaxRH" Me.lblMaxRH.Size = New System.Drawing.Size(90, 13) Me.lblMaxRH.TabIndex = 18 @@ -587,20 +531,20 @@ Partial Class DlgDefineClimaticData ' Me.ucrReceiverMinRH.AutoSize = True Me.ucrReceiverMinRH.frmParent = Me - Me.ucrReceiverMinRH.Location = New System.Drawing.Point(144, 152) + Me.ucrReceiverMinRH.Location = New System.Drawing.Point(18, 330) Me.ucrReceiverMinRH.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverMinRH.Name = "ucrReceiverMinRH" Me.ucrReceiverMinRH.Selector = Nothing - Me.ucrReceiverMinRH.Size = New System.Drawing.Size(99, 20) + Me.ucrReceiverMinRH.Size = New System.Drawing.Size(116, 20) Me.ucrReceiverMinRH.strNcFilePath = "" - Me.ucrReceiverMinRH.TabIndex = 17 + Me.ucrReceiverMinRH.TabIndex = 18 Me.ucrReceiverMinRH.ucrSelector = Nothing ' 'lblMinimumRH ' Me.lblMinimumRH.AutoSize = True Me.lblMinimumRH.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblMinimumRH.Location = New System.Drawing.Point(141, 137) + Me.lblMinimumRH.Location = New System.Drawing.Point(15, 315) Me.lblMinimumRH.Name = "lblMinimumRH" Me.lblMinimumRH.Size = New System.Drawing.Size(87, 13) Me.lblMinimumRH.TabIndex = 16 @@ -610,85 +554,85 @@ Partial Class DlgDefineClimaticData ' Me.ucrReceiverWindDirection.AutoSize = True Me.ucrReceiverWindDirection.frmParent = Me - Me.ucrReceiverWindDirection.Location = New System.Drawing.Point(18, 193) + Me.ucrReceiverWindDirection.Location = New System.Drawing.Point(18, 177) Me.ucrReceiverWindDirection.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverWindDirection.Name = "ucrReceiverWindDirection" Me.ucrReceiverWindDirection.Selector = Nothing Me.ucrReceiverWindDirection.Size = New System.Drawing.Size(111, 20) Me.ucrReceiverWindDirection.strNcFilePath = "" - Me.ucrReceiverWindDirection.TabIndex = 9 + Me.ucrReceiverWindDirection.TabIndex = 14 Me.ucrReceiverWindDirection.ucrSelector = Nothing ' 'ucrReceiverRain ' Me.ucrReceiverRain.AutoSize = True Me.ucrReceiverRain.frmParent = Me - Me.ucrReceiverRain.Location = New System.Drawing.Point(18, 31) + Me.ucrReceiverRain.Location = New System.Drawing.Point(18, 30) Me.ucrReceiverRain.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverRain.Name = "ucrReceiverRain" Me.ucrReceiverRain.Selector = Nothing Me.ucrReceiverRain.Size = New System.Drawing.Size(111, 20) Me.ucrReceiverRain.strNcFilePath = "" - Me.ucrReceiverRain.TabIndex = 1 + Me.ucrReceiverRain.TabIndex = 10 Me.ucrReceiverRain.ucrSelector = Nothing ' 'ucrReceiverSunshine ' Me.ucrReceiverSunshine.AutoSize = True Me.ucrReceiverSunshine.frmParent = Me - Me.ucrReceiverSunshine.Location = New System.Drawing.Point(144, 31) + Me.ucrReceiverSunshine.Location = New System.Drawing.Point(18, 215) Me.ucrReceiverSunshine.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverSunshine.Name = "ucrReceiverSunshine" Me.ucrReceiverSunshine.Selector = Nothing - Me.ucrReceiverSunshine.Size = New System.Drawing.Size(99, 20) + Me.ucrReceiverSunshine.Size = New System.Drawing.Size(116, 20) Me.ucrReceiverSunshine.strNcFilePath = "" - Me.ucrReceiverSunshine.TabIndex = 11 + Me.ucrReceiverSunshine.TabIndex = 15 Me.ucrReceiverSunshine.ucrSelector = Nothing ' 'ucrReceiverRadiation ' Me.ucrReceiverRadiation.AutoSize = True Me.ucrReceiverRadiation.frmParent = Me - Me.ucrReceiverRadiation.Location = New System.Drawing.Point(144, 70) + Me.ucrReceiverRadiation.Location = New System.Drawing.Point(18, 254) Me.ucrReceiverRadiation.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverRadiation.Name = "ucrReceiverRadiation" Me.ucrReceiverRadiation.Selector = Nothing - Me.ucrReceiverRadiation.Size = New System.Drawing.Size(99, 20) + Me.ucrReceiverRadiation.Size = New System.Drawing.Size(116, 20) Me.ucrReceiverRadiation.strNcFilePath = "" - Me.ucrReceiverRadiation.TabIndex = 13 + Me.ucrReceiverRadiation.TabIndex = 16 Me.ucrReceiverRadiation.ucrSelector = Nothing ' 'ucrReceiverMaxTemp ' Me.ucrReceiverMaxTemp.AutoSize = True Me.ucrReceiverMaxTemp.frmParent = Me - Me.ucrReceiverMaxTemp.Location = New System.Drawing.Point(18, 111) + Me.ucrReceiverMaxTemp.Location = New System.Drawing.Point(18, 103) Me.ucrReceiverMaxTemp.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverMaxTemp.Name = "ucrReceiverMaxTemp" Me.ucrReceiverMaxTemp.Selector = Nothing Me.ucrReceiverMaxTemp.Size = New System.Drawing.Size(111, 20) Me.ucrReceiverMaxTemp.strNcFilePath = "" - Me.ucrReceiverMaxTemp.TabIndex = 5 + Me.ucrReceiverMaxTemp.TabIndex = 12 Me.ucrReceiverMaxTemp.ucrSelector = Nothing ' 'ucrReceiverCloudCover ' Me.ucrReceiverCloudCover.AutoSize = True Me.ucrReceiverCloudCover.frmParent = Me - Me.ucrReceiverCloudCover.Location = New System.Drawing.Point(144, 111) + Me.ucrReceiverCloudCover.Location = New System.Drawing.Point(18, 292) Me.ucrReceiverCloudCover.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverCloudCover.Name = "ucrReceiverCloudCover" Me.ucrReceiverCloudCover.Selector = Nothing - Me.ucrReceiverCloudCover.Size = New System.Drawing.Size(99, 20) + Me.ucrReceiverCloudCover.Size = New System.Drawing.Size(116, 20) Me.ucrReceiverCloudCover.strNcFilePath = "" - Me.ucrReceiverCloudCover.TabIndex = 15 + Me.ucrReceiverCloudCover.TabIndex = 17 Me.ucrReceiverCloudCover.ucrSelector = Nothing ' 'lblMaxTemp ' Me.lblMaxTemp.AutoSize = True Me.lblMaxTemp.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblMaxTemp.Location = New System.Drawing.Point(15, 96) + Me.lblMaxTemp.Location = New System.Drawing.Point(15, 88) Me.lblMaxTemp.Name = "lblMaxTemp" Me.lblMaxTemp.Size = New System.Drawing.Size(117, 13) Me.lblMaxTemp.TabIndex = 4 @@ -698,7 +642,7 @@ Partial Class DlgDefineClimaticData ' Me.lblCloudCover.AutoSize = True Me.lblCloudCover.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblCloudCover.Location = New System.Drawing.Point(141, 96) + Me.lblCloudCover.Location = New System.Drawing.Point(15, 277) Me.lblCloudCover.Name = "lblCloudCover" Me.lblCloudCover.Size = New System.Drawing.Size(68, 13) Me.lblCloudCover.TabIndex = 14 @@ -708,17 +652,17 @@ Partial Class DlgDefineClimaticData ' Me.lblMinTemp.AutoSize = True Me.lblMinTemp.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblMinTemp.Location = New System.Drawing.Point(15, 55) + Me.lblMinTemp.Location = New System.Drawing.Point(15, 51) Me.lblMinTemp.Name = "lblMinTemp" - Me.lblMinTemp.Size = New System.Drawing.Size(111, 13) + Me.lblMinTemp.Size = New System.Drawing.Size(114, 13) Me.lblMinTemp.TabIndex = 2 - Me.lblMinTemp.Text = "Minimum Temperature" + Me.lblMinTemp.Text = "Minimum Temperature:" ' 'lblRadiation ' Me.lblRadiation.AutoSize = True Me.lblRadiation.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblRadiation.Location = New System.Drawing.Point(141, 55) + Me.lblRadiation.Location = New System.Drawing.Point(15, 239) Me.lblRadiation.Name = "lblRadiation" Me.lblRadiation.Size = New System.Drawing.Size(55, 13) Me.lblRadiation.TabIndex = 12 @@ -728,20 +672,20 @@ Partial Class DlgDefineClimaticData ' Me.ucrReceiverWindSpeed.AutoSize = True Me.ucrReceiverWindSpeed.frmParent = Me - Me.ucrReceiverWindSpeed.Location = New System.Drawing.Point(18, 152) + Me.ucrReceiverWindSpeed.Location = New System.Drawing.Point(18, 140) Me.ucrReceiverWindSpeed.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverWindSpeed.Name = "ucrReceiverWindSpeed" Me.ucrReceiverWindSpeed.Selector = Nothing Me.ucrReceiverWindSpeed.Size = New System.Drawing.Size(111, 20) Me.ucrReceiverWindSpeed.strNcFilePath = "" - Me.ucrReceiverWindSpeed.TabIndex = 7 + Me.ucrReceiverWindSpeed.TabIndex = 13 Me.ucrReceiverWindSpeed.ucrSelector = Nothing ' 'lblSunshine ' Me.lblSunshine.AutoSize = True Me.lblSunshine.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblSunshine.Location = New System.Drawing.Point(141, 15) + Me.lblSunshine.Location = New System.Drawing.Point(15, 199) Me.lblSunshine.Name = "lblSunshine" Me.lblSunshine.Size = New System.Drawing.Size(85, 13) Me.lblSunshine.TabIndex = 10 @@ -751,20 +695,20 @@ Partial Class DlgDefineClimaticData ' Me.ucrReceiverMinTemp.AutoSize = True Me.ucrReceiverMinTemp.frmParent = Me - Me.ucrReceiverMinTemp.Location = New System.Drawing.Point(18, 70) + Me.ucrReceiverMinTemp.Location = New System.Drawing.Point(18, 66) Me.ucrReceiverMinTemp.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverMinTemp.Name = "ucrReceiverMinTemp" Me.ucrReceiverMinTemp.Selector = Nothing Me.ucrReceiverMinTemp.Size = New System.Drawing.Size(111, 20) Me.ucrReceiverMinTemp.strNcFilePath = "" - Me.ucrReceiverMinTemp.TabIndex = 3 + Me.ucrReceiverMinTemp.TabIndex = 11 Me.ucrReceiverMinTemp.ucrSelector = Nothing ' 'lblWindSpeed ' Me.lblWindSpeed.AutoSize = True Me.lblWindSpeed.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblWindSpeed.Location = New System.Drawing.Point(15, 137) + Me.lblWindSpeed.Location = New System.Drawing.Point(15, 125) Me.lblWindSpeed.Name = "lblWindSpeed" Me.lblWindSpeed.Size = New System.Drawing.Size(69, 13) Me.lblWindSpeed.TabIndex = 6 @@ -774,18 +718,74 @@ Partial Class DlgDefineClimaticData ' Me.lblWindDirection.AutoSize = True Me.lblWindDirection.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblWindDirection.Location = New System.Drawing.Point(15, 178) + Me.lblWindDirection.Location = New System.Drawing.Point(15, 162) Me.lblWindDirection.Name = "lblWindDirection" Me.lblWindDirection.Size = New System.Drawing.Size(80, 13) Me.lblWindDirection.TabIndex = 8 Me.lblWindDirection.Text = "Wind Direction:" ' + 'ucrChkLinkedMetaData + ' + Me.ucrChkLinkedMetaData.AutoSize = True + Me.ucrChkLinkedMetaData.Checked = False + Me.ucrChkLinkedMetaData.Location = New System.Drawing.Point(16, 204) + Me.ucrChkLinkedMetaData.Margin = New System.Windows.Forms.Padding(6) + Me.ucrChkLinkedMetaData.Name = "ucrChkLinkedMetaData" + Me.ucrChkLinkedMetaData.Size = New System.Drawing.Size(195, 23) + Me.ucrChkLinkedMetaData.TabIndex = 21 + ' + 'ucrSelectorLinkedDataFrame + ' + Me.ucrSelectorLinkedDataFrame.AutoSize = True + Me.ucrSelectorLinkedDataFrame.bDropUnusedFilterLevels = False + Me.ucrSelectorLinkedDataFrame.bShowHiddenColumns = False + Me.ucrSelectorLinkedDataFrame.bUseCurrentFilter = True + Me.ucrSelectorLinkedDataFrame.Location = New System.Drawing.Point(16, 224) + Me.ucrSelectorLinkedDataFrame.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorLinkedDataFrame.Name = "ucrSelectorLinkedDataFrame" + Me.ucrSelectorLinkedDataFrame.Size = New System.Drawing.Size(213, 183) + Me.ucrSelectorLinkedDataFrame.TabIndex = 20 + ' + 'ucrInputCheckInput + ' + Me.ucrInputCheckInput.AddQuotesIfUnrecognised = True + Me.ucrInputCheckInput.AutoSize = True + Me.ucrInputCheckInput.IsMultiline = False + Me.ucrInputCheckInput.IsReadOnly = False + Me.ucrInputCheckInput.Location = New System.Drawing.Point(147, 439) + Me.ucrInputCheckInput.Margin = New System.Windows.Forms.Padding(9) + Me.ucrInputCheckInput.Name = "ucrInputCheckInput" + Me.ucrInputCheckInput.Size = New System.Drawing.Size(253, 21) + Me.ucrInputCheckInput.TabIndex = 18 + ' + 'ucrSelectorDefineClimaticData + ' + Me.ucrSelectorDefineClimaticData.AutoSize = True + Me.ucrSelectorDefineClimaticData.bDropUnusedFilterLevels = False + Me.ucrSelectorDefineClimaticData.bShowHiddenColumns = False + Me.ucrSelectorDefineClimaticData.bUseCurrentFilter = True + Me.ucrSelectorDefineClimaticData.Location = New System.Drawing.Point(16, 9) + Me.ucrSelectorDefineClimaticData.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorDefineClimaticData.Name = "ucrSelectorDefineClimaticData" + Me.ucrSelectorDefineClimaticData.Size = New System.Drawing.Size(213, 183) + Me.ucrSelectorDefineClimaticData.TabIndex = 13 + ' + 'ucrBase + ' + Me.ucrBase.AutoSize = True + Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrBase.Location = New System.Drawing.Point(6, 476) + Me.ucrBase.Margin = New System.Windows.Forms.Padding(4) + Me.ucrBase.Name = "ucrBase" + Me.ucrBase.Size = New System.Drawing.Size(408, 52) + Me.ucrBase.TabIndex = 19 + ' 'DlgDefineClimaticData ' 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(502, 460) + Me.ClientSize = New System.Drawing.Size(533, 531) Me.Controls.Add(Me.ucrChkLinkedMetaData) Me.Controls.Add(Me.ucrSelectorLinkedDataFrame) Me.Controls.Add(Me.ucrInputCheckInput) diff --git a/instat/dlgBarAndPieChart.Designer.vb b/instat/dlgBarAndPieChart.Designer.vb index 7e857d855c2..a319b8a4e5d 100644 --- a/instat/dlgBarAndPieChart.Designer.vb +++ b/instat/dlgBarAndPieChart.Designer.vb @@ -67,9 +67,10 @@ Partial Class dlgBarAndPieChart Me.contextMenuStripOptions = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.toolStripMenuItemPlotOptions = New System.Windows.Forms.ToolStripMenuItem() Me.toolStripMenuItemBarchartOptions = New System.Windows.Forms.ToolStripMenuItem() - Me.toolStripMenuItemLollipopOptions = New System.Windows.Forms.ToolStripMenuItem() Me.toolStripMenuItemTextOptions = New System.Windows.Forms.ToolStripMenuItem() + Me.toolStripMenuItemLollipopOptions = New System.Windows.Forms.ToolStripMenuItem() Me.toolStripMenuItemTreemapOptions = New System.Windows.Forms.ToolStripMenuItem() + Me.toolStripMenuItemTreemapTextOptionsOptions = New System.Windows.Forms.ToolStripMenuItem() Me.toolStripMenuItemWordcloudOptions = New System.Windows.Forms.ToolStripMenuItem() Me.cmdOptions = New instat.ucrSplitButton() Me.ucrChkReorderValue = New instat.ucrCheck() @@ -111,7 +112,11 @@ Partial Class dlgBarAndPieChart Me.ucrChkAddLabelsTreemap = New instat.ucrCheck() Me.ucrChkBacktoback = New instat.ucrCheck() Me.ucrChkIncreaseSize = New instat.ucrCheck() - Me.toolStripMenuItemTreemapTextOptionsOptions = New System.Windows.Forms.ToolStripMenuItem() + Me.ucrInputStation = New instat.ucrInputComboBox() + Me.ucr1stFactorReceiver = New instat.ucrReceiverSingle() + Me.lblFacetBy = New System.Windows.Forms.Label() + Me.ucrInputLegendPosition = New instat.ucrInputComboBox() + Me.ucrChkLegend = New instat.ucrCheck() Me.contextMenuStripOptions.SuspendLayout() Me.SuspendLayout() ' @@ -390,7 +395,7 @@ Partial Class dlgBarAndPieChart ' Me.contextMenuStripOptions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStripMenuItemPlotOptions, Me.toolStripMenuItemBarchartOptions, Me.toolStripMenuItemTextOptions, Me.toolStripMenuItemLollipopOptions, Me.toolStripMenuItemTreemapOptions, Me.toolStripMenuItemTreemapTextOptionsOptions, Me.toolStripMenuItemWordcloudOptions}) Me.contextMenuStripOptions.Name = "contextMenuStripOk" - Me.contextMenuStripOptions.Size = New System.Drawing.Size(189, 180) + Me.contextMenuStripOptions.Size = New System.Drawing.Size(189, 158) ' 'toolStripMenuItemPlotOptions ' @@ -404,24 +409,30 @@ Partial Class dlgBarAndPieChart Me.toolStripMenuItemBarchartOptions.Size = New System.Drawing.Size(188, 22) Me.toolStripMenuItemBarchartOptions.Text = "BarChart Options" ' - 'toolStripMenuItemLollipopOptions - ' - Me.toolStripMenuItemLollipopOptions.Name = "toolStripMenuItemLollipopOptions" - Me.toolStripMenuItemLollipopOptions.Size = New System.Drawing.Size(188, 22) - Me.toolStripMenuItemLollipopOptions.Text = "Lollipop Options" - ' 'toolStripMenuItemTextOptions ' Me.toolStripMenuItemTextOptions.Name = "toolStripMenuItemTextOptions" Me.toolStripMenuItemTextOptions.Size = New System.Drawing.Size(188, 22) Me.toolStripMenuItemTextOptions.Text = "Text Options" ' + 'toolStripMenuItemLollipopOptions + ' + Me.toolStripMenuItemLollipopOptions.Name = "toolStripMenuItemLollipopOptions" + Me.toolStripMenuItemLollipopOptions.Size = New System.Drawing.Size(188, 22) + Me.toolStripMenuItemLollipopOptions.Text = "Lollipop Options" + ' 'toolStripMenuItemTreemapOptions ' Me.toolStripMenuItemTreemapOptions.Name = "toolStripMenuItemTreemapOptions" Me.toolStripMenuItemTreemapOptions.Size = New System.Drawing.Size(188, 22) Me.toolStripMenuItemTreemapOptions.Text = "Treemap Options" ' + 'toolStripMenuItemTreemapTextOptionsOptions + ' + Me.toolStripMenuItemTreemapTextOptionsOptions.Name = "toolStripMenuItemTreemapTextOptionsOptions" + Me.toolStripMenuItemTreemapTextOptionsOptions.Size = New System.Drawing.Size(188, 22) + Me.toolStripMenuItemTreemapTextOptionsOptions.Text = "Treemap Text Options" + ' 'toolStripMenuItemWordcloudOptions ' Me.toolStripMenuItemWordcloudOptions.Name = "toolStripMenuItemWordcloudOptions" @@ -576,7 +587,7 @@ Partial Class dlgBarAndPieChart 'ucrSaveBar ' Me.ucrSaveBar.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrSaveBar.Location = New System.Drawing.Point(10, 461) + Me.ucrSaveBar.Location = New System.Drawing.Point(10, 512) Me.ucrSaveBar.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrSaveBar.Name = "ucrSaveBar" Me.ucrSaveBar.Size = New System.Drawing.Size(372, 24) @@ -611,7 +622,7 @@ Partial Class dlgBarAndPieChart ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(7, 491) + Me.ucrBase.Location = New System.Drawing.Point(7, 542) Me.ucrBase.Name = "ucrBase" Me.ucrBase.Size = New System.Drawing.Size(408, 52) Me.ucrBase.TabIndex = 60 @@ -863,18 +874,72 @@ Partial Class dlgBarAndPieChart Me.ucrChkIncreaseSize.Size = New System.Drawing.Size(88, 23) Me.ucrChkIncreaseSize.TabIndex = 63 ' - 'toolStripMenuItemTreemapTextOptionsOptions - ' - Me.toolStripMenuItemTreemapTextOptionsOptions.Name = "toolStripMenuItemTreemapTextOptionsOptions" - Me.toolStripMenuItemTreemapTextOptionsOptions.Size = New System.Drawing.Size(188, 22) - Me.toolStripMenuItemTreemapTextOptionsOptions.Text = "Treemap Text Options" + 'ucrInputStation + ' + Me.ucrInputStation.AddQuotesIfUnrecognised = True + Me.ucrInputStation.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputStation.GetSetSelectedIndex = -1 + Me.ucrInputStation.IsReadOnly = False + Me.ucrInputStation.Location = New System.Drawing.Point(327, 478) + Me.ucrInputStation.Name = "ucrInputStation" + Me.ucrInputStation.Size = New System.Drawing.Size(86, 21) + Me.ucrInputStation.TabIndex = 71 + ' + 'ucr1stFactorReceiver + ' + Me.ucr1stFactorReceiver.AutoSize = True + Me.ucr1stFactorReceiver.frmParent = Me + Me.ucr1stFactorReceiver.Location = New System.Drawing.Point(214, 479) + Me.ucr1stFactorReceiver.Margin = New System.Windows.Forms.Padding(0) + Me.ucr1stFactorReceiver.Name = "ucr1stFactorReceiver" + Me.ucr1stFactorReceiver.Selector = Nothing + Me.ucr1stFactorReceiver.Size = New System.Drawing.Size(109, 26) + Me.ucr1stFactorReceiver.strNcFilePath = "" + Me.ucr1stFactorReceiver.TabIndex = 70 + Me.ucr1stFactorReceiver.ucrSelector = Nothing + ' + 'lblFacetBy + ' + Me.lblFacetBy.AutoSize = True + Me.lblFacetBy.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblFacetBy.Location = New System.Drawing.Point(214, 464) + Me.lblFacetBy.Name = "lblFacetBy" + Me.lblFacetBy.Size = New System.Drawing.Size(52, 13) + Me.lblFacetBy.TabIndex = 69 + Me.lblFacetBy.Tag = "" + Me.lblFacetBy.Text = "Facet By:" + ' + 'ucrInputLegendPosition + ' + Me.ucrInputLegendPosition.AddQuotesIfUnrecognised = True + Me.ucrInputLegendPosition.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputLegendPosition.GetSetSelectedIndex = -1 + Me.ucrInputLegendPosition.IsReadOnly = False + Me.ucrInputLegendPosition.Location = New System.Drawing.Point(97, 478) + Me.ucrInputLegendPosition.Name = "ucrInputLegendPosition" + Me.ucrInputLegendPosition.Size = New System.Drawing.Size(112, 21) + Me.ucrInputLegendPosition.TabIndex = 73 + ' + 'ucrChkLegend + ' + Me.ucrChkLegend.AutoSize = True + Me.ucrChkLegend.Checked = False + Me.ucrChkLegend.Location = New System.Drawing.Point(10, 479) + Me.ucrChkLegend.Name = "ucrChkLegend" + Me.ucrChkLegend.Size = New System.Drawing.Size(98, 24) + Me.ucrChkLegend.TabIndex = 72 ' 'dlgBarAndPieChart ' 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(415, 547) + Me.ClientSize = New System.Drawing.Size(415, 596) + Me.Controls.Add(Me.ucrInputStation) + Me.Controls.Add(Me.ucr1stFactorReceiver) + Me.Controls.Add(Me.lblFacetBy) + Me.Controls.Add(Me.ucrInputLegendPosition) + Me.Controls.Add(Me.ucrChkLegend) Me.Controls.Add(Me.cmdOptions) Me.Controls.Add(Me.ucrChkReorderValue) Me.Controls.Add(Me.ucrChkReorderFrequency) @@ -1024,4 +1089,9 @@ Partial Class dlgBarAndPieChart Friend WithEvents cmdOptions As ucrSplitButton Friend WithEvents toolStripMenuItemLollipopOptions As ToolStripMenuItem Friend WithEvents toolStripMenuItemTreemapTextOptionsOptions As ToolStripMenuItem + Friend WithEvents ucrInputStation As ucrInputComboBox + Friend WithEvents ucr1stFactorReceiver As ucrReceiverSingle + Friend WithEvents lblFacetBy As Label + Friend WithEvents ucrInputLegendPosition As ucrInputComboBox + Friend WithEvents ucrChkLegend As ucrCheck End Class \ No newline at end of file diff --git a/instat/dlgBarAndPieChart.vb b/instat/dlgBarAndPieChart.vb index 75dc081567e..8b68ddcf059 100644 --- a/instat/dlgBarAndPieChart.vb +++ b/instat/dlgBarAndPieChart.vb @@ -76,14 +76,29 @@ Public Class dlgBarAndPieChart Private clsGeomTextWordcloudAesFunction As New RFunction Private clsScaleSizeAreaFunction As New RFunction Private clsDummyFunction As New RFunction + Private clsThemeFunction As New RFunction Private clsPointsFunction As New RFunction Private clsGeomLollipopAesFunction As New RFunction + Private clsFacetFunction As New RFunction + Private clsFacetVariablesOperator As New ROperator + Private clsFacetRowOp As New ROperator + Private clsFacetColOp As New ROperator + Private clsPipeOperator As New ROperator + Private clsGroupByFunction As New RFunction + Private ReadOnly strAscending As String = "Ascending" Private ReadOnly strDescending As String = "Descending" Private ReadOnly strReverse As String = "Reverse" Private ReadOnly strNone As String = "None" + Private ReadOnly strFacetWrap As String = "Facet Wrap" + Private ReadOnly strFacetRow As String = "Facet Row" + Private ReadOnly strFacetCol As String = "Facet Column" + + Private bUpdateComboOptions As Boolean = True + Private bUpdatingParameters As Boolean = False + 'Parameter names for geoms Private strFirstParameterName As String = "geomfunc" Private strStatSummaryParameterName As String = "stat_summary" @@ -117,6 +132,7 @@ Public Class dlgBarAndPieChart Dim dctLayout As New Dictionary(Of String, String) Dim dctStart As New Dictionary(Of String, String) Dim dctPlace As New Dictionary(Of String, String) + Dim dctLegendPosition As New Dictionary(Of String, String) ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False ucrBase.clsRsyntax.iCallType = 3 @@ -359,6 +375,32 @@ Public Class dlgBarAndPieChart ucrInputPlace.SetRDefault(Chr(34) & "middle" & Chr(34)) ucrInputPlace.SetDropDownStyleAsNonEditable() + ucrChkLegend.SetText("Legend:") + ucrChkLegend.AddToLinkedControls({ucrInputLegendPosition}, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="None") + ucrInputLegendPosition.SetDropDownStyleAsNonEditable() + ucrInputLegendPosition.SetParameter(New RParameter("legend.position")) + dctLegendPosition.Add("None", Chr(34) & "none" & Chr(34)) + dctLegendPosition.Add("Left", Chr(34) & "left" & Chr(34)) + dctLegendPosition.Add("Right", Chr(34) & "right" & Chr(34)) + dctLegendPosition.Add("Top", Chr(34) & "top" & Chr(34)) + dctLegendPosition.Add("Bottom", Chr(34) & "bottom" & Chr(34)) + ucrInputLegendPosition.SetItems(dctLegendPosition) + ucrChkLegend.AddParameterPresentCondition(True, "legend.position") + ucrChkLegend.AddParameterPresentCondition(False, "legend.position", False) + + ucr1stFactorReceiver.SetParameter(New RParameter("var1")) + ucr1stFactorReceiver.Selector = ucrBarChartSelector + ucr1stFactorReceiver.SetIncludedDataTypes({"factor"}) + ucr1stFactorReceiver.strSelectorHeading = "Factors" + ucr1stFactorReceiver.bWithQuotes = False + ucr1stFactorReceiver.SetParameterIsString() + ucr1stFactorReceiver.SetValuesToIgnore({"."}) + ucr1stFactorReceiver.SetParameterPosition(1) + ucr1stFactorReceiver.SetLinkedDisplayControl(lblFacetBy) + + ucrInputStation.SetItems({strFacetWrap, strFacetRow, strFacetCol, strNone}) + ucrInputStation.SetDropDownStyleAsNonEditable() + ucrNudMaxSize.SetParameter(New RParameter("max_size", 0)) ucrChkIncreaseSize.SetText("Increase size") ucrChkIncreaseSize.AddToLinkedControls(ucrNudMaxSize, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=20) @@ -408,6 +450,15 @@ Public Class dlgBarAndPieChart clsDummyFunction = New RFunction clsPointsFunction = New RFunction clsGeomLollipopAesFunction = New RFunction + clsFacetFunction = New RFunction + clsFacetVariablesOperator = New ROperator + clsFacetRowOp = New ROperator + clsFacetColOp = New ROperator + clsPipeOperator = New ROperator + clsGroupByFunction = New RFunction + + ucrInputStation.SetName(strFacetWrap) + ucrInputStation.bUpdateRCodeFromControl = True ucrBarChartSelector.Reset() ucrBarChartSelector.SetGgplotFunction(clsBaseOperator) @@ -569,6 +620,22 @@ Public Class dlgBarAndPieChart clsScaleSizeAreaFunction.SetPackageName("ggplot2") clsScaleSizeAreaFunction.SetRCommand("scale_size_area") + clsFacetFunction.SetPackageName("ggplot2") + clsFacetRowOp.SetOperation("+") + clsFacetRowOp.bBrackets = False + clsFacetColOp.SetOperation("+") + clsFacetColOp.bBrackets = False + clsFacetVariablesOperator.SetOperation("~") + clsFacetVariablesOperator.bForceIncludeOperation = True + clsFacetVariablesOperator.bBrackets = False + clsFacetFunction.AddParameter("facets", clsROperatorParameter:=clsFacetVariablesOperator, iPosition:=0) + + clsPipeOperator.SetOperation("%>%") + SetPipeAssignTo() + + clsGroupByFunction.SetPackageName("dplyr") + clsGroupByFunction.SetRCommand("group_by") + clsLabsFunction = GgplotDefaults.clsDefaultLabs.Clone() clsXlabFunction = GgplotDefaults.clsXlabTitleFunction.Clone() clsYlabFunction = GgplotDefaults.clsYlabTitleFunction.Clone() @@ -581,6 +648,7 @@ Public Class dlgBarAndPieChart clsXScaleDateFunction = GgplotDefaults.clsXScaleDateFunction.Clone() clsYScaleDateFunction = GgplotDefaults.clsYScaleDateFunction.Clone() clsThemeFuction = GgplotDefaults.clsDefaultThemeFunction.Clone + clsThemeFunction = GgplotDefaults.clsDefaultThemeFunction.Clone() dctThemeFunctions = New Dictionary(Of String, RFunction)(GgplotDefaults.dctThemeFunctions) clsLocalRaesFunction = GgplotDefaults.clsAesFunction.Clone() clsScaleFillViridisFunction = GgplotDefaults.clsScaleFillViridisFunction @@ -630,6 +698,8 @@ Public Class dlgBarAndPieChart ucrChkAddLabelsTreemap.SetRCode(clsBaseOperator, bReset) ucrNudMaxSize.SetRCode(clsScaleSizeAreaFunction, bReset) ucrChkReorderFrequency.SetRCode(clsDummyFunction, bReset) + ucrChkLegend.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + ucrInputLegendPosition.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) If bReset Then ucrChkStart.SetRCode(clsGeomTreemapFunction, bReset) @@ -672,6 +742,18 @@ Public Class dlgBarAndPieChart TestOkEnabled() End Sub + Private Sub AddRemoveTheme() + If clsThemeFunction.iParameterCount > 0 Then + clsBaseOperator.AddParameter("theme", clsRFunctionParameter:=clsThemeFunction, iPosition:=15) + Else + clsBaseOperator.RemoveParameterByName("theme") + End If + End Sub + + Private Sub ucrChkLegend_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkLegend.ControlValueChanged, ucrInputLegendPosition.ControlValueChanged + AddRemoveTheme() + End Sub + Private Sub openSdgLayerOptions(clsNewGeomFunc As RFunction, clsNewAesFunction As RFunction) sdgLayerOptions.SetupLayer(clsNewGgPlot:=clsRggplotFunction, clsNewGeomFunc:=clsNewGeomFunc, clsNewGlobalAesFunc:=clsNewAesFunction, clsNewLocalAes:=clsLocalRaesFunction, @@ -725,7 +807,7 @@ Public Class dlgBarAndPieChart clsNewXLabsTitleFunction:=clsXlabFunction, clsNewYLabTitleFunction:=clsYlabFunction, clsNewLabsFunction:=clsLabsFunction, clsNewFacetFunction:=clsRFacetFunction, clsNewThemeFunction:=clsThemeFuction, dctNewThemeFunctions:=dctThemeFunctions, clsNewGlobalAesFunction:=clsTempGlobalAesFunction, ucrNewBaseSelector:=ucrBarChartSelector, clsNewCoordPolarFunction:=clsCoordPolarFunction, clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewXScaleDateFunction:=clsXScaleDateFunction, clsNewAnnotateFunction:=clsAnnotateFunction, - clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, + clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, clsNewFacetVariablesOperator:=clsFacetVariablesOperator, strMainDialogGeomParameterNames:=strGeomParameterNames, bReset:=bResetSubdialog) sdgPlots.ShowDialog() bResetSubdialog = False @@ -1027,6 +1109,164 @@ Public Class dlgBarAndPieChart UpdateParameter() End Sub + Private Sub AutoFacetStation() + Dim currentReceiver As ucrReceiver = ucrBarChartSelector.CurrentReceiver + + If currentReceiver IsNot Nothing Then + ucr1stFactorReceiver.AddItemsWithMetadataProperty(ucrBarChartSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text, "Climatic_Type", {"station_label"}) + currentReceiver.SetMeAsReceiver() + AddRemoveGroupBy() + End If + End Sub + + Private Sub ucrInput_ControlValueChanged(ucrChangedControl As ucrInputComboBox) Handles ucrInputStation.ControlValueChanged + If Not bUpdateComboOptions Then + Exit Sub + End If + Dim strChangedText As String = ucrChangedControl.GetText() + If strChangedText <> strNone Then + If Not strChangedText = strFacetCol AndAlso Not strChangedText = strFacetRow AndAlso + Not ucrInputStation.Equals(ucrChangedControl) AndAlso ucrInputStation.GetText() = strChangedText Then + bUpdateComboOptions = False + ucrInputStation.SetName(strNone) + bUpdateComboOptions = True + End If + If (strChangedText = strFacetWrap AndAlso ucrInputStation.GetText = strFacetRow) OrElse (strChangedText = strFacetRow AndAlso + ucrInputStation.GetText = strFacetWrap) OrElse (strChangedText = strFacetWrap AndAlso + ucrInputStation.GetText = strFacetCol) OrElse (strChangedText = strFacetCol AndAlso ucrInputStation.GetText = strFacetWrap) Then + ucrInputStation.SetName(strNone) + End If + End If + UpdateParameters() + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub UpdateParameters() + clsFacetVariablesOperator.RemoveParameterByName("var1") + clsFacetColOp.RemoveParameterByName("col" & ucrInputStation.Name) + clsFacetRowOp.RemoveParameterByName("row" & ucrInputStation.Name) + + clsBaseOperator.RemoveParameterByName("facets") + bUpdatingParameters = True + ucr1stFactorReceiver.SetRCode(Nothing) + Select Case ucrInputStation.GetText() + Case strFacetWrap + ucr1stFactorReceiver.ChangeParameterName("var1") + ucr1stFactorReceiver.SetRCode(clsFacetVariablesOperator) + Case strFacetCol + ucr1stFactorReceiver.ChangeParameterName("col" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetColOp) + Case strFacetRow + ucr1stFactorReceiver.ChangeParameterName("row" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetRowOp) + End Select + If Not clsRFacetFunction.ContainsParameter("x") Then + clsRFacetFunction.AddParameter("x", Chr(34) & Chr(34)) + End If + bUpdatingParameters = False + End Sub + + Private Sub AddRemoveFacets() + Dim bWrap As Boolean = False + Dim bCol As Boolean = False + Dim bRow As Boolean = False + + If bUpdatingParameters Then + Exit Sub + End If + + clsBaseOperator.RemoveParameterByName("facets") + If Not ucr1stFactorReceiver.IsEmpty Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + bWrap = True + Case strFacetCol + bCol = True + Case strFacetRow + bRow = True + End Select + End If + + If bWrap OrElse bRow OrElse bCol Then + clsBaseOperator.AddParameter("facets", clsRFunctionParameter:=clsFacetFunction) + End If + If bWrap Then + clsFacetFunction.SetRCommand("facet_wrap") + End If + If bRow OrElse bCol Then + clsFacetFunction.SetRCommand("facet_grid") + End If + If bRow Then + clsFacetVariablesOperator.AddParameter("left", clsROperatorParameter:=clsFacetRowOp, iPosition:=0) + ElseIf bCol AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("left", ".", iPosition:=0) + Else + clsFacetVariablesOperator.RemoveParameterByName("left") + End If + If bCol Then + clsFacetVariablesOperator.AddParameter("right", clsROperatorParameter:=clsFacetColOp, iPosition:=1) + ElseIf bRow AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("right", ".", iPosition:=1) + Else + clsFacetVariablesOperator.RemoveParameterByName("right") + End If + End Sub + + Private Sub ucr1stFactorReceiver_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucr1stFactorReceiver.ControlValueChanged, ucrReceiverX.ControlValueChanged + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub GetParameterValue(clsOperator As ROperator) + Dim i As Integer = 0 + For Each clsTempParam As RParameter In clsOperator.clsParameters + If clsTempParam.strArgumentValue <> "" AndAlso clsTempParam.strArgumentValue <> "." Then + clsGroupByFunction.AddParameter(i, clsTempParam.strArgumentValue, bIncludeArgumentName:=False, iPosition:=i) + i = i + 1 + End If + Next + End Sub + + Private Sub AddRemoveGroupBy() + If clsPipeOperator.ContainsParameter("mutate") Then + clsGroupByFunction.ClearParameters() + If clsBaseOperator.ContainsParameter("facets") Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + GetParameterValue(clsFacetVariablesOperator) + Case strFacetCol + GetParameterValue(clsFacetColOp) + Case strFacetRow + GetParameterValue(clsFacetRowOp) + End Select + End If + + If clsGroupByFunction.iParameterCount > 0 Then + clsPipeOperator.AddParameter("group_by", clsRFunctionParameter:=clsGroupByFunction, iPosition:=1) + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + + SetPipeAssignTo() + End Sub + + Private Sub SetPipeAssignTo() + If ucrBarChartSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text <> "" AndAlso clsPipeOperator.clsParameters.Count > 1 Then + clsPipeOperator.SetAssignTo(ucrBarChartSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + Else + clsPipeOperator.RemoveAssignTo() + End If + End Sub + + Private Sub ucrBarChartSelector_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrBarChartSelector.ControlValueChanged + AutoFacetStation() + SetPipeAssignTo() + End Sub + Private Sub ucrPnlOptions_ControlValueChanged() Handles ucrPnlOptions.ControlValueChanged, ucrVariablesAsFactorForBarChart.ControlValueChanged, ucrReceiverX.ControlValueChanged, ucrReceiverByFactor.ControlValueChanged, ucrReceiverLabel.ControlValueChanged, ucrChkAddLabelsText.ControlValueChanged, ucrChkReorderValue.ControlValueChanged, ucrInputReorderX.ControlValueChanged, diff --git a/instat/dlgColumnStats.Designer.vb b/instat/dlgColumnStats.Designer.vb index 3501003091b..ea5865dfdf1 100644 --- a/instat/dlgColumnStats.Designer.vb +++ b/instat/dlgColumnStats.Designer.vb @@ -48,7 +48,6 @@ Partial Class dlgColumnStats Me.ucrChkPrintOutput = New instat.ucrCheck() Me.ucrChkDropUnusedLevels = New instat.ucrCheck() Me.cmdSummaries = New System.Windows.Forms.Button() - Me.cmdProportionsPercentages = New System.Windows.Forms.Button() Me.ucrChkWeights = New instat.ucrCheck() Me.ucrReceiverWeights = New instat.ucrReceiverSingle() Me.ucrReceiverByFactor = New instat.ucrReceiverMultiple() @@ -62,9 +61,10 @@ Partial Class dlgColumnStats ' Me.lblSelectedVariables.AutoSize = True Me.lblSelectedVariables.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblSelectedVariables.Location = New System.Drawing.Point(273, 9) + Me.lblSelectedVariables.Location = New System.Drawing.Point(410, 14) + Me.lblSelectedVariables.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblSelectedVariables.Name = "lblSelectedVariables" - Me.lblSelectedVariables.Size = New System.Drawing.Size(125, 13) + Me.lblSelectedVariables.Size = New System.Drawing.Size(191, 20) Me.lblSelectedVariables.TabIndex = 1 Me.lblSelectedVariables.Text = "Variable(s) to Summarise:" ' @@ -72,9 +72,10 @@ Partial Class dlgColumnStats ' Me.lblSummariseBy.AutoSize = True Me.lblSummariseBy.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblSummariseBy.Location = New System.Drawing.Point(272, 176) + Me.lblSummariseBy.Location = New System.Drawing.Point(408, 264) + Me.lblSummariseBy.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblSummariseBy.Name = "lblSummariseBy" - Me.lblSummariseBy.Size = New System.Drawing.Size(76, 13) + Me.lblSummariseBy.Size = New System.Drawing.Size(115, 20) Me.lblSummariseBy.TabIndex = 5 Me.lblSummariseBy.Text = "Summarise By:" ' @@ -86,9 +87,11 @@ Partial Class dlgColumnStats Me.grpOptions.Controls.Add(Me.ucrChkOmitMissing) Me.grpOptions.Controls.Add(Me.ucrChkPrintOutput) Me.grpOptions.Controls.Add(Me.ucrChkDropUnusedLevels) - Me.grpOptions.Location = New System.Drawing.Point(10, 196) + Me.grpOptions.Location = New System.Drawing.Point(15, 294) + Me.grpOptions.Margin = New System.Windows.Forms.Padding(4) Me.grpOptions.Name = "grpOptions" - Me.grpOptions.Size = New System.Drawing.Size(258, 155) + Me.grpOptions.Padding = New System.Windows.Forms.Padding(4) + Me.grpOptions.Size = New System.Drawing.Size(387, 232) Me.grpOptions.TabIndex = 7 Me.grpOptions.TabStop = False Me.grpOptions.Text = "Options" @@ -96,9 +99,10 @@ Partial Class dlgColumnStats 'cmdMissingOptions ' Me.cmdMissingOptions.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.cmdMissingOptions.Location = New System.Drawing.Point(190, 114) + Me.cmdMissingOptions.Location = New System.Drawing.Point(285, 174) + Me.cmdMissingOptions.Margin = New System.Windows.Forms.Padding(4) Me.cmdMissingOptions.Name = "cmdMissingOptions" - Me.cmdMissingOptions.Size = New System.Drawing.Size(62, 26) + Me.cmdMissingOptions.Size = New System.Drawing.Size(93, 39) Me.cmdMissingOptions.TabIndex = 20 Me.cmdMissingOptions.Tag = "MissingOptions" Me.cmdMissingOptions.Text = "Options" @@ -108,87 +112,83 @@ Partial Class dlgColumnStats ' Me.ucrChkOriginalLevel.AutoSize = True Me.ucrChkOriginalLevel.Checked = False - Me.ucrChkOriginalLevel.Location = New System.Drawing.Point(25, 42) + Me.ucrChkOriginalLevel.Location = New System.Drawing.Point(38, 63) + Me.ucrChkOriginalLevel.Margin = New System.Windows.Forms.Padding(9) Me.ucrChkOriginalLevel.Name = "ucrChkOriginalLevel" - Me.ucrChkOriginalLevel.Size = New System.Drawing.Size(218, 23) + Me.ucrChkOriginalLevel.Size = New System.Drawing.Size(327, 34) Me.ucrChkOriginalLevel.TabIndex = 1 ' 'ucrChkStoreResults ' Me.ucrChkStoreResults.AutoSize = True Me.ucrChkStoreResults.Checked = False - Me.ucrChkStoreResults.Location = New System.Drawing.Point(6, 17) + Me.ucrChkStoreResults.Location = New System.Drawing.Point(9, 26) + Me.ucrChkStoreResults.Margin = New System.Windows.Forms.Padding(9) Me.ucrChkStoreResults.Name = "ucrChkStoreResults" - Me.ucrChkStoreResults.Size = New System.Drawing.Size(237, 23) + Me.ucrChkStoreResults.Size = New System.Drawing.Size(356, 51) Me.ucrChkStoreResults.TabIndex = 0 ' 'ucrChkOmitMissing ' Me.ucrChkOmitMissing.AutoSize = True Me.ucrChkOmitMissing.Checked = False - Me.ucrChkOmitMissing.Location = New System.Drawing.Point(6, 117) + Me.ucrChkOmitMissing.Location = New System.Drawing.Point(9, 176) + Me.ucrChkOmitMissing.Margin = New System.Windows.Forms.Padding(9) Me.ucrChkOmitMissing.Name = "ucrChkOmitMissing" - Me.ucrChkOmitMissing.Size = New System.Drawing.Size(178, 23) + Me.ucrChkOmitMissing.Size = New System.Drawing.Size(267, 51) Me.ucrChkOmitMissing.TabIndex = 4 ' 'ucrChkPrintOutput ' Me.ucrChkPrintOutput.AutoSize = True Me.ucrChkPrintOutput.Checked = False - Me.ucrChkPrintOutput.Location = New System.Drawing.Point(6, 67) + Me.ucrChkPrintOutput.Location = New System.Drawing.Point(9, 100) + Me.ucrChkPrintOutput.Margin = New System.Windows.Forms.Padding(9) Me.ucrChkPrintOutput.Name = "ucrChkPrintOutput" - Me.ucrChkPrintOutput.Size = New System.Drawing.Size(246, 23) + Me.ucrChkPrintOutput.Size = New System.Drawing.Size(369, 34) Me.ucrChkPrintOutput.TabIndex = 2 ' 'ucrChkDropUnusedLevels ' Me.ucrChkDropUnusedLevels.AutoSize = True Me.ucrChkDropUnusedLevels.Checked = False - Me.ucrChkDropUnusedLevels.Location = New System.Drawing.Point(6, 92) + Me.ucrChkDropUnusedLevels.Location = New System.Drawing.Point(9, 138) + Me.ucrChkDropUnusedLevels.Margin = New System.Windows.Forms.Padding(9) Me.ucrChkDropUnusedLevels.Name = "ucrChkDropUnusedLevels" - Me.ucrChkDropUnusedLevels.Size = New System.Drawing.Size(237, 23) + Me.ucrChkDropUnusedLevels.Size = New System.Drawing.Size(356, 34) Me.ucrChkDropUnusedLevels.TabIndex = 3 ' 'cmdSummaries ' Me.cmdSummaries.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.cmdSummaries.Location = New System.Drawing.Point(274, 302) + Me.cmdSummaries.Location = New System.Drawing.Point(411, 453) + Me.cmdSummaries.Margin = New System.Windows.Forms.Padding(4) Me.cmdSummaries.Name = "cmdSummaries" - Me.cmdSummaries.Size = New System.Drawing.Size(134, 23) + Me.cmdSummaries.Size = New System.Drawing.Size(201, 34) Me.cmdSummaries.TabIndex = 8 Me.cmdSummaries.Tag = "Summaries" Me.cmdSummaries.Text = "Summaries..." Me.cmdSummaries.UseVisualStyleBackColor = True ' - 'cmdProportionsPercentages - ' - Me.cmdProportionsPercentages.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.cmdProportionsPercentages.Location = New System.Drawing.Point(274, 328) - Me.cmdProportionsPercentages.Name = "cmdProportionsPercentages" - Me.cmdProportionsPercentages.Size = New System.Drawing.Size(134, 23) - Me.cmdProportionsPercentages.TabIndex = 9 - Me.cmdProportionsPercentages.Tag = "Proportions/Percentages..." - Me.cmdProportionsPercentages.Text = "Prop. and Percentages..." - Me.cmdProportionsPercentages.UseVisualStyleBackColor = True - ' 'ucrChkWeights ' Me.ucrChkWeights.AutoSize = True Me.ucrChkWeights.Checked = False - Me.ucrChkWeights.Location = New System.Drawing.Point(274, 127) + Me.ucrChkWeights.Location = New System.Drawing.Point(411, 190) + Me.ucrChkWeights.Margin = New System.Windows.Forms.Padding(9) Me.ucrChkWeights.Name = "ucrChkWeights" - Me.ucrChkWeights.Size = New System.Drawing.Size(119, 23) + Me.ucrChkWeights.Size = New System.Drawing.Size(178, 34) Me.ucrChkWeights.TabIndex = 3 ' 'ucrReceiverWeights ' Me.ucrReceiverWeights.AutoSize = True Me.ucrReceiverWeights.frmParent = Me - Me.ucrReceiverWeights.Location = New System.Drawing.Point(274, 150) + Me.ucrReceiverWeights.Location = New System.Drawing.Point(411, 225) Me.ucrReceiverWeights.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverWeights.Name = "ucrReceiverWeights" Me.ucrReceiverWeights.Selector = Nothing - Me.ucrReceiverWeights.Size = New System.Drawing.Size(120, 20) + Me.ucrReceiverWeights.Size = New System.Drawing.Size(180, 30) Me.ucrReceiverWeights.strNcFilePath = "" Me.ucrReceiverWeights.TabIndex = 4 Me.ucrReceiverWeights.ucrSelector = Nothing @@ -197,11 +197,11 @@ Partial Class dlgColumnStats ' Me.ucrReceiverByFactor.AutoSize = True Me.ucrReceiverByFactor.frmParent = Me - Me.ucrReceiverByFactor.Location = New System.Drawing.Point(274, 190) + Me.ucrReceiverByFactor.Location = New System.Drawing.Point(411, 285) Me.ucrReceiverByFactor.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverByFactor.Name = "ucrReceiverByFactor" Me.ucrReceiverByFactor.Selector = Nothing - Me.ucrReceiverByFactor.Size = New System.Drawing.Size(133, 100) + Me.ucrReceiverByFactor.Size = New System.Drawing.Size(200, 150) Me.ucrReceiverByFactor.strNcFilePath = "" Me.ucrReceiverByFactor.TabIndex = 6 Me.ucrReceiverByFactor.ucrSelector = Nothing @@ -210,11 +210,11 @@ Partial Class dlgColumnStats ' Me.ucrReceiverSelectedVariables.AutoSize = True Me.ucrReceiverSelectedVariables.frmParent = Me - Me.ucrReceiverSelectedVariables.Location = New System.Drawing.Point(274, 24) + Me.ucrReceiverSelectedVariables.Location = New System.Drawing.Point(411, 36) Me.ucrReceiverSelectedVariables.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverSelectedVariables.Name = "ucrReceiverSelectedVariables" Me.ucrReceiverSelectedVariables.Selector = Nothing - Me.ucrReceiverSelectedVariables.Size = New System.Drawing.Size(133, 100) + Me.ucrReceiverSelectedVariables.Size = New System.Drawing.Size(200, 150) Me.ucrReceiverSelectedVariables.strNcFilePath = "" Me.ucrReceiverSelectedVariables.TabIndex = 2 Me.ucrReceiverSelectedVariables.ucrSelector = Nothing @@ -225,30 +225,30 @@ Partial Class dlgColumnStats Me.ucrSelectorForColumnStatistics.bDropUnusedFilterLevels = False Me.ucrSelectorForColumnStatistics.bShowHiddenColumns = False Me.ucrSelectorForColumnStatistics.bUseCurrentFilter = True - Me.ucrSelectorForColumnStatistics.Location = New System.Drawing.Point(10, 10) + Me.ucrSelectorForColumnStatistics.Location = New System.Drawing.Point(15, 15) Me.ucrSelectorForColumnStatistics.Margin = New System.Windows.Forms.Padding(0) Me.ucrSelectorForColumnStatistics.Name = "ucrSelectorForColumnStatistics" - Me.ucrSelectorForColumnStatistics.Size = New System.Drawing.Size(213, 183) + Me.ucrSelectorForColumnStatistics.Size = New System.Drawing.Size(320, 274) Me.ucrSelectorForColumnStatistics.TabIndex = 0 ' 'ucrBase ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(6, 363) + Me.ucrBase.Location = New System.Drawing.Point(9, 544) + Me.ucrBase.Margin = New System.Windows.Forms.Padding(6) Me.ucrBase.Name = "ucrBase" - Me.ucrBase.Size = New System.Drawing.Size(405, 52) + Me.ucrBase.Size = New System.Drawing.Size(611, 77) Me.ucrBase.TabIndex = 10 ' 'dlgColumnStats ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(144.0!, 144.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi Me.AutoSize = True - Me.ClientSize = New System.Drawing.Size(416, 419) + Me.ClientSize = New System.Drawing.Size(624, 628) Me.Controls.Add(Me.ucrChkWeights) Me.Controls.Add(Me.ucrReceiverWeights) - Me.Controls.Add(Me.cmdProportionsPercentages) Me.Controls.Add(Me.cmdSummaries) Me.Controls.Add(Me.grpOptions) Me.Controls.Add(Me.ucrReceiverByFactor) @@ -258,6 +258,7 @@ Partial Class dlgColumnStats Me.Controls.Add(Me.ucrSelectorForColumnStatistics) Me.Controls.Add(Me.ucrBase) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "dlgColumnStats" @@ -283,7 +284,6 @@ Partial Class dlgColumnStats Friend WithEvents ucrChkOmitMissing As ucrCheck Friend WithEvents ucrChkPrintOutput As ucrCheck Friend WithEvents ucrChkDropUnusedLevels As ucrCheck - Friend WithEvents cmdProportionsPercentages As Button Friend WithEvents ucrChkOriginalLevel As ucrCheck Friend WithEvents ucrChkWeights As ucrCheck Friend WithEvents ucrReceiverWeights As ucrReceiverSingle diff --git a/instat/dlgColumnStats.vb b/instat/dlgColumnStats.vb index ddc5d469a6b..98e43b2340a 100644 --- a/instat/dlgColumnStats.vb +++ b/instat/dlgColumnStats.vb @@ -177,13 +177,6 @@ Public Class dlgColumnStats TestOKEnabled() End Sub - Private Sub cmdProportionsPercentages_Click(sender As Object, e As EventArgs) Handles cmdProportionsPercentages.Click - sdgProportionsPercentages.SetRFunction(clsDefaultFunction, bResetSubdialog) - sdgProportionsPercentages.ShowDialog() - bResetSubdialog = False - TestOKEnabled() - End Sub - Private Sub ucrChkOmitMissing_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkOmitMissing.ControlValueChanged If clsSummariesList.ContainsParameter("summary_cor") OrElse clsSummariesList.ContainsParameter("summary_cov") Then clsDefaultFunction.AddParameter("use", Chr(34) & "'na.or.complete'" & Chr(34)) diff --git a/instat/dlgCumulativeDistribution.Designer.vb b/instat/dlgCumulativeDistribution.Designer.vb index 07d77df1015..45a346662f0 100644 --- a/instat/dlgCumulativeDistribution.Designer.vb +++ b/instat/dlgCumulativeDistribution.Designer.vb @@ -54,6 +54,11 @@ Partial Class dlgCumulativeDistribution Me.ucrFactorReceiver = New instat.ucrReceiverSingle() Me.ucrCumDistSelector = New instat.ucrSelectorByDataFrameAddRemove() Me.ucrBase = New instat.ucrButtons() + Me.ucrInputStation = New instat.ucrInputComboBox() + Me.ucr1stFactorReceiver = New instat.ucrReceiverSingle() + Me.lblFacetBy = New System.Windows.Forms.Label() + Me.ucrInputLegendPosition = New instat.ucrInputComboBox() + Me.ucrChkLegend = New instat.ucrCheck() Me.SuspendLayout() ' 'lblFactors @@ -162,7 +167,7 @@ Partial Class dlgCumulativeDistribution ' Me.ucrPnlOption.Anchor = System.Windows.Forms.AnchorStyles.None Me.ucrPnlOption.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrPnlOption.Location = New System.Drawing.Point(101, 9) + Me.ucrPnlOption.Location = New System.Drawing.Point(101, 7) Me.ucrPnlOption.Name = "ucrPnlOption" Me.ucrPnlOption.Size = New System.Drawing.Size(211, 38) Me.ucrPnlOption.TabIndex = 0 @@ -188,7 +193,7 @@ Partial Class dlgCumulativeDistribution 'ucrSaveCumDist ' Me.ucrSaveCumDist.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrSaveCumDist.Location = New System.Drawing.Point(10, 327) + Me.ucrSaveCumDist.Location = New System.Drawing.Point(10, 373) Me.ucrSaveCumDist.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrSaveCumDist.Name = "ucrSaveCumDist" Me.ucrSaveCumDist.Size = New System.Drawing.Size(320, 24) @@ -236,17 +241,77 @@ Partial Class dlgCumulativeDistribution ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(10, 354) + Me.ucrBase.Location = New System.Drawing.Point(10, 402) Me.ucrBase.Name = "ucrBase" - Me.ucrBase.Size = New System.Drawing.Size(405, 52) + Me.ucrBase.Size = New System.Drawing.Size(408, 52) Me.ucrBase.TabIndex = 15 ' + 'ucrInputStation + ' + Me.ucrInputStation.AddQuotesIfUnrecognised = True + Me.ucrInputStation.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputStation.GetSetSelectedIndex = -1 + Me.ucrInputStation.IsReadOnly = False + Me.ucrInputStation.Location = New System.Drawing.Point(313, 336) + Me.ucrInputStation.Name = "ucrInputStation" + Me.ucrInputStation.Size = New System.Drawing.Size(101, 21) + Me.ucrInputStation.TabIndex = 101 + ' + 'ucr1stFactorReceiver + ' + Me.ucr1stFactorReceiver.AutoSize = True + Me.ucr1stFactorReceiver.frmParent = Me + Me.ucr1stFactorReceiver.Location = New System.Drawing.Point(202, 337) + Me.ucr1stFactorReceiver.Margin = New System.Windows.Forms.Padding(0) + Me.ucr1stFactorReceiver.Name = "ucr1stFactorReceiver" + Me.ucr1stFactorReceiver.Selector = Nothing + Me.ucr1stFactorReceiver.Size = New System.Drawing.Size(110, 26) + Me.ucr1stFactorReceiver.strNcFilePath = "" + Me.ucr1stFactorReceiver.TabIndex = 100 + Me.ucr1stFactorReceiver.ucrSelector = Nothing + ' + 'lblFacetBy + ' + Me.lblFacetBy.AutoSize = True + Me.lblFacetBy.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblFacetBy.Location = New System.Drawing.Point(204, 322) + Me.lblFacetBy.Name = "lblFacetBy" + Me.lblFacetBy.Size = New System.Drawing.Size(52, 13) + Me.lblFacetBy.TabIndex = 99 + Me.lblFacetBy.Tag = "" + Me.lblFacetBy.Text = "Facet By:" + ' + 'ucrInputLegendPosition + ' + Me.ucrInputLegendPosition.AddQuotesIfUnrecognised = True + Me.ucrInputLegendPosition.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputLegendPosition.GetSetSelectedIndex = -1 + Me.ucrInputLegendPosition.IsReadOnly = False + Me.ucrInputLegendPosition.Location = New System.Drawing.Point(88, 336) + Me.ucrInputLegendPosition.Name = "ucrInputLegendPosition" + Me.ucrInputLegendPosition.Size = New System.Drawing.Size(112, 21) + Me.ucrInputLegendPosition.TabIndex = 103 + ' + 'ucrChkLegend + ' + Me.ucrChkLegend.AutoSize = True + Me.ucrChkLegend.Checked = False + Me.ucrChkLegend.Location = New System.Drawing.Point(9, 337) + Me.ucrChkLegend.Name = "ucrChkLegend" + Me.ucrChkLegend.Size = New System.Drawing.Size(98, 24) + Me.ucrChkLegend.TabIndex = 102 + ' 'dlgCumulativeDistribution ' 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(415, 410) + Me.ClientSize = New System.Drawing.Size(415, 458) + Me.Controls.Add(Me.ucrInputStation) + Me.Controls.Add(Me.ucr1stFactorReceiver) + Me.Controls.Add(Me.lblFacetBy) + Me.Controls.Add(Me.ucrInputLegendPosition) + Me.Controls.Add(Me.ucrChkLegend) Me.Controls.Add(Me.rdoExceedance) Me.Controls.Add(Me.rdoCumulative) Me.Controls.Add(Me.ucrNudBy) @@ -291,4 +356,9 @@ Partial Class dlgCumulativeDistribution Friend WithEvents lblNudby As Label Friend WithEvents rdoExceedance As RadioButton Friend WithEvents rdoCumulative As RadioButton + Friend WithEvents ucrInputStation As ucrInputComboBox + Friend WithEvents ucr1stFactorReceiver As ucrReceiverSingle + Friend WithEvents lblFacetBy As Label + Friend WithEvents ucrInputLegendPosition As ucrInputComboBox + Friend WithEvents ucrChkLegend As ucrCheck End Class diff --git a/instat/dlgCumulativeDistribution.vb b/instat/dlgCumulativeDistribution.vb index dbf8902b5ae..cd123316452 100644 --- a/instat/dlgCumulativeDistribution.vb +++ b/instat/dlgCumulativeDistribution.vb @@ -41,6 +41,21 @@ Public Class dlgCumulativeDistribution Private clsSequence As New RFunction Private bReset As Boolean = True + Private clsFacetFunction As New RFunction + Private clsFacetVariablesOperator As New ROperator + Private clsFacetRowOp As New ROperator + Private clsFacetColOp As New ROperator + Private clsPipeOperator As New ROperator + Private clsGroupByFunction As New RFunction + + Private ReadOnly strNone As String = "None" + Private ReadOnly strFacetWrap As String = "Facet Wrap" + Private ReadOnly strFacetRow As String = "Facet Row" + Private ReadOnly strFacetCol As String = "Facet Column" + + Private bUpdateComboOptions As Boolean = True + Private bUpdatingParameters As Boolean = False + Private strFirstParameterName As String = "stat_ecdf" Private strFirstPointParameterName As String = "stat_ecdf2" Private strYScleParameterName As String = "YscaleContinous" @@ -65,6 +80,7 @@ Public Class dlgCumulativeDistribution Private Sub InitaliseDialog() Dim dctScalesPairs As New Dictionary(Of String, String) + Dim dctLegendPosition As New Dictionary(Of String, String) ucrChkCountsOnYAxis.Enabled = False ' temporary What should this do? @@ -120,6 +136,32 @@ Public Class dlgCumulativeDistribution 'ucrInputComboPad.SetDropDownStyleAsNonEditable() 'ucrInputComboPad.SetRDefault("TRUE") + ucrChkLegend.SetText("Legend:") + ucrChkLegend.AddToLinkedControls({ucrInputLegendPosition}, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="None") + ucrInputLegendPosition.SetDropDownStyleAsNonEditable() + ucrInputLegendPosition.SetParameter(New RParameter("legend.position")) + dctLegendPosition.Add("None", Chr(34) & "none" & Chr(34)) + dctLegendPosition.Add("Left", Chr(34) & "left" & Chr(34)) + dctLegendPosition.Add("Right", Chr(34) & "right" & Chr(34)) + dctLegendPosition.Add("Top", Chr(34) & "top" & Chr(34)) + dctLegendPosition.Add("Bottom", Chr(34) & "bottom" & Chr(34)) + ucrInputLegendPosition.SetItems(dctLegendPosition) + ucrChkLegend.AddParameterPresentCondition(True, "legend.position") + ucrChkLegend.AddParameterPresentCondition(False, "legend.position", False) + + ucr1stFactorReceiver.SetParameter(New RParameter("var1")) + ucr1stFactorReceiver.Selector = ucrCumDistSelector + ucr1stFactorReceiver.SetIncludedDataTypes({"factor"}) + ucr1stFactorReceiver.strSelectorHeading = "Factors" + ucr1stFactorReceiver.bWithQuotes = False + ucr1stFactorReceiver.SetParameterIsString() + ucr1stFactorReceiver.SetValuesToIgnore({"."}) + ucr1stFactorReceiver.SetParameterPosition(1) + ucr1stFactorReceiver.SetLinkedDisplayControl(lblFacetBy) + + ucrInputStation.SetItems({strFacetWrap, strFacetRow, strFacetCol, strNone}) + ucrInputStation.SetDropDownStyleAsNonEditable() + ucrSaveCumDist.SetSaveTypeAsGraph() ucrSaveCumDist.SetDataFrameSelector(ucrCumDistSelector.ucrAvailableDataFrames) ucrSaveCumDist.SetCheckBoxText("Save Graph") @@ -136,6 +178,16 @@ Public Class dlgCumulativeDistribution clsRggplotFunction = New RFunction clsStatECDFAesFunction = New RFunction clsStatECDFPointAesFunction = New RFunction + clsFacetFunction = New RFunction + clsFacetVariablesOperator = New ROperator + clsFacetRowOp = New ROperator + clsFacetColOp = New ROperator + clsPipeOperator = New ROperator + clsGroupByFunction = New RFunction + + ucrInputStation.SetName(strFacetWrap) + ucrInputStation.bUpdateRCodeFromControl = True + clsSequence = New RFunction clsSequence.SetRCommand("seq") @@ -185,6 +237,22 @@ Public Class dlgCumulativeDistribution clsLabsFunction.SetRCommand("labs") clsLabsFunction.AddParameter("y", "NULL") + clsFacetFunction.SetPackageName("ggplot2") + clsFacetRowOp.SetOperation("+") + clsFacetRowOp.bBrackets = False + clsFacetColOp.SetOperation("+") + clsFacetColOp.bBrackets = False + clsFacetVariablesOperator.SetOperation("~") + clsFacetVariablesOperator.bForceIncludeOperation = True + clsFacetVariablesOperator.bBrackets = False + clsFacetFunction.AddParameter("facets", clsROperatorParameter:=clsFacetVariablesOperator, iPosition:=0) + + clsPipeOperator.SetOperation("%>%") + SetPipeAssignTo() + + clsGroupByFunction.SetPackageName("dplyr") + clsGroupByFunction.SetRCommand("group_by") + clsBaseOperator.AddParameter(GgplotDefaults.clsDefaultThemeParameter.Clone()) clsXlabsFunction = GgplotDefaults.clsXlabTitleFunction.Clone() clsLabsFunction = GgplotDefaults.clsDefaultLabs.Clone() @@ -224,6 +292,9 @@ Public Class dlgCumulativeDistribution ucrChkIncludePoints.SetRCode(clsStatECDFPointFunction, bReset) + ucrChkLegend.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + ucrInputLegendPosition.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + ucrNudBy.SetRCode(clsSequence, bReset) End Sub @@ -246,7 +317,7 @@ Public Class dlgCumulativeDistribution sdgPlots.SetRCode(clsBaseOperator, clsNewThemeFunction:=clsThemeFunction, dctNewThemeFunctions:=dctThemeFunctions, clsNewGlobalAesFunction:=clsRaesFunction, clsNewYScalecontinuousFunction:=clsYScalecontinuousFunction, clsNewXScalecontinuousFunction:=clsXScalecontinuousFunction, clsNewXLabsTitleFunction:=clsXlabsFunction, clsNewYLabTitleFunction:=clsYlabFunction, clsNewLabsFunction:=clsLabsFunction, clsNewFacetFunction:=clsRFacetFunction, clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, - clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, ucrNewBaseSelector:=ucrCumDistSelector, clsNewCoordPolarFunction:=clsCoordPolarFunction, + clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, ucrNewBaseSelector:=ucrCumDistSelector, clsNewCoordPolarFunction:=clsCoordPolarFunction, clsNewFacetVariablesOperator:=clsFacetVariablesOperator, clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewXScaleDateFunction:=clsXScaleDateFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, clsNewAnnotateFunction:=clsAnnotateFunction, strMainDialogGeomParameterNames:=strGeomParameterNames, bReset:=bResetSubdialog) sdgPlots.ShowDialog() @@ -275,4 +346,173 @@ Public Class dlgCumulativeDistribution clsBaseOperator.RemoveParameterByName(strFirstPointParameterName) End If End Sub + + Private Sub AddRemoveTheme() + If clsThemeFunction.iParameterCount > 0 Then + clsBaseOperator.AddParameter("theme", clsRFunctionParameter:=clsThemeFunction, iPosition:=15) + Else + clsBaseOperator.RemoveParameterByName("theme") + End If + End Sub + + Private Sub ucrChkLegend_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkLegend.ControlValueChanged, ucrInputLegendPosition.ControlValueChanged + AddRemoveTheme() + End Sub + + Private Sub AutoFacetStation() + Dim currentReceiver As ucrReceiver = ucrCumDistSelector.CurrentReceiver + + If currentReceiver IsNot Nothing Then + ucr1stFactorReceiver.AddItemsWithMetadataProperty(ucrCumDistSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text, "Climatic_Type", {"station_label"}) + currentReceiver.SetMeAsReceiver() + AddRemoveGroupBy() + End If + End Sub + Private Sub ucrInput_ControlValueChanged(ucrChangedControl As ucrInputComboBox) Handles ucrInputStation.ControlValueChanged + If Not bUpdateComboOptions Then + Exit Sub + End If + Dim strChangedText As String = ucrChangedControl.GetText() + If strChangedText <> strNone Then + If Not strChangedText = strFacetCol AndAlso Not strChangedText = strFacetRow AndAlso + Not ucrInputStation.Equals(ucrChangedControl) AndAlso ucrInputStation.GetText() = strChangedText Then + bUpdateComboOptions = False + ucrInputStation.SetName(strNone) + bUpdateComboOptions = True + End If + If (strChangedText = strFacetWrap AndAlso ucrInputStation.GetText = strFacetRow) OrElse (strChangedText = strFacetRow AndAlso + ucrInputStation.GetText = strFacetWrap) OrElse (strChangedText = strFacetWrap AndAlso + ucrInputStation.GetText = strFacetCol) OrElse (strChangedText = strFacetCol AndAlso ucrInputStation.GetText = strFacetWrap) Then + ucrInputStation.SetName(strNone) + End If + End If + UpdateParameters() + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub UpdateParameters() + clsFacetVariablesOperator.RemoveParameterByName("var1") + clsFacetColOp.RemoveParameterByName("col" & ucrInputStation.Name) + clsFacetRowOp.RemoveParameterByName("row" & ucrInputStation.Name) + + clsBaseOperator.RemoveParameterByName("facets") + bUpdatingParameters = True + ucr1stFactorReceiver.SetRCode(Nothing) + Select Case ucrInputStation.GetText() + Case strFacetWrap + ucr1stFactorReceiver.ChangeParameterName("var1") + ucr1stFactorReceiver.SetRCode(clsFacetVariablesOperator) + Case strFacetCol + ucr1stFactorReceiver.ChangeParameterName("col" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetColOp) + Case strFacetRow + ucr1stFactorReceiver.ChangeParameterName("row" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetRowOp) + End Select + If Not clsRaesFunction.ContainsParameter("x") Then + clsRaesFunction.AddParameter("x", Chr(34) & Chr(34)) + End If + bUpdatingParameters = False + End Sub + + Private Sub AddRemoveFacets() + Dim bWrap As Boolean = False + Dim bCol As Boolean = False + Dim bRow As Boolean = False + + If bUpdatingParameters Then + Exit Sub + End If + + clsBaseOperator.RemoveParameterByName("facets") + If Not ucr1stFactorReceiver.IsEmpty Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + bWrap = True + Case strFacetCol + bCol = True + Case strFacetRow + bRow = True + End Select + End If + + If bWrap OrElse bRow OrElse bCol Then + clsBaseOperator.AddParameter("facets", clsRFunctionParameter:=clsFacetFunction) + End If + If bWrap Then + clsFacetFunction.SetRCommand("facet_wrap") + End If + If bRow OrElse bCol Then + clsFacetFunction.SetRCommand("facet_grid") + End If + If bRow Then + clsFacetVariablesOperator.AddParameter("left", clsROperatorParameter:=clsFacetRowOp, iPosition:=0) + ElseIf bCol AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("left", ".", iPosition:=0) + Else + clsFacetVariablesOperator.RemoveParameterByName("left") + End If + If bCol Then + clsFacetVariablesOperator.AddParameter("right", clsROperatorParameter:=clsFacetColOp, iPosition:=1) + ElseIf bRow AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("right", ".", iPosition:=1) + Else + clsFacetVariablesOperator.RemoveParameterByName("right") + End If + End Sub + + Private Sub ucr1stFactorReceiver_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucr1stFactorReceiver.ControlValueChanged, ucrVariablesAsFactorforCumDist.ControlValueChanged + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub GetParameterValue(clsOperator As ROperator) + Dim i As Integer = 0 + For Each clsTempParam As RParameter In clsOperator.clsParameters + If clsTempParam.strArgumentValue <> "" AndAlso clsTempParam.strArgumentValue <> "." Then + clsGroupByFunction.AddParameter(i, clsTempParam.strArgumentValue, bIncludeArgumentName:=False, iPosition:=i) + i = i + 1 + End If + Next + End Sub + + Private Sub AddRemoveGroupBy() + If clsPipeOperator.ContainsParameter("mutate") Then + clsGroupByFunction.ClearParameters() + If clsBaseOperator.ContainsParameter("facets") Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + GetParameterValue(clsFacetVariablesOperator) + Case strFacetCol + GetParameterValue(clsFacetColOp) + Case strFacetRow + GetParameterValue(clsFacetRowOp) + End Select + End If + + If clsGroupByFunction.iParameterCount > 0 Then + clsPipeOperator.AddParameter("group_by", clsRFunctionParameter:=clsGroupByFunction, iPosition:=1) + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + + SetPipeAssignTo() + End Sub + + Private Sub SetPipeAssignTo() + If ucrCumDistSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text <> "" AndAlso clsPipeOperator.clsParameters.Count > 1 Then + clsPipeOperator.SetAssignTo(ucrCumDistSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + Else + clsPipeOperator.RemoveAssignTo() + End If + End Sub + + Private Sub ucrCumDistSelector_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrCumDistSelector.ControlValueChanged + AutoFacetStation() + SetPipeAssignTo() + End Sub End Class \ No newline at end of file diff --git a/instat/dlgEndOfRainsSeason.Designer.vb b/instat/dlgEndOfRainsSeason.Designer.vb index 538b4708bfc..8b4b8203617 100644 --- a/instat/dlgEndOfRainsSeason.Designer.vb +++ b/instat/dlgEndOfRainsSeason.Designer.vb @@ -51,7 +51,6 @@ Partial Class dlgEndOfRainsSeason Me.cmdDoyRange = New System.Windows.Forms.Button() Me.rdoVariableEvaporation = New System.Windows.Forms.RadioButton() Me.rdoValueEvaporation = New System.Windows.Forms.RadioButton() - Me.lblReplaceNA = New System.Windows.Forms.Label() Me.grpEndofSeason = New System.Windows.Forms.GroupBox() Me.ucrInputEndofSeasonOccurence = New instat.ucrInputTextBox() Me.ucrInputSeasonDoy = New instat.ucrInputTextBox() @@ -69,7 +68,6 @@ Partial Class dlgEndOfRainsSeason Me.rdoEndOfSeasons = New System.Windows.Forms.RadioButton() Me.rdoEndOfRains = New System.Windows.Forms.RadioButton() Me.ucrPnlEndOfRainsAndSeasons = New instat.UcrPanel() - Me.ucrInputReplaceNA = New instat.ucrInputTextBox() Me.ucrReceiverEvaporation = New instat.ucrReceiverSingle() Me.ucrInputEvaporation = New instat.ucrInputTextBox() Me.ucrPnlEvaporation = New instat.UcrPanel() @@ -94,40 +92,36 @@ Partial Class dlgEndOfRainsSeason 'lblYear ' Me.lblYear.AutoSize = True - Me.lblYear.Location = New System.Drawing.Point(459, 206) - Me.lblYear.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblYear.Location = New System.Drawing.Point(306, 137) Me.lblYear.Name = "lblYear" - Me.lblYear.Size = New System.Drawing.Size(47, 20) + Me.lblYear.Size = New System.Drawing.Size(32, 13) Me.lblYear.TabIndex = 5 Me.lblYear.Text = "Year:" ' 'lblDate ' Me.lblDate.AutoSize = True - Me.lblDate.Location = New System.Drawing.Point(459, 136) - Me.lblDate.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblDate.Location = New System.Drawing.Point(306, 91) Me.lblDate.Name = "lblDate" - Me.lblDate.Size = New System.Drawing.Size(48, 20) + Me.lblDate.Size = New System.Drawing.Size(33, 13) Me.lblDate.TabIndex = 3 Me.lblDate.Text = "Date:" ' 'lblDOY ' Me.lblDOY.AutoSize = True - Me.lblDOY.Location = New System.Drawing.Point(459, 272) - Me.lblDOY.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblDOY.Location = New System.Drawing.Point(306, 181) Me.lblDOY.Name = "lblDOY" - Me.lblDOY.Size = New System.Drawing.Size(97, 20) + Me.lblDOY.Size = New System.Drawing.Size(66, 13) Me.lblDOY.TabIndex = 7 Me.lblDOY.Text = "Day of Year:" ' 'lblCapacity ' Me.lblCapacity.AutoSize = True - Me.lblCapacity.Location = New System.Drawing.Point(24, 465) - Me.lblCapacity.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblCapacity.Location = New System.Drawing.Point(16, 310) Me.lblCapacity.Name = "lblCapacity" - Me.lblCapacity.Size = New System.Drawing.Size(74, 20) + Me.lblCapacity.Size = New System.Drawing.Size(51, 13) Me.lblCapacity.TabIndex = 20 Me.lblCapacity.Tag = "Capacity:" Me.lblCapacity.Text = "Capacity:" @@ -135,60 +129,54 @@ Partial Class dlgEndOfRainsSeason 'lblRainfall ' Me.lblRainfall.AutoSize = True - Me.lblRainfall.Location = New System.Drawing.Point(459, 338) - Me.lblRainfall.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblRainfall.Location = New System.Drawing.Point(306, 225) Me.lblRainfall.Name = "lblRainfall" - Me.lblRainfall.Size = New System.Drawing.Size(104, 20) + Me.lblRainfall.Size = New System.Drawing.Size(70, 13) Me.lblRainfall.TabIndex = 9 Me.lblRainfall.Text = "Rain Column:" ' 'lblEvaporation ' Me.lblEvaporation.AutoSize = True - Me.lblEvaporation.Location = New System.Drawing.Point(22, 517) - Me.lblEvaporation.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEvaporation.Location = New System.Drawing.Point(15, 345) Me.lblEvaporation.Name = "lblEvaporation" - Me.lblEvaporation.Size = New System.Drawing.Size(98, 20) + Me.lblEvaporation.Size = New System.Drawing.Size(67, 13) Me.lblEvaporation.TabIndex = 24 Me.lblEvaporation.Text = "Evaporation:" ' 'lblStation ' Me.lblStation.AutoSize = True - Me.lblStation.Location = New System.Drawing.Point(459, 69) - Me.lblStation.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblStation.Location = New System.Drawing.Point(306, 46) Me.lblStation.Name = "lblStation" - Me.lblStation.Size = New System.Drawing.Size(64, 20) + Me.lblStation.Size = New System.Drawing.Size(43, 13) Me.lblStation.TabIndex = 1 Me.lblStation.Text = "Station:" ' 'lblAmount ' Me.lblAmount.AutoSize = True - Me.lblAmount.Location = New System.Drawing.Point(22, 465) - Me.lblAmount.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblAmount.Location = New System.Drawing.Point(15, 310) Me.lblAmount.Name = "lblAmount" - Me.lblAmount.Size = New System.Drawing.Size(69, 20) + Me.lblAmount.Size = New System.Drawing.Size(46, 13) Me.lblAmount.TabIndex = 14 Me.lblAmount.Text = "Amount:" ' 'lblTotalOverDays ' Me.lblTotalOverDays.AutoSize = True - Me.lblTotalOverDays.Location = New System.Drawing.Point(242, 465) - Me.lblTotalOverDays.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblTotalOverDays.Location = New System.Drawing.Point(161, 310) Me.lblTotalOverDays.Name = "lblTotalOverDays" - Me.lblTotalOverDays.Size = New System.Drawing.Size(96, 20) + Me.lblTotalOverDays.Size = New System.Drawing.Size(66, 13) Me.lblTotalOverDays.TabIndex = 16 Me.lblTotalOverDays.Text = "Over Day(s):" ' 'lblWaterBalanceLessThan ' Me.lblWaterBalanceLessThan.AutoSize = True - Me.lblWaterBalanceLessThan.Location = New System.Drawing.Point(202, 465) - Me.lblWaterBalanceLessThan.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblWaterBalanceLessThan.Location = New System.Drawing.Point(135, 310) Me.lblWaterBalanceLessThan.Name = "lblWaterBalanceLessThan" - Me.lblWaterBalanceLessThan.Size = New System.Drawing.Size(136, 20) + Me.lblWaterBalanceLessThan.Size = New System.Drawing.Size(93, 13) Me.lblWaterBalanceLessThan.TabIndex = 22 Me.lblWaterBalanceLessThan.Tag = "Water Balance <=" Me.lblWaterBalanceLessThan.Text = "Water Balance <=" @@ -196,10 +184,9 @@ Partial Class dlgEndOfRainsSeason 'cmdDoyRange ' Me.cmdDoyRange.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.cmdDoyRange.Location = New System.Drawing.Point(33, 405) - Me.cmdDoyRange.Margin = New System.Windows.Forms.Padding(4) + Me.cmdDoyRange.Location = New System.Drawing.Point(22, 270) Me.cmdDoyRange.Name = "cmdDoyRange" - Me.cmdDoyRange.Size = New System.Drawing.Size(158, 39) + Me.cmdDoyRange.Size = New System.Drawing.Size(105, 26) Me.cmdDoyRange.TabIndex = 11 Me.cmdDoyRange.Tag = "" Me.cmdDoyRange.Text = "Day Range" @@ -208,10 +195,9 @@ Partial Class dlgEndOfRainsSeason 'rdoVariableEvaporation ' Me.rdoVariableEvaporation.AutoSize = True - Me.rdoVariableEvaporation.Location = New System.Drawing.Point(335, 513) - Me.rdoVariableEvaporation.Margin = New System.Windows.Forms.Padding(4) + Me.rdoVariableEvaporation.Location = New System.Drawing.Point(223, 342) Me.rdoVariableEvaporation.Name = "rdoVariableEvaporation" - Me.rdoVariableEvaporation.Size = New System.Drawing.Size(92, 24) + Me.rdoVariableEvaporation.Size = New System.Drawing.Size(63, 17) Me.rdoVariableEvaporation.TabIndex = 28 Me.rdoVariableEvaporation.Text = "Variable" Me.rdoVariableEvaporation.UseVisualStyleBackColor = True @@ -219,24 +205,13 @@ Partial Class dlgEndOfRainsSeason 'rdoValueEvaporation ' Me.rdoValueEvaporation.AutoSize = True - Me.rdoValueEvaporation.Location = New System.Drawing.Point(144, 513) - Me.rdoValueEvaporation.Margin = New System.Windows.Forms.Padding(4) + Me.rdoValueEvaporation.Location = New System.Drawing.Point(96, 342) Me.rdoValueEvaporation.Name = "rdoValueEvaporation" - Me.rdoValueEvaporation.Size = New System.Drawing.Size(75, 24) + Me.rdoValueEvaporation.Size = New System.Drawing.Size(52, 17) Me.rdoValueEvaporation.TabIndex = 26 Me.rdoValueEvaporation.Text = "Value" Me.rdoValueEvaporation.UseVisualStyleBackColor = True ' - 'lblReplaceNA - ' - Me.lblReplaceNA.AutoSize = True - Me.lblReplaceNA.Location = New System.Drawing.Point(122, 603) - Me.lblReplaceNA.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblReplaceNA.Name = "lblReplaceNA" - Me.lblReplaceNA.Size = New System.Drawing.Size(130, 20) - Me.lblReplaceNA.TabIndex = 30 - Me.lblReplaceNA.Text = "Replace NA with:" - ' 'grpEndofSeason ' Me.grpEndofSeason.Controls.Add(Me.ucrInputEndofSeasonOccurence) @@ -245,11 +220,9 @@ Partial Class dlgEndOfRainsSeason Me.grpEndofSeason.Controls.Add(Me.ucrChkEndofSeasonOccurence) Me.grpEndofSeason.Controls.Add(Me.ucrChkEndofSeasonDate) Me.grpEndofSeason.Controls.Add(Me.ucrChkEndofSeasonDoy) - Me.grpEndofSeason.Location = New System.Drawing.Point(4, 639) - Me.grpEndofSeason.Margin = New System.Windows.Forms.Padding(4) + Me.grpEndofSeason.Location = New System.Drawing.Point(3, 426) Me.grpEndofSeason.Name = "grpEndofSeason" - Me.grpEndofSeason.Padding = New System.Windows.Forms.Padding(4) - Me.grpEndofSeason.Size = New System.Drawing.Size(708, 62) + Me.grpEndofSeason.Size = New System.Drawing.Size(472, 41) Me.grpEndofSeason.TabIndex = 32 Me.grpEndofSeason.TabStop = False Me.grpEndofSeason.Text = "End of Season" @@ -260,10 +233,10 @@ Partial Class dlgEndOfRainsSeason Me.ucrInputEndofSeasonOccurence.AutoSize = True Me.ucrInputEndofSeasonOccurence.IsMultiline = False Me.ucrInputEndofSeasonOccurence.IsReadOnly = False - Me.ucrInputEndofSeasonOccurence.Location = New System.Drawing.Point(542, 22) - Me.ucrInputEndofSeasonOccurence.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputEndofSeasonOccurence.Location = New System.Drawing.Point(361, 15) + Me.ucrInputEndofSeasonOccurence.Margin = New System.Windows.Forms.Padding(9) Me.ucrInputEndofSeasonOccurence.Name = "ucrInputEndofSeasonOccurence" - Me.ucrInputEndofSeasonOccurence.Size = New System.Drawing.Size(156, 32) + Me.ucrInputEndofSeasonOccurence.Size = New System.Drawing.Size(104, 21) Me.ucrInputEndofSeasonOccurence.TabIndex = 38 ' 'ucrInputSeasonDoy @@ -272,10 +245,10 @@ Partial Class dlgEndOfRainsSeason Me.ucrInputSeasonDoy.AutoSize = True Me.ucrInputSeasonDoy.IsMultiline = False Me.ucrInputSeasonDoy.IsReadOnly = False - Me.ucrInputSeasonDoy.Location = New System.Drawing.Point(74, 22) - Me.ucrInputSeasonDoy.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputSeasonDoy.Location = New System.Drawing.Point(49, 15) + Me.ucrInputSeasonDoy.Margin = New System.Windows.Forms.Padding(9) Me.ucrInputSeasonDoy.Name = "ucrInputSeasonDoy" - Me.ucrInputSeasonDoy.Size = New System.Drawing.Size(100, 32) + Me.ucrInputSeasonDoy.Size = New System.Drawing.Size(67, 21) Me.ucrInputSeasonDoy.TabIndex = 32 ' 'ucrInputEndofSeasonDate @@ -284,40 +257,40 @@ Partial Class dlgEndOfRainsSeason Me.ucrInputEndofSeasonDate.AutoSize = True Me.ucrInputEndofSeasonDate.IsMultiline = False Me.ucrInputEndofSeasonDate.IsReadOnly = False - Me.ucrInputEndofSeasonDate.Location = New System.Drawing.Point(248, 22) - Me.ucrInputEndofSeasonDate.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputEndofSeasonDate.Location = New System.Drawing.Point(165, 15) + Me.ucrInputEndofSeasonDate.Margin = New System.Windows.Forms.Padding(9) Me.ucrInputEndofSeasonDate.Name = "ucrInputEndofSeasonDate" - Me.ucrInputEndofSeasonDate.Size = New System.Drawing.Size(165, 32) + Me.ucrInputEndofSeasonDate.Size = New System.Drawing.Size(110, 21) Me.ucrInputEndofSeasonDate.TabIndex = 37 ' 'ucrChkEndofSeasonOccurence ' Me.ucrChkEndofSeasonOccurence.AutoSize = True Me.ucrChkEndofSeasonOccurence.Checked = False - Me.ucrChkEndofSeasonOccurence.Location = New System.Drawing.Point(422, 26) - Me.ucrChkEndofSeasonOccurence.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkEndofSeasonOccurence.Location = New System.Drawing.Point(281, 17) + Me.ucrChkEndofSeasonOccurence.Margin = New System.Windows.Forms.Padding(6) Me.ucrChkEndofSeasonOccurence.Name = "ucrChkEndofSeasonOccurence" - Me.ucrChkEndofSeasonOccurence.Size = New System.Drawing.Size(126, 51) + Me.ucrChkEndofSeasonOccurence.Size = New System.Drawing.Size(84, 34) Me.ucrChkEndofSeasonOccurence.TabIndex = 48 ' 'ucrChkEndofSeasonDate ' Me.ucrChkEndofSeasonDate.AutoSize = True Me.ucrChkEndofSeasonDate.Checked = False - Me.ucrChkEndofSeasonDate.Location = New System.Drawing.Point(182, 24) - Me.ucrChkEndofSeasonDate.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkEndofSeasonDate.Location = New System.Drawing.Point(121, 16) + Me.ucrChkEndofSeasonDate.Margin = New System.Windows.Forms.Padding(6) Me.ucrChkEndofSeasonDate.Name = "ucrChkEndofSeasonDate" - Me.ucrChkEndofSeasonDate.Size = New System.Drawing.Size(80, 51) + Me.ucrChkEndofSeasonDate.Size = New System.Drawing.Size(53, 34) Me.ucrChkEndofSeasonDate.TabIndex = 47 ' 'ucrChkEndofSeasonDoy ' Me.ucrChkEndofSeasonDoy.AutoSize = True Me.ucrChkEndofSeasonDoy.Checked = False - Me.ucrChkEndofSeasonDoy.Location = New System.Drawing.Point(6, 24) - Me.ucrChkEndofSeasonDoy.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkEndofSeasonDoy.Location = New System.Drawing.Point(4, 16) + Me.ucrChkEndofSeasonDoy.Margin = New System.Windows.Forms.Padding(6) Me.ucrChkEndofSeasonDoy.Name = "ucrChkEndofSeasonDoy" - Me.ucrChkEndofSeasonDoy.Size = New System.Drawing.Size(87, 51) + Me.ucrChkEndofSeasonDoy.Size = New System.Drawing.Size(58, 34) Me.ucrChkEndofSeasonDoy.TabIndex = 46 ' 'grpEndofRains @@ -328,11 +301,9 @@ Partial Class dlgEndOfRainsSeason Me.grpEndofRains.Controls.Add(Me.ucrChkEndofRainsDoy) Me.grpEndofRains.Controls.Add(Me.ucrChkEndofRainsDate) Me.grpEndofRains.Controls.Add(Me.ucrChkEndofRainsOccurence) - Me.grpEndofRains.Location = New System.Drawing.Point(4, 639) - Me.grpEndofRains.Margin = New System.Windows.Forms.Padding(4) + Me.grpEndofRains.Location = New System.Drawing.Point(3, 426) Me.grpEndofRains.Name = "grpEndofRains" - Me.grpEndofRains.Padding = New System.Windows.Forms.Padding(4) - Me.grpEndofRains.Size = New System.Drawing.Size(644, 60) + Me.grpEndofRains.Size = New System.Drawing.Size(429, 40) Me.grpEndofRains.TabIndex = 18 Me.grpEndofRains.TabStop = False Me.grpEndofRains.Text = "End of Rains" @@ -343,10 +314,10 @@ Partial Class dlgEndOfRainsSeason Me.ucrInputEndofRainsDate.AutoSize = True Me.ucrInputEndofRainsDate.IsMultiline = False Me.ucrInputEndofRainsDate.IsReadOnly = False - Me.ucrInputEndofRainsDate.Location = New System.Drawing.Point(248, 26) - Me.ucrInputEndofRainsDate.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputEndofRainsDate.Location = New System.Drawing.Point(165, 17) + Me.ucrInputEndofRainsDate.Margin = New System.Windows.Forms.Padding(9) Me.ucrInputEndofRainsDate.Name = "ucrInputEndofRainsDate" - Me.ucrInputEndofRainsDate.Size = New System.Drawing.Size(140, 26) + Me.ucrInputEndofRainsDate.Size = New System.Drawing.Size(93, 17) Me.ucrInputEndofRainsDate.TabIndex = 36 ' 'ucrInputEndofRainsOccurence @@ -355,10 +326,10 @@ Partial Class dlgEndOfRainsSeason Me.ucrInputEndofRainsOccurence.AutoSize = True Me.ucrInputEndofRainsOccurence.IsMultiline = False Me.ucrInputEndofRainsOccurence.IsReadOnly = False - Me.ucrInputEndofRainsOccurence.Location = New System.Drawing.Point(512, 24) - Me.ucrInputEndofRainsOccurence.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputEndofRainsOccurence.Location = New System.Drawing.Point(341, 16) + Me.ucrInputEndofRainsOccurence.Margin = New System.Windows.Forms.Padding(9) Me.ucrInputEndofRainsOccurence.Name = "ucrInputEndofRainsOccurence" - Me.ucrInputEndofRainsOccurence.Size = New System.Drawing.Size(141, 30) + Me.ucrInputEndofRainsOccurence.Size = New System.Drawing.Size(94, 20) Me.ucrInputEndofRainsOccurence.TabIndex = 39 ' 'ucrInputEndRainDoy @@ -367,40 +338,40 @@ Partial Class dlgEndOfRainsSeason Me.ucrInputEndRainDoy.AutoSize = True Me.ucrInputEndRainDoy.IsMultiline = False Me.ucrInputEndRainDoy.IsReadOnly = False - Me.ucrInputEndRainDoy.Location = New System.Drawing.Point(75, 26) - Me.ucrInputEndRainDoy.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputEndRainDoy.Location = New System.Drawing.Point(50, 17) + Me.ucrInputEndRainDoy.Margin = New System.Windows.Forms.Padding(9) Me.ucrInputEndRainDoy.Name = "ucrInputEndRainDoy" - Me.ucrInputEndRainDoy.Size = New System.Drawing.Size(98, 32) + Me.ucrInputEndRainDoy.Size = New System.Drawing.Size(65, 21) Me.ucrInputEndRainDoy.TabIndex = 50 ' 'ucrChkEndofRainsDoy ' Me.ucrChkEndofRainsDoy.AutoSize = True Me.ucrChkEndofRainsDoy.Checked = False - Me.ucrChkEndofRainsDoy.Location = New System.Drawing.Point(8, 27) - Me.ucrChkEndofRainsDoy.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkEndofRainsDoy.Location = New System.Drawing.Point(5, 18) + Me.ucrChkEndofRainsDoy.Margin = New System.Windows.Forms.Padding(6) Me.ucrChkEndofRainsDoy.Name = "ucrChkEndofRainsDoy" - Me.ucrChkEndofRainsDoy.Size = New System.Drawing.Size(90, 51) + Me.ucrChkEndofRainsDoy.Size = New System.Drawing.Size(60, 34) Me.ucrChkEndofRainsDoy.TabIndex = 49 ' 'ucrChkEndofRainsDate ' Me.ucrChkEndofRainsDate.AutoSize = True Me.ucrChkEndofRainsDate.Checked = False - Me.ucrChkEndofRainsDate.Location = New System.Drawing.Point(177, 26) - Me.ucrChkEndofRainsDate.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkEndofRainsDate.Location = New System.Drawing.Point(118, 17) + Me.ucrChkEndofRainsDate.Margin = New System.Windows.Forms.Padding(6) Me.ucrChkEndofRainsDate.Name = "ucrChkEndofRainsDate" - Me.ucrChkEndofRainsDate.Size = New System.Drawing.Size(78, 51) + Me.ucrChkEndofRainsDate.Size = New System.Drawing.Size(52, 34) Me.ucrChkEndofRainsDate.TabIndex = 48 ' 'ucrChkEndofRainsOccurence ' Me.ucrChkEndofRainsOccurence.AutoSize = True Me.ucrChkEndofRainsOccurence.Checked = False - Me.ucrChkEndofRainsOccurence.Location = New System.Drawing.Point(396, 24) - Me.ucrChkEndofRainsOccurence.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkEndofRainsOccurence.Location = New System.Drawing.Point(264, 16) + Me.ucrChkEndofRainsOccurence.Margin = New System.Windows.Forms.Padding(6) Me.ucrChkEndofRainsOccurence.Name = "ucrChkEndofRainsOccurence" - Me.ucrChkEndofRainsOccurence.Size = New System.Drawing.Size(136, 51) + Me.ucrChkEndofRainsOccurence.Size = New System.Drawing.Size(91, 34) Me.ucrChkEndofRainsOccurence.TabIndex = 47 ' 'rdoEndOfSeasons @@ -411,10 +382,9 @@ Partial Class dlgEndOfRainsSeason Me.rdoEndOfSeasons.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption Me.rdoEndOfSeasons.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.rdoEndOfSeasons.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.rdoEndOfSeasons.Location = New System.Drawing.Point(326, 15) - Me.rdoEndOfSeasons.Margin = New System.Windows.Forms.Padding(4) + Me.rdoEndOfSeasons.Location = New System.Drawing.Point(217, 10) Me.rdoEndOfSeasons.Name = "rdoEndOfSeasons" - Me.rdoEndOfSeasons.Size = New System.Drawing.Size(195, 40) + Me.rdoEndOfSeasons.Size = New System.Drawing.Size(130, 27) Me.rdoEndOfSeasons.TabIndex = 36 Me.rdoEndOfSeasons.Text = "End of Season" Me.rdoEndOfSeasons.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -428,10 +398,9 @@ Partial Class dlgEndOfRainsSeason Me.rdoEndOfRains.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption Me.rdoEndOfRains.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.rdoEndOfRains.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.rdoEndOfRains.Location = New System.Drawing.Point(134, 15) - Me.rdoEndOfRains.Margin = New System.Windows.Forms.Padding(4) + Me.rdoEndOfRains.Location = New System.Drawing.Point(89, 10) Me.rdoEndOfRains.Name = "rdoEndOfRains" - Me.rdoEndOfRains.Size = New System.Drawing.Size(195, 40) + Me.rdoEndOfRains.Size = New System.Drawing.Size(130, 27) Me.rdoEndOfRains.TabIndex = 35 Me.rdoEndOfRains.Text = "End of Rains" Me.rdoEndOfRains.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -440,33 +409,21 @@ Partial Class dlgEndOfRainsSeason 'ucrPnlEndOfRainsAndSeasons ' Me.ucrPnlEndOfRainsAndSeasons.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrPnlEndOfRainsAndSeasons.Location = New System.Drawing.Point(118, 14) - Me.ucrPnlEndOfRainsAndSeasons.Margin = New System.Windows.Forms.Padding(9) + Me.ucrPnlEndOfRainsAndSeasons.Location = New System.Drawing.Point(79, 9) + Me.ucrPnlEndOfRainsAndSeasons.Margin = New System.Windows.Forms.Padding(6) Me.ucrPnlEndOfRainsAndSeasons.Name = "ucrPnlEndOfRainsAndSeasons" - Me.ucrPnlEndOfRainsAndSeasons.Size = New System.Drawing.Size(410, 52) + Me.ucrPnlEndOfRainsAndSeasons.Size = New System.Drawing.Size(273, 35) Me.ucrPnlEndOfRainsAndSeasons.TabIndex = 34 ' - 'ucrInputReplaceNA - ' - Me.ucrInputReplaceNA.AddQuotesIfUnrecognised = True - Me.ucrInputReplaceNA.AutoSize = True - Me.ucrInputReplaceNA.IsMultiline = False - Me.ucrInputReplaceNA.IsReadOnly = False - Me.ucrInputReplaceNA.Location = New System.Drawing.Point(264, 596) - Me.ucrInputReplaceNA.Margin = New System.Windows.Forms.Padding(14) - Me.ucrInputReplaceNA.Name = "ucrInputReplaceNA" - Me.ucrInputReplaceNA.Size = New System.Drawing.Size(78, 32) - Me.ucrInputReplaceNA.TabIndex = 31 - ' 'ucrReceiverEvaporation ' Me.ucrReceiverEvaporation.AutoSize = True Me.ucrReceiverEvaporation.frmParent = Me - Me.ucrReceiverEvaporation.Location = New System.Drawing.Point(431, 513) + Me.ucrReceiverEvaporation.Location = New System.Drawing.Point(287, 342) Me.ucrReceiverEvaporation.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverEvaporation.Name = "ucrReceiverEvaporation" Me.ucrReceiverEvaporation.Selector = Nothing - Me.ucrReceiverEvaporation.Size = New System.Drawing.Size(210, 30) + Me.ucrReceiverEvaporation.Size = New System.Drawing.Size(140, 20) Me.ucrReceiverEvaporation.strNcFilePath = "" Me.ucrReceiverEvaporation.TabIndex = 29 Me.ucrReceiverEvaporation.ucrSelector = Nothing @@ -477,19 +434,19 @@ Partial Class dlgEndOfRainsSeason Me.ucrInputEvaporation.AutoSize = True Me.ucrInputEvaporation.IsMultiline = False Me.ucrInputEvaporation.IsReadOnly = False - Me.ucrInputEvaporation.Location = New System.Drawing.Point(230, 513) - Me.ucrInputEvaporation.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputEvaporation.Location = New System.Drawing.Point(153, 342) + Me.ucrInputEvaporation.Margin = New System.Windows.Forms.Padding(9) Me.ucrInputEvaporation.Name = "ucrInputEvaporation" - Me.ucrInputEvaporation.Size = New System.Drawing.Size(96, 32) + Me.ucrInputEvaporation.Size = New System.Drawing.Size(64, 21) Me.ucrInputEvaporation.TabIndex = 27 ' 'ucrPnlEvaporation ' Me.ucrPnlEvaporation.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrPnlEvaporation.Location = New System.Drawing.Point(144, 505) - Me.ucrPnlEvaporation.Margin = New System.Windows.Forms.Padding(9) + Me.ucrPnlEvaporation.Location = New System.Drawing.Point(96, 337) + Me.ucrPnlEvaporation.Margin = New System.Windows.Forms.Padding(6) Me.ucrPnlEvaporation.Name = "ucrPnlEvaporation" - Me.ucrPnlEvaporation.Size = New System.Drawing.Size(518, 40) + Me.ucrPnlEvaporation.Size = New System.Drawing.Size(345, 27) Me.ucrPnlEvaporation.TabIndex = 25 ' 'ucrInputFilterPreview @@ -498,10 +455,10 @@ Partial Class dlgEndOfRainsSeason Me.ucrInputFilterPreview.AutoSize = True Me.ucrInputFilterPreview.IsMultiline = False Me.ucrInputFilterPreview.IsReadOnly = True - Me.ucrInputFilterPreview.Location = New System.Drawing.Point(196, 410) - Me.ucrInputFilterPreview.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputFilterPreview.Location = New System.Drawing.Point(131, 273) + Me.ucrInputFilterPreview.Margin = New System.Windows.Forms.Padding(9) Me.ucrInputFilterPreview.Name = "ucrInputFilterPreview" - Me.ucrInputFilterPreview.Size = New System.Drawing.Size(363, 33) + Me.ucrInputFilterPreview.Size = New System.Drawing.Size(242, 22) Me.ucrInputFilterPreview.TabIndex = 12 ' 'ucrNudTotalOverDays @@ -509,12 +466,12 @@ Partial Class dlgEndOfRainsSeason Me.ucrNudTotalOverDays.AutoSize = True Me.ucrNudTotalOverDays.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudTotalOverDays.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudTotalOverDays.Location = New System.Drawing.Point(350, 462) - Me.ucrNudTotalOverDays.Margin = New System.Windows.Forms.Padding(9) + Me.ucrNudTotalOverDays.Location = New System.Drawing.Point(233, 308) + Me.ucrNudTotalOverDays.Margin = New System.Windows.Forms.Padding(6) Me.ucrNudTotalOverDays.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) Me.ucrNudTotalOverDays.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudTotalOverDays.Name = "ucrNudTotalOverDays" - Me.ucrNudTotalOverDays.Size = New System.Drawing.Size(75, 30) + Me.ucrNudTotalOverDays.Size = New System.Drawing.Size(50, 20) Me.ucrNudTotalOverDays.TabIndex = 17 Me.ucrNudTotalOverDays.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' @@ -523,12 +480,12 @@ Partial Class dlgEndOfRainsSeason Me.ucrNudAmount.AutoSize = True Me.ucrNudAmount.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudAmount.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudAmount.Location = New System.Drawing.Point(102, 462) - Me.ucrNudAmount.Margin = New System.Windows.Forms.Padding(9) + Me.ucrNudAmount.Location = New System.Drawing.Point(68, 308) + Me.ucrNudAmount.Margin = New System.Windows.Forms.Padding(6) Me.ucrNudAmount.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) Me.ucrNudAmount.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudAmount.Name = "ucrNudAmount" - Me.ucrNudAmount.Size = New System.Drawing.Size(75, 30) + Me.ucrNudAmount.Size = New System.Drawing.Size(50, 20) Me.ucrNudAmount.TabIndex = 15 Me.ucrNudAmount.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' @@ -537,12 +494,12 @@ Partial Class dlgEndOfRainsSeason Me.ucrNudWBLessThan.AutoSize = True Me.ucrNudWBLessThan.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudWBLessThan.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudWBLessThan.Location = New System.Drawing.Point(351, 462) - Me.ucrNudWBLessThan.Margin = New System.Windows.Forms.Padding(9) + Me.ucrNudWBLessThan.Location = New System.Drawing.Point(234, 308) + Me.ucrNudWBLessThan.Margin = New System.Windows.Forms.Padding(6) Me.ucrNudWBLessThan.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) Me.ucrNudWBLessThan.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudWBLessThan.Name = "ucrNudWBLessThan" - Me.ucrNudWBLessThan.Size = New System.Drawing.Size(75, 30) + Me.ucrNudWBLessThan.Size = New System.Drawing.Size(50, 20) Me.ucrNudWBLessThan.TabIndex = 23 Me.ucrNudWBLessThan.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' @@ -551,12 +508,12 @@ Partial Class dlgEndOfRainsSeason Me.ucrNudCapacity.AutoSize = True Me.ucrNudCapacity.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudCapacity.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudCapacity.Location = New System.Drawing.Point(104, 462) - Me.ucrNudCapacity.Margin = New System.Windows.Forms.Padding(9) + Me.ucrNudCapacity.Location = New System.Drawing.Point(69, 308) + Me.ucrNudCapacity.Margin = New System.Windows.Forms.Padding(6) Me.ucrNudCapacity.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) Me.ucrNudCapacity.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudCapacity.Name = "ucrNudCapacity" - Me.ucrNudCapacity.Size = New System.Drawing.Size(75, 30) + Me.ucrNudCapacity.Size = New System.Drawing.Size(50, 20) Me.ucrNudCapacity.TabIndex = 21 Me.ucrNudCapacity.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' @@ -564,11 +521,11 @@ Partial Class dlgEndOfRainsSeason ' Me.ucrReceiverStation.AutoSize = True Me.ucrReceiverStation.frmParent = Me - Me.ucrReceiverStation.Location = New System.Drawing.Point(464, 88) + Me.ucrReceiverStation.Location = New System.Drawing.Point(309, 59) Me.ucrReceiverStation.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverStation.Name = "ucrReceiverStation" Me.ucrReceiverStation.Selector = Nothing - Me.ucrReceiverStation.Size = New System.Drawing.Size(214, 30) + Me.ucrReceiverStation.Size = New System.Drawing.Size(143, 20) Me.ucrReceiverStation.strNcFilePath = "" Me.ucrReceiverStation.TabIndex = 2 Me.ucrReceiverStation.ucrSelector = Nothing @@ -577,11 +534,11 @@ Partial Class dlgEndOfRainsSeason ' Me.ucrReceiverYear.AutoSize = True Me.ucrReceiverYear.frmParent = Me - Me.ucrReceiverYear.Location = New System.Drawing.Point(464, 225) + Me.ucrReceiverYear.Location = New System.Drawing.Point(309, 150) Me.ucrReceiverYear.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverYear.Name = "ucrReceiverYear" Me.ucrReceiverYear.Selector = Nothing - Me.ucrReceiverYear.Size = New System.Drawing.Size(214, 30) + Me.ucrReceiverYear.Size = New System.Drawing.Size(143, 20) Me.ucrReceiverYear.strNcFilePath = "" Me.ucrReceiverYear.TabIndex = 6 Me.ucrReceiverYear.ucrSelector = Nothing @@ -590,11 +547,11 @@ Partial Class dlgEndOfRainsSeason ' Me.ucrReceiverDate.AutoSize = True Me.ucrReceiverDate.frmParent = Me - Me.ucrReceiverDate.Location = New System.Drawing.Point(464, 156) + Me.ucrReceiverDate.Location = New System.Drawing.Point(309, 104) Me.ucrReceiverDate.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverDate.Name = "ucrReceiverDate" Me.ucrReceiverDate.Selector = Nothing - Me.ucrReceiverDate.Size = New System.Drawing.Size(214, 30) + Me.ucrReceiverDate.Size = New System.Drawing.Size(143, 20) Me.ucrReceiverDate.strNcFilePath = "" Me.ucrReceiverDate.TabIndex = 4 Me.ucrReceiverDate.ucrSelector = Nothing @@ -603,11 +560,11 @@ Partial Class dlgEndOfRainsSeason ' Me.ucrReceiverDOY.AutoSize = True Me.ucrReceiverDOY.frmParent = Me - Me.ucrReceiverDOY.Location = New System.Drawing.Point(464, 291) + Me.ucrReceiverDOY.Location = New System.Drawing.Point(309, 194) Me.ucrReceiverDOY.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverDOY.Name = "ucrReceiverDOY" Me.ucrReceiverDOY.Selector = Nothing - Me.ucrReceiverDOY.Size = New System.Drawing.Size(214, 30) + Me.ucrReceiverDOY.Size = New System.Drawing.Size(143, 20) Me.ucrReceiverDOY.strNcFilePath = "" Me.ucrReceiverDOY.TabIndex = 8 Me.ucrReceiverDOY.ucrSelector = Nothing @@ -616,11 +573,11 @@ Partial Class dlgEndOfRainsSeason ' Me.ucrReceiverRainfall.AutoSize = True Me.ucrReceiverRainfall.frmParent = Me - Me.ucrReceiverRainfall.Location = New System.Drawing.Point(464, 357) + Me.ucrReceiverRainfall.Location = New System.Drawing.Point(309, 238) Me.ucrReceiverRainfall.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverRainfall.Name = "ucrReceiverRainfall" Me.ucrReceiverRainfall.Selector = Nothing - Me.ucrReceiverRainfall.Size = New System.Drawing.Size(214, 30) + Me.ucrReceiverRainfall.Size = New System.Drawing.Size(143, 20) Me.ucrReceiverRainfall.strNcFilePath = "" Me.ucrReceiverRainfall.TabIndex = 10 Me.ucrReceiverRainfall.ucrSelector = Nothing @@ -631,20 +588,20 @@ Partial Class dlgEndOfRainsSeason Me.ucrSelectorForWaterBalance.bDropUnusedFilterLevels = False Me.ucrSelectorForWaterBalance.bShowHiddenColumns = False Me.ucrSelectorForWaterBalance.bUseCurrentFilter = True - Me.ucrSelectorForWaterBalance.Location = New System.Drawing.Point(4, 104) + Me.ucrSelectorForWaterBalance.Location = New System.Drawing.Point(3, 69) Me.ucrSelectorForWaterBalance.Margin = New System.Windows.Forms.Padding(0) Me.ucrSelectorForWaterBalance.Name = "ucrSelectorForWaterBalance" - Me.ucrSelectorForWaterBalance.Size = New System.Drawing.Size(320, 274) + Me.ucrSelectorForWaterBalance.Size = New System.Drawing.Size(213, 183) Me.ucrSelectorForWaterBalance.TabIndex = 0 ' 'ucrBase ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(4, 708) - Me.ucrBase.Margin = New System.Windows.Forms.Padding(6) + Me.ucrBase.Location = New System.Drawing.Point(3, 472) + Me.ucrBase.Margin = New System.Windows.Forms.Padding(4) Me.ucrBase.Name = "ucrBase" - Me.ucrBase.Size = New System.Drawing.Size(611, 77) + Me.ucrBase.Size = New System.Drawing.Size(408, 52) Me.ucrBase.TabIndex = 33 ' 'ucrNudWB @@ -652,12 +609,12 @@ Partial Class dlgEndOfRainsSeason Me.ucrNudWB.AutoSize = True Me.ucrNudWB.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudWB.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudWB.Location = New System.Drawing.Point(189, 561) - Me.ucrNudWB.Margin = New System.Windows.Forms.Padding(9) + Me.ucrNudWB.Location = New System.Drawing.Point(126, 374) + Me.ucrNudWB.Margin = New System.Windows.Forms.Padding(6) Me.ucrNudWB.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) Me.ucrNudWB.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudWB.Name = "ucrNudWB" - Me.ucrNudWB.Size = New System.Drawing.Size(75, 30) + Me.ucrNudWB.Size = New System.Drawing.Size(50, 20) Me.ucrNudWB.TabIndex = 47 Me.ucrNudWB.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' @@ -665,30 +622,28 @@ Partial Class dlgEndOfRainsSeason ' Me.ucrChkWB.AutoSize = True Me.ucrChkWB.Checked = False - Me.ucrChkWB.Location = New System.Drawing.Point(26, 561) - Me.ucrChkWB.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkWB.Location = New System.Drawing.Point(17, 374) + Me.ucrChkWB.Margin = New System.Windows.Forms.Padding(4) Me.ucrChkWB.Name = "ucrChkWB" - Me.ucrChkWB.Size = New System.Drawing.Size(150, 34) + Me.ucrChkWB.Size = New System.Drawing.Size(100, 23) Me.ucrChkWB.TabIndex = 46 ' 'dlgEndOfRainsSeason ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(144.0!, 144.0!) + 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(716, 824) + Me.ClientSize = New System.Drawing.Size(477, 549) + Me.Controls.Add(Me.ucrReceiverEvaporation) + Me.Controls.Add(Me.ucrInputEvaporation) Me.Controls.Add(Me.ucrNudWB) Me.Controls.Add(Me.ucrChkWB) Me.Controls.Add(Me.rdoEndOfSeasons) Me.Controls.Add(Me.rdoEndOfRains) Me.Controls.Add(Me.ucrPnlEndOfRainsAndSeasons) - Me.Controls.Add(Me.ucrInputReplaceNA) - Me.Controls.Add(Me.lblReplaceNA) Me.Controls.Add(Me.rdoVariableEvaporation) Me.Controls.Add(Me.grpEndofSeason) Me.Controls.Add(Me.rdoValueEvaporation) - Me.Controls.Add(Me.ucrReceiverEvaporation) - Me.Controls.Add(Me.ucrInputEvaporation) Me.Controls.Add(Me.ucrPnlEvaporation) Me.Controls.Add(Me.ucrInputFilterPreview) Me.Controls.Add(Me.cmdDoyRange) @@ -715,7 +670,6 @@ Partial Class dlgEndOfRainsSeason Me.Controls.Add(Me.ucrBase) Me.Controls.Add(Me.grpEndofRains) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow - Me.Margin = New System.Windows.Forms.Padding(4) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "dlgEndOfRainsSeason" @@ -759,8 +713,6 @@ Partial Class dlgEndOfRainsSeason Friend WithEvents rdoVariableEvaporation As RadioButton Friend WithEvents rdoValueEvaporation As RadioButton Friend WithEvents ucrPnlEvaporation As UcrPanel - Friend WithEvents ucrInputReplaceNA As ucrInputTextBox - Friend WithEvents lblReplaceNA As Label Friend WithEvents ucrInputEndofRainsOccurence As ucrInputTextBox Friend WithEvents ucrInputEndofSeasonOccurence As ucrInputTextBox Friend WithEvents ucrInputEndofSeasonDate As ucrInputTextBox diff --git a/instat/dlgEndOfRainsSeason.vb b/instat/dlgEndOfRainsSeason.vb index 52cd221bf40..f4685299ee9 100644 --- a/instat/dlgEndOfRainsSeason.vb +++ b/instat/dlgEndOfRainsSeason.vb @@ -47,9 +47,9 @@ Public Class dlgEndOfRainsSeason #Region "end_of_rains_code_structures" ' Rolling sum rain - Private clsEndRainsRollingSumCalc As New RFunction + Private clsEndRainsRollingSumCalc, clsWBEvaporationMinFunction, clsWBEvaporationMaxFunction As New RFunction Private clsRollSumRainFunction As New RFunction - + Private clsWBOperator1, clsWBOperator2 As New ROperator ' Conditions filter Private clsEndRainsConditionsFilterCalc As New RFunction Private clsEndRainsConditionsFilterSubCalcsList As New RFunction @@ -97,16 +97,20 @@ Public Class dlgEndOfRainsSeason Private clsEndSeasonWBMinCalc As New RFunction Private clsEndSeasonWBMinCalcSubCalcsList As New RFunction Private clsReduceWBMinFunction As New RFunction + Private clsReduceWBMinFunction1 As New RFunction Private clsPMinWBMinFunction As New RFunction Private clsWBMinTailFunction As New RFunction + Private clsWBMinTailFunction1 As New RFunction Private clsWBMinEvapOperator As New ROperator ' Water Balance max Private clsEndSeasonWBMaxCalc As New RFunction Private clsEndSeasonWBMaxCalcSubCalcsList As New RFunction Private clsReduceWBMaxFunction As New RFunction + Private clsReduceWBMaxFunction1 As New RFunction Private clsPMinWBMaxFunction As New RFunction Private clsWBMaxTailFunction As New RFunction + Private clsWBMaxTailFunction1 As New RFunction Private clsWBMaxEvapOperator As New ROperator ' Water Balance @@ -264,11 +268,6 @@ Public Class dlgEndOfRainsSeason ucrInputEvaporation.SetValidationTypeAsNumeric() ucrInputEvaporation.AddQuotesIfUnrecognised = False - ucrInputReplaceNA.SetParameter(New RParameter("yes", 1)) - ucrInputReplaceNA.SetValidationTypeAsNumeric() - ucrInputReplaceNA.AddQuotesIfUnrecognised = False - - ucrNudWBLessThan.SetParameter(New RParameter("1", 1, False)) ucrNudWBLessThan.SetMinMax(0, Integer.MaxValue) ucrNudWBLessThan.Increment = 0.5 @@ -301,32 +300,32 @@ Public Class dlgEndOfRainsSeason ucrChkWB.SetParameter(New RParameter("WB_evap")) ucrChkWB.SetValuesCheckedAndUnchecked("TRUE", "FALSE") ucrChkWB.SetText("Reducing") - ucrChkWB.SetLinkedDisplayControl(ucrNudWB) ucrNudWB.SetParameter(New RParameter("WB_evap_value")) ucrNudWB.SetMinMax(0, 1) - ucrNudWB.DecimalPlaces = 0.01 ucrNudWB.Increment = 0.01 + ucrNudWB.DecimalPlaces = 2 + 'linking controls ucrChkEndofRainsDoy.AddToLinkedControls(ucrInputEndRainDoy, {True}, bNewLinkedHideIfParameterMissing:=True) ucrChkEndofSeasonOccurence.AddToLinkedControls(ucrInputEndofSeasonOccurence, {True}, bNewLinkedHideIfParameterMissing:=True) ucrChkEndofSeasonDate.AddToLinkedControls(ucrInputEndofSeasonDate, {True}, bNewLinkedHideIfParameterMissing:=True) ucrChkEndofSeasonDoy.AddToLinkedControls(ucrInputSeasonDoy, {True}, bNewLinkedHideIfParameterMissing:=True) - ucrChkWB.AddToLinkedControls(ucrNudWB, {True}, bNewLinkedHideIfParameterMissing:=True) - ucrPnlEvaporation.AddToLinkedControls(ucrInputEvaporation, {rdoValueEvaporation}, bNewLinkedHideIfParameterMissing:=True) + ucrChkWB.AddToLinkedControls(ucrNudWB, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=0.5) + ucrPnlEvaporation.AddToLinkedControls(ucrInputEvaporation, {rdoValueEvaporation}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=5) ucrPnlEvaporation.AddToLinkedControls(ucrReceiverEvaporation, {rdoVariableEvaporation}, bNewLinkedHideIfParameterMissing:=True) - ucrPnlEvaporation.AddToLinkedControls(ucrInputReplaceNA, {rdoVariableEvaporation}, bNewLinkedHideIfParameterMissing:=True) ucrChkEndofRainsOccurence.AddToLinkedControls(ucrInputEndofRainsOccurence, {True}, bNewLinkedHideIfParameterMissing:=True) ucrChkEndofRainsDate.AddToLinkedControls(ucrInputEndofRainsDate, {True}, bNewLinkedHideIfParameterMissing:=True) ucrPnlEndOfRainsAndSeasons.AddToLinkedControls({ucrNudAmount, ucrNudTotalOverDays}, {rdoEndOfRains}, bNewLinkedHideIfParameterMissing:=True) ucrPnlEndOfRainsAndSeasons.AddToLinkedControls({ucrNudCapacity, ucrNudWBLessThan, ucrChkEndofSeasonDoy}, {rdoEndOfSeasons}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) ucrPnlEndOfRainsAndSeasons.AddToLinkedControls({ucrPnlEvaporation}, {rdoEndOfSeasons}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) ucrPnlEndOfRainsAndSeasons.AddToLinkedControls({ucrChkWB}, {rdoEndOfSeasons}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) + ucrPnlEndOfRainsAndSeasons.AddToLinkedControls({ucrChkEndofSeasonDate, ucrChkEndofSeasonDoy, ucrChkEndofSeasonOccurence}, {rdoEndOfSeasons}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) + ucrPnlEndOfRainsAndSeasons.AddToLinkedControls({ucrChkEndofRainsDate, ucrChkEndofRainsDoy, ucrChkEndofRainsOccurence}, {rdoEndOfRains}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) ucrChkEndofRainsDoy.SetLinkedDisplayControl(grpEndofRains) ucrPnlEvaporation.SetLinkedDisplayControl(lblEvaporation) - ucrInputReplaceNA.SetLinkedDisplayControl(lblReplaceNA) ucrNudAmount.SetLinkedDisplayControl(lblAmount) ucrNudWBLessThan.SetLinkedDisplayControl(lblWaterBalanceLessThan) ucrNudCapacity.SetLinkedDisplayControl(lblCapacity) @@ -421,16 +420,20 @@ Public Class dlgEndOfRainsSeason clsEndSeasonWBMinCalc.Clear() clsEndSeasonWBMinCalcSubCalcsList.Clear() clsReduceWBMinFunction.Clear() + clsReduceWBMinFunction1.Clear() clsPMinWBMinFunction.Clear() clsWBMinTailFunction.Clear() + clsWBMinTailFunction1.Clear() clsWBMinEvapOperator.Clear() ' Water Balance max clsEndSeasonWBMaxCalc.Clear() clsEndSeasonWBMaxCalcSubCalcsList.Clear() clsReduceWBMaxFunction.Clear() + clsReduceWBMaxFunction1.Clear() clsPMinWBMaxFunction.Clear() clsWBMaxTailFunction.Clear() + clsWBMaxTailFunction1.Clear() clsWBMaxEvapOperator.Clear() ' Water Balance @@ -438,6 +441,10 @@ Public Class dlgEndOfRainsSeason clsEndSeasonWBCalcSubCalcsList.Clear() clsIfElseWBFunction.Clear() clsWBOperator.Clear() + clsWBOperator1.Clear() + clsWBOperator2.Clear() + clsWBEvaporationMinFunction.Clear() + clsPMinWBMaxFunction.Clear() clsWBMinMaxOperator.Clear() ' Evaporation @@ -610,6 +617,16 @@ Public Class dlgEndOfRainsSeason clsEndRainsCombinationManipulationList.AddParameter("manip2", clsRFunctionParameter:=clsGroupByStationYearCalc, bIncludeArgumentName:=False, iPosition:=1) clsEndRainsCombinationManipulationList.AddParameter("manip3", clsRFunctionParameter:=clsDoyFilterCalc, bIncludeArgumentName:=False, iPosition:=2) + clsWBOperator1.SetOperation("-") + clsWBOperator1.AddParameter("left", "..1 + ..2", iPosition:=0) + clsWBOperator1.AddParameter("right", clsRFunctionParameter:=clsWBEvaporationMinFunction, iPosition:=1) + clsWBOperator1.bSpaceAroundOperation = True + clsWBOperator1.bBrackets = False + + clsWBEvaporationMinFunction.SetRCommand("WB_evaporation") + clsWBEvaporationMinFunction.AddParameter("water_balance", "..1", iPosition:=0, bIncludeArgumentName:=False) + clsWBEvaporationMinFunction.AddParameter("y", "..2", iPosition:=4, bIncludeArgumentName:=False) + clsEndRainsCombinationSubCalcList.SetRCommand("list") clsEndRainsCombinationSubCalcList.AddParameter("sub1", clsRFunctionParameter:=clsEndRainsLastDoySummaryCalc, bIncludeArgumentName:=False, iPosition:=0) @@ -649,7 +666,7 @@ Public Class dlgEndOfRainsSeason 'Pmax clsPMaxFunction.SetRCommand("pmax") - clsPMaxFunction.AddParameter("0", "x + y", iPosition:=0, bIncludeArgumentName:=False) + clsPMaxFunction.AddParameter("0", "..1 + ..2", iPosition:=0, bIncludeArgumentName:=False) clsPMaxFunction.AddParameter("1", "0", bIncludeArgumentName:=False) ' Water Balance min @@ -664,13 +681,20 @@ Public Class dlgEndOfRainsSeason clsEndSeasonWBMinCalcSubCalcsList.AddParameter("0", clsRFunctionParameter:=clsEndSeasonRainMinCalc, iPosition:=0, bIncludeArgumentName:=False) clsReduceWBMinFunction.bToScriptAsRString = True - clsReduceWBMinFunction.SetRCommand("Reduce") - clsReduceWBMinFunction.AddParameter("f", clsRFunctionParameter:=clsPMinWBMinFunction, iPosition:=0) - clsReduceWBMinFunction.AddParameter("x", clsRFunctionParameter:=clsWBMinTailFunction, iPosition:=1) - clsReduceWBMinFunction.AddParameter("init", "0", iPosition:=2) - clsReduceWBMinFunction.AddParameter("accumulate", "TRUE", iPosition:=3) - - clsPMinWBMinFunction.SetRCommand("function(x, y) pmin") + clsReduceWBMinFunction.SetPackageName("purrr") + clsReduceWBMinFunction.SetRCommand("accumulate") + clsReduceWBMinFunction.AddParameter(".f", clsRFunctionParameter:=clsPMinWBMinFunction, iPosition:=0) + clsReduceWBMinFunction.AddParameter(".x", clsRFunctionParameter:=clsWBMinTailFunction, iPosition:=1) + clsReduceWBMinFunction.AddParameter(".init", "0", iPosition:=2) + + clsReduceWBMinFunction1.bToScriptAsRString = True + clsReduceWBMinFunction1.SetPackageName("purrr") + clsReduceWBMinFunction1.SetRCommand("accumulate2") + clsReduceWBMinFunction1.AddParameter(".f", clsRFunctionParameter:=clsPMinWBMinFunction, iPosition:=0) + clsReduceWBMinFunction1.AddParameter(".x", clsRFunctionParameter:=clsWBMinTailFunction, iPosition:=1) + clsReduceWBMinFunction1.AddParameter(".init", "0", iPosition:=2) + + clsPMinWBMinFunction.SetRCommand(" ~ pmin") clsPMinWBMinFunction.AddParameter("0", clsRFunctionParameter:=clsPMaxFunction, iPosition:=0, bIncludeArgumentName:=False) clsPMinWBMinFunction.AddParameter("1", iCapacityDefault, iPosition:=1, bIncludeArgumentName:=False) @@ -678,6 +702,10 @@ Public Class dlgEndOfRainsSeason clsWBMinTailFunction.AddParameter("x", clsROperatorParameter:=clsWBMinEvapOperator, iPosition:=0) clsWBMinTailFunction.AddParameter("n", "-1", iPosition:=1) + clsWBMinTailFunction1.SetRCommand("tail") + clsWBMinTailFunction1.AddParameter("x", ucrReceiverEvaporation.GetVariableNames(False), iPosition:=0) + clsWBMinTailFunction1.AddParameter("n", "-1", iPosition:=1) + clsWBMinEvapOperator.SetOperation("-") clsWBMinEvapOperator.AddParameter("0", strRainMin, iPosition:=0) clsWBMinEvapOperator.AddParameter("value", "5", iPosition:=1) @@ -694,13 +722,20 @@ Public Class dlgEndOfRainsSeason clsEndSeasonWBMaxCalcSubCalcsList.AddParameter("0", clsRFunctionParameter:=clsEndSeasonRainMaxCalc, iPosition:=0, bIncludeArgumentName:=False) clsReduceWBMaxFunction.bToScriptAsRString = True - clsReduceWBMaxFunction.SetRCommand("Reduce") - clsReduceWBMaxFunction.AddParameter("f", clsRFunctionParameter:=clsPMinWBMaxFunction, iPosition:=0) - clsReduceWBMaxFunction.AddParameter("x", clsRFunctionParameter:=clsWBMaxTailFunction, iPosition:=1) - clsReduceWBMaxFunction.AddParameter("init", "0", iPosition:=2) - clsReduceWBMaxFunction.AddParameter("accumulate", "TRUE", iPosition:=3) - - clsPMinWBMaxFunction.SetRCommand("function(x, y) pmin") + clsReduceWBMaxFunction.SetPackageName("purrr") + clsReduceWBMaxFunction.SetRCommand("accumulate") + clsReduceWBMaxFunction.AddParameter(".f", clsRFunctionParameter:=clsPMinWBMaxFunction, iPosition:=0) + clsReduceWBMaxFunction.AddParameter(".x", clsRFunctionParameter:=clsWBMaxTailFunction, iPosition:=1) + clsReduceWBMaxFunction.AddParameter(".init", "0", iPosition:=2) + + clsReduceWBMaxFunction1.bToScriptAsRString = True + clsReduceWBMaxFunction1.SetPackageName("purrr") + clsReduceWBMaxFunction1.SetRCommand("accumulate2") + clsReduceWBMaxFunction1.AddParameter(".f", clsRFunctionParameter:=clsPMinWBMaxFunction, iPosition:=0) + clsReduceWBMaxFunction1.AddParameter(".x", clsRFunctionParameter:=clsWBMaxTailFunction, iPosition:=1) + clsReduceWBMaxFunction1.AddParameter(".init", "0", iPosition:=2) + + clsPMinWBMaxFunction.SetRCommand(" ~ pmin") clsPMinWBMaxFunction.AddParameter("0", clsRFunctionParameter:=clsPMaxFunction, iPosition:=0, bIncludeArgumentName:=False) clsPMinWBMaxFunction.AddParameter("1", iCapacityDefault, iPosition:=1, bIncludeArgumentName:=False) @@ -708,6 +743,10 @@ Public Class dlgEndOfRainsSeason clsWBMaxTailFunction.AddParameter("x", clsROperatorParameter:=clsWBMaxEvapOperator, iPosition:=0) clsWBMaxTailFunction.AddParameter("n", "-1", iPosition:=1) + clsWBMaxTailFunction1.SetRCommand("tail") + clsWBMaxTailFunction1.AddParameter("x", ucrReceiverEvaporation.GetVariableNames(False), iPosition:=0) + clsWBMaxTailFunction1.AddParameter("n", "-1", iPosition:=1) + clsWBMaxEvapOperator.SetOperation("-") clsWBMaxEvapOperator.AddParameter("0", strRainMax, iPosition:=0) clsWBMaxEvapOperator.AddParameter("value", "5", iPosition:=1) @@ -840,7 +879,7 @@ Public Class dlgEndOfRainsSeason ucrReceiverRainfall.AddAdditionalCodeParameterPair(clsEndSeasonIsNaRain, New RParameter("x", 0), iAdditionalPairNo:=1) ucrReceiverRainfall.AddAdditionalCodeParameterPair(clsIfElseRainMinFunction, New RParameter("no", 2), iAdditionalPairNo:=2) ucrReceiverRainfall.AddAdditionalCodeParameterPair(clsIfElseRainMaxFunction, New RParameter("no", 2), iAdditionalPairNo:=3) - ucrReceiverEvaporation.AddAdditionalCodeParameterPair(clsIfElseVariableEvaporation, New RParameter("no", 2), iAdditionalPairNo:=1) + ucrReceiverEvaporation.AddAdditionalCodeParameterPair(clsWBMaxTailFunction1, New RParameter("x", 0), iAdditionalPairNo:=1) ucrReceiverDate.AddAdditionalCodeParameterPair(clsFirstDateFunction, New RParameter("x", 0), iAdditionalPairNo:=1) ucrNudCapacity.AddAdditionalCodeParameterPair(clsPMinWBMinFunction, New RParameter("1", 1, bNewIncludeArgumentName:=False), iAdditionalPairNo:=1) @@ -850,8 +889,6 @@ Public Class dlgEndOfRainsSeason ucrReceiverDOY.SetRCode(clsDayToOperator, bReset) - ucrReceiverEvaporation.SetRCode(clsIsNaEvaporation, bReset) - ucrInputEndRainDoy.SetRCode(clsEndRainsLastDoySummaryCalc, bReset) ucrInputEndofRainsDate.SetRCode(clsEndRainsLastDateSummaryCalc, bReset) ucrInputEndofRainsOccurence.SetRCode(clsEndRainsStatusSummaryCalc, bReset) @@ -866,10 +903,12 @@ Public Class dlgEndOfRainsSeason ucrNudWBLessThan.SetRCode(clsEndSeasonWBConditionOperator, bReset) - ucrPnlEvaporation.SetRCode(clsWBMinEvapOperator, bReset) - ucrInputEvaporation.SetRCode(clsWBMinEvapOperator, bReset) + If bReset Then + ucrPnlEvaporation.SetRCode(clsWBMinEvapOperator, bReset) + ucrInputEvaporation.SetRCode(clsWBMinEvapOperator, bReset) + ucrReceiverEvaporation.SetRCode(clsWBMinTailFunction1, bReset) + End If ucrNudCapacity.SetRCode(clsIfElseRainMaxFunction, bReset) - ucrInputReplaceNA.SetRCode(clsIfElseVariableEvaporation, bReset) ucrChkEndofSeasonDoy.SetRCode(clsEndSeasonCombinationSubCalcList, bReset) ucrChkEndofSeasonDate.SetRCode(clsEndSeasonCombinationSubCalcList, bReset) @@ -912,7 +951,7 @@ Public Class dlgEndOfRainsSeason bOkEnabled = False ElseIf rdoValueEvaporation.Checked AndAlso ucrInputEvaporation.IsEmpty Then bOkEnabled = False - ElseIf rdoVariableEvaporation.Checked AndAlso (ucrReceiverEvaporation.IsEmpty OrElse ucrInputReplaceNA.IsEmpty) Then + ElseIf rdoVariableEvaporation.Checked AndAlso ucrReceiverEvaporation.IsEmpty Then bOkEnabled = False End If Else @@ -989,21 +1028,66 @@ Public Class dlgEndOfRainsSeason clsDoyFilterCalcFromList.ClearParameters() End Sub - Private Sub ucrPnlEvaporation_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrPnlEvaporation.ControlValueChanged, ucrReceiverEvaporation.ControlValueChanged, ucrInputReplaceNA.ControlValueChanged, ucrInputEvaporation.ControlValueChanged + Private Sub ucrPnlEvaporation_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrPnlEvaporation.ControlValueChanged, ucrReceiverEvaporation.ControlValueChanged, ucrInputEvaporation.ControlValueChanged Evaporation() End Sub Private Sub Evaporation() - If rdoValueEvaporation.Checked Then - ucrReceiverRainfall.SetMeAsReceiver() - clsWBMinEvapOperator.RemoveParameterByName("variable") - clsWBMaxEvapOperator.RemoveParameterByName("variable") - ElseIf rdoVariableEvaporation.Checked Then - ucrReceiverEvaporation.SetMeAsReceiver() - clsWBMinEvapOperator.AddParameter("variable", clsRFunctionParameter:=clsIfElseVariableEvaporation, iPosition:=1, bIncludeArgumentName:=False) - clsWBMinEvapOperator.RemoveParameterByName("value") - clsWBMaxEvapOperator.AddParameter("variable", clsRFunctionParameter:=clsIfElseVariableEvaporation, iPosition:=1, bIncludeArgumentName:=False) - clsWBMaxEvapOperator.RemoveParameterByName("value") + If rdoEndOfSeasons.Checked Then + If rdoValueEvaporation.Checked Then + clsEndSeasonWBMinCalc.AddParameter("function_exp", clsRFunctionParameter:=clsReduceWBMinFunction, iPosition:=1) + clsEndSeasonWBMaxCalc.AddParameter("function_exp", clsRFunctionParameter:=clsReduceWBMaxFunction, iPosition:=1) + clsWBMinEvapOperator.RemoveParameterByName("variable") + clsWBMaxEvapOperator.RemoveParameterByName("variable") + If ucrChkWB.Checked Then + clsWBEvaporationMinFunction.AddParameter("WB_evap_value", ucrNudWB.GetText(), iPosition:=1, bIncludeArgumentName:=False) + clsWBEvaporationMinFunction.AddParameter("yes", ucrNudCapacity.GetText(), iPosition:=2, bIncludeArgumentName:=False) + clsWBEvaporationMinFunction.AddParameter("value", ucrInputEvaporation.GetText(), iPosition:=3, bIncludeArgumentName:=False) + clsPMaxFunction.AddParameter("wb", clsROperatorParameter:=clsWBOperator1, iPosition:=0, bIncludeArgumentName:=False) + clsPMaxFunction.RemoveParameterByName("0") + clsPMaxFunction.RemoveParameterByName("0") + clsWBMaxEvapOperator.RemoveParameterByName("value") + clsWBMinEvapOperator.RemoveParameterByName("value") + clsPMinWBMaxFunction.RemoveParameterByName("1") + clsPMinWBMinFunction.RemoveParameterByName("1") + Else + clsPMaxFunction.AddParameter("0", "..1 + ..2", iPosition:=0, bIncludeArgumentName:=False) + clsPMaxFunction.RemoveParameterByName("wb") + clsPMaxFunction.RemoveParameterByName("wb") + clsWBMaxEvapOperator.AddParameter("value", ucrInputEvaporation.GetText(), iPosition:=1) + clsWBMinEvapOperator.AddParameter("value", ucrInputEvaporation.GetText(), iPosition:=1) + clsPMinWBMaxFunction.AddParameter("1", ucrNudCapacity.GetText(), iPosition:=1) + clsPMinWBMinFunction.AddParameter("1", ucrNudCapacity.GetText(), iPosition:=1) + End If + Else + ucrReceiverEvaporation.SetMeAsReceiver() + clsEndSeasonWBMaxCalc.AddParameter("function_exp", clsRFunctionParameter:=clsReduceWBMaxFunction1, iPosition:=1) + clsEndSeasonWBMinCalc.AddParameter("function_exp", clsRFunctionParameter:=clsReduceWBMinFunction1, iPosition:=1) + clsWBMinEvapOperator.RemoveParameterByName("variable") + clsWBMaxEvapOperator.RemoveParameterByName("variable") + If ucrChkWB.Checked Then + clsWBEvaporationMinFunction.AddParameter("WB_evap_value", ucrNudWB.GetText(), iPosition:=1, bIncludeArgumentName:=False) + clsWBEvaporationMinFunction.AddParameter("yes", ucrNudCapacity.GetText(), iPosition:=2, bIncludeArgumentName:=False) + clsWBEvaporationMinFunction.AddParameter("value", "..3", bIncludeArgumentName:=False, iPosition:=3) + clsReduceWBMinFunction1.AddParameter(".y", clsRFunctionParameter:=clsWBMinTailFunction1, iPosition:=1) + clsReduceWBMaxFunction1.AddParameter(".y", clsRFunctionParameter:=clsWBMaxTailFunction1, iPosition:=1) + clsPMaxFunction.AddParameter("wb", clsROperatorParameter:=clsWBOperator1, iPosition:=0, bIncludeArgumentName:=False) + clsPMaxFunction.RemoveParameterByName("0") + clsPMaxFunction.RemoveParameterByName("0") + clsWBMaxEvapOperator.RemoveParameterByName("value") + clsWBMinEvapOperator.RemoveParameterByName("value") + clsPMinWBMaxFunction.RemoveParameterByName("1") + clsPMinWBMinFunction.RemoveParameterByName("1") + Else + clsPMaxFunction.AddParameter("0", "..1 + ..2", iPosition:=0, bIncludeArgumentName:=False) + clsPMaxFunction.RemoveParameterByName("wb") + clsPMaxFunction.RemoveParameterByName("wb") + clsReduceWBMinFunction1.AddParameter(".y", clsRFunctionParameter:=clsWBMinTailFunction1, iPosition:=1) + clsReduceWBMaxFunction1.AddParameter(".y", clsRFunctionParameter:=clsWBMaxTailFunction1, iPosition:=1) + clsPMinWBMaxFunction.AddParameter("1", ucrNudCapacity.GetText(), iPosition:=1) + clsPMinWBMinFunction.AddParameter("1", ucrNudCapacity.GetText(), iPosition:=1) + End If + End If End If End Sub @@ -1065,7 +1149,15 @@ Public Class dlgEndOfRainsSeason End If End Sub - Private Sub CoreControls_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrPnlEndOfRainsAndSeasons.ControlContentsChanged, ucrReceiverRainfall.ControlContentsChanged, ucrReceiverDate.ControlContentsChanged, ucrReceiverYear.ControlContentsChanged, ucrReceiverDOY.ControlContentsChanged, ucrNudCapacity.ControlContentsChanged, ucrNudWBLessThan.ControlContentsChanged, ucrInputSeasonDoy.ControlContentsChanged, ucrNudTotalOverDays.ControlContentsChanged, ucrNudAmount.ControlContentsChanged, ucrChkEndofRainsDoy.ControlContentsChanged, ucrInputEndRainDoy.ControlContentsChanged, ucrChkEndofRainsDate.ControlContentsChanged, ucrInputEndofRainsDate.ControlContentsChanged, ucrChkEndofRainsOccurence.ControlContentsChanged, ucrInputEndofRainsOccurence.ControlContentsChanged, ucrChkEndofSeasonDoy.ControlContentsChanged, ucrPnlEvaporation.ControlContentsChanged, ucrReceiverEvaporation.ControlContentsChanged, ucrInputReplaceNA.ControlContentsChanged, ucrChkEndofSeasonOccurence.ControlContentsChanged, ucrInputEndofSeasonOccurence.ControlContentsChanged, ucrChkEndofSeasonDate.ControlContentsChanged, ucrInputEndofSeasonDate.ControlContentsChanged, ucrInputEvaporation.ControlContentsChanged + Private Sub CoreControls_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrPnlEndOfRainsAndSeasons.ControlContentsChanged, ucrReceiverRainfall.ControlContentsChanged, ucrReceiverDate.ControlContentsChanged, ucrReceiverYear.ControlContentsChanged, ucrReceiverDOY.ControlContentsChanged, ucrNudCapacity.ControlContentsChanged, ucrNudWBLessThan.ControlContentsChanged, ucrInputSeasonDoy.ControlContentsChanged, ucrNudTotalOverDays.ControlContentsChanged, ucrNudAmount.ControlContentsChanged, ucrChkEndofRainsDoy.ControlContentsChanged, ucrInputEndRainDoy.ControlContentsChanged, ucrChkEndofRainsDate.ControlContentsChanged, ucrInputEndofRainsDate.ControlContentsChanged, ucrChkEndofRainsOccurence.ControlContentsChanged, ucrInputEndofRainsOccurence.ControlContentsChanged, ucrChkEndofSeasonDoy.ControlContentsChanged, ucrPnlEvaporation.ControlContentsChanged, ucrReceiverEvaporation.ControlContentsChanged, ucrChkEndofSeasonOccurence.ControlContentsChanged, ucrInputEndofSeasonOccurence.ControlContentsChanged, ucrChkEndofSeasonDate.ControlContentsChanged, ucrInputEndofSeasonDate.ControlContentsChanged, ucrInputEvaporation.ControlContentsChanged TestOKEnabled() End Sub + + Private Sub ucrChkWB_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkWB.ControlValueChanged, ucrNudWB.ControlValueChanged, ucrNudCapacity.ControlValueChanged + Evaporation() + End Sub + + Private Sub rdoValueEvaporation_CheckedChanged(sender As Object, e As EventArgs) Handles rdoValueEvaporation.CheckedChanged, rdoVariableEvaporation.CheckedChanged + Evaporation() + End Sub End Class \ No newline at end of file diff --git a/instat/dlgExportForClimpact.Designer.vb b/instat/dlgExportForClimpact.Designer.vb new file mode 100644 index 00000000000..fa0a0034e58 --- /dev/null +++ b/instat/dlgExportForClimpact.Designer.vb @@ -0,0 +1,305 @@ + _ +Partial Class dlgExportForClimpact + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.lblTN = New System.Windows.Forms.Label() + Me.lblTX = New System.Windows.Forms.Label() + Me.lblRR = New System.Windows.Forms.Label() + Me.lblDay = New System.Windows.Forms.Label() + Me.lblMonth = New System.Windows.Forms.Label() + Me.lblExport = New System.Windows.Forms.Label() + Me.cmdBrowse = New System.Windows.Forms.Button() + Me.lblYear = New System.Windows.Forms.Label() + Me.lblMissingValues = New System.Windows.Forms.Label() + Me.ucrInputCodeMissingValues = New instat.ucrInputTextBox() + Me.ucrReceiverTN = New instat.ucrReceiverSingle() + Me.ucrReceiverTX = New instat.ucrReceiverSingle() + Me.ucrReceiverRR = New instat.ucrReceiverSingle() + Me.ucrReceiverDay = New instat.ucrReceiverSingle() + Me.ucrReceiverMonth = New instat.ucrReceiverSingle() + Me.ucrInputExportFile = New instat.ucrInputTextBox() + Me.ucrBase = New instat.ucrButtons() + Me.ucrReceiverYear = New instat.ucrReceiverSingle() + Me.ucrSelectorImportToClimpact = New instat.ucrSelectorByDataFrameAddRemove() + Me.SuspendLayout() + ' + 'lblTN + ' + Me.lblTN.AutoSize = True + Me.lblTN.Location = New System.Drawing.Point(278, 244) + Me.lblTN.Name = "lblTN" + Me.lblTN.Size = New System.Drawing.Size(93, 13) + Me.lblTN.TabIndex = 11 + Me.lblTN.Text = "Min. Temperature:" + ' + 'lblTX + ' + Me.lblTX.AutoSize = True + Me.lblTX.Location = New System.Drawing.Point(278, 197) + Me.lblTX.Name = "lblTX" + Me.lblTX.Size = New System.Drawing.Size(96, 13) + Me.lblTX.TabIndex = 9 + Me.lblTX.Text = "Max. Temperature:" + ' + 'lblRR + ' + Me.lblRR.AutoSize = True + Me.lblRR.Location = New System.Drawing.Point(278, 150) + Me.lblRR.Name = "lblRR" + Me.lblRR.Size = New System.Drawing.Size(45, 13) + Me.lblRR.TabIndex = 7 + Me.lblRR.Text = "Rainfall:" + ' + 'lblDay + ' + Me.lblDay.AutoSize = True + Me.lblDay.Location = New System.Drawing.Point(278, 106) + Me.lblDay.Name = "lblDay" + Me.lblDay.Size = New System.Drawing.Size(29, 13) + Me.lblDay.TabIndex = 5 + Me.lblDay.Text = "Day:" + ' + 'lblMonth + ' + Me.lblMonth.AutoSize = True + Me.lblMonth.Location = New System.Drawing.Point(278, 59) + Me.lblMonth.Name = "lblMonth" + Me.lblMonth.Size = New System.Drawing.Size(40, 13) + Me.lblMonth.TabIndex = 3 + Me.lblMonth.Text = "Month:" + ' + 'lblExport + ' + Me.lblExport.AutoSize = True + Me.lblExport.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblExport.Location = New System.Drawing.Point(9, 297) + Me.lblExport.Name = "lblExport" + Me.lblExport.Size = New System.Drawing.Size(59, 13) + Me.lblExport.TabIndex = 16 + Me.lblExport.Text = "Export File:" + ' + 'cmdBrowse + ' + Me.cmdBrowse.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.cmdBrowse.Location = New System.Drawing.Point(293, 291) + Me.cmdBrowse.Name = "cmdBrowse" + Me.cmdBrowse.Size = New System.Drawing.Size(80, 23) + Me.cmdBrowse.TabIndex = 18 + Me.cmdBrowse.Text = "Browse" + Me.cmdBrowse.UseVisualStyleBackColor = True + ' + 'lblYear + ' + Me.lblYear.AutoSize = True + Me.lblYear.Location = New System.Drawing.Point(278, 12) + Me.lblYear.Name = "lblYear" + Me.lblYear.Size = New System.Drawing.Size(32, 13) + Me.lblYear.TabIndex = 1 + Me.lblYear.Text = "Year:" + ' + 'lblMissingValues + ' + Me.lblMissingValues.AutoSize = True + Me.lblMissingValues.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblMissingValues.Location = New System.Drawing.Point(4, 244) + Me.lblMissingValues.Name = "lblMissingValues" + Me.lblMissingValues.Size = New System.Drawing.Size(122, 13) + Me.lblMissingValues.TabIndex = 33 + Me.lblMissingValues.Text = "Code Missing Values as:" + ' + 'ucrInputCodeMissingValues + ' + Me.ucrInputCodeMissingValues.AddQuotesIfUnrecognised = True + Me.ucrInputCodeMissingValues.AutoSize = True + Me.ucrInputCodeMissingValues.IsMultiline = False + Me.ucrInputCodeMissingValues.IsReadOnly = False + Me.ucrInputCodeMissingValues.Location = New System.Drawing.Point(132, 242) + Me.ucrInputCodeMissingValues.Name = "ucrInputCodeMissingValues" + Me.ucrInputCodeMissingValues.Size = New System.Drawing.Size(99, 21) + Me.ucrInputCodeMissingValues.TabIndex = 32 + ' + 'ucrReceiverTN + ' + Me.ucrReceiverTN.AutoSize = True + Me.ucrReceiverTN.frmParent = Me + Me.ucrReceiverTN.Location = New System.Drawing.Point(278, 257) + Me.ucrReceiverTN.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverTN.Name = "ucrReceiverTN" + Me.ucrReceiverTN.Selector = Nothing + Me.ucrReceiverTN.Size = New System.Drawing.Size(120, 20) + Me.ucrReceiverTN.strNcFilePath = "" + Me.ucrReceiverTN.TabIndex = 12 + Me.ucrReceiverTN.ucrSelector = Nothing + ' + 'ucrReceiverTX + ' + Me.ucrReceiverTX.AutoSize = True + Me.ucrReceiverTX.frmParent = Me + Me.ucrReceiverTX.Location = New System.Drawing.Point(278, 215) + Me.ucrReceiverTX.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverTX.Name = "ucrReceiverTX" + Me.ucrReceiverTX.Selector = Nothing + Me.ucrReceiverTX.Size = New System.Drawing.Size(120, 20) + Me.ucrReceiverTX.strNcFilePath = "" + Me.ucrReceiverTX.TabIndex = 10 + Me.ucrReceiverTX.ucrSelector = Nothing + ' + 'ucrReceiverRR + ' + Me.ucrReceiverRR.AutoSize = True + Me.ucrReceiverRR.frmParent = Me + Me.ucrReceiverRR.Location = New System.Drawing.Point(278, 168) + Me.ucrReceiverRR.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverRR.Name = "ucrReceiverRR" + Me.ucrReceiverRR.Selector = Nothing + Me.ucrReceiverRR.Size = New System.Drawing.Size(120, 20) + Me.ucrReceiverRR.strNcFilePath = "" + Me.ucrReceiverRR.TabIndex = 8 + Me.ucrReceiverRR.ucrSelector = Nothing + ' + 'ucrReceiverDay + ' + Me.ucrReceiverDay.AutoSize = True + Me.ucrReceiverDay.frmParent = Me + Me.ucrReceiverDay.Location = New System.Drawing.Point(278, 119) + Me.ucrReceiverDay.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverDay.Name = "ucrReceiverDay" + Me.ucrReceiverDay.Selector = Nothing + Me.ucrReceiverDay.Size = New System.Drawing.Size(120, 20) + Me.ucrReceiverDay.strNcFilePath = "" + Me.ucrReceiverDay.TabIndex = 6 + Me.ucrReceiverDay.ucrSelector = Nothing + ' + 'ucrReceiverMonth + ' + Me.ucrReceiverMonth.AutoSize = True + Me.ucrReceiverMonth.frmParent = Me + Me.ucrReceiverMonth.Location = New System.Drawing.Point(278, 77) + Me.ucrReceiverMonth.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMonth.Name = "ucrReceiverMonth" + Me.ucrReceiverMonth.Selector = Nothing + Me.ucrReceiverMonth.Size = New System.Drawing.Size(120, 20) + Me.ucrReceiverMonth.strNcFilePath = "" + Me.ucrReceiverMonth.TabIndex = 4 + Me.ucrReceiverMonth.ucrSelector = Nothing + ' + 'ucrInputExportFile + ' + Me.ucrInputExportFile.AddQuotesIfUnrecognised = True + Me.ucrInputExportFile.AutoSize = True + Me.ucrInputExportFile.IsMultiline = False + Me.ucrInputExportFile.IsReadOnly = False + Me.ucrInputExportFile.Location = New System.Drawing.Point(108, 293) + Me.ucrInputExportFile.Margin = New System.Windows.Forms.Padding(6, 8, 6, 8) + Me.ucrInputExportFile.Name = "ucrInputExportFile" + Me.ucrInputExportFile.Size = New System.Drawing.Size(182, 21) + Me.ucrInputExportFile.TabIndex = 17 + ' + 'ucrBase + ' + Me.ucrBase.AutoSize = True + Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrBase.Location = New System.Drawing.Point(7, 318) + 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) + Me.ucrBase.TabIndex = 19 + ' + 'ucrReceiverYear + ' + Me.ucrReceiverYear.AutoSize = True + Me.ucrReceiverYear.frmParent = Me + Me.ucrReceiverYear.Location = New System.Drawing.Point(278, 30) + Me.ucrReceiverYear.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverYear.Name = "ucrReceiverYear" + Me.ucrReceiverYear.Selector = Nothing + Me.ucrReceiverYear.Size = New System.Drawing.Size(120, 20) + Me.ucrReceiverYear.strNcFilePath = "" + Me.ucrReceiverYear.TabIndex = 2 + Me.ucrReceiverYear.ucrSelector = Nothing + ' + 'ucrSelectorImportToClimpact + ' + Me.ucrSelectorImportToClimpact.AutoSize = True + Me.ucrSelectorImportToClimpact.bDropUnusedFilterLevels = False + Me.ucrSelectorImportToClimpact.bShowHiddenColumns = False + Me.ucrSelectorImportToClimpact.bUseCurrentFilter = True + Me.ucrSelectorImportToClimpact.Location = New System.Drawing.Point(9, 3) + Me.ucrSelectorImportToClimpact.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorImportToClimpact.Name = "ucrSelectorImportToClimpact" + Me.ucrSelectorImportToClimpact.Size = New System.Drawing.Size(213, 183) + Me.ucrSelectorImportToClimpact.TabIndex = 0 + ' + 'dlgExportForClimpact + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi + Me.ClientSize = New System.Drawing.Size(422, 370) + Me.Controls.Add(Me.lblMissingValues) + Me.Controls.Add(Me.ucrInputCodeMissingValues) + Me.Controls.Add(Me.lblTN) + Me.Controls.Add(Me.ucrReceiverTN) + Me.Controls.Add(Me.lblTX) + Me.Controls.Add(Me.ucrReceiverTX) + Me.Controls.Add(Me.lblRR) + Me.Controls.Add(Me.ucrReceiverRR) + Me.Controls.Add(Me.lblDay) + Me.Controls.Add(Me.ucrReceiverDay) + Me.Controls.Add(Me.lblMonth) + Me.Controls.Add(Me.ucrReceiverMonth) + Me.Controls.Add(Me.lblExport) + Me.Controls.Add(Me.cmdBrowse) + Me.Controls.Add(Me.ucrInputExportFile) + Me.Controls.Add(Me.ucrBase) + Me.Controls.Add(Me.lblYear) + Me.Controls.Add(Me.ucrReceiverYear) + Me.Controls.Add(Me.ucrSelectorImportToClimpact) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "dlgExportForClimpact" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Export For Climpact" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents lblTN As Label + Friend WithEvents ucrReceiverTN As ucrReceiverSingle + Friend WithEvents lblTX As Label + Friend WithEvents ucrReceiverTX As ucrReceiverSingle + Friend WithEvents lblRR As Label + Friend WithEvents ucrReceiverRR As ucrReceiverSingle + Friend WithEvents lblDay As Label + Friend WithEvents ucrReceiverDay As ucrReceiverSingle + Friend WithEvents lblMonth As Label + Friend WithEvents ucrReceiverMonth As ucrReceiverSingle + Friend WithEvents lblExport As Label + Friend WithEvents cmdBrowse As Button + Friend WithEvents ucrInputExportFile As ucrInputTextBox + Friend WithEvents ucrBase As ucrButtons + Friend WithEvents lblYear As Label + Friend WithEvents ucrReceiverYear As ucrReceiverSingle + Friend WithEvents ucrSelectorImportToClimpact As ucrSelectorByDataFrameAddRemove + Friend WithEvents lblMissingValues As Label + Friend WithEvents ucrInputCodeMissingValues As ucrInputTextBox +End Class diff --git a/instat/dlgExportForClimpact.resx b/instat/dlgExportForClimpact.resx new file mode 100644 index 00000000000..1af7de150c9 --- /dev/null +++ b/instat/dlgExportForClimpact.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/instat/dlgExportForClimpact.vb b/instat/dlgExportForClimpact.vb new file mode 100644 index 00000000000..9949b76e5b6 --- /dev/null +++ b/instat/dlgExportForClimpact.vb @@ -0,0 +1,160 @@ +' R- Instat +' Copyright (C) 2015-2017 +' +' This program is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 3 of the License, or +' (at your option) any later version. +' +' This program is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. +' +' You should have received a copy of the GNU General Public License +' along with this program. If not, see . + +Imports System.IO +Imports instat.Translations + +Public Class dlgExportForClimpact + Private bFirstLoad As Boolean = True + Private bReset As Boolean = True + Private clsOutputClimpact As New RFunction + + Private Sub dlgExportForClimpact_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If bFirstLoad Then + InitialiseDialog() + bFirstLoad = False + End If + If bReset Then + SetDefaults() + End If + SetRCodeForControls(bReset) + bReset = False + autoTranslate(Me) + TestOkEnabled() + End Sub + + Private Sub InitialiseDialog() + + ucrInputCodeMissingValues.SetParameter(New RParameter("missing_code", 6)) + ucrInputCodeMissingValues.SetRDefault("-99.9") + + 'Year Receiver + ucrReceiverYear.Selector = ucrSelectorImportToClimpact + ucrReceiverYear.SetParameter(New RParameter("year", 0)) + ucrReceiverYear.SetClimaticType("year") + ucrReceiverYear.SetParameterIsRFunction() + ucrReceiverYear.bAutoFill = True + ucrReceiverYear.strSelectorHeading = "Year Variables" + + 'Month Receiver + ucrReceiverMonth.Selector = ucrSelectorImportToClimpact + ucrReceiverMonth.SetParameter(New RParameter("month", 1)) + ucrReceiverMonth.SetClimaticType("month") + ucrReceiverMonth.SetParameterIsRFunction() + ucrReceiverMonth.bAutoFill = True + ucrReceiverMonth.strSelectorHeading = "Month Variables" + ucrReceiverMonth.bWithQuotes = False + + 'Day Receiver + ucrReceiverDay.Selector = ucrSelectorImportToClimpact + ucrReceiverDay.SetParameter(New RParameter("day", 2)) + ucrReceiverDay.SetParameterIsRFunction() + ucrReceiverDay.bWithQuotes = False + ucrReceiverDay.SetClimaticType("day") + ucrReceiverDay.bAutoFill = True + + 'Element Receiver + ucrReceiverTX.Selector = ucrSelectorImportToClimpact + ucrReceiverTX.SetParameter(New RParameter("mx_tmp", 3)) + ucrReceiverTX.SetParameterIsRFunction() + ucrReceiverTX.bWithQuotes = False + ucrReceiverTX.SetClimaticType("temp_max") + ucrReceiverTX.bAutoFill = True + + ucrReceiverTN.Selector = ucrSelectorImportToClimpact + ucrReceiverTN.SetParameter(New RParameter("mn_tmp", 4)) + ucrReceiverTN.SetParameterIsRFunction() + ucrReceiverTN.SetClimaticType("temp_min") + ucrReceiverTN.bAutoFill = True + ucrReceiverTN.bWithQuotes = False + + ucrReceiverRR.SetParameter(New RParameter("rain", 5,)) + ucrReceiverRR.Selector = ucrSelectorImportToClimpact + ucrReceiverRR.SetClimaticType("rain") + ucrReceiverRR.bAutoFill = True + ucrReceiverRR.SetParameterIsRFunction() + ucrReceiverRR.bWithQuotes = False + + ucrInputExportFile.SetParameter(New RParameter("output_file ", 9)) + ucrInputExportFile.IsReadOnly = True + ucrInputExportFile.SetLinkedDisplayControl(lblExport) + + End Sub + + Private Sub SetDefaults() + clsOutputClimpact = New RFunction + + ucrSelectorImportToClimpact.Reset() + + clsOutputClimpact.SetRCommand("write_weather_data") + + ucrBase.clsRsyntax.SetBaseRFunction(clsOutputClimpact) + End Sub + + Private Sub SetRCodeForControls(bReset As Boolean) + + SetRCode(Me, ucrBase.clsRsyntax.clsBaseFunction, bReset) + End Sub + + Private Sub TestOkEnabled() + ucrBase.OKEnabled(Not ucrReceiverDay.IsEmpty _ + AndAlso Not ucrReceiverMonth.IsEmpty _ + AndAlso Not ucrReceiverYear.IsEmpty _ + AndAlso Not ucrReceiverRR.IsEmpty _ + AndAlso Not ucrReceiverTX.IsEmpty _ + AndAlso Not ucrReceiverTN.IsEmpty + ) + If ucrInputExportFile.IsEmpty Then + ucrBase.OKEnabled(False) + End If + End Sub + + Private Sub ucrBase_ClickReset(sender As Object, e As EventArgs) Handles ucrBase.ClickReset + SetDefaults() + SetRCodeForControls(True) + TestOkEnabled() + End Sub + + Private Sub cmdBrowse_Click(sender As Object, e As EventArgs) Handles cmdBrowse.Click + SelectFileToSave() + End Sub + + Private Sub SelectFileToSave() + Using dlgSave As New SaveFileDialog + dlgSave.Title = "Save Climpact File" + dlgSave.Filter = "Text File (*.txt)|*.txt" + If ucrInputExportFile.GetText() <> "" Then + dlgSave.InitialDirectory = ucrInputExportFile.GetText().Replace("/", "\") + Else + dlgSave.InitialDirectory = frmMain.clsInstatOptions.strWorkingDirectory + End If + If dlgSave.ShowDialog() = DialogResult.OK Then + ucrInputExportFile.SetName(dlgSave.FileName.Replace("\", "/")) + End If + TestOkEnabled() + End Using + End Sub + + Private Sub ucrInputExportFile_Click(sender As Object, e As EventArgs) Handles ucrInputExportFile.Click + If ucrInputExportFile.IsEmpty() Then + SelectFileToSave() + End If + End Sub + + Private Sub ucrReceiverElements_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrReceiverRR.ControlContentsChanged, ucrReceiverTN.ControlValueChanged, ucrReceiverDay.ControlValueChanged, ucrReceiverYear.ControlValueChanged, ucrInputExportFile.ControlContentsChanged, ucrReceiverTX.ControlValueChanged, ucrReceiverMonth.ControlValueChanged + TestOkEnabled() + End Sub +End Class \ No newline at end of file diff --git a/instat/dlgHeatMapPlot.Designer.vb b/instat/dlgHeatMapPlot.Designer.vb index dd78aa726a6..9ff7ff37d50 100644 --- a/instat/dlgHeatMapPlot.Designer.vb +++ b/instat/dlgHeatMapPlot.Designer.vb @@ -54,6 +54,18 @@ Partial Class dlgHeatMapPlot Me.lblLongitude = New System.Windows.Forms.Label() Me.lblLatitude = New System.Windows.Forms.Label() Me.lblFillChoropleth = New System.Windows.Forms.Label() + Me.lblGroup = New System.Windows.Forms.Label() + Me.contextMenuStripOptions = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.toolStripMenuItemPlotOptions = New System.Windows.Forms.ToolStripMenuItem() + Me.toolStripMenuItemTileOptions = New System.Windows.Forms.ToolStripMenuItem() + Me.toolStripMenuItemPolygonOptions = New System.Windows.Forms.ToolStripMenuItem() + Me.lblFacetBy = New System.Windows.Forms.Label() + Me.ucrInputStation = New instat.ucrInputComboBox() + Me.ucr1stFactorReceiver = New instat.ucrReceiverSingle() + Me.ucrInputLegendPosition = New instat.ucrInputComboBox() + Me.ucrChkLegend = New instat.ucrCheck() + Me.cmdOptions = New instat.ucrSplitButton() + Me.ucrChkPoints = New instat.ucrCheck() Me.ucrChkFlipCoordinates = New instat.ucrCheck() Me.ucrReceiverPointsHeatMap = New instat.ucrReceiverSingle() Me.ucrNudShapeHeatMap = New instat.ucrNud() @@ -71,18 +83,11 @@ Partial Class dlgHeatMapPlot Me.ucrVariableAsFactorForHeatMap = New instat.ucrVariablesAsFactor() Me.ucrInputReorderVariableX = New instat.ucrInputComboBox() Me.ucrInputSize = New instat.ucrInputComboBox() - Me.ucrChkAddLabels = New instat.ucrCheck() Me.ucrInputPosition = New instat.ucrInputComboBox() Me.ucrInputColour = New instat.ucrInputComboBox() Me.ucrReceiverX = New instat.ucrReceiverSingle() Me.ucrReceiverGroup = New instat.ucrReceiverSingle() - Me.lblGroup = New System.Windows.Forms.Label() - Me.ucrChkPoints = New instat.ucrCheck() - Me.contextMenuStripOptions = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.toolStripMenuItemPlotOptions = New System.Windows.Forms.ToolStripMenuItem() - Me.toolStripMenuItemTileOptions = New System.Windows.Forms.ToolStripMenuItem() - Me.toolStripMenuItemPolygonOptions = New System.Windows.Forms.ToolStripMenuItem() - Me.cmdOptions = New instat.ucrSplitButton() + Me.ucrChkAddLabels = New instat.ucrCheck() Me.contextMenuStripOptions.SuspendLayout() Me.SuspendLayout() ' @@ -174,6 +179,84 @@ Partial Class dlgHeatMapPlot Me.lblFillChoropleth.Name = "lblFillChoropleth" Me.lblFillChoropleth.Tag = "fill" ' + 'lblGroup + ' + resources.ApplyResources(Me.lblGroup, "lblGroup") + Me.lblGroup.Name = "lblGroup" + ' + 'contextMenuStripOptions + ' + Me.contextMenuStripOptions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStripMenuItemPlotOptions, Me.toolStripMenuItemTileOptions, Me.toolStripMenuItemPolygonOptions}) + Me.contextMenuStripOptions.Name = "contextMenuStripOk" + resources.ApplyResources(Me.contextMenuStripOptions, "contextMenuStripOptions") + ' + 'toolStripMenuItemPlotOptions + ' + Me.toolStripMenuItemPlotOptions.Name = "toolStripMenuItemPlotOptions" + resources.ApplyResources(Me.toolStripMenuItemPlotOptions, "toolStripMenuItemPlotOptions") + ' + 'toolStripMenuItemTileOptions + ' + Me.toolStripMenuItemTileOptions.Name = "toolStripMenuItemTileOptions" + resources.ApplyResources(Me.toolStripMenuItemTileOptions, "toolStripMenuItemTileOptions") + ' + 'toolStripMenuItemPolygonOptions + ' + Me.toolStripMenuItemPolygonOptions.Name = "toolStripMenuItemPolygonOptions" + resources.ApplyResources(Me.toolStripMenuItemPolygonOptions, "toolStripMenuItemPolygonOptions") + ' + 'lblFacetBy + ' + resources.ApplyResources(Me.lblFacetBy, "lblFacetBy") + Me.lblFacetBy.Name = "lblFacetBy" + Me.lblFacetBy.Tag = "" + ' + 'ucrInputStation + ' + Me.ucrInputStation.AddQuotesIfUnrecognised = True + resources.ApplyResources(Me.ucrInputStation, "ucrInputStation") + Me.ucrInputStation.GetSetSelectedIndex = -1 + Me.ucrInputStation.IsReadOnly = False + Me.ucrInputStation.Name = "ucrInputStation" + ' + 'ucr1stFactorReceiver + ' + resources.ApplyResources(Me.ucr1stFactorReceiver, "ucr1stFactorReceiver") + Me.ucr1stFactorReceiver.frmParent = Me + Me.ucr1stFactorReceiver.Name = "ucr1stFactorReceiver" + Me.ucr1stFactorReceiver.Selector = Nothing + Me.ucr1stFactorReceiver.strNcFilePath = "" + Me.ucr1stFactorReceiver.ucrSelector = Nothing + ' + 'ucrInputLegendPosition + ' + Me.ucrInputLegendPosition.AddQuotesIfUnrecognised = True + resources.ApplyResources(Me.ucrInputLegendPosition, "ucrInputLegendPosition") + Me.ucrInputLegendPosition.GetSetSelectedIndex = -1 + Me.ucrInputLegendPosition.IsReadOnly = False + Me.ucrInputLegendPosition.Name = "ucrInputLegendPosition" + ' + 'ucrChkLegend + ' + resources.ApplyResources(Me.ucrChkLegend, "ucrChkLegend") + Me.ucrChkLegend.Checked = False + Me.ucrChkLegend.Name = "ucrChkLegend" + ' + 'cmdOptions + ' + resources.ApplyResources(Me.cmdOptions, "cmdOptions") + Me.cmdOptions.ContextMenuStrip = Me.contextMenuStripOptions + Me.cmdOptions.Name = "cmdOptions" + Me.cmdOptions.SplitMenuStrip = Me.contextMenuStripOptions + Me.cmdOptions.Tag = "Plot Options" + Me.cmdOptions.UseVisualStyleBackColor = True + ' + 'ucrChkPoints + ' + resources.ApplyResources(Me.ucrChkPoints, "ucrChkPoints") + Me.ucrChkPoints.Checked = False + Me.ucrChkPoints.Name = "ucrChkPoints" + ' 'ucrChkFlipCoordinates ' resources.ApplyResources(Me.ucrChkFlipCoordinates, "ucrChkFlipCoordinates") @@ -306,12 +389,6 @@ Partial Class dlgHeatMapPlot Me.ucrInputSize.IsReadOnly = False Me.ucrInputSize.Name = "ucrInputSize" ' - 'ucrChkAddLabels - ' - resources.ApplyResources(Me.ucrChkAddLabels, "ucrChkAddLabels") - Me.ucrChkAddLabels.Checked = False - Me.ucrChkAddLabels.Name = "ucrChkAddLabels" - ' 'ucrInputPosition ' Me.ucrInputPosition.AddQuotesIfUnrecognised = True @@ -346,56 +423,24 @@ Partial Class dlgHeatMapPlot Me.ucrReceiverGroup.strNcFilePath = "" Me.ucrReceiverGroup.ucrSelector = Nothing ' - 'lblGroup - ' - resources.ApplyResources(Me.lblGroup, "lblGroup") - Me.lblGroup.Name = "lblGroup" - ' - 'ucrChkPoints - ' - resources.ApplyResources(Me.ucrChkPoints, "ucrChkPoints") - Me.ucrChkPoints.Checked = False - Me.ucrChkPoints.Name = "ucrChkPoints" - ' - 'contextMenuStripOptions - ' - Me.contextMenuStripOptions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStripMenuItemPlotOptions, Me.toolStripMenuItemTileOptions, Me.toolStripMenuItemPolygonOptions}) - Me.contextMenuStripOptions.Name = "contextMenuStripOk" - resources.ApplyResources(Me.contextMenuStripOptions, "contextMenuStripOptions") - ' - 'toolStripMenuItemPlotOptions - ' - Me.toolStripMenuItemPlotOptions.Name = "toolStripMenuItemPlotOptions" - resources.ApplyResources(Me.toolStripMenuItemPlotOptions, "toolStripMenuItemPlotOptions") - ' - 'toolStripMenuItemTileOptions - ' - Me.toolStripMenuItemTileOptions.Name = "toolStripMenuItemTileOptions" - resources.ApplyResources(Me.toolStripMenuItemTileOptions, "toolStripMenuItemTileOptions") - ' - 'toolStripMenuItemPolygonOptions - ' - Me.toolStripMenuItemPolygonOptions.Name = "toolStripMenuItemPolygonOptions" - resources.ApplyResources(Me.toolStripMenuItemPolygonOptions, "toolStripMenuItemPolygonOptions") - ' - 'cmdOptions + 'ucrChkAddLabels ' - resources.ApplyResources(Me.cmdOptions, "cmdOptions") - Me.cmdOptions.ContextMenuStrip = Me.contextMenuStripOptions - Me.cmdOptions.Name = "cmdOptions" - Me.cmdOptions.SplitMenuStrip = Me.contextMenuStripOptions - Me.cmdOptions.Tag = "Plot Options" - Me.cmdOptions.UseVisualStyleBackColor = True + resources.ApplyResources(Me.ucrChkAddLabels, "ucrChkAddLabels") + Me.ucrChkAddLabels.Checked = False + Me.ucrChkAddLabels.Name = "ucrChkAddLabels" ' 'dlgHeatMapPlot ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.ucrInputStation) + Me.Controls.Add(Me.ucr1stFactorReceiver) + Me.Controls.Add(Me.lblFacetBy) + Me.Controls.Add(Me.ucrInputLegendPosition) + Me.Controls.Add(Me.ucrChkLegend) Me.Controls.Add(Me.cmdOptions) - Me.Controls.Add(Me.ucrChkPoints) Me.Controls.Add(Me.lblGroup) Me.Controls.Add(Me.lblFillChoropleth) - Me.Controls.Add(Me.ucrChkFlipCoordinates) Me.Controls.Add(Me.rdoChoroplethMap) Me.Controls.Add(Me.rdoHeatMap) Me.Controls.Add(Me.lblPointsOptional) @@ -430,6 +475,8 @@ Partial Class dlgHeatMapPlot Me.Controls.Add(Me.lblReorderVariableX) Me.Controls.Add(Me.ucrReceiverGroup) Me.Controls.Add(Me.ucrChkAddLabels) + Me.Controls.Add(Me.ucrChkPoints) + Me.Controls.Add(Me.ucrChkFlipCoordinates) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.MaximizeBox = False Me.MinimizeBox = False @@ -482,4 +529,9 @@ Partial Class dlgHeatMapPlot Friend WithEvents toolStripMenuItemPlotOptions As ToolStripMenuItem Friend WithEvents toolStripMenuItemTileOptions As ToolStripMenuItem Friend WithEvents toolStripMenuItemPolygonOptions As ToolStripMenuItem + Friend WithEvents ucrInputStation As ucrInputComboBox + Friend WithEvents ucr1stFactorReceiver As ucrReceiverSingle + Friend WithEvents lblFacetBy As Label + Friend WithEvents ucrInputLegendPosition As ucrInputComboBox + Friend WithEvents ucrChkLegend As ucrCheck End Class \ No newline at end of file diff --git a/instat/dlgHeatMapPlot.resx b/instat/dlgHeatMapPlot.resx index 0aac402b5a0..3835b0a3259 100644 --- a/instat/dlgHeatMapPlot.resx +++ b/instat/dlgHeatMapPlot.resx @@ -148,7 +148,7 @@ $this - 23 + 26 True @@ -178,7 +178,7 @@ $this - 14 + 17 True @@ -187,7 +187,7 @@ NoControl - 126, 413 + 126, 391 47, 13 @@ -208,7 +208,7 @@ $this - 31 + 34 True @@ -217,7 +217,7 @@ NoControl - 229, 413 + 229, 391 40, 13 @@ -238,7 +238,7 @@ $this - 33 + 36 True @@ -247,7 +247,7 @@ NoControl - 322, 413 + 322, 391 30, 13 @@ -268,7 +268,7 @@ $this - 35 + 38 True @@ -298,7 +298,7 @@ $this - 8 + 11 True @@ -328,7 +328,7 @@ $this - 9 + 12 True @@ -358,7 +358,7 @@ $this - 37 + 40 True @@ -388,7 +388,7 @@ $this - 26 + 29 Button @@ -424,7 +424,7 @@ $this - 6 + 9 Button @@ -460,7 +460,7 @@ $this - 7 + 10 True @@ -490,7 +490,7 @@ $this - 21 + 24 True @@ -520,7 +520,7 @@ $this - 25 + 28 True @@ -550,33 +550,123 @@ $this - 4 + 8 - + True - - 10, 379 + + NoControl - - 166, 23 + + 273, 197 - - 27 + + 55, 13 - - ucrChkFlipCoordinates + + 16 - - instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + Group/ID: - + + lblGroup + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + $this - - 5 + + 7 - + + 17, 17 + + + 164, 70 + + + contextMenuStripOptions + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 163, 22 + + + Plot Options + + + 163, 22 + + + Tile Options + + + 163, 22 + + + Polygon Options + + + True + + + NoControl + + + 207, 411 + + + 52, 13 + + + 89 + + + Facet By: + + + lblFacetBy + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + + + GrowAndShrink + + + 316, 425 + + + 101, 21 + + + 91 + + + ucrInputStation + + + instat.ucrInputComboBox, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 1 + + True @@ -586,22 +676,61 @@ 6, 13 - 420, 562 + 420, 538 - + + GrowAndShrink + + + 86, 425 + + + 112, 21 + + + 93 + + + ucrInputLegendPosition + + + instat.ucrInputComboBox, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 4 + + True - - 17, 17 - - - 164, 70 + + 8, 426 - - contextMenuStripOptions + + 98, 24 - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 92 + + + ucrChkLegend + + + instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 5 + + + True + + + NoControl 8, 247 @@ -625,58 +754,34 @@ $this - 1 - - - True - - - 10, 379 - - - 166, 23 - - - 39 - - - ucrChkPoints - - - instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - $this - - - 2 + 6 - + True - - 273, 197 + + 273, 343 - - 55, 13 + + 0, 0, 0, 0 - - 16 + + 125, 20 - - Group/ID: + + 24 - - lblGroup + + ucrReceiverPointsHeatMap - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - + $this - - 3 + + 13 True @@ -700,13 +805,13 @@ $this - 11 + 14 True - 10, 439 + 8, 346 128, 23 @@ -724,13 +829,13 @@ $this - 12 + 15 GrowAndShrink - 141, 439 + 142, 346 63, 21 @@ -748,7 +853,7 @@ $this - 13 + 16 True @@ -775,13 +880,13 @@ $this - 15 + 18 GrowAndShrink - 10, 470 + 8, 453 4, 5, 4, 5 @@ -802,13 +907,13 @@ $this - 16 + 19 GrowAndShrink - 8, 510 + 8, 487 410, 58 @@ -826,7 +931,7 @@ $this - 17 + 20 GrowAndShrink @@ -850,7 +955,7 @@ $this - 18 + 21 GrowAndShrink @@ -874,7 +979,7 @@ $this - 19 + 22 True @@ -901,7 +1006,7 @@ $this - 20 + 23 True @@ -928,7 +1033,7 @@ $this - 22 + 25 True @@ -955,7 +1060,7 @@ $this - 24 + 27 True @@ -982,7 +1087,7 @@ $this - 27 + 30 True @@ -1006,7 +1111,7 @@ $this - 28 + 31 GrowAndShrink @@ -1030,13 +1135,13 @@ $this - 29 + 32 GrowAndShrink - 349, 409 + 349, 387 59, 23 @@ -1054,13 +1159,13 @@ $this - 30 + 33 GrowAndShrink - 173, 409 + 173, 387 52, 23 @@ -1078,13 +1183,13 @@ $this - 32 + 35 GrowAndShrink - 269, 409 + 269, 387 50, 23 @@ -1102,7 +1207,7 @@ $this - 34 + 37 True @@ -1129,7 +1234,7 @@ $this - 36 + 39 True @@ -1156,13 +1261,13 @@ $this - 38 + 41 True - 10, 409 + 8, 387 128, 23 @@ -1180,8 +1285,59 @@ $this + 42 + + + True + + + 8, 314 + + + 166, 23 + + 39 + + ucrChkPoints + + + instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 43 + + + True + + + 8, 315 + + + 166, 23 + + + 27 + + + ucrChkFlipCoordinates + + + instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 44 + + + NoControl + CenterScreen @@ -1212,46 +1368,28 @@ System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 273, 343 + + 204, 426 - + 0, 0, 0, 0 - - 125, 20 + + 110, 26 - - 24 + + 90 - - ucrReceiverPointsHeatMap + + ucr1stFactorReceiver - + instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - + $this - - 10 - - - 163, 22 - - - Plot Options - - - 163, 22 - - - Tile Options - - - 163, 22 - - - Polygon Options + + 2 \ No newline at end of file diff --git a/instat/dlgHeatMapPlot.vb b/instat/dlgHeatMapPlot.vb index 7ebeb13f287..e27f4c5f5d8 100644 --- a/instat/dlgHeatMapPlot.vb +++ b/instat/dlgHeatMapPlot.vb @@ -30,6 +30,18 @@ Public Class dlgHeatMapPlot Private ReadOnly strReverse As String = "Reverse" Private ReadOnly strNone As String = "None" + Private clsFacetFunction As New RFunction + Private clsFacetVariablesOperator As New ROperator + Private clsFacetRowOp As New ROperator + Private clsFacetColOp As New ROperator + + Private ReadOnly strFacetWrap As String = "Facet Wrap" + Private ReadOnly strFacetRow As String = "Facet Row" + Private ReadOnly strFacetCol As String = "Facet Column" + + Private bUpdateComboOptions As Boolean = True + Private bUpdatingParameters As Boolean = False + Private clsCoordPolarStartOperator, clsBaseOperator, clsPipeOperator As New ROperator Private clsCoordPolarFunction, clsAnnotateFunction, clsLocalRaesFunction, clsXScaleDateFunction, clsYScaleDateFunction, @@ -65,6 +77,7 @@ Public Class dlgHeatMapPlot Dim dctLabelPositions As New Dictionary(Of String, String) Dim dctLabelSizes As New Dictionary(Of String, String) Dim dctColourPallette As New Dictionary(Of String, String) + Dim dctLegendPosition As New Dictionary(Of String, String) ucrBase.iHelpTopicID = 476 ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False @@ -202,6 +215,32 @@ Public Class dlgHeatMapPlot ucrInputReorderVariableX.SetDropDownStyleAsNonEditable() ucrInputReorderVariableX.SetLinkedDisplayControl(lblReorderVariableX) + ucrChkLegend.SetText("Legend:") + ucrChkLegend.AddToLinkedControls({ucrInputLegendPosition}, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="None") + ucrInputLegendPosition.SetDropDownStyleAsNonEditable() + ucrInputLegendPosition.SetParameter(New RParameter("legend.position")) + dctLegendPosition.Add("None", Chr(34) & "none" & Chr(34)) + dctLegendPosition.Add("Left", Chr(34) & "left" & Chr(34)) + dctLegendPosition.Add("Right", Chr(34) & "right" & Chr(34)) + dctLegendPosition.Add("Top", Chr(34) & "top" & Chr(34)) + dctLegendPosition.Add("Bottom", Chr(34) & "bottom" & Chr(34)) + ucrInputLegendPosition.SetItems(dctLegendPosition) + ucrChkLegend.AddParameterPresentCondition(True, "legend.position") + ucrChkLegend.AddParameterPresentCondition(False, "legend.position", False) + + ucr1stFactorReceiver.SetParameter(New RParameter("var1")) + ucr1stFactorReceiver.Selector = ucrHeatMapSelector + ucr1stFactorReceiver.SetIncludedDataTypes({"factor"}) + ucr1stFactorReceiver.strSelectorHeading = "Factors" + ucr1stFactorReceiver.bWithQuotes = False + ucr1stFactorReceiver.SetParameterIsString() + ucr1stFactorReceiver.SetValuesToIgnore({"."}) + ucr1stFactorReceiver.SetParameterPosition(1) + ucr1stFactorReceiver.SetLinkedDisplayControl(lblFacetBy) + + ucrInputStation.SetItems({strFacetWrap, strFacetRow, strFacetCol, strNone}) + ucrInputStation.SetDropDownStyleAsNonEditable() + clsCoordFlipFunction.SetPackageName("ggplot2") clsCoordFlipFunction.SetRCommand("coord_flip") clsCoordFlipParam.SetArgumentName("coord_flip") @@ -240,6 +279,13 @@ Public Class dlgHeatMapPlot clsGroupByFunction = New RFunction clsSummariseFunction = New RFunction clsDummyFunction = New RFunction + clsFacetFunction = New RFunction + clsFacetVariablesOperator = New ROperator + clsFacetRowOp = New ROperator + clsFacetColOp = New ROperator + + ucrInputStation.SetName(strFacetWrap) + ucrInputStation.bUpdateRCodeFromControl = True ucrSaveGraph.Reset() ucrVariableAsFactorForHeatMap.SetMeAsReceiver() @@ -362,6 +408,22 @@ Public Class dlgHeatMapPlot clsSizeChoroplethAesFunction.AddParameter("x", "x", iPosition:=0) clsSizeChoroplethAesFunction.AddParameter("y", "y", iPosition:=1) + clsFacetFunction.SetPackageName("ggplot2") + clsFacetRowOp.SetOperation("+") + clsFacetRowOp.bBrackets = False + clsFacetColOp.SetOperation("+") + clsFacetColOp.bBrackets = False + clsFacetVariablesOperator.SetOperation("~") + clsFacetVariablesOperator.bForceIncludeOperation = True + clsFacetVariablesOperator.bBrackets = False + clsFacetFunction.AddParameter("facets", clsROperatorParameter:=clsFacetVariablesOperator, iPosition:=0) + + ' clsPipeOperator.SetOperation("%>%") + SetPipeAssignTo() + + 'clsGroupByFunction.SetPackageName("dplyr") + 'clsGroupByFunction.SetRCommand("group_by") + clsBaseOperator.AddParameter(GgplotDefaults.clsDefaultThemeParameter.Clone()) clsXlabsFunction = GgplotDefaults.clsXlabTitleFunction.Clone() @@ -425,6 +487,8 @@ Public Class dlgHeatMapPlot ucrReceiverPointsHeatMap.SetRCode(clsSizeHeatMapAesFunction, bReset) ucrNudShapeHeatMap.SetRCode(clsGeomPointShapeHeatMapFunction, bReset) ucrChkFlipCoordinates.SetRCode(clsBaseOperator, bReset) + ucrChkLegend.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + ucrInputLegendPosition.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) bRCodeSet = True UnstackColumns() @@ -454,6 +518,18 @@ Public Class dlgHeatMapPlot TestOkEnabled() End Sub + Private Sub AddRemoveTheme() + If clsThemeFunction.iParameterCount > 0 Then + clsBaseOperator.AddParameter("theme", clsRFunctionParameter:=clsThemeFunction, iPosition:=15) + Else + clsBaseOperator.RemoveParameterByName("theme") + End If + End Sub + + Private Sub ucrChkLegend_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkLegend.ControlValueChanged, ucrInputLegendPosition.ControlValueChanged + AddRemoveTheme() + End Sub + Private Sub ucrChkAddLabels_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkAddLabels.ControlValueChanged If ucrChkAddLabels.Checked Then clsBaseOperator.AddParameter("geom_text", clsRFunctionParameter:=clsGeomTextFunction, iPosition:=5) @@ -476,7 +552,7 @@ Public Class dlgHeatMapPlot sdgPlots.SetRCode(clsBaseOperator, clsNewYScalecontinuousFunction:=clsYScalecontinuousFunction, clsNewXScalecontinuousFunction:=clsXScalecontinuousFunction, clsNewGlobalAesFunction:=If(rdoHeatMap.Checked, clsHeatmapAesFunction, clsChoroplethAesFunction), clsNewXLabsTitleFunction:=clsXlabsFunction, clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, clsNewYLabTitleFunction:=clsYlabFunction, clsNewLabsFunction:=clsLabsFunction, - clsNewFacetFunction:=clsRFacetFunction, clsNewThemeFunction:=clsThemeFunction, dctNewThemeFunctions:=dctThemeFunctions, ucrNewBaseSelector:=ucrHeatMapSelector, + clsNewFacetFunction:=clsRFacetFunction, clsNewThemeFunction:=clsThemeFunction, dctNewThemeFunctions:=dctThemeFunctions, ucrNewBaseSelector:=ucrHeatMapSelector, clsNewFacetVariablesOperator:=clsFacetVariablesOperator, strMainDialogGeomParameterNames:=strGeomParameterNames, clsNewCoordPolarFunction:=clsCoordPolarFunction, clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewAnnotateFunction:=clsAnnotateFunction, clsNewXScaleDateFunction:=clsXScaleDateFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, bReset:=bResetSubdialog) sdgPlots.ShowDialog() @@ -655,8 +731,163 @@ Public Class dlgHeatMapPlot End If End Sub + Private Sub AutoFacetStation() + Dim currentReceiver As ucrReceiver = ucrHeatMapSelector.CurrentReceiver + + If currentReceiver IsNot Nothing Then + ucr1stFactorReceiver.AddItemsWithMetadataProperty(ucrHeatMapSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text, "Climatic_Type", {"station_label"}) + currentReceiver.SetMeAsReceiver() + AddRemoveGroupBy() + End If + End Sub + + Private Sub ucrInput_ControlValueChanged(ucrChangedControl As ucrInputComboBox) Handles ucrInputStation.ControlValueChanged + If Not bUpdateComboOptions Then + Exit Sub + End If + Dim strChangedText As String = ucrChangedControl.GetText() + If strChangedText <> strNone Then + If Not strChangedText = strFacetCol AndAlso Not strChangedText = strFacetRow AndAlso + Not ucrInputStation.Equals(ucrChangedControl) AndAlso ucrInputStation.GetText() = strChangedText Then + bUpdateComboOptions = False + ucrInputStation.SetName(strNone) + bUpdateComboOptions = True + End If + If (strChangedText = strFacetWrap AndAlso ucrInputStation.GetText = strFacetRow) OrElse (strChangedText = strFacetRow AndAlso + ucrInputStation.GetText = strFacetWrap) OrElse (strChangedText = strFacetWrap AndAlso + ucrInputStation.GetText = strFacetCol) OrElse (strChangedText = strFacetCol AndAlso ucrInputStation.GetText = strFacetWrap) Then + ucrInputStation.SetName(strNone) + End If + End If + UpdateParameters() + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub UpdateParameters() + clsFacetVariablesOperator.RemoveParameterByName("var1") + clsFacetColOp.RemoveParameterByName("col" & ucrInputStation.Name) + clsFacetRowOp.RemoveParameterByName("row" & ucrInputStation.Name) + + clsBaseOperator.RemoveParameterByName("facets") + bUpdatingParameters = True + ucr1stFactorReceiver.SetRCode(Nothing) + Select Case ucrInputStation.GetText() + Case strFacetWrap + ucr1stFactorReceiver.ChangeParameterName("var1") + ucr1stFactorReceiver.SetRCode(clsFacetVariablesOperator) + Case strFacetCol + ucr1stFactorReceiver.ChangeParameterName("col" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetColOp) + Case strFacetRow + ucr1stFactorReceiver.ChangeParameterName("row" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetRowOp) + End Select + If Not clsHeatmapAesFunction.ContainsParameter("x") Then + clsHeatmapAesFunction.AddParameter("x", Chr(34) & Chr(34)) + End If + bUpdatingParameters = False + End Sub + + Private Sub AddRemoveFacets() + Dim bWrap As Boolean = False + Dim bCol As Boolean = False + Dim bRow As Boolean = False + + If bUpdatingParameters Then + Exit Sub + End If + + clsBaseOperator.RemoveParameterByName("facets") + If Not ucr1stFactorReceiver.IsEmpty Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + bWrap = True + Case strFacetCol + bCol = True + Case strFacetRow + bRow = True + End Select + End If + + If bWrap OrElse bRow OrElse bCol Then + clsBaseOperator.AddParameter("facets", clsRFunctionParameter:=clsFacetFunction) + End If + If bWrap Then + clsFacetFunction.SetRCommand("facet_wrap") + End If + If bRow OrElse bCol Then + clsFacetFunction.SetRCommand("facet_grid") + End If + If bRow Then + clsFacetVariablesOperator.AddParameter("left", clsROperatorParameter:=clsFacetRowOp, iPosition:=0) + ElseIf bCol AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("left", ".", iPosition:=0) + Else + clsFacetVariablesOperator.RemoveParameterByName("left") + End If + If bCol Then + clsFacetVariablesOperator.AddParameter("right", clsROperatorParameter:=clsFacetColOp, iPosition:=1) + ElseIf bRow AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("right", ".", iPosition:=1) + Else + clsFacetVariablesOperator.RemoveParameterByName("right") + End If + End Sub + + Private Sub ucr1stFactorReceiver_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucr1stFactorReceiver.ControlValueChanged, ucrReceiverX.ControlValueChanged + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub GetParameterValue(clsOperator As ROperator) + Dim i As Integer = 0 + For Each clsTempParam As RParameter In clsOperator.clsParameters + If clsTempParam.strArgumentValue <> "" AndAlso clsTempParam.strArgumentValue <> "." Then + clsGroupByFunction.AddParameter(i, clsTempParam.strArgumentValue, bIncludeArgumentName:=False, iPosition:=i) + i = i + 1 + End If + Next + End Sub + + Private Sub AddRemoveGroupBy() + If clsPipeOperator.ContainsParameter("mutate") Then + clsGroupByFunction.ClearParameters() + If clsBaseOperator.ContainsParameter("facets") Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + GetParameterValue(clsFacetVariablesOperator) + Case strFacetCol + GetParameterValue(clsFacetColOp) + Case strFacetRow + GetParameterValue(clsFacetRowOp) + End Select + End If + + If clsGroupByFunction.iParameterCount > 0 Then + clsPipeOperator.AddParameter("group_by", clsRFunctionParameter:=clsGroupByFunction, iPosition:=1) + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + + SetPipeAssignTo() + End Sub + + Private Sub SetPipeAssignTo() + If ucrHeatMapSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text <> "" AndAlso clsPipeOperator.clsParameters.Count > 1 Then + clsPipeOperator.SetAssignTo(ucrHeatMapSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + Else + clsPipeOperator.RemoveAssignTo() + End If + End Sub + Private Sub ucrHeatMapSelector_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrHeatMapSelector.ControlValueChanged clsPipeOperator.AddParameter("data", ucrHeatMapSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text, iPosition:=0) + AutoFacetStation() + SetPipeAssignTo() End Sub Private Sub AddRemoveGeomParameter() diff --git a/instat/dlgHistogram.designer.vb b/instat/dlgHistogram.designer.vb index 46b7178c5f8..734dab62ee1 100644 --- a/instat/dlgHistogram.designer.vb +++ b/instat/dlgHistogram.designer.vb @@ -64,6 +64,11 @@ Partial Class dlgHistogram Me.ucrPnlOptions = New instat.UcrPanel() Me.lblReorder = New System.Windows.Forms.Label() Me.ucrInputAddReorder = New instat.ucrInputComboBox() + Me.ucrInputStation = New instat.ucrInputComboBox() + Me.ucr1stFactorReceiver = New instat.ucrReceiverSingle() + Me.lblFacetBy = New System.Windows.Forms.Label() + Me.ucrInputLegendPosition = New instat.ucrInputComboBox() + Me.ucrChkLegend = New instat.ucrCheck() Me.contextMenuStripOptions.SuspendLayout() Me.SuspendLayout() ' @@ -236,7 +241,7 @@ Partial Class dlgHistogram 'ucrSaveHist ' Me.ucrSaveHist.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrSaveHist.Location = New System.Drawing.Point(10, 342) + Me.ucrSaveHist.Location = New System.Drawing.Point(10, 385) Me.ucrSaveHist.Margin = New System.Windows.Forms.Padding(5) Me.ucrSaveHist.Name = "ucrSaveHist" Me.ucrSaveHist.Size = New System.Drawing.Size(322, 24) @@ -285,7 +290,7 @@ Partial Class dlgHistogram ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(10, 365) + Me.ucrBase.Location = New System.Drawing.Point(10, 408) Me.ucrBase.Margin = New System.Windows.Forms.Padding(4) Me.ucrBase.Name = "ucrBase" Me.ucrBase.Size = New System.Drawing.Size(408, 52) @@ -321,12 +326,72 @@ Partial Class dlgHistogram Me.ucrInputAddReorder.Size = New System.Drawing.Size(120, 21) Me.ucrInputAddReorder.TabIndex = 39 ' + 'ucrInputStation + ' + Me.ucrInputStation.AddQuotesIfUnrecognised = True + Me.ucrInputStation.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputStation.GetSetSelectedIndex = -1 + Me.ucrInputStation.IsReadOnly = False + Me.ucrInputStation.Location = New System.Drawing.Point(318, 348) + Me.ucrInputStation.Name = "ucrInputStation" + Me.ucrInputStation.Size = New System.Drawing.Size(101, 21) + Me.ucrInputStation.TabIndex = 86 + ' + 'ucr1stFactorReceiver + ' + Me.ucr1stFactorReceiver.AutoSize = True + Me.ucr1stFactorReceiver.frmParent = Me + Me.ucr1stFactorReceiver.Location = New System.Drawing.Point(205, 349) + Me.ucr1stFactorReceiver.Margin = New System.Windows.Forms.Padding(0) + Me.ucr1stFactorReceiver.Name = "ucr1stFactorReceiver" + Me.ucr1stFactorReceiver.Selector = Nothing + Me.ucr1stFactorReceiver.Size = New System.Drawing.Size(110, 26) + Me.ucr1stFactorReceiver.strNcFilePath = "" + Me.ucr1stFactorReceiver.TabIndex = 85 + Me.ucr1stFactorReceiver.ucrSelector = Nothing + ' + 'lblFacetBy + ' + Me.lblFacetBy.AutoSize = True + Me.lblFacetBy.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblFacetBy.Location = New System.Drawing.Point(208, 334) + Me.lblFacetBy.Name = "lblFacetBy" + Me.lblFacetBy.Size = New System.Drawing.Size(52, 13) + Me.lblFacetBy.TabIndex = 84 + Me.lblFacetBy.Tag = "" + Me.lblFacetBy.Text = "Facet By:" + ' + 'ucrInputLegendPosition + ' + Me.ucrInputLegendPosition.AddQuotesIfUnrecognised = True + Me.ucrInputLegendPosition.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputLegendPosition.GetSetSelectedIndex = -1 + Me.ucrInputLegendPosition.IsReadOnly = False + Me.ucrInputLegendPosition.Location = New System.Drawing.Point(87, 348) + Me.ucrInputLegendPosition.Name = "ucrInputLegendPosition" + Me.ucrInputLegendPosition.Size = New System.Drawing.Size(112, 21) + Me.ucrInputLegendPosition.TabIndex = 88 + ' + 'ucrChkLegend + ' + Me.ucrChkLegend.AutoSize = True + Me.ucrChkLegend.Checked = False + Me.ucrChkLegend.Location = New System.Drawing.Point(11, 349) + Me.ucrChkLegend.Name = "ucrChkLegend" + Me.ucrChkLegend.Size = New System.Drawing.Size(98, 24) + Me.ucrChkLegend.TabIndex = 87 + ' 'dlgHistogram ' 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(448, 422) + Me.ClientSize = New System.Drawing.Size(448, 461) + Me.Controls.Add(Me.ucrInputStation) + Me.Controls.Add(Me.ucr1stFactorReceiver) + Me.Controls.Add(Me.lblFacetBy) + Me.Controls.Add(Me.ucrInputLegendPosition) + Me.Controls.Add(Me.ucrChkLegend) Me.Controls.Add(Me.lblReorder) Me.Controls.Add(Me.ucrInputAddReorder) Me.Controls.Add(Me.cmdOptions) @@ -382,4 +447,9 @@ Partial Class dlgHistogram Friend WithEvents toolStripMenuItemDotOptions As ToolStripMenuItem Friend WithEvents lblReorder As Label Friend WithEvents ucrInputAddReorder As ucrInputComboBox + Friend WithEvents ucrInputStation As ucrInputComboBox + Friend WithEvents ucr1stFactorReceiver As ucrReceiverSingle + Friend WithEvents lblFacetBy As Label + Friend WithEvents ucrInputLegendPosition As ucrInputComboBox + Friend WithEvents ucrChkLegend As ucrCheck End Class \ No newline at end of file diff --git a/instat/dlgHistogram.vb b/instat/dlgHistogram.vb index 850fb1e5099..75e3de42232 100644 --- a/instat/dlgHistogram.vb +++ b/instat/dlgHistogram.vb @@ -47,6 +47,20 @@ Public Class dlgHistogram Private clsForecatsInfreqValue As New RFunction Private clsForecatsReverseValue As New RFunction + Private clsFacetFunction As New RFunction + Private clsFacetVariablesOperator As New ROperator + Private clsFacetRowOp As New ROperator + Private clsFacetColOp As New ROperator + Private clsPipeOperator As New ROperator + Private clsGroupByFunction As New RFunction + + Private ReadOnly strFacetWrap As String = "Facet Wrap" + Private ReadOnly strFacetRow As String = "Facet Row" + Private ReadOnly strFacetCol As String = "Facet Column" + + Private bUpdateComboOptions As Boolean = True + Private bUpdatingParameters As Boolean = False + Private ReadOnly strAscending As String = "Ascending" Private ReadOnly strDescending As String = "Descending" Private ReadOnly strReverse As String = "Reverse" @@ -75,6 +89,7 @@ Public Class dlgHistogram Private Sub InitialiseDialog() Dim dctStats As New Dictionary(Of String, String) + Dim dctLegendPosition As New Dictionary(Of String, String) ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False ucrBase.clsRsyntax.iCallType = 3 ucrBase.iHelpTopicID = 435 @@ -131,6 +146,32 @@ Public Class dlgHistogram ucrInputAddReorder.SetDropDownStyleAsNonEditable() ucrInputAddReorder.SetLinkedDisplayControl(lblReorder) + ucrChkLegend.SetText("Legend:") + ucrChkLegend.AddToLinkedControls({ucrInputLegendPosition}, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="None") + ucrInputLegendPosition.SetDropDownStyleAsNonEditable() + ucrInputLegendPosition.SetParameter(New RParameter("legend.position")) + dctLegendPosition.Add("None", Chr(34) & "none" & Chr(34)) + dctLegendPosition.Add("Left", Chr(34) & "left" & Chr(34)) + dctLegendPosition.Add("Right", Chr(34) & "right" & Chr(34)) + dctLegendPosition.Add("Top", Chr(34) & "top" & Chr(34)) + dctLegendPosition.Add("Bottom", Chr(34) & "bottom" & Chr(34)) + ucrInputLegendPosition.SetItems(dctLegendPosition) + ucrChkLegend.AddParameterPresentCondition(True, "legend.position") + ucrChkLegend.AddParameterPresentCondition(False, "legend.position", False) + + ucr1stFactorReceiver.SetParameter(New RParameter("var1")) + ucr1stFactorReceiver.Selector = ucrHistogramSelector + ucr1stFactorReceiver.SetIncludedDataTypes({"factor"}) + ucr1stFactorReceiver.strSelectorHeading = "Factors" + ucr1stFactorReceiver.bWithQuotes = False + ucr1stFactorReceiver.SetParameterIsString() + ucr1stFactorReceiver.SetValuesToIgnore({"."}) + ucr1stFactorReceiver.SetParameterPosition(1) + ucr1stFactorReceiver.SetLinkedDisplayControl(lblFacetBy) + + ucrInputStation.SetItems({strFacetWrap, strFacetRow, strFacetCol, strNone}) + ucrInputStation.SetDropDownStyleAsNonEditable() + ucrPnlOptions.AddToLinkedControls({ucrChkDisplayAsDotPlot}, {rdoHistogram}, bNewLinkedHideIfParameterMissing:=True) ucrPnlOptions.AddToLinkedControls({ucrChkRidges}, {rdoDensity_ridges}, bNewLinkedHideIfParameterMissing:=True) ucrChkRidges.AddToLinkedControls(ucrInputStats, {"FALSE"}, bNewLinkedHideIfParameterMissing:=True) @@ -154,6 +195,15 @@ Public Class dlgHistogram clsForecatsReverse = New RFunction clsForecatsInfreqValue = New RFunction clsForecatsReverseValue = New RFunction + clsFacetFunction = New RFunction + clsFacetVariablesOperator = New ROperator + clsFacetRowOp = New ROperator + clsFacetColOp = New ROperator + clsPipeOperator = New ROperator + clsGroupByFunction = New RFunction + + ucrInputStation.SetName(strFacetWrap) + ucrInputStation.bUpdateRCodeFromControl = True ucrHistogramSelector.Reset() ucrHistogramSelector.SetGgplotFunction(clsBaseOperator) ucrSaveHist.Reset() @@ -195,6 +245,22 @@ Public Class dlgHistogram clsForecatsInfreqValue.SetPackageName("forcats") clsForecatsInfreqValue.SetRCommand("fct_infreq") + clsFacetFunction.SetPackageName("ggplot2") + clsFacetRowOp.SetOperation("+") + clsFacetRowOp.bBrackets = False + clsFacetColOp.SetOperation("+") + clsFacetColOp.bBrackets = False + clsFacetVariablesOperator.SetOperation("~") + clsFacetVariablesOperator.bForceIncludeOperation = True + clsFacetVariablesOperator.bBrackets = False + clsFacetFunction.AddParameter("facets", clsROperatorParameter:=clsFacetVariablesOperator, iPosition:=0) + + clsPipeOperator.SetOperation("%>%") + SetPipeAssignTo() + + clsGroupByFunction.SetPackageName("dplyr") + clsGroupByFunction.SetRCommand("group_by") + clsBaseOperator.AddParameter(GgplotDefaults.clsDefaultThemeParameter.Clone()) clsXlabsFunction = GgplotDefaults.clsXlabTitleFunction.Clone() clsYlabFunction = GgplotDefaults.clsYlabTitleFunction.Clone() @@ -226,6 +292,8 @@ Public Class dlgHistogram ucrChkDisplayAsDotPlot.SetRCode(clsRgeomPlotFunction, bReset) ucrChkRidges.SetRCode(clsRgeomPlotFunction, bReset) ucrVariablesAsFactorforHist.SetRCode(clsRaesFunction, bReset) + ucrChkLegend.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + ucrInputLegendPosition.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) If bReset Then ucrInputStats.SetRCode(clsHistAesFunction, bReset) ucrFactorReceiver.SetRCode(clsRaesFunction, bReset) @@ -247,6 +315,18 @@ Public Class dlgHistogram TestOkEnabled() End Sub + Private Sub AddRemoveTheme() + If clsThemeFunction.iParameterCount > 0 Then + clsBaseOperator.AddParameter("theme", clsRFunctionParameter:=clsThemeFunction, iPosition:=15) + Else + clsBaseOperator.RemoveParameterByName("theme") + End If + End Sub + + Private Sub ucrChkLegend_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkLegend.ControlValueChanged, ucrInputLegendPosition.ControlValueChanged + AddRemoveTheme() + End Sub + Private Sub SetDialogOptions() clsHistAesFunction.RemoveParameterByName("x") clsHistAesFunction.RemoveParameterByName("y") @@ -398,7 +478,7 @@ Public Class dlgHistogram Private Sub cmdOptions_Click(sender As Object, e As EventArgs) Handles cmdOptions.Click, toolStripMenuItemPlotOptions.Click sdgPlots.SetRCode(clsBaseOperator, clsNewYScalecontinuousFunction:=clsYScalecontinuousFunction, clsNewXScalecontinuousFunction:=clsXScalecontinuousFunction, clsNewXLabsTitleFunction:=clsXlabsFunction, clsNewYLabTitleFunction:=clsYlabFunction, clsNewLabsFunction:=clsLabsFunction, clsNewThemeFunction:=clsThemeFunction, clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, - clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, dctNewThemeFunctions:=dctThemeFunctions, clsNewFacetFunction:=clsRFacetFunction, ucrNewBaseSelector:=ucrHistogramSelector, + clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, dctNewThemeFunctions:=dctThemeFunctions, clsNewFacetFunction:=clsRFacetFunction, ucrNewBaseSelector:=ucrHistogramSelector, clsNewFacetVariablesOperator:=clsFacetVariablesOperator, clsNewGlobalAesFunction:=clsRaesFunction, clsNewCoordPolarFunction:=clsCoordPolarFunction, clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewXScaleDateFunction:=clsXScaleDateFunction, clsNewAnnotateFunction:=clsAnnotateFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, strMainDialogGeomParameterNames:=strGeomParameterNames, bReset:=bResetSubdialog) sdgPlots.ShowDialog() @@ -452,27 +532,200 @@ Public Class dlgHistogram Private Sub DialogueSize() If rdoHistogram.Checked Then - Me.Size = New Size(464, 409) + Me.Size = New Size(464, 468) Me.lblReorder.Location = New Point(283, 275) Me.ucrInputAddReorder.Location = New Point(283, 289) - Me.ucrSaveHist.Location = New Point(10, 314) - Me.ucrBase.Location = New Point(10, 342) + Me.ucrSaveHist.Location = New Point(10, 360) + Me.ucrChkLegend.Location = New Point(11, 329) + Me.ucrInputStation.Location = New Point(318, 328) + Me.ucrInputLegendPosition.Location = New Point(87, 328) + Me.ucr1stFactorReceiver.Location = New Point(205, 329) + Me.lblFacetBy.Location = New Point(208, 315) + Me.ucrBase.Location = New Point(10, 390) ElseIf rdoDensity_ridges.Checked Then - Me.Size = New Size(464, 461) + Me.Size = New Size(464, 500) Me.lblReorder.Location = New Point(286, 298) Me.ucrInputAddReorder.Location = New Point(287, 314) - Me.ucrSaveHist.Location = New Point(10, 342) - Me.ucrBase.Location = New Point(10, 365) + Me.ucrSaveHist.Location = New Point(10, 380) + Me.ucrBase.Location = New Point(10, 408) + Me.ucrChkLegend.Location = New Point(11, 349) + Me.ucrInputStation.Location = New Point(318, 348) + Me.ucrInputLegendPosition.Location = New Point(87, 348) + Me.ucr1stFactorReceiver.Location = New Point(205, 349) + Me.lblFacetBy.Location = New Point(208, 334) Else - Me.Size = New Size(464, 401) + Me.Size = New Size(464, 440) Me.lblReorder.Location = New Point(283, 250) Me.ucrInputAddReorder.Location = New Point(283, 264) - Me.ucrSaveHist.Location = New Point(10, 288) - Me.ucrBase.Location = New Point(10, 314) + Me.ucrSaveHist.Location = New Point(10, 330) + Me.ucrChkLegend.Location = New Point(11, 296) + Me.ucrInputStation.Location = New Point(318, 294) + Me.ucrInputLegendPosition.Location = New Point(87, 294) + Me.ucr1stFactorReceiver.Location = New Point(205, 296) + Me.lblFacetBy.Location = New Point(208, 283) + Me.ucrBase.Location = New Point(10, 357) + End If + End Sub + + Private Sub AutoFacetStation() + Dim currentReceiver As ucrReceiver = ucrHistogramSelector.CurrentReceiver + + If currentReceiver IsNot Nothing Then + ucr1stFactorReceiver.AddItemsWithMetadataProperty(ucrHistogramSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text, "Climatic_Type", {"station_label"}) + currentReceiver.SetMeAsReceiver() + AddRemoveGroupBy() + End If + End Sub + + Private Sub ucrInput_ControlValueChanged(ucrChangedControl As ucrInputComboBox) Handles ucrInputStation.ControlValueChanged + If Not bUpdateComboOptions Then + Exit Sub + End If + Dim strChangedText As String = ucrChangedControl.GetText() + If strChangedText <> strNone Then + If Not strChangedText = strFacetCol AndAlso Not strChangedText = strFacetRow AndAlso + Not ucrInputStation.Equals(ucrChangedControl) AndAlso ucrInputStation.GetText() = strChangedText Then + bUpdateComboOptions = False + ucrInputStation.SetName(strNone) + bUpdateComboOptions = True + End If + If (strChangedText = strFacetWrap AndAlso ucrInputStation.GetText = strFacetRow) OrElse (strChangedText = strFacetRow AndAlso + ucrInputStation.GetText = strFacetWrap) OrElse (strChangedText = strFacetWrap AndAlso + ucrInputStation.GetText = strFacetCol) OrElse (strChangedText = strFacetCol AndAlso ucrInputStation.GetText = strFacetWrap) Then + ucrInputStation.SetName(strNone) + End If + End If + UpdateParameters() + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub UpdateParameters() + clsFacetVariablesOperator.RemoveParameterByName("var1") + clsFacetColOp.RemoveParameterByName("col" & ucrInputStation.Name) + clsFacetRowOp.RemoveParameterByName("row" & ucrInputStation.Name) + + clsBaseOperator.RemoveParameterByName("facets") + bUpdatingParameters = True + ucr1stFactorReceiver.SetRCode(Nothing) + Select Case ucrInputStation.GetText() + Case strFacetWrap + ucr1stFactorReceiver.ChangeParameterName("var1") + ucr1stFactorReceiver.SetRCode(clsFacetVariablesOperator) + Case strFacetCol + ucr1stFactorReceiver.ChangeParameterName("col" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetColOp) + Case strFacetRow + ucr1stFactorReceiver.ChangeParameterName("row" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetRowOp) + End Select + If Not clsRaesFunction.ContainsParameter("x") Then + clsRaesFunction.AddParameter("x", Chr(34) & Chr(34)) + End If + bUpdatingParameters = False + End Sub + + Private Sub AddRemoveFacets() + Dim bWrap As Boolean = False + Dim bCol As Boolean = False + Dim bRow As Boolean = False + + If bUpdatingParameters Then + Exit Sub + End If + + clsBaseOperator.RemoveParameterByName("facets") + If Not ucr1stFactorReceiver.IsEmpty Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + bWrap = True + Case strFacetCol + bCol = True + Case strFacetRow + bRow = True + End Select + End If + + If bWrap OrElse bRow OrElse bCol Then + clsBaseOperator.AddParameter("facets", clsRFunctionParameter:=clsFacetFunction) + End If + If bWrap Then + clsFacetFunction.SetRCommand("facet_wrap") + End If + If bRow OrElse bCol Then + clsFacetFunction.SetRCommand("facet_grid") + End If + If bRow Then + clsFacetVariablesOperator.AddParameter("left", clsROperatorParameter:=clsFacetRowOp, iPosition:=0) + ElseIf bCol AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("left", ".", iPosition:=0) + Else + clsFacetVariablesOperator.RemoveParameterByName("left") + End If + If bCol Then + clsFacetVariablesOperator.AddParameter("right", clsROperatorParameter:=clsFacetColOp, iPosition:=1) + ElseIf bRow AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("right", ".", iPosition:=1) + Else + clsFacetVariablesOperator.RemoveParameterByName("right") End If End Sub + Private Sub ucr1stFactorReceiver_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucr1stFactorReceiver.ControlValueChanged, ucrVariablesAsFactorforHist.ControlValueChanged + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub GetParameterValue(clsOperator As ROperator) + Dim i As Integer = 0 + For Each clsTempParam As RParameter In clsOperator.clsParameters + If clsTempParam.strArgumentValue <> "" AndAlso clsTempParam.strArgumentValue <> "." Then + clsGroupByFunction.AddParameter(i, clsTempParam.strArgumentValue, bIncludeArgumentName:=False, iPosition:=i) + i = i + 1 + End If + Next + End Sub + + Private Sub AddRemoveGroupBy() + If clsPipeOperator.ContainsParameter("mutate") Then + clsGroupByFunction.ClearParameters() + If clsBaseOperator.ContainsParameter("facets") Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + GetParameterValue(clsFacetVariablesOperator) + Case strFacetCol + GetParameterValue(clsFacetColOp) + Case strFacetRow + GetParameterValue(clsFacetRowOp) + End Select + End If + + If clsGroupByFunction.iParameterCount > 0 Then + clsPipeOperator.AddParameter("group_by", clsRFunctionParameter:=clsGroupByFunction, iPosition:=1) + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + + SetPipeAssignTo() + End Sub + + Private Sub SetPipeAssignTo() + If ucrHistogramSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text <> "" AndAlso clsPipeOperator.clsParameters.Count > 1 Then + clsPipeOperator.SetAssignTo(ucrHistogramSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + Else + clsPipeOperator.RemoveAssignTo() + End If + End Sub + + Private Sub ucrHistogramSelector_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrHistogramSelector.ControlValueChanged + AutoFacetStation() + SetPipeAssignTo() + End Sub Private Sub CoreControls_ControlContentsChanged() Handles ucrVariablesAsFactorforHist.ControlContentsChanged, ucrSaveHist.ControlContentsChanged, ucrFactorReceiver.ControlContentsChanged, ucrChkRidges.ControlContentsChanged, ucrInputAddReorder.ControlContentsChanged TestOkEnabled() End Sub + End Class \ No newline at end of file diff --git a/instat/dlgHomogenization.vb b/instat/dlgHomogenization.vb index a3132b561ac..c376b0bdb9f 100644 --- a/instat/dlgHomogenization.vb +++ b/instat/dlgHomogenization.vb @@ -54,6 +54,7 @@ Public Class dlgHomogenization Dim dctMeanVarDistribution As New Dictionary(Of String, String) ucrBase.clsRsyntax.iCallType = 2 + ucrBase.iHelpTopicID = 621 ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False ucrSelectorStationFile.SetParameter(New RParameter("stnfile", 1)) diff --git a/instat/dlgLinePlot.designer.vb b/instat/dlgLinePlot.designer.vb index 7e93036b5fc..e265e1421d0 100644 --- a/instat/dlgLinePlot.designer.vb +++ b/instat/dlgLinePlot.designer.vb @@ -49,6 +49,13 @@ Partial Class dlgLinePlot Me.lblMethod = New System.Windows.Forms.Label() Me.lblFamily = New System.Windows.Forms.Label() Me.grpSmoothOptions = New System.Windows.Forms.GroupBox() + Me.ucrInputFormula = New instat.ucrInputComboBox() + Me.ucrChkSpan = New instat.ucrCheck() + Me.ucrChkFormula = New instat.ucrCheck() + Me.ucrChkAddSE = New instat.ucrCheck() + Me.ucrNudSpan = New instat.ucrNud() + Me.ucrInputMethod = New instat.ucrInputComboBox() + Me.ucrFamilyInput = New instat.ucrInputComboBox() Me.rdoRibbon = New System.Windows.Forms.RadioButton() Me.rdoPointrange = New System.Windows.Forms.RadioButton() Me.rdoErrorbar = New System.Windows.Forms.RadioButton() @@ -74,11 +81,16 @@ Partial Class dlgLinePlot Me.lblSlopeLineTicknes = New System.Windows.Forms.Label() Me.contextMenuStripOptions = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.PlotOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AreaOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CrossbarOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DumbbellOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ErrorbarOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LineOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.LinerangeOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.PathOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.AreaOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.PointOptionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PointrangeOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.RibbonOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SmoothOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StepOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.rdoDumbbell = New System.Windows.Forms.RadioButton() @@ -128,20 +140,13 @@ Partial Class dlgLinePlot Me.ucrReceiverXEnd = New instat.ucrReceiverSingle() Me.ucrReceiverSlopeColour = New instat.ucrReceiverSingle() Me.ucrReceiverSlopeX = New instat.ucrReceiverSingle() - Me.ucrInputFormula = New instat.ucrInputComboBox() - Me.ucrChkSpan = New instat.ucrCheck() - Me.ucrChkFormula = New instat.ucrCheck() - Me.ucrChkAddSE = New instat.ucrCheck() - Me.ucrNudSpan = New instat.ucrNud() - Me.ucrInputMethod = New instat.ucrInputComboBox() - Me.ucrFamilyInput = New instat.ucrInputComboBox() Me.ucrPnlStepOrPath = New instat.UcrPanel() Me.ucrPnlLinerangeOptions = New instat.UcrPanel() - Me.LinerangeOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.CrossbarOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ErrorbarOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.RibbonOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.PointrangeOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ucrInputStation = New instat.ucrInputComboBox() + Me.ucr1stFactorReceiver = New instat.ucrReceiverSingle() + Me.lblFacetBy = New System.Windows.Forms.Label() + Me.ucrInputLegendPosition = New instat.ucrInputComboBox() + Me.ucrChkLegend = New instat.ucrCheck() Me.grpSmoothOptions.SuspendLayout() Me.contextMenuStripOptions.SuspendLayout() Me.SuspendLayout() @@ -277,6 +282,79 @@ Partial Class dlgLinePlot Me.grpSmoothOptions.TabStop = False Me.grpSmoothOptions.Text = "Smooth Options" ' + 'ucrInputFormula + ' + Me.ucrInputFormula.AddQuotesIfUnrecognised = True + Me.ucrInputFormula.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputFormula.GetSetSelectedIndex = -1 + Me.ucrInputFormula.IsReadOnly = False + Me.ucrInputFormula.Location = New System.Drawing.Point(73, 46) + Me.ucrInputFormula.Name = "ucrInputFormula" + Me.ucrInputFormula.Size = New System.Drawing.Size(110, 23) + Me.ucrInputFormula.TabIndex = 7 + ' + 'ucrChkSpan + ' + Me.ucrChkSpan.AutoSize = True + Me.ucrChkSpan.Checked = False + Me.ucrChkSpan.Location = New System.Drawing.Point(185, 20) + Me.ucrChkSpan.Name = "ucrChkSpan" + Me.ucrChkSpan.Size = New System.Drawing.Size(54, 23) + Me.ucrChkSpan.TabIndex = 4 + ' + 'ucrChkFormula + ' + Me.ucrChkFormula.AutoSize = True + Me.ucrChkFormula.Checked = False + Me.ucrChkFormula.Location = New System.Drawing.Point(5, 49) + Me.ucrChkFormula.Name = "ucrChkFormula" + Me.ucrChkFormula.Size = New System.Drawing.Size(66, 23) + Me.ucrChkFormula.TabIndex = 1 + ' + 'ucrChkAddSE + ' + Me.ucrChkAddSE.AutoSize = True + Me.ucrChkAddSE.Checked = False + Me.ucrChkAddSE.Location = New System.Drawing.Point(185, 51) + Me.ucrChkAddSE.Name = "ucrChkAddSE" + Me.ucrChkAddSE.Size = New System.Drawing.Size(82, 23) + Me.ucrChkAddSE.TabIndex = 8 + ' + 'ucrNudSpan + ' + Me.ucrNudSpan.AutoSize = True + Me.ucrNudSpan.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudSpan.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + Me.ucrNudSpan.Location = New System.Drawing.Point(239, 20) + Me.ucrNudSpan.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.ucrNudSpan.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudSpan.Name = "ucrNudSpan" + Me.ucrNudSpan.Size = New System.Drawing.Size(50, 20) + Me.ucrNudSpan.TabIndex = 6 + Me.ucrNudSpan.Value = New Decimal(New Integer() {0, 0, 0, 0}) + ' + 'ucrInputMethod + ' + Me.ucrInputMethod.AddQuotesIfUnrecognised = True + Me.ucrInputMethod.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputMethod.GetSetSelectedIndex = -1 + Me.ucrInputMethod.IsReadOnly = False + Me.ucrInputMethod.Location = New System.Drawing.Point(52, 20) + Me.ucrInputMethod.Name = "ucrInputMethod" + Me.ucrInputMethod.Size = New System.Drawing.Size(90, 21) + Me.ucrInputMethod.TabIndex = 2 + ' + 'ucrFamilyInput + ' + Me.ucrFamilyInput.AddQuotesIfUnrecognised = True + Me.ucrFamilyInput.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrFamilyInput.GetSetSelectedIndex = -1 + Me.ucrFamilyInput.IsReadOnly = False + Me.ucrFamilyInput.Location = New System.Drawing.Point(210, 20) + Me.ucrFamilyInput.Name = "ucrFamilyInput" + Me.ucrFamilyInput.Size = New System.Drawing.Size(110, 24) + Me.ucrFamilyInput.TabIndex = 5 + ' 'rdoRibbon ' Me.rdoRibbon.AutoSize = True @@ -532,54 +610,84 @@ Partial Class dlgLinePlot ' Me.contextMenuStripOptions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PlotOptionsToolStripMenuItem, Me.AreaOptionsToolStripMenuItem, Me.CrossbarOptionsToolStripMenuItem, Me.DumbbellOptionsToolStripMenuItem, Me.ErrorbarOptionsToolStripMenuItem, Me.LineOptionsToolStripMenuItem, Me.LinerangeOptionsToolStripMenuItem, Me.PathOptionsToolStripMenuItem, Me.PointOptionToolStripMenuItem, Me.PointrangeOptionsToolStripMenuItem, Me.RibbonOptionsToolStripMenuItem, Me.SmoothOptionsToolStripMenuItem, Me.StepOptionsToolStripMenuItem}) Me.contextMenuStripOptions.Name = "contextMenuStripOk" - Me.contextMenuStripOptions.Size = New System.Drawing.Size(181, 312) + Me.contextMenuStripOptions.Size = New System.Drawing.Size(178, 290) ' 'PlotOptionsToolStripMenuItem ' Me.PlotOptionsToolStripMenuItem.Name = "PlotOptionsToolStripMenuItem" - Me.PlotOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.PlotOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) Me.PlotOptionsToolStripMenuItem.Text = "Plot Options" ' + 'AreaOptionsToolStripMenuItem + ' + Me.AreaOptionsToolStripMenuItem.Name = "AreaOptionsToolStripMenuItem" + Me.AreaOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) + Me.AreaOptionsToolStripMenuItem.Text = "Area Options" + ' + 'CrossbarOptionsToolStripMenuItem + ' + Me.CrossbarOptionsToolStripMenuItem.Name = "CrossbarOptionsToolStripMenuItem" + Me.CrossbarOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) + Me.CrossbarOptionsToolStripMenuItem.Text = "Crossbar Options" + ' 'DumbbellOptionsToolStripMenuItem ' Me.DumbbellOptionsToolStripMenuItem.Name = "DumbbellOptionsToolStripMenuItem" - Me.DumbbellOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.DumbbellOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) Me.DumbbellOptionsToolStripMenuItem.Text = "Dumbbell Options" ' + 'ErrorbarOptionsToolStripMenuItem + ' + Me.ErrorbarOptionsToolStripMenuItem.Name = "ErrorbarOptionsToolStripMenuItem" + Me.ErrorbarOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) + Me.ErrorbarOptionsToolStripMenuItem.Text = "Errorbar Options" + ' 'LineOptionsToolStripMenuItem ' Me.LineOptionsToolStripMenuItem.Name = "LineOptionsToolStripMenuItem" - Me.LineOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.LineOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) Me.LineOptionsToolStripMenuItem.Text = "Line Options" ' + 'LinerangeOptionsToolStripMenuItem + ' + Me.LinerangeOptionsToolStripMenuItem.Name = "LinerangeOptionsToolStripMenuItem" + Me.LinerangeOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) + Me.LinerangeOptionsToolStripMenuItem.Text = "Linerange Options" + ' 'PathOptionsToolStripMenuItem ' Me.PathOptionsToolStripMenuItem.Name = "PathOptionsToolStripMenuItem" - Me.PathOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.PathOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) Me.PathOptionsToolStripMenuItem.Text = "Path Options " ' - 'AreaOptionsToolStripMenuItem - ' - Me.AreaOptionsToolStripMenuItem.Name = "AreaOptionsToolStripMenuItem" - Me.AreaOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) - Me.AreaOptionsToolStripMenuItem.Text = "Area Options" - ' 'PointOptionToolStripMenuItem ' Me.PointOptionToolStripMenuItem.Name = "PointOptionToolStripMenuItem" - Me.PointOptionToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.PointOptionToolStripMenuItem.Size = New System.Drawing.Size(177, 22) Me.PointOptionToolStripMenuItem.Text = "Point Options " ' + 'PointrangeOptionsToolStripMenuItem + ' + Me.PointrangeOptionsToolStripMenuItem.Name = "PointrangeOptionsToolStripMenuItem" + Me.PointrangeOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) + Me.PointrangeOptionsToolStripMenuItem.Text = "Pointrange Options" + ' + 'RibbonOptionsToolStripMenuItem + ' + Me.RibbonOptionsToolStripMenuItem.Name = "RibbonOptionsToolStripMenuItem" + Me.RibbonOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) + Me.RibbonOptionsToolStripMenuItem.Text = "Ribbon Options" + ' 'SmoothOptionsToolStripMenuItem ' Me.SmoothOptionsToolStripMenuItem.Name = "SmoothOptionsToolStripMenuItem" - Me.SmoothOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.SmoothOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) Me.SmoothOptionsToolStripMenuItem.Text = "Smooth Options" ' 'StepOptionsToolStripMenuItem ' Me.StepOptionsToolStripMenuItem.Name = "StepOptionsToolStripMenuItem" - Me.StepOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.StepOptionsToolStripMenuItem.Size = New System.Drawing.Size(177, 22) Me.StepOptionsToolStripMenuItem.Text = "Step Options" ' 'rdoDumbbell @@ -876,7 +984,7 @@ Partial Class dlgLinePlot 'ucrSave ' Me.ucrSave.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrSave.Location = New System.Drawing.Point(9, 442) + Me.ucrSave.Location = New System.Drawing.Point(9, 482) Me.ucrSave.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrSave.Name = "ucrSave" Me.ucrSave.Size = New System.Drawing.Size(401, 24) @@ -911,7 +1019,7 @@ Partial Class dlgLinePlot ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(9, 467) + Me.ucrBase.Location = New System.Drawing.Point(9, 507) Me.ucrBase.Name = "ucrBase" Me.ucrBase.Size = New System.Drawing.Size(408, 52) Me.ucrBase.TabIndex = 68 @@ -1124,79 +1232,6 @@ Partial Class dlgLinePlot Me.ucrReceiverSlopeX.TabIndex = 17 Me.ucrReceiverSlopeX.ucrSelector = Nothing ' - 'ucrInputFormula - ' - Me.ucrInputFormula.AddQuotesIfUnrecognised = True - Me.ucrInputFormula.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrInputFormula.GetSetSelectedIndex = -1 - Me.ucrInputFormula.IsReadOnly = False - Me.ucrInputFormula.Location = New System.Drawing.Point(73, 46) - Me.ucrInputFormula.Name = "ucrInputFormula" - Me.ucrInputFormula.Size = New System.Drawing.Size(110, 23) - Me.ucrInputFormula.TabIndex = 7 - ' - 'ucrChkSpan - ' - Me.ucrChkSpan.AutoSize = True - Me.ucrChkSpan.Checked = False - Me.ucrChkSpan.Location = New System.Drawing.Point(185, 20) - Me.ucrChkSpan.Name = "ucrChkSpan" - Me.ucrChkSpan.Size = New System.Drawing.Size(54, 23) - Me.ucrChkSpan.TabIndex = 4 - ' - 'ucrChkFormula - ' - Me.ucrChkFormula.AutoSize = True - Me.ucrChkFormula.Checked = False - Me.ucrChkFormula.Location = New System.Drawing.Point(5, 49) - Me.ucrChkFormula.Name = "ucrChkFormula" - Me.ucrChkFormula.Size = New System.Drawing.Size(66, 23) - Me.ucrChkFormula.TabIndex = 1 - ' - 'ucrChkAddSE - ' - Me.ucrChkAddSE.AutoSize = True - Me.ucrChkAddSE.Checked = False - Me.ucrChkAddSE.Location = New System.Drawing.Point(185, 51) - Me.ucrChkAddSE.Name = "ucrChkAddSE" - Me.ucrChkAddSE.Size = New System.Drawing.Size(82, 23) - Me.ucrChkAddSE.TabIndex = 8 - ' - 'ucrNudSpan - ' - Me.ucrNudSpan.AutoSize = True - Me.ucrNudSpan.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudSpan.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudSpan.Location = New System.Drawing.Point(239, 20) - Me.ucrNudSpan.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudSpan.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudSpan.Name = "ucrNudSpan" - Me.ucrNudSpan.Size = New System.Drawing.Size(50, 20) - Me.ucrNudSpan.TabIndex = 6 - Me.ucrNudSpan.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' - 'ucrInputMethod - ' - Me.ucrInputMethod.AddQuotesIfUnrecognised = True - Me.ucrInputMethod.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrInputMethod.GetSetSelectedIndex = -1 - Me.ucrInputMethod.IsReadOnly = False - Me.ucrInputMethod.Location = New System.Drawing.Point(52, 20) - Me.ucrInputMethod.Name = "ucrInputMethod" - Me.ucrInputMethod.Size = New System.Drawing.Size(90, 21) - Me.ucrInputMethod.TabIndex = 2 - ' - 'ucrFamilyInput - ' - Me.ucrFamilyInput.AddQuotesIfUnrecognised = True - Me.ucrFamilyInput.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrFamilyInput.GetSetSelectedIndex = -1 - Me.ucrFamilyInput.IsReadOnly = False - Me.ucrFamilyInput.Location = New System.Drawing.Point(210, 20) - Me.ucrFamilyInput.Name = "ucrFamilyInput" - Me.ucrFamilyInput.Size = New System.Drawing.Size(110, 24) - Me.ucrFamilyInput.TabIndex = 5 - ' 'ucrPnlStepOrPath ' Me.ucrPnlStepOrPath.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink @@ -1213,41 +1248,71 @@ Partial Class dlgLinePlot Me.ucrPnlLinerangeOptions.Size = New System.Drawing.Size(385, 33) Me.ucrPnlLinerangeOptions.TabIndex = 2 ' - 'LinerangeOptionsToolStripMenuItem - ' - Me.LinerangeOptionsToolStripMenuItem.Name = "LinerangeOptionsToolStripMenuItem" - Me.LinerangeOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) - Me.LinerangeOptionsToolStripMenuItem.Text = "Linerange Options" - ' - 'CrossbarOptionsToolStripMenuItem - ' - Me.CrossbarOptionsToolStripMenuItem.Name = "CrossbarOptionsToolStripMenuItem" - Me.CrossbarOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) - Me.CrossbarOptionsToolStripMenuItem.Text = "Crossbar Options" - ' - 'ErrorbarOptionsToolStripMenuItem - ' - Me.ErrorbarOptionsToolStripMenuItem.Name = "ErrorbarOptionsToolStripMenuItem" - Me.ErrorbarOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) - Me.ErrorbarOptionsToolStripMenuItem.Text = "Errorbar Options" - ' - 'RibbonOptionsToolStripMenuItem - ' - Me.RibbonOptionsToolStripMenuItem.Name = "RibbonOptionsToolStripMenuItem" - Me.RibbonOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) - Me.RibbonOptionsToolStripMenuItem.Text = "Ribbon Options" - ' - 'PointrangeOptionsToolStripMenuItem - ' - Me.PointrangeOptionsToolStripMenuItem.Name = "PointrangeOptionsToolStripMenuItem" - Me.PointrangeOptionsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) - Me.PointrangeOptionsToolStripMenuItem.Text = "Pointrange Options" + 'ucrInputStation + ' + Me.ucrInputStation.AddQuotesIfUnrecognised = True + Me.ucrInputStation.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputStation.GetSetSelectedIndex = -1 + Me.ucrInputStation.IsReadOnly = False + Me.ucrInputStation.Location = New System.Drawing.Point(318, 452) + Me.ucrInputStation.Name = "ucrInputStation" + Me.ucrInputStation.Size = New System.Drawing.Size(101, 21) + Me.ucrInputStation.TabIndex = 81 + ' + 'ucr1stFactorReceiver + ' + Me.ucr1stFactorReceiver.AutoSize = True + Me.ucr1stFactorReceiver.frmParent = Me + Me.ucr1stFactorReceiver.Location = New System.Drawing.Point(205, 453) + Me.ucr1stFactorReceiver.Margin = New System.Windows.Forms.Padding(0) + Me.ucr1stFactorReceiver.Name = "ucr1stFactorReceiver" + Me.ucr1stFactorReceiver.Selector = Nothing + Me.ucr1stFactorReceiver.Size = New System.Drawing.Size(110, 26) + Me.ucr1stFactorReceiver.strNcFilePath = "" + Me.ucr1stFactorReceiver.TabIndex = 80 + Me.ucr1stFactorReceiver.ucrSelector = Nothing + ' + 'lblFacetBy + ' + Me.lblFacetBy.AutoSize = True + Me.lblFacetBy.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblFacetBy.Location = New System.Drawing.Point(208, 438) + Me.lblFacetBy.Name = "lblFacetBy" + Me.lblFacetBy.Size = New System.Drawing.Size(52, 13) + Me.lblFacetBy.TabIndex = 79 + Me.lblFacetBy.Tag = "" + Me.lblFacetBy.Text = "Facet By:" + ' + 'ucrInputLegendPosition + ' + Me.ucrInputLegendPosition.AddQuotesIfUnrecognised = True + Me.ucrInputLegendPosition.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputLegendPosition.GetSetSelectedIndex = -1 + Me.ucrInputLegendPosition.IsReadOnly = False + Me.ucrInputLegendPosition.Location = New System.Drawing.Point(87, 452) + Me.ucrInputLegendPosition.Name = "ucrInputLegendPosition" + Me.ucrInputLegendPosition.Size = New System.Drawing.Size(112, 21) + Me.ucrInputLegendPosition.TabIndex = 83 + ' + 'ucrChkLegend + ' + Me.ucrChkLegend.AutoSize = True + Me.ucrChkLegend.Checked = False + Me.ucrChkLegend.Location = New System.Drawing.Point(11, 453) + Me.ucrChkLegend.Name = "ucrChkLegend" + Me.ucrChkLegend.Size = New System.Drawing.Size(98, 24) + Me.ucrChkLegend.TabIndex = 82 ' 'dlgLinePlot ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi - Me.ClientSize = New System.Drawing.Size(423, 523) + Me.ClientSize = New System.Drawing.Size(423, 563) + Me.Controls.Add(Me.ucrInputStation) + Me.Controls.Add(Me.ucr1stFactorReceiver) + Me.Controls.Add(Me.lblFacetBy) + Me.Controls.Add(Me.ucrInputLegendPosition) + Me.Controls.Add(Me.ucrChkLegend) Me.Controls.Add(Me.rdoArea) Me.Controls.Add(Me.lblGroupLine) Me.Controls.Add(Me.ucrReceiverGroup) @@ -1445,4 +1510,9 @@ Partial Class dlgLinePlot Friend WithEvents LinerangeOptionsToolStripMenuItem As ToolStripMenuItem Friend WithEvents PointrangeOptionsToolStripMenuItem As ToolStripMenuItem Friend WithEvents RibbonOptionsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ucrInputStation As ucrInputComboBox + Friend WithEvents ucr1stFactorReceiver As ucrReceiverSingle + Friend WithEvents lblFacetBy As Label + Friend WithEvents ucrInputLegendPosition As ucrInputComboBox + Friend WithEvents ucrChkLegend As ucrCheck End Class diff --git a/instat/dlgLinePlot.vb b/instat/dlgLinePlot.vb index 009c05e0d8a..7f92eac8db7 100644 --- a/instat/dlgLinePlot.vb +++ b/instat/dlgLinePlot.vb @@ -63,6 +63,21 @@ Public Class dlgLinePlot Private clsGeomErrorbarFunction As New RFunction Private clsGeomPointrangeFunction As New RFunction + Private clsFacetFunction As New RFunction + Private clsFacetVariablesOperator As New ROperator + Private clsFacetRowOp As New ROperator + Private clsFacetColOp As New ROperator + Private clsPipeOperator As New ROperator + Private clsGroupByFunction As New RFunction + + Private ReadOnly strNone As String = "None" + Private ReadOnly strFacetWrap As String = "Facet Wrap" + Private ReadOnly strFacetRow As String = "Facet Row" + Private ReadOnly strFacetCol As String = "Facet Column" + + Private bUpdateComboOptions As Boolean = True + Private bUpdatingParameters As Boolean = False + 'Parameter names for geoms Private strFirstParameterName As String = "geomfunc" Private strgeomSmoothParameterName As String = "geom_smooth" @@ -91,6 +106,7 @@ Public Class dlgLinePlot Dim dctFamilyOptions As New Dictionary(Of String, String) Dim dctColourOptions As New Dictionary(Of String, String) Dim dctSlopeLineColourOptions As New Dictionary(Of String, String) + Dim dctLegendPosition As New Dictionary(Of String, String) ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False ucrBase.clsRsyntax.iCallType = 3 @@ -396,6 +412,32 @@ Public Class dlgLinePlot ucrChkSlopeLegend.AddParameterPresentCondition(True, "slopetheme") ucrChkSlopeLegend.AddParameterPresentCondition(False, "slopetheme", False) + ucrChkLegend.SetText("Legend:") + ucrChkLegend.AddToLinkedControls({ucrInputLegendPosition}, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="None") + ucrInputLegendPosition.SetDropDownStyleAsNonEditable() + ucrInputLegendPosition.SetParameter(New RParameter("legend.position")) + dctLegendPosition.Add("None", Chr(34) & "none" & Chr(34)) + dctLegendPosition.Add("Left", Chr(34) & "left" & Chr(34)) + dctLegendPosition.Add("Right", Chr(34) & "right" & Chr(34)) + dctLegendPosition.Add("Top", Chr(34) & "top" & Chr(34)) + dctLegendPosition.Add("Bottom", Chr(34) & "bottom" & Chr(34)) + ucrInputLegendPosition.SetItems(dctLegendPosition) + ucrChkLegend.AddParameterPresentCondition(True, "legend.position") + ucrChkLegend.AddParameterPresentCondition(False, "legend.position", False) + + ucr1stFactorReceiver.SetParameter(New RParameter("var1")) + ucr1stFactorReceiver.Selector = ucrLinePlotSelector + ucr1stFactorReceiver.SetIncludedDataTypes({"factor"}) + ucr1stFactorReceiver.strSelectorHeading = "Factors" + ucr1stFactorReceiver.bWithQuotes = False + ucr1stFactorReceiver.SetParameterIsString() + ucr1stFactorReceiver.SetValuesToIgnore({"."}) + ucr1stFactorReceiver.SetParameterPosition(1) + ucr1stFactorReceiver.SetLinkedDisplayControl(lblFacetBy) + + ucrInputStation.SetItems({strFacetWrap, strFacetRow, strFacetCol, strNone}) + ucrInputStation.SetDropDownStyleAsNonEditable() + ucrPnlOptions.AddToLinkedControls({ucrChkPathOrStep, ucrChkWithSE, ucrChkLineofBestFit}, {rdoLine}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) ucrPnlOptions.AddToLinkedControls({ucrChkAddLine, ucrInputMethod, ucrInputFormula}, {rdoSmoothing}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) ucrPnlOptions.AddToLinkedControls({ucrChkAddSE, ucrChkFormula, ucrChkSpan}, {rdoSmoothing}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="FALSE") @@ -475,6 +517,15 @@ Public Class dlgLinePlot clsGeomLinerangeFunction = New RFunction clsGeomPointrangeFunction = New RFunction clsGeomRibbonFunction = New RFunction + clsFacetFunction = New RFunction + clsFacetVariablesOperator = New ROperator + clsFacetRowOp = New ROperator + clsFacetColOp = New ROperator + clsPipeOperator = New ROperator + clsGroupByFunction = New RFunction + + ucrInputStation.SetName(strFacetWrap) + ucrInputStation.bUpdateRCodeFromControl = True ucrLinePlotSelector.Reset() ucrLinePlotSelector.SetGgplotFunction(clsBaseOperator) @@ -513,6 +564,22 @@ Public Class dlgLinePlot clsSlopeThemeFunction.SetRCommand("slopegraph_theme") + clsFacetFunction.SetPackageName("ggplot2") + clsFacetRowOp.SetOperation("+") + clsFacetRowOp.bBrackets = False + clsFacetColOp.SetOperation("+") + clsFacetColOp.bBrackets = False + clsFacetVariablesOperator.SetOperation("~") + clsFacetVariablesOperator.bForceIncludeOperation = True + clsFacetVariablesOperator.bBrackets = False + clsFacetFunction.AddParameter("facets", clsROperatorParameter:=clsFacetVariablesOperator, iPosition:=0) + + clsPipeOperator.SetOperation("%>%") + SetPipeAssignTo() + + clsGroupByFunction.SetPackageName("dplyr") + clsGroupByFunction.SetRCommand("group_by") + clsBaseOperator.AddParameter(GgplotDefaults.clsDefaultThemeParameter.Clone()) clsXlabsFunction = GgplotDefaults.clsXlabTitleFunction.Clone() clsYlabFunction = GgplotDefaults.clsYlabTitleFunction.Clone @@ -615,6 +682,8 @@ Public Class dlgLinePlot ucrChkSlopeLabelOptions.SetRCode(clsGgSlopeFunction, bReset) ucrChkSlopeTextOptions.SetRCode(clsGgSlopeFunction, bReset) ucrChkSlopeLineOptions.SetRCode(clsGgSlopeFunction, bReset) + ucrChkLegend.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + ucrInputLegendPosition.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) If bReset Then ucrChkRibbon.SetRCode(clsOptionsFunction, bReset) End If @@ -818,10 +887,22 @@ Public Class dlgLinePlot End If End Sub + Private Sub AddRemoveTheme() + If clsThemeFunction.iParameterCount > 0 Then + clsBaseOperator.AddParameter("theme", clsRFunctionParameter:=clsThemeFunction, iPosition:=15) + Else + clsBaseOperator.RemoveParameterByName("theme") + End If + End Sub + + Private Sub ucrChkLegend_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkLegend.ControlValueChanged, ucrInputLegendPosition.ControlValueChanged + AddRemoveTheme() + End Sub + Private Sub cmdOptions_Click(sender As Object, e As EventArgs) Handles cmdOptions.Click, PlotOptionsToolStripMenuItem.Click sdgPlots.SetRCode(clsNewOperator:=ucrBase.clsRsyntax.clsBaseOperator, clsNewYScalecontinuousFunction:=clsYScalecontinuousFunction, clsNewXScalecontinuousFunction:=clsXScalecontinuousFunction, clsNewXLabsTitleFunction:=clsXlabsFunction, clsNewYLabTitleFunction:=clsYlabFunction, clsNewLabsFunction:=clsLabsFunction, clsNewFacetFunction:=clsRFacetFunction, - clsNewThemeFunction:=clsThemeFunction, dctNewThemeFunctions:=dctThemeFunctions, clsNewGlobalAesFunction:=clsRaesFunction, ucrNewBaseSelector:=ucrLinePlotSelector, + clsNewThemeFunction:=clsThemeFunction, dctNewThemeFunctions:=dctThemeFunctions, clsNewGlobalAesFunction:=clsRaesFunction, ucrNewBaseSelector:=ucrLinePlotSelector, clsNewFacetVariablesOperator:=clsFacetVariablesOperator, clsNewCoordPolarFunction:=clsCoordPolarFunction, clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewXScaleDateFunction:=clsXScaleDateFunction, clsNewAnnotateFunction:=clsAnnotateFunction, clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, strMainDialogGeomParameterNames:=strGeomParameterNames, bReset:=bResetSubdialog) @@ -877,4 +958,160 @@ Public Class dlgLinePlot openSdgLayerOptions(clsGeomRibbonFunction) End Sub + Private Sub AutoFacetStation() + Dim currentReceiver As ucrReceiver = ucrLinePlotSelector.CurrentReceiver + + If currentReceiver IsNot Nothing Then + ucr1stFactorReceiver.AddItemsWithMetadataProperty(ucrLinePlotSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text, "Climatic_Type", {"station_label"}) + currentReceiver.SetMeAsReceiver() + AddRemoveGroupBy() + End If + End Sub + Private Sub ucrInput_ControlValueChanged(ucrChangedControl As ucrInputComboBox) Handles ucrInputStation.ControlValueChanged + If Not bUpdateComboOptions Then + Exit Sub + End If + Dim strChangedText As String = ucrChangedControl.GetText() + If strChangedText <> strNone Then + If Not strChangedText = strFacetCol AndAlso Not strChangedText = strFacetRow AndAlso + Not ucrInputStation.Equals(ucrChangedControl) AndAlso ucrInputStation.GetText() = strChangedText Then + bUpdateComboOptions = False + ucrInputStation.SetName(strNone) + bUpdateComboOptions = True + End If + If (strChangedText = strFacetWrap AndAlso ucrInputStation.GetText = strFacetRow) OrElse (strChangedText = strFacetRow AndAlso + ucrInputStation.GetText = strFacetWrap) OrElse (strChangedText = strFacetWrap AndAlso + ucrInputStation.GetText = strFacetCol) OrElse (strChangedText = strFacetCol AndAlso ucrInputStation.GetText = strFacetWrap) Then + ucrInputStation.SetName(strNone) + End If + End If + UpdateParameters() + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub UpdateParameters() + clsFacetVariablesOperator.RemoveParameterByName("var1") + clsFacetColOp.RemoveParameterByName("col" & ucrInputStation.Name) + clsFacetRowOp.RemoveParameterByName("row" & ucrInputStation.Name) + + clsBaseOperator.RemoveParameterByName("facets") + bUpdatingParameters = True + ucr1stFactorReceiver.SetRCode(Nothing) + Select Case ucrInputStation.GetText() + Case strFacetWrap + ucr1stFactorReceiver.ChangeParameterName("var1") + ucr1stFactorReceiver.SetRCode(clsFacetVariablesOperator) + Case strFacetCol + ucr1stFactorReceiver.ChangeParameterName("col" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetColOp) + Case strFacetRow + ucr1stFactorReceiver.ChangeParameterName("row" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetRowOp) + End Select + If Not clsRaesFunction.ContainsParameter("x") Then + clsRaesFunction.AddParameter("x", Chr(34) & Chr(34)) + End If + bUpdatingParameters = False + End Sub + + Private Sub AddRemoveFacets() + Dim bWrap As Boolean = False + Dim bCol As Boolean = False + Dim bRow As Boolean = False + + If bUpdatingParameters Then + Exit Sub + End If + + clsBaseOperator.RemoveParameterByName("facets") + If Not ucr1stFactorReceiver.IsEmpty Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + bWrap = True + Case strFacetCol + bCol = True + Case strFacetRow + bRow = True + End Select + End If + + If bWrap OrElse bRow OrElse bCol Then + clsBaseOperator.AddParameter("facets", clsRFunctionParameter:=clsFacetFunction) + End If + If bWrap Then + clsFacetFunction.SetRCommand("facet_wrap") + End If + If bRow OrElse bCol Then + clsFacetFunction.SetRCommand("facet_grid") + End If + If bRow Then + clsFacetVariablesOperator.AddParameter("left", clsROperatorParameter:=clsFacetRowOp, iPosition:=0) + ElseIf bCol AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("left", ".", iPosition:=0) + Else + clsFacetVariablesOperator.RemoveParameterByName("left") + End If + If bCol Then + clsFacetVariablesOperator.AddParameter("right", clsROperatorParameter:=clsFacetColOp, iPosition:=1) + ElseIf bRow AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("right", ".", iPosition:=1) + Else + clsFacetVariablesOperator.RemoveParameterByName("right") + End If + End Sub + + Private Sub ucr1stFactorReceiver_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucr1stFactorReceiver.ControlValueChanged, ucrReceiverX.ControlValueChanged + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub GetParameterValue(clsOperator As ROperator) + Dim i As Integer = 0 + For Each clsTempParam As RParameter In clsOperator.clsParameters + If clsTempParam.strArgumentValue <> "" AndAlso clsTempParam.strArgumentValue <> "." Then + clsGroupByFunction.AddParameter(i, clsTempParam.strArgumentValue, bIncludeArgumentName:=False, iPosition:=i) + i = i + 1 + End If + Next + End Sub + + Private Sub AddRemoveGroupBy() + If clsPipeOperator.ContainsParameter("mutate") Then + clsGroupByFunction.ClearParameters() + If clsBaseOperator.ContainsParameter("facets") Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + GetParameterValue(clsFacetVariablesOperator) + Case strFacetCol + GetParameterValue(clsFacetColOp) + Case strFacetRow + GetParameterValue(clsFacetRowOp) + End Select + End If + + If clsGroupByFunction.iParameterCount > 0 Then + clsPipeOperator.AddParameter("group_by", clsRFunctionParameter:=clsGroupByFunction, iPosition:=1) + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + + SetPipeAssignTo() + End Sub + + Private Sub SetPipeAssignTo() + If ucrLinePlotSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text <> "" AndAlso clsPipeOperator.clsParameters.Count > 1 Then + clsPipeOperator.SetAssignTo(ucrLinePlotSelector.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + Else + clsPipeOperator.RemoveAssignTo() + End If + End Sub + + Private Sub ucrLinePlotSelector_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrLinePlotSelector.ControlValueChanged + AutoFacetStation() + SetPipeAssignTo() + End Sub End Class \ No newline at end of file diff --git a/instat/dlgMosaicPlot.Designer.vb b/instat/dlgMosaicPlot.Designer.vb index 17023502c43..dfe34001258 100644 --- a/instat/dlgMosaicPlot.Designer.vb +++ b/instat/dlgMosaicPlot.Designer.vb @@ -43,6 +43,11 @@ Partial Class dlgMosaicPlot Me.toolStripMenuItemPlotOptions = New System.Windows.Forms.ToolStripMenuItem() Me.toolStripMenuItemMosaicOptions = New System.Windows.Forms.ToolStripMenuItem() Me.cmdOptions = New instat.ucrSplitButton() + Me.ucrInputStation = New instat.ucrInputComboBox() + Me.ucr1stFactorReceiver = New instat.ucrReceiverSingle() + Me.lblFacetBy = New System.Windows.Forms.Label() + Me.ucrInputLegendPosition = New instat.ucrInputComboBox() + Me.ucrChkLegend = New instat.ucrCheck() Me.contextMenuStripOptions.SuspendLayout() Me.SuspendLayout() ' @@ -101,7 +106,7 @@ Partial Class dlgMosaicPlot Me.ucrNudXAxisLabelsAngle.AutoSize = True Me.ucrNudXAxisLabelsAngle.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudXAxisLabelsAngle.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudXAxisLabelsAngle.Location = New System.Drawing.Point(183, 301) + Me.ucrNudXAxisLabelsAngle.Location = New System.Drawing.Point(183, 326) Me.ucrNudXAxisLabelsAngle.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) Me.ucrNudXAxisLabelsAngle.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudXAxisLabelsAngle.Name = "ucrNudXAxisLabelsAngle" @@ -124,7 +129,7 @@ Partial Class dlgMosaicPlot ' Me.ucrChkOmitMissing.AutoSize = True Me.ucrChkOmitMissing.Checked = False - Me.ucrChkOmitMissing.Location = New System.Drawing.Point(9, 269) + Me.ucrChkOmitMissing.Location = New System.Drawing.Point(9, 278) Me.ucrChkOmitMissing.Name = "ucrChkOmitMissing" Me.ucrChkOmitMissing.Size = New System.Drawing.Size(224, 23) Me.ucrChkOmitMissing.TabIndex = 13 @@ -184,7 +189,7 @@ Partial Class dlgMosaicPlot 'ucrSaveMosaicPlot ' Me.ucrSaveMosaicPlot.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrSaveMosaicPlot.Location = New System.Drawing.Point(9, 385) + Me.ucrSaveMosaicPlot.Location = New System.Drawing.Point(9, 422) Me.ucrSaveMosaicPlot.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrSaveMosaicPlot.Name = "ucrSaveMosaicPlot" Me.ucrSaveMosaicPlot.Size = New System.Drawing.Size(317, 24) @@ -194,7 +199,7 @@ Partial Class dlgMosaicPlot ' Me.ucrChkXAxisLabelAngle.AutoSize = True Me.ucrChkXAxisLabelAngle.Checked = False - Me.ucrChkXAxisLabelAngle.Location = New System.Drawing.Point(9, 301) + Me.ucrChkXAxisLabelAngle.Location = New System.Drawing.Point(9, 326) Me.ucrChkXAxisLabelAngle.Name = "ucrChkXAxisLabelAngle" Me.ucrChkXAxisLabelAngle.Size = New System.Drawing.Size(168, 23) Me.ucrChkXAxisLabelAngle.TabIndex = 14 @@ -215,7 +220,7 @@ Partial Class dlgMosaicPlot ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(12, 418) + Me.ucrBase.Location = New System.Drawing.Point(12, 455) Me.ucrBase.Name = "ucrBase" Me.ucrBase.Size = New System.Drawing.Size(408, 52) Me.ucrBase.TabIndex = 17 @@ -252,12 +257,72 @@ Partial Class dlgMosaicPlot Me.cmdOptions.Text = "Plot Options" Me.cmdOptions.UseVisualStyleBackColor = True ' + 'ucrInputStation + ' + Me.ucrInputStation.AddQuotesIfUnrecognised = True + Me.ucrInputStation.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputStation.GetSetSelectedIndex = -1 + Me.ucrInputStation.IsReadOnly = False + Me.ucrInputStation.Location = New System.Drawing.Point(321, 381) + Me.ucrInputStation.Name = "ucrInputStation" + Me.ucrInputStation.Size = New System.Drawing.Size(101, 21) + Me.ucrInputStation.TabIndex = 96 + ' + 'ucr1stFactorReceiver + ' + Me.ucr1stFactorReceiver.AutoSize = True + Me.ucr1stFactorReceiver.frmParent = Me + Me.ucr1stFactorReceiver.Location = New System.Drawing.Point(209, 382) + Me.ucr1stFactorReceiver.Margin = New System.Windows.Forms.Padding(0) + Me.ucr1stFactorReceiver.Name = "ucr1stFactorReceiver" + Me.ucr1stFactorReceiver.Selector = Nothing + Me.ucr1stFactorReceiver.Size = New System.Drawing.Size(110, 26) + Me.ucr1stFactorReceiver.strNcFilePath = "" + Me.ucr1stFactorReceiver.TabIndex = 95 + Me.ucr1stFactorReceiver.ucrSelector = Nothing + ' + 'lblFacetBy + ' + Me.lblFacetBy.AutoSize = True + Me.lblFacetBy.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblFacetBy.Location = New System.Drawing.Point(212, 367) + Me.lblFacetBy.Name = "lblFacetBy" + Me.lblFacetBy.Size = New System.Drawing.Size(52, 13) + Me.lblFacetBy.TabIndex = 94 + Me.lblFacetBy.Tag = "" + Me.lblFacetBy.Text = "Facet By:" + ' + 'ucrInputLegendPosition + ' + Me.ucrInputLegendPosition.AddQuotesIfUnrecognised = True + Me.ucrInputLegendPosition.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputLegendPosition.GetSetSelectedIndex = -1 + Me.ucrInputLegendPosition.IsReadOnly = False + Me.ucrInputLegendPosition.Location = New System.Drawing.Point(91, 381) + Me.ucrInputLegendPosition.Name = "ucrInputLegendPosition" + Me.ucrInputLegendPosition.Size = New System.Drawing.Size(112, 21) + Me.ucrInputLegendPosition.TabIndex = 98 + ' + 'ucrChkLegend + ' + Me.ucrChkLegend.AutoSize = True + Me.ucrChkLegend.Checked = False + Me.ucrChkLegend.Location = New System.Drawing.Point(9, 382) + Me.ucrChkLegend.Name = "ucrChkLegend" + Me.ucrChkLegend.Size = New System.Drawing.Size(98, 24) + Me.ucrChkLegend.TabIndex = 97 + ' 'dlgMosaicPlot ' 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(441, 475) + Me.ClientSize = New System.Drawing.Size(441, 510) + Me.Controls.Add(Me.ucrInputStation) + Me.Controls.Add(Me.ucr1stFactorReceiver) + Me.Controls.Add(Me.lblFacetBy) + Me.Controls.Add(Me.ucrInputLegendPosition) + Me.Controls.Add(Me.ucrChkLegend) Me.Controls.Add(Me.cmdOptions) Me.Controls.Add(Me.ucrNudXAxisLabelsAngle) Me.Controls.Add(Me.ucrInputPartitioning) @@ -308,4 +373,9 @@ Partial Class dlgMosaicPlot Friend WithEvents contextMenuStripOptions As ContextMenuStrip Friend WithEvents toolStripMenuItemPlotOptions As ToolStripMenuItem Friend WithEvents toolStripMenuItemMosaicOptions As ToolStripMenuItem + Friend WithEvents ucrInputStation As ucrInputComboBox + Friend WithEvents ucr1stFactorReceiver As ucrReceiverSingle + Friend WithEvents lblFacetBy As Label + Friend WithEvents ucrInputLegendPosition As ucrInputComboBox + Friend WithEvents ucrChkLegend As ucrCheck End Class diff --git a/instat/dlgMosaicPlot.vb b/instat/dlgMosaicPlot.vb index 8ee21119606..f4f6c2cf6f0 100644 --- a/instat/dlgMosaicPlot.vb +++ b/instat/dlgMosaicPlot.vb @@ -42,6 +42,22 @@ Public Class dlgMosaicPlot Private clsYScaleDateFunction As New RFunction Private clsScaleFillViridisFunction As New RFunction Private clsScaleColourViridisFunction As New RFunction + + Private clsFacetFunction As New RFunction + Private clsFacetVariablesOperator As New ROperator + Private clsFacetRowOp As New ROperator + Private clsFacetColOp As New ROperator + Private clsPipeOperator As New ROperator + Private clsGroupByFunction As New RFunction + + Private ReadOnly strNone As String = "None" + Private ReadOnly strFacetWrap As String = "Facet Wrap" + Private ReadOnly strFacetRow As String = "Facet Row" + Private ReadOnly strFacetCol As String = "Facet Column" + + Private bUpdateComboOptions As Boolean = True + Private bUpdatingParameters As Boolean = False + Private bFirstLoad As Boolean = True Private bReset As Boolean = True Private bRCodeSet As Boolean = True @@ -65,6 +81,7 @@ Public Class dlgMosaicPlot Private Sub InitialiseDialog() Dim dctPartitionOptions As New Dictionary(Of String, String) + Dim dctLegendPosition As New Dictionary(Of String, String) ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False ucrBase.iHelpTopicID = 594 @@ -129,6 +146,32 @@ Public Class dlgMosaicPlot ucrNudXAxisLabelsAngle.SetParameter(New RParameter("angle")) ucrNudXAxisLabelsAngle.SetMinMax(0, 360) + ucrChkLegend.SetText("Legend:") + ucrChkLegend.AddToLinkedControls({ucrInputLegendPosition}, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="None") + ucrInputLegendPosition.SetDropDownStyleAsNonEditable() + ucrInputLegendPosition.SetParameter(New RParameter("legend.position")) + dctLegendPosition.Add("None", Chr(34) & "none" & Chr(34)) + dctLegendPosition.Add("Left", Chr(34) & "left" & Chr(34)) + dctLegendPosition.Add("Right", Chr(34) & "right" & Chr(34)) + dctLegendPosition.Add("Top", Chr(34) & "top" & Chr(34)) + dctLegendPosition.Add("Bottom", Chr(34) & "bottom" & Chr(34)) + ucrInputLegendPosition.SetItems(dctLegendPosition) + ucrChkLegend.AddParameterPresentCondition(True, "legend.position") + ucrChkLegend.AddParameterPresentCondition(False, "legend.position", False) + + ucr1stFactorReceiver.SetParameter(New RParameter("var1")) + ucr1stFactorReceiver.Selector = ucrSelectorMosaicPlot + ucr1stFactorReceiver.SetIncludedDataTypes({"factor"}) + ucr1stFactorReceiver.strSelectorHeading = "Factors" + ucr1stFactorReceiver.bWithQuotes = False + ucr1stFactorReceiver.SetParameterIsString() + ucr1stFactorReceiver.SetValuesToIgnore({"."}) + ucr1stFactorReceiver.SetParameterPosition(1) + ucr1stFactorReceiver.SetLinkedDisplayControl(lblFacetBy) + + ucrInputStation.SetItems({strFacetWrap, strFacetRow, strFacetCol, strNone}) + ucrInputStation.SetDropDownStyleAsNonEditable() + ucrSaveMosaicPlot.SetPrefix("mosaic") ucrSaveMosaicPlot.SetIsComboBox() ucrSaveMosaicPlot.SetCheckBoxText("Save Graph") @@ -146,6 +189,17 @@ Public Class dlgMosaicPlot clsXElementLabels = New RFunction + clsFacetFunction = New RFunction + clsFacetVariablesOperator = New ROperator + clsFacetRowOp = New ROperator + clsFacetColOp = New ROperator + clsPipeOperator = New ROperator + clsGroupByFunction = New RFunction + + ucrInputStation.SetName(strFacetWrap) + ucrInputStation.bUpdateRCodeFromControl = True + + ucrSelectorMosaicPlot.Reset() ucrSelectorMosaicPlot.SetGgplotFunction(clsBaseOperator) @@ -172,6 +226,22 @@ Public Class dlgMosaicPlot clsAesFunction.SetPackageName("ggplot2") clsAesFunction.SetRCommand("aes") + clsFacetFunction.SetPackageName("ggplot2") + clsFacetRowOp.SetOperation("+") + clsFacetRowOp.bBrackets = False + clsFacetColOp.SetOperation("+") + clsFacetColOp.bBrackets = False + clsFacetVariablesOperator.SetOperation("~") + clsFacetVariablesOperator.bForceIncludeOperation = True + clsFacetVariablesOperator.bBrackets = False + clsFacetFunction.AddParameter("facets", clsROperatorParameter:=clsFacetVariablesOperator, iPosition:=0) + + clsPipeOperator.SetOperation("%>%") + SetPipeAssignTo() + + clsGroupByFunction.SetPackageName("dplyr") + clsGroupByFunction.SetRCommand("group_by") + clsBaseOperator.AddParameter(GgplotDefaults.clsDefaultThemeParameter.Clone()) clsXlabsFunction = GgplotDefaults.clsXlabTitleFunction.Clone() clsLabsFunction = GgplotDefaults.clsDefaultLabs.Clone() @@ -215,6 +285,9 @@ Public Class dlgMosaicPlot ucrSaveMosaicPlot.SetRCode(clsBaseOperator, bReset) + ucrChkLegend.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + ucrInputLegendPosition.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + AddRemoveXAxisTextParameters() bRCodeSet = True End Sub @@ -237,6 +310,163 @@ Public Class dlgMosaicPlot TestOkEnabled() End Sub + Private Sub AutoFacetStation() + Dim currentReceiver As ucrReceiver = ucrSelectorMosaicPlot.CurrentReceiver + + If currentReceiver IsNot Nothing Then + ucr1stFactorReceiver.AddItemsWithMetadataProperty(ucrSelectorMosaicPlot.ucrAvailableDataFrames.cboAvailableDataFrames.Text, "Climatic_Type", {"station_label"}) + currentReceiver.SetMeAsReceiver() + AddRemoveGroupBy() + End If + End Sub + + Private Sub ucrInput_ControlValueChanged(ucrChangedControl As ucrInputComboBox) Handles ucrInputStation.ControlValueChanged + If Not bUpdateComboOptions Then + Exit Sub + End If + Dim strChangedText As String = ucrChangedControl.GetText() + If strChangedText <> strNone Then + If Not strChangedText = strFacetCol AndAlso Not strChangedText = strFacetRow AndAlso + Not ucrInputStation.Equals(ucrChangedControl) AndAlso ucrInputStation.GetText() = strChangedText Then + bUpdateComboOptions = False + ucrInputStation.SetName(strNone) + bUpdateComboOptions = True + End If + If (strChangedText = strFacetWrap AndAlso ucrInputStation.GetText = strFacetRow) OrElse (strChangedText = strFacetRow AndAlso + ucrInputStation.GetText = strFacetWrap) OrElse (strChangedText = strFacetWrap AndAlso + ucrInputStation.GetText = strFacetCol) OrElse (strChangedText = strFacetCol AndAlso ucrInputStation.GetText = strFacetWrap) Then + ucrInputStation.SetName(strNone) + End If + End If + UpdateParameters() + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub UpdateParameters() + clsFacetVariablesOperator.RemoveParameterByName("var1") + clsFacetColOp.RemoveParameterByName("col" & ucrInputStation.Name) + clsFacetRowOp.RemoveParameterByName("row" & ucrInputStation.Name) + + clsBaseOperator.RemoveParameterByName("facets") + bUpdatingParameters = True + ucr1stFactorReceiver.SetRCode(Nothing) + Select Case ucrInputStation.GetText() + Case strFacetWrap + ucr1stFactorReceiver.ChangeParameterName("var1") + ucr1stFactorReceiver.SetRCode(clsFacetVariablesOperator) + Case strFacetCol + ucr1stFactorReceiver.ChangeParameterName("col" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetColOp) + Case strFacetRow + ucr1stFactorReceiver.ChangeParameterName("row" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetRowOp) + End Select + If Not clsAesFunction.ContainsParameter("x") Then + clsAesFunction.AddParameter("x", Chr(34) & Chr(34)) + End If + bUpdatingParameters = False + End Sub + + Private Sub AddRemoveFacets() + Dim bWrap As Boolean = False + Dim bCol As Boolean = False + Dim bRow As Boolean = False + + If bUpdatingParameters Then + Exit Sub + End If + + If Not ucr1stFactorReceiver.IsEmpty Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + bWrap = True + Case strFacetCol + bCol = True + Case strFacetRow + bRow = True + End Select + End If + + If bWrap OrElse bRow OrElse bCol Then + clsBaseOperator.AddParameter("facets", clsRFunctionParameter:=clsFacetFunction) + End If + If bWrap Then + clsFacetFunction.SetRCommand("facet_wrap") + End If + If bRow OrElse bCol Then + clsFacetFunction.SetRCommand("facet_grid") + End If + If bRow Then + clsFacetVariablesOperator.AddParameter("left", clsROperatorParameter:=clsFacetRowOp, iPosition:=0) + ElseIf bCol AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("left", ".", iPosition:=0) + Else + clsFacetVariablesOperator.RemoveParameterByName("left") + End If + If bCol Then + clsFacetVariablesOperator.AddParameter("right", clsROperatorParameter:=clsFacetColOp, iPosition:=1) + ElseIf bRow AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("right", ".", iPosition:=1) + Else + clsFacetVariablesOperator.RemoveParameterByName("right") + End If + End Sub + + Private Sub ucr1stFactorReceiver_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucr1stFactorReceiver.ControlValueChanged, ucrReceiverX.ControlValueChanged + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub GetParameterValue(clsOperator As ROperator) + Dim i As Integer = 0 + For Each clsTempParam As RParameter In clsOperator.clsParameters + If clsTempParam.strArgumentValue <> "" AndAlso clsTempParam.strArgumentValue <> "." Then + clsGroupByFunction.AddParameter(i, clsTempParam.strArgumentValue, bIncludeArgumentName:=False, iPosition:=i) + i = i + 1 + End If + Next + End Sub + + Private Sub AddRemoveGroupBy() + If clsPipeOperator.ContainsParameter("mutate") Then + clsGroupByFunction.ClearParameters() + If clsBaseOperator.ContainsParameter("facets") Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + GetParameterValue(clsFacetVariablesOperator) + Case strFacetCol + GetParameterValue(clsFacetColOp) + Case strFacetRow + GetParameterValue(clsFacetRowOp) + End Select + End If + + If clsGroupByFunction.iParameterCount > 0 Then + clsPipeOperator.AddParameter("group_by", clsRFunctionParameter:=clsGroupByFunction, iPosition:=1) + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + + SetPipeAssignTo() + End Sub + + Private Sub SetPipeAssignTo() + If ucrSelectorMosaicPlot.ucrAvailableDataFrames.cboAvailableDataFrames.Text <> "" AndAlso clsPipeOperator.clsParameters.Count > 1 Then + clsPipeOperator.SetAssignTo(ucrSelectorMosaicPlot.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + Else + clsPipeOperator.RemoveAssignTo() + End If + End Sub + + Private Sub ucrSelectorMosaicPlot_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorMosaicPlot.ControlValueChanged + AutoFacetStation() + SetPipeAssignTo() + End Sub + Private Sub ucrReceiverX_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverX.ControlValueChanged Dim iXVarCount As Integer @@ -285,6 +515,10 @@ Public Class dlgMosaicPlot End If End Sub + Private Sub ucrChkLegend_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkLegend.ControlValueChanged, ucrInputLegendPosition.ControlValueChanged + AddRemoveTheme() + End Sub + Private Sub XAxisLabelAngleControls_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkXAxisLabelAngle.ControlValueChanged, ucrNudXAxisLabelsAngle.ControlValueChanged AddRemoveXAxisTextParameters() End Sub @@ -300,7 +534,7 @@ Public Class dlgMosaicPlot clsNewXScalecontinuousFunction:=clsXScaleContinuousFunction, clsNewYScalecontinuousFunction:=clsYScaleContinuousFunction, clsNewXLabsTitleFunction:=clsXlabsFunction, clsNewYLabTitleFunction:=clsYlabFunction, clsNewLabsFunction:=clsLabsFunction, clsNewFacetFunction:=clsRFacetFunction, ucrNewBaseSelector:=ucrSelectorMosaicPlot, clsNewCoordPolarFunction:=clsCoordPolarFunction, - clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewXScaleDateFunction:=clsXScaleDateFunction, + clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewXScaleDateFunction:=clsXScaleDateFunction, clsNewFacetVariablesOperator:=clsFacetVariablesOperator, clsNewAnnotateFunction:=clsAnnotateFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, bNewEnableColour:=False, bNewEnableDiscrete:=False, bReset:=bResetSubdialog) sdgPlots.ShowDialog() bResetSubdialog = False diff --git a/instat/dlgParallelCoordinatePlot.Designer.vb b/instat/dlgParallelCoordinatePlot.Designer.vb index 709f74443cc..eadafee6fe7 100644 --- a/instat/dlgParallelCoordinatePlot.Designer.vb +++ b/instat/dlgParallelCoordinatePlot.Designer.vb @@ -40,6 +40,11 @@ Partial Class dlgParallelCoordinatePlot Me.toolStripMenuItemParcoordOptions = New System.Windows.Forms.ToolStripMenuItem() Me.ucrChkBoxplots = New instat.ucrCheck() Me.ucrChkPoints = New instat.ucrCheck() + Me.ucrInputStation = New instat.ucrInputComboBox() + Me.ucr1stFactorReceiver = New instat.ucrReceiverSingle() + Me.lblFacetBy = New System.Windows.Forms.Label() + Me.ucrInputLegendPosition = New instat.ucrInputComboBox() + Me.ucrChkLegend = New instat.ucrCheck() Me.contextMenuStripOptions.SuspendLayout() Me.SuspendLayout() ' @@ -86,7 +91,7 @@ Partial Class dlgParallelCoordinatePlot 'ucrSaveGraph ' Me.ucrSaveGraph.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrSaveGraph.Location = New System.Drawing.Point(11, 313) + Me.ucrSaveGraph.Location = New System.Drawing.Point(11, 351) Me.ucrSaveGraph.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrSaveGraph.Name = "ucrSaveGraph" Me.ucrSaveGraph.Size = New System.Drawing.Size(324, 24) @@ -120,7 +125,7 @@ Partial Class dlgParallelCoordinatePlot ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(9, 342) + Me.ucrBase.Location = New System.Drawing.Point(9, 380) Me.ucrBase.Name = "ucrBase" Me.ucrBase.Size = New System.Drawing.Size(408, 52) Me.ucrBase.TabIndex = 13 @@ -212,12 +217,72 @@ Partial Class dlgParallelCoordinatePlot Me.ucrChkPoints.Size = New System.Drawing.Size(100, 23) Me.ucrChkPoints.TabIndex = 11 ' + 'ucrInputStation + ' + Me.ucrInputStation.AddQuotesIfUnrecognised = True + Me.ucrInputStation.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputStation.GetSetSelectedIndex = -1 + Me.ucrInputStation.IsReadOnly = False + Me.ucrInputStation.Location = New System.Drawing.Point(315, 315) + Me.ucrInputStation.Name = "ucrInputStation" + Me.ucrInputStation.Size = New System.Drawing.Size(101, 21) + Me.ucrInputStation.TabIndex = 106 + ' + 'ucr1stFactorReceiver + ' + Me.ucr1stFactorReceiver.AutoSize = True + Me.ucr1stFactorReceiver.frmParent = Me + Me.ucr1stFactorReceiver.Location = New System.Drawing.Point(204, 316) + Me.ucr1stFactorReceiver.Margin = New System.Windows.Forms.Padding(0) + Me.ucr1stFactorReceiver.Name = "ucr1stFactorReceiver" + Me.ucr1stFactorReceiver.Selector = Nothing + Me.ucr1stFactorReceiver.Size = New System.Drawing.Size(110, 26) + Me.ucr1stFactorReceiver.strNcFilePath = "" + Me.ucr1stFactorReceiver.TabIndex = 105 + Me.ucr1stFactorReceiver.ucrSelector = Nothing + ' + 'lblFacetBy + ' + Me.lblFacetBy.AutoSize = True + Me.lblFacetBy.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblFacetBy.Location = New System.Drawing.Point(206, 301) + Me.lblFacetBy.Name = "lblFacetBy" + Me.lblFacetBy.Size = New System.Drawing.Size(52, 13) + Me.lblFacetBy.TabIndex = 104 + Me.lblFacetBy.Tag = "" + Me.lblFacetBy.Text = "Facet By:" + ' + 'ucrInputLegendPosition + ' + Me.ucrInputLegendPosition.AddQuotesIfUnrecognised = True + Me.ucrInputLegendPosition.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputLegendPosition.GetSetSelectedIndex = -1 + Me.ucrInputLegendPosition.IsReadOnly = False + Me.ucrInputLegendPosition.Location = New System.Drawing.Point(90, 315) + Me.ucrInputLegendPosition.Name = "ucrInputLegendPosition" + Me.ucrInputLegendPosition.Size = New System.Drawing.Size(112, 21) + Me.ucrInputLegendPosition.TabIndex = 108 + ' + 'ucrChkLegend + ' + Me.ucrChkLegend.AutoSize = True + Me.ucrChkLegend.Checked = False + Me.ucrChkLegend.Location = New System.Drawing.Point(11, 316) + Me.ucrChkLegend.Name = "ucrChkLegend" + Me.ucrChkLegend.Size = New System.Drawing.Size(98, 24) + Me.ucrChkLegend.TabIndex = 107 + ' 'dlgParallelCoordinatePlot ' 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(417, 399) + Me.ClientSize = New System.Drawing.Size(417, 436) + Me.Controls.Add(Me.ucrInputStation) + Me.Controls.Add(Me.ucr1stFactorReceiver) + Me.Controls.Add(Me.lblFacetBy) + Me.Controls.Add(Me.ucrInputLegendPosition) + Me.Controls.Add(Me.ucrChkLegend) Me.Controls.Add(Me.ucrChkPoints) Me.Controls.Add(Me.ucrChkBoxplots) Me.Controls.Add(Me.cmdOptions) @@ -261,4 +326,9 @@ Partial Class dlgParallelCoordinatePlot Friend WithEvents toolStripMenuItemParcoordOptions As ToolStripMenuItem Friend WithEvents ucrChkPoints As ucrCheck Friend WithEvents ucrChkBoxplots As ucrCheck + Friend WithEvents ucrInputStation As ucrInputComboBox + Friend WithEvents ucr1stFactorReceiver As ucrReceiverSingle + Friend WithEvents lblFacetBy As Label + Friend WithEvents ucrInputLegendPosition As ucrInputComboBox + Friend WithEvents ucrChkLegend As ucrCheck End Class diff --git a/instat/dlgParallelCoordinatePlot.vb b/instat/dlgParallelCoordinatePlot.vb index 693bef45b0b..54210b80f68 100644 --- a/instat/dlgParallelCoordinatePlot.vb +++ b/instat/dlgParallelCoordinatePlot.vb @@ -37,6 +37,21 @@ Public Class dlgParallelCoordinatePlot Private clsScaleColourViridisFunction As New RFunction Private clsAnnotateFunction As New RFunction + Private clsFacetFunction As New RFunction + Private clsFacetVariablesOperator As New ROperator + Private clsFacetRowOp As New ROperator + Private clsFacetColOp As New ROperator + Private clsPipeOperator As New ROperator + Private clsGroupByFunction As New RFunction + + Private ReadOnly strNone As String = "None" + Private ReadOnly strFacetWrap As String = "Facet Wrap" + Private ReadOnly strFacetRow As String = "Facet Row" + Private ReadOnly strFacetCol As String = "Facet Column" + + Private bUpdateComboOptions As Boolean = True + Private bUpdatingParameters As Boolean = False + Private Sub dlgParallelCoordinatePlot_Load(sender As Object, e As EventArgs) Handles MyBase.Load If bFirstload Then InitialiseDialog() @@ -53,6 +68,7 @@ Public Class dlgParallelCoordinatePlot Private Sub InitialiseDialog() Dim dctScale As New Dictionary(Of String, String) + Dim dctLegendPosition As New Dictionary(Of String, String) ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False ucrBase.iHelpTopicID = 593 ucrBase.clsRsyntax.iCallType = 3 @@ -100,6 +116,32 @@ Public Class dlgParallelCoordinatePlot ucrInputScale.SetRDefault("std") ucrInputScale.SetDropDownStyleAsNonEditable() + ucrChkLegend.SetText("Legend:") + ucrChkLegend.AddToLinkedControls({ucrInputLegendPosition}, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="None") + ucrInputLegendPosition.SetDropDownStyleAsNonEditable() + ucrInputLegendPosition.SetParameter(New RParameter("legend.position")) + dctLegendPosition.Add("None", Chr(34) & "none" & Chr(34)) + dctLegendPosition.Add("Left", Chr(34) & "left" & Chr(34)) + dctLegendPosition.Add("Right", Chr(34) & "right" & Chr(34)) + dctLegendPosition.Add("Top", Chr(34) & "top" & Chr(34)) + dctLegendPosition.Add("Bottom", Chr(34) & "bottom" & Chr(34)) + ucrInputLegendPosition.SetItems(dctLegendPosition) + ucrChkLegend.AddParameterPresentCondition(True, "legend.position") + ucrChkLegend.AddParameterPresentCondition(False, "legend.position", False) + + ucr1stFactorReceiver.SetParameter(New RParameter("var1")) + ucr1stFactorReceiver.Selector = ucrSelectorParallelCoordinatePlot + ucr1stFactorReceiver.SetIncludedDataTypes({"factor"}) + ucr1stFactorReceiver.strSelectorHeading = "Factors" + ucr1stFactorReceiver.bWithQuotes = False + ucr1stFactorReceiver.SetParameterIsString() + ucr1stFactorReceiver.SetValuesToIgnore({"."}) + ucr1stFactorReceiver.SetParameterPosition(1) + ucr1stFactorReceiver.SetLinkedDisplayControl(lblFacetBy) + + ucrInputStation.SetItems({strFacetWrap, strFacetRow, strFacetCol, strNone}) + ucrInputStation.SetDropDownStyleAsNonEditable() + ucrSaveGraph.SetPrefix("par_coord_plot") ucrSaveGraph.SetSaveTypeAsGraph() ucrSaveGraph.SetDataFrameSelector(ucrSelectorParallelCoordinatePlot.ucrAvailableDataFrames) @@ -111,6 +153,15 @@ Public Class dlgParallelCoordinatePlot Private Sub SetDefaults() clsBaseOperator = New ROperator clsGGParCoordFunc = New RFunction + clsFacetFunction = New RFunction + clsFacetVariablesOperator = New ROperator + clsFacetRowOp = New ROperator + clsFacetColOp = New ROperator + clsPipeOperator = New ROperator + clsGroupByFunction = New RFunction + + ucrInputStation.SetName(strFacetWrap) + ucrInputStation.bUpdateRCodeFromControl = True ucrReceiverXVariables.SetMeAsReceiver() ucrSelectorParallelCoordinatePlot.Reset() @@ -127,6 +178,22 @@ Public Class dlgParallelCoordinatePlot clsBaseOperator.SetOperation("+") clsBaseOperator.AddParameter("ggparcord", clsRFunctionParameter:=clsGGParCoordFunc, iPosition:=0) + clsFacetFunction.SetPackageName("ggplot2") + clsFacetRowOp.SetOperation("+") + clsFacetRowOp.bBrackets = False + clsFacetColOp.SetOperation("+") + clsFacetColOp.bBrackets = False + clsFacetVariablesOperator.SetOperation("~") + clsFacetVariablesOperator.bForceIncludeOperation = True + clsFacetVariablesOperator.bBrackets = False + clsFacetFunction.AddParameter("facets", clsROperatorParameter:=clsFacetVariablesOperator, iPosition:=0) + + clsPipeOperator.SetOperation("%>%") + SetPipeAssignTo() + + clsGroupByFunction.SetPackageName("dplyr") + clsGroupByFunction.SetRCommand("group_by") + clsBaseOperator.AddParameter(GgplotDefaults.clsDefaultThemeParameter.Clone()) clsXLabsFunction = GgplotDefaults.clsXlabTitleFunction.Clone() clsLabsFunction = GgplotDefaults.clsDefaultLabs.Clone() @@ -151,13 +218,17 @@ Public Class dlgParallelCoordinatePlot Private Sub SetRCodeForControls(bReset As Boolean) ucrSelectorParallelCoordinatePlot.SetRCode(clsGGParCoordFunc, bReset) - ucrReceiverXVariables.SetRCode(clsGGParCoordFunc, bReset) ucrReceiverFactor.SetRCode(clsGGParCoordFunc, bReset) ucrChkBoxplots.SetRCode(clsGGParCoordFunc, bReset) ucrChkPoints.SetRCode(clsGGParCoordFunc, bReset) ucrNudTransparency.SetRCode(clsGGParCoordFunc, bReset) ucrInputScale.SetRCode(clsGGParCoordFunc, bReset) + ucrChkLegend.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + ucrInputLegendPosition.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) ucrSaveGraph.SetRCode(clsBaseOperator, bReset) + If bReset Then + ucrReceiverXVariables.SetRCode(clsGGParCoordFunc, bReset) + End If End Sub Private Sub TestOkEnabled() @@ -182,13 +253,180 @@ Public Class dlgParallelCoordinatePlot Private Sub cmdOptions_Click(sender As Object, e As EventArgs) Handles cmdOptions.Click, toolStripMenuItemPlotOptions.Click sdgPlots.SetRCode(clsBaseOperator, clsNewThemeFunction:=clsThemeFunction, dctNewThemeFunctions:=dctThemeFunctions, clsNewXScalecontinuousFunction:=clsXScaleContinuousFunction, clsNewYScalecontinuousFunction:=clsYScaleContinuousFunction, - clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, clsNewXLabsTitleFunction:=clsXLabsFunction, clsNewYLabTitleFunction:=clsYLabsFunction, + clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, clsNewXLabsTitleFunction:=clsXLabsFunction, clsNewYLabTitleFunction:=clsYLabsFunction, clsNewFacetVariablesOperator:=clsFacetVariablesOperator, clsNewLabsFunction:=clsLabsFunction, clsNewFacetFunction:=clsRFacetFunction, ucrNewBaseSelector:=ucrSelectorParallelCoordinatePlot, clsNewCoordPolarFunction:=clsCoordPolarFunction, clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, clsNewXScaleDateFunction:=clsXScaleDateFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, clsNewAnnotateFunction:=clsAnnotateFunction, bReset:=bResetSubdialog) sdgPlots.ShowDialog() bResetSubdialog = False End Sub + Private Sub AddRemoveTheme() + If clsThemeFunction.iParameterCount > 0 Then + clsBaseOperator.AddParameter("theme", clsRFunctionParameter:=clsThemeFunction, iPosition:=15) + Else + clsBaseOperator.RemoveParameterByName("theme") + End If + End Sub + + Private Sub ucrChkLegend_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkLegend.ControlValueChanged, ucrInputLegendPosition.ControlValueChanged + AddRemoveTheme() + End Sub + + Private Sub AutoFacetStation() + Dim currentReceiver As ucrReceiver = ucrSelectorParallelCoordinatePlot.CurrentReceiver + + If currentReceiver IsNot Nothing Then + ucr1stFactorReceiver.AddItemsWithMetadataProperty(ucrSelectorParallelCoordinatePlot.ucrAvailableDataFrames.cboAvailableDataFrames.Text, "Climatic_Type", {"station_label"}) + currentReceiver.SetMeAsReceiver() + AddRemoveGroupBy() + End If + End Sub + + Private Sub ucrInput_ControlValueChanged(ucrChangedControl As ucrInputComboBox) Handles ucrInputStation.ControlValueChanged + If Not bUpdateComboOptions Then + Exit Sub + End If + Dim strChangedText As String = ucrChangedControl.GetText() + If strChangedText <> strNone Then + If Not strChangedText = strFacetCol AndAlso Not strChangedText = strFacetRow AndAlso + Not ucrInputStation.Equals(ucrChangedControl) AndAlso ucrInputStation.GetText() = strChangedText Then + bUpdateComboOptions = False + ucrInputStation.SetName(strNone) + bUpdateComboOptions = True + End If + If (strChangedText = strFacetWrap AndAlso ucrInputStation.GetText = strFacetRow) OrElse (strChangedText = strFacetRow AndAlso + ucrInputStation.GetText = strFacetWrap) OrElse (strChangedText = strFacetWrap AndAlso + ucrInputStation.GetText = strFacetCol) OrElse (strChangedText = strFacetCol AndAlso ucrInputStation.GetText = strFacetWrap) Then + ucrInputStation.SetName(strNone) + End If + End If + UpdateParameters() + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub UpdateParameters() + clsFacetVariablesOperator.RemoveParameterByName("var1") + clsFacetColOp.RemoveParameterByName("col" & ucrInputStation.Name) + clsFacetRowOp.RemoveParameterByName("row" & ucrInputStation.Name) + + clsBaseOperator.RemoveParameterByName("facets") + bUpdatingParameters = True + ucr1stFactorReceiver.SetRCode(Nothing) + Select Case ucrInputStation.GetText() + Case strFacetWrap + ucr1stFactorReceiver.ChangeParameterName("var1") + ucr1stFactorReceiver.SetRCode(clsFacetVariablesOperator) + Case strFacetCol + ucr1stFactorReceiver.ChangeParameterName("col" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetColOp) + Case strFacetRow + ucr1stFactorReceiver.ChangeParameterName("row" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetRowOp) + End Select + bUpdatingParameters = False + End Sub + + Private Sub AddRemoveFacets() + Dim bWrap As Boolean = False + Dim bCol As Boolean = False + Dim bRow As Boolean = False + + If bUpdatingParameters Then + Exit Sub + End If + + clsBaseOperator.RemoveParameterByName("facets") + If Not ucr1stFactorReceiver.IsEmpty Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + bWrap = True + Case strFacetCol + bCol = True + Case strFacetRow + bRow = True + End Select + End If + + If bWrap OrElse bRow OrElse bCol Then + clsBaseOperator.AddParameter("facets", clsRFunctionParameter:=clsFacetFunction) + End If + If bWrap Then + clsFacetFunction.SetRCommand("facet_wrap") + End If + If bRow OrElse bCol Then + clsFacetFunction.SetRCommand("facet_grid") + End If + If bRow Then + clsFacetVariablesOperator.AddParameter("left", clsROperatorParameter:=clsFacetRowOp, iPosition:=0) + ElseIf bCol AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("left", ".", iPosition:=0) + Else + clsFacetVariablesOperator.RemoveParameterByName("left") + End If + If bCol Then + clsFacetVariablesOperator.AddParameter("right", clsROperatorParameter:=clsFacetColOp, iPosition:=1) + ElseIf bRow AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("right", ".", iPosition:=1) + Else + clsFacetVariablesOperator.RemoveParameterByName("right") + End If + End Sub + + Private Sub ucr1stFactorReceiver_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucr1stFactorReceiver.ControlValueChanged + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub GetParameterValue(clsOperator As ROperator) + Dim i As Integer = 0 + For Each clsTempParam As RParameter In clsOperator.clsParameters + If clsTempParam.strArgumentValue <> "" AndAlso clsTempParam.strArgumentValue <> "." Then + clsGroupByFunction.AddParameter(i, clsTempParam.strArgumentValue, bIncludeArgumentName:=False, iPosition:=i) + i = i + 1 + End If + Next + End Sub + + Private Sub AddRemoveGroupBy() + If clsPipeOperator.ContainsParameter("mutate") Then + clsGroupByFunction.ClearParameters() + If clsBaseOperator.ContainsParameter("facets") Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + GetParameterValue(clsFacetVariablesOperator) + Case strFacetCol + GetParameterValue(clsFacetColOp) + Case strFacetRow + GetParameterValue(clsFacetRowOp) + End Select + End If + + If clsGroupByFunction.iParameterCount > 0 Then + clsPipeOperator.AddParameter("group_by", clsRFunctionParameter:=clsGroupByFunction, iPosition:=1) + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + + SetPipeAssignTo() + End Sub + + Private Sub SetPipeAssignTo() + If ucrSelectorParallelCoordinatePlot.ucrAvailableDataFrames.cboAvailableDataFrames.Text <> "" AndAlso clsPipeOperator.clsParameters.Count > 1 Then + clsPipeOperator.SetAssignTo(ucrSelectorParallelCoordinatePlot.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + Else + clsPipeOperator.RemoveAssignTo() + End If + End Sub + + Private Sub ucrSelectorParallelCoordinatePlot_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorParallelCoordinatePlot.ControlValueChanged + AutoFacetStation() + SetPipeAssignTo() + End Sub + Private Sub CoreControls_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrReceiverXVariables.ControlContentsChanged, ucrSaveGraph.ControlContentsChanged, ucrNudTransparency.ControlContentsChanged TestOkEnabled() End Sub diff --git a/instat/dlgScatterPlot.Designer.vb b/instat/dlgScatterPlot.Designer.vb index a722c9958a4..7da7e411a27 100644 --- a/instat/dlgScatterPlot.Designer.vb +++ b/instat/dlgScatterPlot.Designer.vb @@ -82,6 +82,11 @@ Partial Class dlgScatterPlot Me.ucrFactorOptionalReceiver = New instat.ucrReceiverSingle() Me.ucrReceiverX = New instat.ucrReceiverSingle() Me.ucrBase = New instat.ucrButtons() + Me.ucrInputStation = New instat.ucrInputComboBox() + Me.ucr1stFactorReceiver = New instat.ucrReceiverSingle() + Me.lblFacetBy = New System.Windows.Forms.Label() + Me.ucrInputLegendPosition = New instat.ucrInputComboBox() + Me.ucrChkLegend = New instat.ucrCheck() Me.contextMenuStripOptions.SuspendLayout() Me.grpGeom.SuspendLayout() Me.SuspendLayout() @@ -457,7 +462,7 @@ Partial Class dlgScatterPlot 'ucrSaveScatterPlot ' Me.ucrSaveScatterPlot.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrSaveScatterPlot.Location = New System.Drawing.Point(10, 428) + Me.ucrSaveScatterPlot.Location = New System.Drawing.Point(10, 473) Me.ucrSaveScatterPlot.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrSaveScatterPlot.Name = "ucrSaveScatterPlot" Me.ucrSaveScatterPlot.Size = New System.Drawing.Size(312, 24) @@ -518,17 +523,77 @@ Partial Class dlgScatterPlot ' Me.ucrBase.AutoSize = True Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrBase.Location = New System.Drawing.Point(10, 459) + Me.ucrBase.Location = New System.Drawing.Point(10, 504) Me.ucrBase.Name = "ucrBase" Me.ucrBase.Size = New System.Drawing.Size(408, 52) Me.ucrBase.TabIndex = 17 ' + 'ucrInputStation + ' + Me.ucrInputStation.AddQuotesIfUnrecognised = True + Me.ucrInputStation.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputStation.GetSetSelectedIndex = -1 + Me.ucrInputStation.IsReadOnly = False + Me.ucrInputStation.Location = New System.Drawing.Point(339, 440) + Me.ucrInputStation.Name = "ucrInputStation" + Me.ucrInputStation.Size = New System.Drawing.Size(101, 21) + Me.ucrInputStation.TabIndex = 76 + ' + 'ucr1stFactorReceiver + ' + Me.ucr1stFactorReceiver.AutoSize = True + Me.ucr1stFactorReceiver.frmParent = Me + Me.ucr1stFactorReceiver.Location = New System.Drawing.Point(212, 441) + Me.ucr1stFactorReceiver.Margin = New System.Windows.Forms.Padding(0) + Me.ucr1stFactorReceiver.Name = "ucr1stFactorReceiver" + Me.ucr1stFactorReceiver.Selector = Nothing + Me.ucr1stFactorReceiver.Size = New System.Drawing.Size(121, 26) + Me.ucr1stFactorReceiver.strNcFilePath = "" + Me.ucr1stFactorReceiver.TabIndex = 75 + Me.ucr1stFactorReceiver.ucrSelector = Nothing + ' + 'lblFacetBy + ' + Me.lblFacetBy.AutoSize = True + Me.lblFacetBy.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblFacetBy.Location = New System.Drawing.Point(212, 426) + Me.lblFacetBy.Name = "lblFacetBy" + Me.lblFacetBy.Size = New System.Drawing.Size(52, 13) + Me.lblFacetBy.TabIndex = 74 + Me.lblFacetBy.Tag = "" + Me.lblFacetBy.Text = "Facet By:" + ' + 'ucrInputLegendPosition + ' + Me.ucrInputLegendPosition.AddQuotesIfUnrecognised = True + Me.ucrInputLegendPosition.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputLegendPosition.GetSetSelectedIndex = -1 + Me.ucrInputLegendPosition.IsReadOnly = False + Me.ucrInputLegendPosition.Location = New System.Drawing.Point(96, 440) + Me.ucrInputLegendPosition.Name = "ucrInputLegendPosition" + Me.ucrInputLegendPosition.Size = New System.Drawing.Size(112, 21) + Me.ucrInputLegendPosition.TabIndex = 78 + ' + 'ucrChkLegend + ' + Me.ucrChkLegend.AutoSize = True + Me.ucrChkLegend.Checked = False + Me.ucrChkLegend.Location = New System.Drawing.Point(10, 441) + Me.ucrChkLegend.Name = "ucrChkLegend" + Me.ucrChkLegend.Size = New System.Drawing.Size(98, 24) + Me.ucrChkLegend.TabIndex = 77 + ' 'dlgScatterPlot ' 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(483, 521) + Me.ClientSize = New System.Drawing.Size(469, 558) + Me.Controls.Add(Me.ucrInputStation) + Me.Controls.Add(Me.ucr1stFactorReceiver) + Me.Controls.Add(Me.lblFacetBy) + Me.Controls.Add(Me.ucrInputLegendPosition) + Me.Controls.Add(Me.ucrChkLegend) Me.Controls.Add(Me.grpGeom) Me.Controls.Add(Me.cmdOptions) Me.Controls.Add(Me.ucrInputSides) @@ -605,4 +670,9 @@ Partial Class dlgScatterPlot Friend WithEvents lblPosition As Label Friend WithEvents ucrInputLegend As ucrInputComboBox Friend WithEvents lblLegend As Label + Friend WithEvents ucrInputStation As ucrInputComboBox + Friend WithEvents ucr1stFactorReceiver As ucrReceiverSingle + Friend WithEvents lblFacetBy As Label + Friend WithEvents ucrInputLegendPosition As ucrInputComboBox + Friend WithEvents ucrChkLegend As ucrCheck End Class diff --git a/instat/dlgScatterPlot.vb b/instat/dlgScatterPlot.vb index 24238bce012..656dfed42bf 100644 --- a/instat/dlgScatterPlot.vb +++ b/instat/dlgScatterPlot.vb @@ -44,6 +44,21 @@ Public Class dlgScatterPlot Private clsGeomRugFunction As New RFunction Private clsGeomJitterFunction As New RFunction Private clsCountGeomFunction, clsDummyFunction As New RFunction + + Private clsFacetFunction As New RFunction + Private clsFacetVariablesOperator As New ROperator + Private clsFacetRowOp As New ROperator + Private clsFacetColOp As New ROperator + Private clsPipeOperator As New ROperator + Private clsGroupByFunction As New RFunction + + Private ReadOnly strNone As String = "None" + Private ReadOnly strFacetWrap As String = "Facet Wrap" + Private ReadOnly strFacetRow As String = "Facet Row" + Private ReadOnly strFacetCol As String = "Facet Column" + + Private bUpdateComboOptions As Boolean = True + Private bUpdatingParameters As Boolean = False 'Parameter names for geoms Private strFirstParameterName As String = "geomfunc" Private strGeomSmoothParameterName As String = "geom_smooth" @@ -71,6 +86,7 @@ Public Class dlgScatterPlot Dim dctSidesOptions As New Dictionary(Of String, String) Dim dctShapePoint As New Dictionary(Of String, String) Dim dctPositioncount As New Dictionary(Of String, String) + Dim dctLegendPosition As New Dictionary(Of String, String) ucrBase.iHelpTopicID = 433 ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False @@ -224,6 +240,33 @@ Public Class dlgScatterPlot ucrInputSides.SetRDefault(Chr(34) & "bl" & Chr(34)) ucrInputSides.SetDropDownStyleAsNonEditable() + ucrChkLegend.SetText("Legend:") + ucrChkLegend.AddToLinkedControls({ucrInputLegendPosition}, {True}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="None") + ucrInputLegendPosition.SetDropDownStyleAsNonEditable() + ucrInputLegendPosition.SetParameter(New RParameter("legend.position")) + dctLegendPosition.Add("None", Chr(34) & "none" & Chr(34)) + dctLegendPosition.Add("Left", Chr(34) & "left" & Chr(34)) + dctLegendPosition.Add("Right", Chr(34) & "right" & Chr(34)) + dctLegendPosition.Add("Top", Chr(34) & "top" & Chr(34)) + dctLegendPosition.Add("Bottom", Chr(34) & "bottom" & Chr(34)) + ucrInputLegendPosition.SetItems(dctLegendPosition) + ucrChkLegend.AddParameterPresentCondition(True, "legend.position") + ucrChkLegend.AddParameterPresentCondition(False, "legend.position", False) + + ucr1stFactorReceiver.SetParameter(New RParameter("var1")) + ucr1stFactorReceiver.Selector = ucrSelectorForScatter + ucr1stFactorReceiver.SetIncludedDataTypes({"factor"}) + ucr1stFactorReceiver.strSelectorHeading = "Factors" + ucr1stFactorReceiver.bWithQuotes = False + ucr1stFactorReceiver.SetParameterIsString() + ucr1stFactorReceiver.SetValuesToIgnore({"."}) + ucr1stFactorReceiver.SetParameterPosition(1) + ucr1stFactorReceiver.SetLinkedDisplayControl(lblFacetBy) + + ucrInputStation.SetItems({strFacetWrap, strFacetRow, strFacetCol, strNone}) + ucrInputStation.SetDropDownStyleAsNonEditable() + + ucrNudSize.SetLinkedDisplayControl(lblSize) ucrNudWidth.SetLinkedDisplayControl(lblWidth) ucrNudHeigth.SetLinkedDisplayControl(lblHeith) @@ -245,6 +288,15 @@ Public Class dlgScatterPlot clsGeomJitterFunction = New RFunction clsCountGeomFunction = New RFunction clsDummyFunction = New RFunction + clsFacetFunction = New RFunction + clsFacetVariablesOperator = New ROperator + clsFacetRowOp = New ROperator + clsFacetColOp = New ROperator + clsPipeOperator = New ROperator + clsGroupByFunction = New RFunction + + ucrInputStation.SetName(strFacetWrap) + ucrInputStation.bUpdateRCodeFromControl = True ucrSelectorForScatter.Reset() ucrSelectorForScatter.SetGgplotFunction(clsBaseOperator) @@ -293,6 +345,22 @@ Public Class dlgScatterPlot clsGeomJitterFunction.AddParameter("width", 0.4, iPosition:=0) clsGeomJitterFunction.AddParameter("height", 0.4, iPosition:=1) + clsFacetFunction.SetPackageName("ggplot2") + clsFacetRowOp.SetOperation("+") + clsFacetRowOp.bBrackets = False + clsFacetColOp.SetOperation("+") + clsFacetColOp.bBrackets = False + clsFacetVariablesOperator.SetOperation("~") + clsFacetVariablesOperator.bForceIncludeOperation = True + clsFacetVariablesOperator.bBrackets = False + clsFacetFunction.AddParameter("facets", clsROperatorParameter:=clsFacetVariablesOperator, iPosition:=0) + + clsPipeOperator.SetOperation("%>%") + SetPipeAssignTo() + + clsGroupByFunction.SetPackageName("dplyr") + clsGroupByFunction.SetRCommand("group_by") + clsBaseOperator.AddParameter(GgplotDefaults.clsDefaultThemeParameter.Clone()) clsXlabsFunction = GgplotDefaults.clsXlabTitleFunction.Clone() clsYlabsFunction = GgplotDefaults.clsYlabTitleFunction.Clone() @@ -343,6 +411,8 @@ Public Class dlgScatterPlot ucrNudPointsize.SetRCode(clsRScatterGeomFunction, bReset) ucrInputLegend.SetRCode(clsCountGeomFunction, bReset) ucrInputPosition.SetRCode(clsCountGeomFunction, bReset) + ucrChkLegend.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) + ucrInputLegendPosition.SetRCode(clsThemeFunction, bReset, bCloneIfNeeded:=True) If bReset Then ucrPnlGeoms.SetRCode(clsDummyFunction, bReset) End If @@ -381,12 +451,24 @@ Public Class dlgScatterPlot toolStripMenuItemRugOptions.Enabled = ucrChkAddRugPlot.Checked End Sub + Private Sub AddRemoveTheme() + If clsThemeFunction.iParameterCount > 0 Then + clsBaseOperator.AddParameter("theme", clsRFunctionParameter:=clsThemeFunction, iPosition:=15) + Else + clsBaseOperator.RemoveParameterByName("theme") + End If + End Sub + + Private Sub ucrChkLegend_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkLegend.ControlValueChanged, ucrInputLegendPosition.ControlValueChanged + AddRemoveTheme() + End Sub + Private Sub cmdOptions_Click(sender As Object, e As EventArgs) Handles cmdOptions.Click, toolStripMenuItemPlotOptions.Click sdgPlots.SetRCode(clsNewOperator:=ucrBase.clsRsyntax.clsBaseOperator, clsNewGlobalAesFunction:=clsRaesFunction, clsNewYScalecontinuousFunction:=clsYScalecontinuousFunction, clsNewXScalecontinuousFunction:=clsXScalecontinuousFunction, clsNewLabsFunction:=clsLabsFunction, clsNewXLabsTitleFunction:=clsXlabsFunction, clsNewYLabTitleFunction:=clsYlabsFunction, clsNewFacetFunction:=clsFacetsFunction, clsNewCoordPolarFunction:=clsCoordPolarFunction, clsNewCoordPolarStartOperator:=clsCoordPolarStartOperator, - clsNewThemeFunction:=clsThemeFunction, clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, + clsNewThemeFunction:=clsThemeFunction, clsNewScaleFillViridisFunction:=clsScaleFillViridisFunction, clsNewFacetVariablesOperator:=clsFacetVariablesOperator, clsNewScaleColourViridisFunction:=clsScaleColourViridisFunction, clsNewXScaleDateFunction:=clsXScaleDateFunction, clsNewYScaleDateFunction:=clsYScaleDateFunction, dctNewThemeFunctions:=dctThemeFunctions, ucrNewBaseSelector:=ucrSelectorForScatter, strMainDialogGeomParameterNames:=strGeomParameterNames, clsNewAnnotateFunction:=clsAnnotateFunction, bReset:=bResetSubdialog) @@ -498,4 +580,163 @@ Public Class dlgScatterPlot clsCountGeomFunction.AddParameter("position", Chr(34) & ucrInputPosition.GetText & Chr(34), iPosition:=0) End If End Sub + + Private Sub AutoFacetStation() + Dim currentReceiver As ucrReceiver = ucrSelectorForScatter.CurrentReceiver + + If currentReceiver IsNot Nothing Then + ucr1stFactorReceiver.AddItemsWithMetadataProperty(ucrSelectorForScatter.ucrAvailableDataFrames.cboAvailableDataFrames.Text, "Climatic_Type", {"station_label"}) + currentReceiver.SetMeAsReceiver() + AddRemoveGroupBy() + End If + End Sub + + Private Sub ucrInput_ControlValueChanged(ucrChangedControl As ucrInputComboBox) Handles ucrInputStation.ControlValueChanged + If Not bUpdateComboOptions Then + Exit Sub + End If + Dim strChangedText As String = ucrChangedControl.GetText() + If strChangedText <> strNone Then + If Not strChangedText = strFacetCol AndAlso Not strChangedText = strFacetRow AndAlso + Not ucrInputStation.Equals(ucrChangedControl) AndAlso ucrInputStation.GetText() = strChangedText Then + bUpdateComboOptions = False + ucrInputStation.SetName(strNone) + bUpdateComboOptions = True + End If + If (strChangedText = strFacetWrap AndAlso ucrInputStation.GetText = strFacetRow) OrElse (strChangedText = strFacetRow AndAlso + ucrInputStation.GetText = strFacetWrap) OrElse (strChangedText = strFacetWrap AndAlso + ucrInputStation.GetText = strFacetCol) OrElse (strChangedText = strFacetCol AndAlso ucrInputStation.GetText = strFacetWrap) Then + ucrInputStation.SetName(strNone) + End If + End If + UpdateParameters() + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub UpdateParameters() + clsFacetVariablesOperator.RemoveParameterByName("var1") + clsFacetColOp.RemoveParameterByName("col" & ucrInputStation.Name) + clsFacetRowOp.RemoveParameterByName("row" & ucrInputStation.Name) + + clsBaseOperator.RemoveParameterByName("facets") + bUpdatingParameters = True + ucr1stFactorReceiver.SetRCode(Nothing) + Select Case ucrInputStation.GetText() + Case strFacetWrap + ucr1stFactorReceiver.ChangeParameterName("var1") + ucr1stFactorReceiver.SetRCode(clsFacetVariablesOperator) + Case strFacetCol + ucr1stFactorReceiver.ChangeParameterName("col" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetColOp) + Case strFacetRow + ucr1stFactorReceiver.ChangeParameterName("row" & ucrInputStation.Name) + ucr1stFactorReceiver.SetRCode(clsFacetRowOp) + End Select + If Not clsRaesFunction.ContainsParameter("x") Then + clsRaesFunction.AddParameter("x", Chr(34) & Chr(34)) + End If + bUpdatingParameters = False + End Sub + + Private Sub AddRemoveFacets() + Dim bWrap As Boolean = False + Dim bCol As Boolean = False + Dim bRow As Boolean = False + + If bUpdatingParameters Then + Exit Sub + End If + + clsBaseOperator.RemoveParameterByName("facets") + If Not ucr1stFactorReceiver.IsEmpty Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + bWrap = True + Case strFacetCol + bCol = True + Case strFacetRow + bRow = True + End Select + End If + + If bWrap OrElse bRow OrElse bCol Then + clsBaseOperator.AddParameter("facets", clsRFunctionParameter:=clsFacetFunction) + End If + If bWrap Then + clsFacetFunction.SetRCommand("facet_wrap") + End If + If bRow OrElse bCol Then + clsFacetFunction.SetRCommand("facet_grid") + End If + If bRow Then + clsFacetVariablesOperator.AddParameter("left", clsROperatorParameter:=clsFacetRowOp, iPosition:=0) + ElseIf bCol AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("left", ".", iPosition:=0) + Else + clsFacetVariablesOperator.RemoveParameterByName("left") + End If + If bCol Then + clsFacetVariablesOperator.AddParameter("right", clsROperatorParameter:=clsFacetColOp, iPosition:=1) + ElseIf bRow AndAlso bWrap = False Then + clsFacetVariablesOperator.AddParameter("right", ".", iPosition:=1) + Else + clsFacetVariablesOperator.RemoveParameterByName("right") + End If + End Sub + + Private Sub ucr1stFactorReceiver_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucr1stFactorReceiver.ControlValueChanged, ucrReceiverX.ControlValueChanged + AddRemoveFacets() + AddRemoveGroupBy() + End Sub + + Private Sub GetParameterValue(clsOperator As ROperator) + Dim i As Integer = 0 + For Each clsTempParam As RParameter In clsOperator.clsParameters + If clsTempParam.strArgumentValue <> "" AndAlso clsTempParam.strArgumentValue <> "." Then + clsGroupByFunction.AddParameter(i, clsTempParam.strArgumentValue, bIncludeArgumentName:=False, iPosition:=i) + i = i + 1 + End If + Next + End Sub + + Private Sub AddRemoveGroupBy() + If clsPipeOperator.ContainsParameter("mutate") Then + clsGroupByFunction.ClearParameters() + If clsBaseOperator.ContainsParameter("facets") Then + Select Case ucrInputStation.GetText() + Case strFacetWrap + GetParameterValue(clsFacetVariablesOperator) + Case strFacetCol + GetParameterValue(clsFacetColOp) + Case strFacetRow + GetParameterValue(clsFacetRowOp) + End Select + End If + + If clsGroupByFunction.iParameterCount > 0 Then + clsPipeOperator.AddParameter("group_by", clsRFunctionParameter:=clsGroupByFunction, iPosition:=1) + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + Else + clsPipeOperator.RemoveParameterByName("group_by") + End If + + SetPipeAssignTo() + End Sub + + Private Sub SetPipeAssignTo() + If ucrSelectorForScatter.ucrAvailableDataFrames.cboAvailableDataFrames.Text <> "" AndAlso clsPipeOperator.clsParameters.Count > 1 Then + clsPipeOperator.SetAssignTo(ucrSelectorForScatter.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + Else + clsPipeOperator.RemoveAssignTo() + End If + End Sub + + Private Sub ucrSelectorForScatter_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorForScatter.ControlValueChanged + AutoFacetStation() + SetPipeAssignTo() + End Sub + End Class diff --git a/instat/dlgScript.Designer.vb b/instat/dlgScript.Designer.vb index 87f9545cc1c..f210262196f 100644 --- a/instat/dlgScript.Designer.vb +++ b/instat/dlgScript.Designer.vb @@ -24,49 +24,50 @@ Partial Class dlgScript Private Sub InitializeComponent() Me.tbFeatures = New System.Windows.Forms.TabControl() Me.tbPageSaveData = New System.Windows.Forms.TabPage() - Me.ucrChkSaveDataFrameSingle = New instat.ucrCheck() Me.lblSaveDataFrame = New System.Windows.Forms.Label() - 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.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.ucrInputRemoveObjects = New instat.ucrInputTextBox() Me.rdoCommandPackage = New System.Windows.Forms.RadioButton() Me.rdoCommandObject = New System.Windows.Forms.RadioButton() - Me.ucrCboCommandPackage = New instat.ucrInputComboBox() - Me.ucrPnlCommands = New instat.UcrPanel() Me.tbPageExamples = New System.Windows.Forms.TabPage() 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.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.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.ucrInputRemoveObjects = New instat.ucrInputTextBox() + Me.ucrCboCommandPackage = New instat.ucrInputComboBox() + Me.ucrPnlCommands = New instat.UcrPanel() + Me.ucrPnlExample = New instat.UcrPanel() + Me.ucrCboExamplePackages = New instat.ucrInputComboBox() Me.ucrBase = New instat.ucrButtons() Me.tbFeatures.SuspendLayout() Me.tbPageSaveData.SuspendLayout() @@ -89,6 +90,7 @@ Partial Class dlgScript ' 'tbPageSaveData ' + Me.tbPageSaveData.Controls.Add(Me.ucrChkDisplayGraph) Me.tbPageSaveData.Controls.Add(Me.ucrChkSaveDataFrameSingle) Me.tbPageSaveData.Controls.Add(Me.lblSaveDataFrame) Me.tbPageSaveData.Controls.Add(Me.ucrInputSaveDataFrame) @@ -109,15 +111,6 @@ Partial Class dlgScript Me.tbPageSaveData.Text = "Save Data" Me.tbPageSaveData.UseVisualStyleBackColor = True ' - '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 - ' 'lblSaveDataFrame ' Me.lblSaveDataFrame.AutoSize = True @@ -127,18 +120,6 @@ Partial Class dlgScript Me.lblSaveDataFrame.TabIndex = 58 Me.lblSaveDataFrame.Text = "Data Frame:" ' - '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 - ' 'lblSaveObjectFormat ' Me.lblSaveObjectFormat.AutoSize = True @@ -148,18 +129,6 @@ 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 @@ -169,18 +138,6 @@ 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 @@ -232,35 +189,6 @@ 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 - ' 'tbPageGetData ' Me.tbPageGetData.Controls.Add(Me.ucrReceiverGetOutputObject) @@ -283,32 +211,6 @@ Partial Class dlgScript 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 @@ -389,50 +291,6 @@ 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.ucrInputRemoveObjects) @@ -447,18 +305,6 @@ Partial Class dlgScript Me.tbPageCommand.Text = "Commands" Me.tbPageCommand.UseVisualStyleBackColor = True ' - 'ucrInputRemoveObjects - ' - Me.ucrInputRemoveObjects.AddQuotesIfUnrecognised = True - Me.ucrInputRemoveObjects.AutoSize = True - Me.ucrInputRemoveObjects.IsMultiline = False - Me.ucrInputRemoveObjects.IsReadOnly = False - Me.ucrInputRemoveObjects.Location = New System.Drawing.Point(156, 56) - Me.ucrInputRemoveObjects.Margin = New System.Windows.Forms.Padding(9) - Me.ucrInputRemoveObjects.Name = "ucrInputRemoveObjects" - Me.ucrInputRemoveObjects.Size = New System.Drawing.Size(145, 21) - Me.ucrInputRemoveObjects.TabIndex = 2 - ' 'rdoCommandPackage ' Me.rdoCommandPackage.AutoSize = True @@ -483,27 +329,6 @@ Partial Class dlgScript Me.rdoCommandObject.Text = "Remove Object(s):" Me.rdoCommandObject.UseVisualStyleBackColor = True ' - 'ucrCboCommandPackage - ' - Me.ucrCboCommandPackage.AddQuotesIfUnrecognised = True - Me.ucrCboCommandPackage.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrCboCommandPackage.GetSetSelectedIndex = -1 - Me.ucrCboCommandPackage.IsReadOnly = False - Me.ucrCboCommandPackage.Location = New System.Drawing.Point(156, 19) - Me.ucrCboCommandPackage.Margin = New System.Windows.Forms.Padding(9) - Me.ucrCboCommandPackage.Name = "ucrCboCommandPackage" - Me.ucrCboCommandPackage.Size = New System.Drawing.Size(137, 21) - Me.ucrCboCommandPackage.TabIndex = 44 - ' - 'ucrPnlCommands - ' - Me.ucrPnlCommands.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrPnlCommands.Location = New System.Drawing.Point(9, 8) - Me.ucrPnlCommands.Margin = New System.Windows.Forms.Padding(6) - Me.ucrPnlCommands.Name = "ucrPnlCommands" - Me.ucrPnlCommands.Size = New System.Drawing.Size(333, 143) - Me.ucrPnlCommands.TabIndex = 47 - ' 'tbPageExamples ' Me.tbPageExamples.Controls.Add(Me.rdoExampleData) @@ -553,15 +378,6 @@ Partial Class dlgScript Me.rdoExampleFunction.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.rdoExampleFunction.UseVisualStyleBackColor = True ' - 'ucrPnlExample - ' - Me.ucrPnlExample.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrPnlExample.Location = New System.Drawing.Point(7, 51) - Me.ucrPnlExample.Margin = New System.Windows.Forms.Padding(6) - Me.ucrPnlExample.Name = "ucrPnlExample" - 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}) @@ -598,18 +414,6 @@ Partial Class dlgScript Me.Label3.TabIndex = 52 Me.Label3.Text = "Package" ' - 'ucrCboExamplePackages - ' - Me.ucrCboExamplePackages.AddQuotesIfUnrecognised = True - Me.ucrCboExamplePackages.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrCboExamplePackages.GetSetSelectedIndex = -1 - Me.ucrCboExamplePackages.IsReadOnly = False - Me.ucrCboExamplePackages.Location = New System.Drawing.Point(14, 22) - Me.ucrCboExamplePackages.Margin = New System.Windows.Forms.Padding(9) - Me.ucrCboExamplePackages.Name = "ucrCboExamplePackages" - Me.ucrCboExamplePackages.Size = New System.Drawing.Size(137, 21) - Me.ucrCboExamplePackages.TabIndex = 51 - ' 'lblPreview ' Me.lblPreview.AutoSize = True @@ -629,6 +433,213 @@ Partial Class dlgScript Me.txtScript.Size = New System.Drawing.Size(445, 96) Me.txtScript.TabIndex = 32 ' + '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 + ' + 'ucrReceiverGetOutputObject + ' + Me.ucrReceiverGetOutputObject.AutoSize = True + Me.ucrReceiverGetOutputObject.frmParent = Me + 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 = Me + 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 + ' + 'ucrInputRemoveObjects + ' + Me.ucrInputRemoveObjects.AddQuotesIfUnrecognised = True + Me.ucrInputRemoveObjects.AutoSize = True + Me.ucrInputRemoveObjects.IsMultiline = False + Me.ucrInputRemoveObjects.IsReadOnly = False + Me.ucrInputRemoveObjects.Location = New System.Drawing.Point(156, 56) + Me.ucrInputRemoveObjects.Margin = New System.Windows.Forms.Padding(9) + Me.ucrInputRemoveObjects.Name = "ucrInputRemoveObjects" + Me.ucrInputRemoveObjects.Size = New System.Drawing.Size(145, 21) + Me.ucrInputRemoveObjects.TabIndex = 2 + ' + 'ucrCboCommandPackage + ' + Me.ucrCboCommandPackage.AddQuotesIfUnrecognised = True + Me.ucrCboCommandPackage.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrCboCommandPackage.GetSetSelectedIndex = -1 + Me.ucrCboCommandPackage.IsReadOnly = False + Me.ucrCboCommandPackage.Location = New System.Drawing.Point(156, 19) + Me.ucrCboCommandPackage.Margin = New System.Windows.Forms.Padding(9) + Me.ucrCboCommandPackage.Name = "ucrCboCommandPackage" + Me.ucrCboCommandPackage.Size = New System.Drawing.Size(137, 21) + Me.ucrCboCommandPackage.TabIndex = 44 + ' + 'ucrPnlCommands + ' + Me.ucrPnlCommands.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrPnlCommands.Location = New System.Drawing.Point(9, 8) + Me.ucrPnlCommands.Margin = New System.Windows.Forms.Padding(6) + Me.ucrPnlCommands.Name = "ucrPnlCommands" + Me.ucrPnlCommands.Size = New System.Drawing.Size(333, 143) + Me.ucrPnlCommands.TabIndex = 47 + ' + 'ucrPnlExample + ' + Me.ucrPnlExample.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrPnlExample.Location = New System.Drawing.Point(7, 51) + Me.ucrPnlExample.Margin = New System.Windows.Forms.Padding(6) + Me.ucrPnlExample.Name = "ucrPnlExample" + Me.ucrPnlExample.Size = New System.Drawing.Size(402, 34) + Me.ucrPnlExample.TabIndex = 56 + ' + 'ucrCboExamplePackages + ' + Me.ucrCboExamplePackages.AddQuotesIfUnrecognised = True + Me.ucrCboExamplePackages.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrCboExamplePackages.GetSetSelectedIndex = -1 + Me.ucrCboExamplePackages.IsReadOnly = False + Me.ucrCboExamplePackages.Location = New System.Drawing.Point(14, 22) + Me.ucrCboExamplePackages.Margin = New System.Windows.Forms.Padding(9) + Me.ucrCboExamplePackages.Name = "ucrCboExamplePackages" + Me.ucrCboExamplePackages.Size = New System.Drawing.Size(137, 21) + Me.ucrCboExamplePackages.TabIndex = 51 + ' 'ucrBase ' Me.ucrBase.AutoSize = True @@ -715,4 +726,5 @@ Partial Class dlgScript Friend WithEvents lblSaveDataFrame As Label Friend WithEvents ucrInputSaveDataFrame As ucrInputTextBox Friend WithEvents ucrChkSaveDataFrameSingle As ucrCheck + Friend WithEvents ucrChkDisplayGraph As ucrCheck End Class diff --git a/instat/dlgScript.vb b/instat/dlgScript.vb index 17b3d481199..84c0f6491dc 100644 --- a/instat/dlgScript.vb +++ b/instat/dlgScript.vb @@ -20,6 +20,7 @@ Public Class dlgScript Private strComment As String = "Code generated by the dialog, Script" Private bFirstload As Boolean = True Private clsSaveDataFunction As New RFunction + Private clsGetRObjectFunction As New RFunction Private dctOutputObjectTypes As New Dictionary(Of String, String) Private dctOutputObjectFormats As New Dictionary(Of String, String) @@ -68,6 +69,8 @@ Public Class dlgScript ucrInputSaveDataFrame.SetLinkedDisplayControl(lblSaveDataFrame) ucrChkSaveDataFrameSingle.SetText("Single") + ucrChkDisplayGraph.SetText("Display Output") + '-------------------------------- 'Get data controls @@ -136,7 +139,7 @@ Public Class dlgScript End Function Private Sub SetDefaults() - + clsGetRObjectFunction = New RFunction ' Examples controls rdoExampleData.Checked = True @@ -150,6 +153,7 @@ Public Class dlgScript ucrSaveObject.Reset() rdoSaveDataFrame.Checked = True ucrChkSaveDataFrameSingle.Checked = True + ucrChkDisplayGraph.Checked = True ucrDataFrameSaveOutputSelect.Reset() ' Get controls reset @@ -171,20 +175,24 @@ Public Class dlgScript ucrCboSaveOutputObjectFormat.SetVisible(False) ucrSaveObject.SetVisible(False) ucrInputSaveDataFrame.SetVisible(False) + ucrChkDisplayGraph.Visible = False ucrChkSaveDataFrameSingle.SetVisible(False) If rdoSaveDataFrame.Checked Then ucrInputSaveDataFrame.SetVisible(True) ucrChkSaveDataFrameSingle.SetVisible(True) + ucrChkDisplayGraph.Visible = False ucrInputSaveDataFrame.SetName("") ElseIf rdoSaveColumn.Checked Then ucrSaveObject.Location = New Point(ucrSaveObject.Location.X, ucrCboSaveOutputObjectType.Location.Y) ucrSaveObject.SetVisible(True) ucrDataFrameSaveOutputSelect.SetVisible(True) + ucrChkDisplayGraph.Visible = False SetupSaveDataControl("Column", RObjectTypeLabel.Column, "") ElseIf rdoSaveOutputObject.Checked Then ucrSaveObject.Location = New Point(ucrSaveObject.Location.X, ucrCboSaveOutputObjectFormat.Location.Y + 33) ucrSaveObject.SetVisible(True) ucrDataFrameSaveOutputSelect.SetVisible(True) + ucrChkDisplayGraph.Visible = True ucrCboSaveOutputObjectType.SetVisible(True) ucrCboSaveOutputObjectFormat.SetVisible(True) SetupSaveDataControl(ucrCboSaveOutputObjectType.GetText(), dctOutputObjectTypes.Item(ucrCboSaveOutputObjectType.GetText()), dctOutputObjectFormats.Item(ucrCboSaveOutputObjectFormat.GetText())) @@ -229,8 +237,9 @@ Public Class dlgScript PreviewScript(strScript) End Sub - Private Sub ucrSaveData_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrSaveObject.ControlContentsChanged + Private Sub ucrSaveData_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrSaveObject.ControlContentsChanged, ucrChkDisplayGraph.ControlValueChanged Dim strScript As String = "" + Dim strGetScript As String = "" If ucrSaveObject.IsComplete Then ' R code is not automatiucally updated by save control when control contents changed event is raised by the control @@ -250,9 +259,18 @@ Public Class dlgScript strTemp = arrtemp(1) strScript = "# Save " & strDataType & " """ & ucrSaveObject.GetText() & """" & Environment.NewLine & strTemp End If - End If - PreviewScript(strScript) + If ucrChkDisplayGraph.Checked Then + ucrChkDisplayGraph.UpdateRCode() + clsGetRObjectFunction.SetRCommand(frmMain.clsRLink.strInstatDataObject & "$get_object_data") + clsGetRObjectFunction.AddParameter("data_name", Chr(34) & ucrDataFrameSaveOutputSelect.strCurrDataFrame & Chr(34), iPosition:=0) + clsGetRObjectFunction.AddParameter("as_file", "TRUE", iPosition:=2) + clsGetRObjectFunction.AddParameter("object_name", Chr(34) & ucrSaveObject.GetText & Chr(34), iPosition:=1) + strGetScript = "" & Environment.NewLine & clsGetRObjectFunction.ToScript() + End If + End If + Dim combinedScript As String = strScript & Environment.NewLine & strGetScript + PreviewScript(combinedScript) End Sub Private Sub ucrPnlGetData_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrPnlGetData.ControlValueChanged @@ -497,6 +515,4 @@ Public Class dlgScript txtScript.ScrollToCaret() txtScript.Refresh() End Sub - - End Class \ No newline at end of file diff --git a/instat/dlgStartofRains.Designer.vb b/instat/dlgStartofRains.Designer.vb index ea3a0db2d9d..e5f35fb174b 100644 --- a/instat/dlgStartofRains.Designer.vb +++ b/instat/dlgStartofRains.Designer.vb @@ -66,9 +66,9 @@ Partial Class dlgStartofRains Me.rdoTRPercentile = New System.Windows.Forms.RadioButton() Me.ucrPnlTRCalculateBy = New instat.UcrPanel() Me.grpRainParameters = New System.Windows.Forms.GroupBox() + Me.ucrInputThreshold = New instat.ucrInputComboBox() Me.ucrInputFilterPreview = New instat.ucrInputTextBox() Me.cmdDoyRange = New System.Windows.Forms.Button() - Me.ucrNudThreshold = New instat.ucrNud() Me.lblThreshold = New System.Windows.Forms.Label() Me.lblDOY = New System.Windows.Forms.Label() Me.lblDate = New System.Windows.Forms.Label() @@ -409,9 +409,9 @@ Partial Class dlgStartofRains ' 'grpRainParameters ' + Me.grpRainParameters.Controls.Add(Me.ucrInputThreshold) Me.grpRainParameters.Controls.Add(Me.ucrInputFilterPreview) Me.grpRainParameters.Controls.Add(Me.cmdDoyRange) - Me.grpRainParameters.Controls.Add(Me.ucrNudThreshold) Me.grpRainParameters.Controls.Add(Me.lblThreshold) Me.grpRainParameters.Location = New System.Drawing.Point(4, 238) Me.grpRainParameters.Name = "grpRainParameters" @@ -419,6 +419,17 @@ Partial Class dlgStartofRains Me.grpRainParameters.TabIndex = 11 Me.grpRainParameters.TabStop = False ' + 'ucrInputThreshold + ' + Me.ucrInputThreshold.AddQuotesIfUnrecognised = True + Me.ucrInputThreshold.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrInputThreshold.GetSetSelectedIndex = -1 + Me.ucrInputThreshold.IsReadOnly = False + Me.ucrInputThreshold.Location = New System.Drawing.Point(70, 11) + Me.ucrInputThreshold.Name = "ucrInputThreshold" + Me.ucrInputThreshold.Size = New System.Drawing.Size(62, 21) + Me.ucrInputThreshold.TabIndex = 21 + ' 'ucrInputFilterPreview ' Me.ucrInputFilterPreview.AddQuotesIfUnrecognised = True @@ -441,19 +452,6 @@ Partial Class dlgStartofRains Me.cmdDoyRange.Text = "Day Range" Me.cmdDoyRange.UseVisualStyleBackColor = True ' - 'ucrNudThreshold - ' - Me.ucrNudThreshold.AutoSize = True - Me.ucrNudThreshold.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudThreshold.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudThreshold.Location = New System.Drawing.Point(69, 11) - Me.ucrNudThreshold.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudThreshold.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudThreshold.Name = "ucrNudThreshold" - Me.ucrNudThreshold.Size = New System.Drawing.Size(42, 20) - Me.ucrNudThreshold.TabIndex = 1 - Me.ucrNudThreshold.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' 'lblThreshold ' Me.lblThreshold.AutoSize = True @@ -665,7 +663,7 @@ Partial Class dlgStartofRains Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.ucrBase.Location = New System.Drawing.Point(5, 514) Me.ucrBase.Name = "ucrBase" - Me.ucrBase.Size = New System.Drawing.Size(405, 52) + Me.ucrBase.Size = New System.Drawing.Size(408, 52) Me.ucrBase.TabIndex = 20 ' 'dlgStartofRains @@ -741,7 +739,6 @@ Partial Class dlgStartofRains Friend WithEvents ucrPnlTRCalculateBy As UcrPanel Friend WithEvents ucrNudRDMinimumDays As ucrNud Friend WithEvents ucrNudRDOutOfDays As ucrNud - Friend WithEvents ucrNudThreshold As ucrNud Friend WithEvents ucrChkNumberOfRainyDays As ucrCheck Friend WithEvents ucrNudDSLengthOfTime As ucrNud Friend WithEvents ucrNudDSMaximumDays As ucrNud @@ -760,4 +757,5 @@ Partial Class dlgStartofRains Friend WithEvents ucrChkStatus As ucrCheck Friend WithEvents ucrInputNewStatusColumnName As ucrInputTextBox Friend WithEvents grpDisplay As GroupBox + Friend WithEvents ucrInputThreshold As ucrInputComboBox End Class \ No newline at end of file diff --git a/instat/dlgStartofRains.vb b/instat/dlgStartofRains.vb index 45a55caf552..8717e3e6506 100644 --- a/instat/dlgStartofRains.vb +++ b/instat/dlgStartofRains.vb @@ -87,6 +87,7 @@ Public Class dlgStartofRains Private Sub InitialiseDialog() ucrBase.iHelpTopicID = 199 + Dim dctInputThreshold As New Dictionary(Of String, String) ' setting the selector ucrSelectorForStartofRains.SetParameter(New RParameter("data_name", 0)) @@ -129,8 +130,17 @@ Public Class dlgStartofRains ucrReceiverRainfall.SetClimaticType("rain") ucrReceiverRainfall.bAutoFill = True - ucrNudThreshold.SetParameter(New RParameter("threshold", 1)) - ucrNudThreshold.DecimalPlaces = 2 + ucrInputThreshold.SetParameter(New RParameter("threshold", 1)) + dctInputThreshold.Add("0.85", "0.85") + dctInputThreshold.Add("0.5", "0.5") + dctInputThreshold.Add("0.05", "0.05") + dctInputThreshold.Add("0.99", "0.99") + ucrInputThreshold.SetItems(dctInputThreshold) + ucrInputThreshold.AddQuotesIfUnrecognised = False + ucrInputThreshold.SetLinkedDisplayControl(lblThreshold) + ucrInputThreshold.SetRDefault(0.85) + + 'Total Rainfall ucrPnlTRCalculateBy.AddRadioButton(rdoTRAmount) @@ -715,7 +725,7 @@ Public Class dlgStartofRains ucrReceiverRainfall.AddAdditionalCodeParameterPair(clsRainDayConditionOperator, New RParameter("rain", 0, bNewIncludeArgumentName:=False), iAdditionalPairNo:=3) ucrReceiverRainfall.AddAdditionalCodeParameterPair(clsFirstRain, New RParameter("x", 0), iAdditionalPairNo:=4) ucrReceiverRainfall.AddAdditionalCodeParameterPair(clsIsNaRain, New RParameter("x", 0), iAdditionalPairNo:=5) - ucrNudThreshold.AddAdditionalCodeParameterPair(clsRainDayConditionOperator, New RParameter("threshold", 1), iAdditionalPairNo:=1) + ucrInputThreshold.AddAdditionalCodeParameterPair(clsRainDayConditionOperator, New RParameter("threshold", 1), iAdditionalPairNo:=1) 'clsSORStartSummary.SetControlParameters(ucrReceiverRainfall, iAdditionalPairNo:=4) 'clsSORStatusSummary.SetControlParameters(ucrReceiverRainfall, iAdditionalPairNo:=5) @@ -727,7 +737,7 @@ Public Class dlgStartofRains ucrChkAsDoy.SetRCode(clsCombinationSubCalcList, bReset) ucrChkStatus.SetRCode(clsCombinationSubCalcList, bReset) ucrChkAsDate.SetRCode(clsCombinationSubCalcList, bReset) - ucrNudThreshold.SetRCode(clsRainDayOperator, bReset) + ucrInputThreshold.SetRCode(clsRainDayOperator, bReset) ucrReceiverDate.SetRCode(clsFirstDate, bReset) ucrInputNewDoyColumnName.SetRCode(clsCalcStartDOY, bReset) @@ -766,7 +776,7 @@ Public Class dlgStartofRains Not ucrReceiverDate.IsEmpty AndAlso Not ucrReceiverDOY.IsEmpty AndAlso Not ucrReceiverYear.IsEmpty AndAlso - ucrNudThreshold.GetText <> "" AndAlso + ucrInputThreshold.GetText <> "" AndAlso ( (ucrChkNumberOfRainyDays.Checked AndAlso ucrNudRDMinimumDays.GetText <> "" AndAlso ucrNudRDOutOfDays.GetText <> "") OrElse Not ucrChkNumberOfRainyDays.Checked) AndAlso @@ -970,7 +980,7 @@ Public Class dlgStartofRains End If End Sub - Private Sub CoreControls_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrReceiverRainfall.ControlContentsChanged, ucrInputNewDoyColumnName.ControlContentsChanged, ucrReceiverDate.ControlContentsChanged, ucrReceiverDOY.ControlContentsChanged, ucrReceiverYear.ControlContentsChanged, ucrNudThreshold.ControlContentsChanged, ucrChkNumberOfRainyDays.ControlContentsChanged, ucrNudRDMinimumDays.ControlContentsChanged, ucrNudRDOutOfDays.ControlContentsChanged, ucrChkTotalRainfall.ControlContentsChanged, ucrNudTROverDays.ControlContentsChanged, ucrPnlTRCalculateBy.ControlContentsChanged, ucrNudTRAmount.ControlContentsChanged, ucrNudTRPercentile.ControlContentsChanged, ucrChkDrySpell.ControlContentsChanged, ucrNudDSMaximumDays.ControlContentsChanged, ucrNudDSLengthOfTime.ControlContentsChanged, ucrNudDPMaxRain.ControlContentsChanged, ucrChkAsDoy.ControlContentsChanged, ucrChkAsDate.ControlContentsChanged, ucrInputNewDateColumnName.ControlContentsChanged, ucrChkStatus.ControlContentsChanged, ucrInputNewStatusColumnName.ControlContentsChanged + Private Sub CoreControls_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrReceiverRainfall.ControlContentsChanged, ucrInputNewDoyColumnName.ControlContentsChanged, ucrReceiverDate.ControlContentsChanged, ucrReceiverDOY.ControlContentsChanged, ucrReceiverYear.ControlContentsChanged, ucrInputThreshold.ControlContentsChanged, ucrChkNumberOfRainyDays.ControlContentsChanged, ucrNudRDMinimumDays.ControlContentsChanged, ucrNudRDOutOfDays.ControlContentsChanged, ucrChkTotalRainfall.ControlContentsChanged, ucrNudTROverDays.ControlContentsChanged, ucrPnlTRCalculateBy.ControlContentsChanged, ucrNudTRAmount.ControlContentsChanged, ucrNudTRPercentile.ControlContentsChanged, ucrChkDrySpell.ControlContentsChanged, ucrNudDSMaximumDays.ControlContentsChanged, ucrNudDSLengthOfTime.ControlContentsChanged, ucrNudDPMaxRain.ControlContentsChanged, ucrChkAsDoy.ControlContentsChanged, ucrChkAsDate.ControlContentsChanged, ucrInputNewDateColumnName.ControlContentsChanged, ucrChkStatus.ControlContentsChanged, ucrInputNewStatusColumnName.ControlContentsChanged TestOKEnabled() End Sub diff --git a/instat/dlgTransformClimatic.Designer.vb b/instat/dlgTransformClimatic.Designer.vb index 90233cefd17..6878c7a9c9e 100644 --- a/instat/dlgTransformClimatic.Designer.vb +++ b/instat/dlgTransformClimatic.Designer.vb @@ -40,18 +40,26 @@ Partial Class dlgTransformClimatic Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgTransformClimatic)) - Me.lblYear = New System.Windows.Forms.Label() - Me.lblDate = New System.Windows.Forms.Label() - Me.lblStation = New System.Windows.Forms.Label() - Me.lblData = New System.Windows.Forms.Label() + Me.rdoWaterBalance = New System.Windows.Forms.RadioButton() + Me.ucrNudLimit = New instat.ucrNud() + Me.ucrNudMgdd = New instat.ucrNud() + Me.lblBaselineMgdd = New System.Windows.Forms.Label() + Me.lblLimit = New System.Windows.Forms.Label() + Me.ucrInputPosition = New instat.ucrInputComboBox() + Me.ucrChkCircular = New instat.ucrCheck() Me.rdoSpell = New System.Windows.Forms.RadioButton() + Me.lblRowsMultSpells = New System.Windows.Forms.Label() + Me.lblDate = New System.Windows.Forms.Label() + Me.ucrInputSpellUpper = New instat.ucrInputTextBox() Me.rdoMoving = New System.Windows.Forms.RadioButton() Me.rdoCount = New System.Windows.Forms.RadioButton() - Me.rdoWaterBalance = New System.Windows.Forms.RadioButton() - Me.lblSumRows = New System.Windows.Forms.Label() - Me.lblSumOver = New System.Windows.Forms.Label() - Me.lblCountOver = New System.Windows.Forms.Label() + Me.lblStation = New System.Windows.Forms.Label() + Me.lblYear = New System.Windows.Forms.Label() + Me.ucrChkUseMaxMin = New instat.ucrCheck() + Me.lblData = New System.Windows.Forms.Label() Me.grpTransform = New System.Windows.Forms.GroupBox() + Me.ucrNudWB = New instat.ucrNud() + Me.ucrChkWB = New instat.ucrCheck() Me.ucrInputSpellLower = New instat.ucrInputComboBox() Me.ucrChkOptions = New instat.ucrCheck() Me.ucrReceiverEvap = New instat.ucrReceiverSingle() @@ -62,26 +70,20 @@ Partial Class dlgTransformClimatic Me.ucrPnlEvap = New instat.UcrPanel() Me.ucrInputCircularPosition = New instat.ucrInputComboBox() Me.lblPosition = New System.Windows.Forms.Label() - Me.ucrInputPosition = New instat.ucrInputComboBox() - Me.ucrChkCircular = New instat.ucrCheck() Me.ucrNudMultSpells = New instat.ucrNud() - Me.lblRowsMultSpells = New System.Windows.Forms.Label() - Me.ucrInputSpellUpper = New instat.ucrInputTextBox() + Me.lblSumRows = New System.Windows.Forms.Label() Me.ucrInputCondition = New instat.ucrInputComboBox() Me.lblCondition = New System.Windows.Forms.Label() Me.lblWBEvaporation = New System.Windows.Forms.Label() + Me.lblCountOver = New System.Windows.Forms.Label() Me.ucrNudSumOver = New instat.ucrNud() Me.lblWBCapacity = New System.Windows.Forms.Label() Me.ucrNudWBCapacity = New instat.ucrNud() Me.ucrInputSum = New instat.ucrInputComboBox() + Me.lblSumOver = New System.Windows.Forms.Label() Me.ucrNudCountOver = New instat.ucrNud() Me.ucrInputCumulative = New instat.ucrInputComboBox() - Me.lblTMin = New System.Windows.Forms.Label() Me.grpDegree = New System.Windows.Forms.GroupBox() - Me.ucrNudLimit = New instat.ucrNud() - Me.ucrNudMgdd = New instat.ucrNud() - Me.lblBaselineMgdd = New System.Windows.Forms.Label() - Me.lblLimit = New System.Windows.Forms.Label() Me.rdoModifiedGDD = New System.Windows.Forms.RadioButton() Me.lblBaselineGDD = New System.Windows.Forms.Label() Me.rdoGrowingDegreeDays = New System.Windows.Forms.RadioButton() @@ -92,53 +94,87 @@ Partial Class dlgTransformClimatic Me.ucrNudHDD = New instat.ucrNud() Me.rdoDiurnalRange = New System.Windows.Forms.RadioButton() Me.ucrPnlDegree = New instat.UcrPanel() + Me.ucrReceiverData = New instat.ucrReceiverSingle() + Me.ttRdoGdd = New System.Windows.Forms.ToolTip(Me.components) + Me.lblTMin = New System.Windows.Forms.Label() + Me.ucrReceiverStation = New instat.ucrReceiverSingle() Me.rdoMultSpells = New System.Windows.Forms.RadioButton() - Me.rdoCumulative = New System.Windows.Forms.RadioButton() - Me.rdoDegree = New System.Windows.Forms.RadioButton() Me.lblTMax = New System.Windows.Forms.Label() Me.lblTMean = New System.Windows.Forms.Label() - Me.ucrSaveColumn = New instat.ucrSave() Me.ucrPnlTransform = New instat.UcrPanel() + Me.rdoDegree = New System.Windows.Forms.RadioButton() + Me.rdoCumulative = New System.Windows.Forms.RadioButton() Me.ucrReceiverDate = New instat.ucrReceiverSingle() - Me.ucrReceiverStation = New instat.ucrReceiverSingle() - Me.ucrSelectorTransform = New instat.ucrSelectorByDataFrameAddRemove() Me.ucrBase = New instat.ucrButtons() Me.ucrReceiverTMin = New instat.ucrReceiverSingle() + Me.ucrReceiverYear = New instat.ucrReceiverSingle() Me.ucrReceiverTMean = New instat.ucrReceiverSingle() Me.ucrReceiverTMax = New instat.ucrReceiverSingle() - Me.ucrReceiverData = New instat.ucrReceiverSingle() - Me.ucrReceiverYear = New instat.ucrReceiverSingle() - Me.ucrChkUseMaxMin = New instat.ucrCheck() - Me.ttRdoRange = New System.Windows.Forms.ToolTip(Me.components) + Me.ucrSaveColumn = New instat.ucrSave() + Me.ucrSelectorTransform = New instat.ucrSelectorByDataFrameAddRemove() Me.ttRdoTMean = New System.Windows.Forms.ToolTip(Me.components) Me.ttRdoHdd = New System.Windows.Forms.ToolTip(Me.components) - Me.ttRdoGdd = New System.Windows.Forms.ToolTip(Me.components) Me.ttRdoMgdd = New System.Windows.Forms.ToolTip(Me.components) - Me.ucrChkWB = New instat.ucrCheck() - Me.ucrNudWB = New instat.ucrNud() + Me.ttRdoRange = New System.Windows.Forms.ToolTip(Me.components) Me.grpTransform.SuspendLayout() Me.grpDegree.SuspendLayout() Me.SuspendLayout() ' - 'lblYear + 'rdoWaterBalance ' - resources.ApplyResources(Me.lblYear, "lblYear") - Me.lblYear.Name = "lblYear" + resources.ApplyResources(Me.rdoWaterBalance, "rdoWaterBalance") + Me.rdoWaterBalance.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoWaterBalance.FlatAppearance.BorderSize = 2 + Me.rdoWaterBalance.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoWaterBalance.ForeColor = System.Drawing.SystemColors.ActiveCaptionText + Me.rdoWaterBalance.Name = "rdoWaterBalance" + Me.rdoWaterBalance.UseVisualStyleBackColor = True ' - 'lblDate + 'ucrNudLimit ' - resources.ApplyResources(Me.lblDate, "lblDate") - Me.lblDate.Name = "lblDate" + resources.ApplyResources(Me.ucrNudLimit, "ucrNudLimit") + Me.ucrNudLimit.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudLimit.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + Me.ucrNudLimit.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.ucrNudLimit.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudLimit.Name = "ucrNudLimit" + Me.ucrNudLimit.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' - 'lblStation + 'ucrNudMgdd ' - resources.ApplyResources(Me.lblStation, "lblStation") - Me.lblStation.Name = "lblStation" + resources.ApplyResources(Me.ucrNudMgdd, "ucrNudMgdd") + Me.ucrNudMgdd.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudMgdd.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + Me.ucrNudMgdd.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.ucrNudMgdd.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudMgdd.Name = "ucrNudMgdd" + Me.ucrNudMgdd.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' - 'lblData + 'lblBaselineMgdd ' - resources.ApplyResources(Me.lblData, "lblData") - Me.lblData.Name = "lblData" + resources.ApplyResources(Me.lblBaselineMgdd, "lblBaselineMgdd") + Me.lblBaselineMgdd.Name = "lblBaselineMgdd" + Me.lblBaselineMgdd.Tag = "Over" + ' + 'lblLimit + ' + resources.ApplyResources(Me.lblLimit, "lblLimit") + Me.lblLimit.Name = "lblLimit" + Me.lblLimit.Tag = "Over" + ' + 'ucrInputPosition + ' + Me.ucrInputPosition.AddQuotesIfUnrecognised = True + resources.ApplyResources(Me.ucrInputPosition, "ucrInputPosition") + Me.ucrInputPosition.GetSetSelectedIndex = -1 + Me.ucrInputPosition.IsReadOnly = False + Me.ucrInputPosition.Name = "ucrInputPosition" + ' + 'ucrChkCircular + ' + resources.ApplyResources(Me.ucrChkCircular, "ucrChkCircular") + Me.ucrChkCircular.Checked = False + Me.ucrChkCircular.Name = "ucrChkCircular" ' 'rdoSpell ' @@ -150,6 +186,25 @@ Partial Class dlgTransformClimatic Me.rdoSpell.Name = "rdoSpell" Me.rdoSpell.UseVisualStyleBackColor = True ' + 'lblRowsMultSpells + ' + resources.ApplyResources(Me.lblRowsMultSpells, "lblRowsMultSpells") + Me.lblRowsMultSpells.Name = "lblRowsMultSpells" + Me.lblRowsMultSpells.Tag = "Rows_to_Take_Over:" + ' + 'lblDate + ' + resources.ApplyResources(Me.lblDate, "lblDate") + Me.lblDate.Name = "lblDate" + ' + 'ucrInputSpellUpper + ' + Me.ucrInputSpellUpper.AddQuotesIfUnrecognised = True + resources.ApplyResources(Me.ucrInputSpellUpper, "ucrInputSpellUpper") + Me.ucrInputSpellUpper.IsMultiline = False + Me.ucrInputSpellUpper.IsReadOnly = False + Me.ucrInputSpellUpper.Name = "ucrInputSpellUpper" + ' 'rdoMoving ' resources.ApplyResources(Me.rdoMoving, "rdoMoving") @@ -171,33 +226,26 @@ Partial Class dlgTransformClimatic Me.rdoCount.Name = "rdoCount" Me.rdoCount.UseVisualStyleBackColor = True ' - 'rdoWaterBalance + 'lblStation ' - resources.ApplyResources(Me.rdoWaterBalance, "rdoWaterBalance") - Me.rdoWaterBalance.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoWaterBalance.FlatAppearance.BorderSize = 2 - Me.rdoWaterBalance.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoWaterBalance.ForeColor = System.Drawing.SystemColors.ActiveCaptionText - Me.rdoWaterBalance.Name = "rdoWaterBalance" - Me.rdoWaterBalance.UseVisualStyleBackColor = True + resources.ApplyResources(Me.lblStation, "lblStation") + Me.lblStation.Name = "lblStation" ' - 'lblSumRows + 'lblYear ' - resources.ApplyResources(Me.lblSumRows, "lblSumRows") - Me.lblSumRows.Name = "lblSumRows" - Me.lblSumRows.Tag = "Rows" + resources.ApplyResources(Me.lblYear, "lblYear") + Me.lblYear.Name = "lblYear" ' - 'lblSumOver + 'ucrChkUseMaxMin ' - resources.ApplyResources(Me.lblSumOver, "lblSumOver") - Me.lblSumOver.Name = "lblSumOver" - Me.lblSumOver.Tag = "Over" + resources.ApplyResources(Me.ucrChkUseMaxMin, "ucrChkUseMaxMin") + Me.ucrChkUseMaxMin.Checked = True + Me.ucrChkUseMaxMin.Name = "ucrChkUseMaxMin" ' - 'lblCountOver + 'lblData ' - resources.ApplyResources(Me.lblCountOver, "lblCountOver") - Me.lblCountOver.Name = "lblCountOver" - Me.lblCountOver.Tag = "Rows_to_Count_Over:" + resources.ApplyResources(Me.lblData, "lblData") + Me.lblData.Name = "lblData" ' 'grpTransform ' @@ -234,6 +282,22 @@ Partial Class dlgTransformClimatic Me.grpTransform.Name = "grpTransform" Me.grpTransform.TabStop = False ' + 'ucrNudWB + ' + resources.ApplyResources(Me.ucrNudWB, "ucrNudWB") + Me.ucrNudWB.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudWB.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + Me.ucrNudWB.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.ucrNudWB.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudWB.Name = "ucrNudWB" + Me.ucrNudWB.Value = New Decimal(New Integer() {0, 0, 0, 0}) + ' + 'ucrChkWB + ' + resources.ApplyResources(Me.ucrChkWB, "ucrChkWB") + Me.ucrChkWB.Checked = False + Me.ucrChkWB.Name = "ucrChkWB" + ' 'ucrInputSpellLower ' Me.ucrInputSpellLower.AddQuotesIfUnrecognised = True @@ -303,20 +367,6 @@ Partial Class dlgTransformClimatic resources.ApplyResources(Me.lblPosition, "lblPosition") Me.lblPosition.Name = "lblPosition" ' - 'ucrInputPosition - ' - Me.ucrInputPosition.AddQuotesIfUnrecognised = True - resources.ApplyResources(Me.ucrInputPosition, "ucrInputPosition") - Me.ucrInputPosition.GetSetSelectedIndex = -1 - Me.ucrInputPosition.IsReadOnly = False - Me.ucrInputPosition.Name = "ucrInputPosition" - ' - 'ucrChkCircular - ' - resources.ApplyResources(Me.ucrChkCircular, "ucrChkCircular") - Me.ucrChkCircular.Checked = False - Me.ucrChkCircular.Name = "ucrChkCircular" - ' 'ucrNudMultSpells ' resources.ApplyResources(Me.ucrNudMultSpells, "ucrNudMultSpells") @@ -327,19 +377,11 @@ Partial Class dlgTransformClimatic Me.ucrNudMultSpells.Name = "ucrNudMultSpells" Me.ucrNudMultSpells.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' - 'lblRowsMultSpells - ' - resources.ApplyResources(Me.lblRowsMultSpells, "lblRowsMultSpells") - Me.lblRowsMultSpells.Name = "lblRowsMultSpells" - Me.lblRowsMultSpells.Tag = "Rows_to_Take_Over:" - ' - 'ucrInputSpellUpper + 'lblSumRows ' - Me.ucrInputSpellUpper.AddQuotesIfUnrecognised = True - resources.ApplyResources(Me.ucrInputSpellUpper, "ucrInputSpellUpper") - Me.ucrInputSpellUpper.IsMultiline = False - Me.ucrInputSpellUpper.IsReadOnly = False - Me.ucrInputSpellUpper.Name = "ucrInputSpellUpper" + resources.ApplyResources(Me.lblSumRows, "lblSumRows") + Me.lblSumRows.Name = "lblSumRows" + Me.lblSumRows.Tag = "Rows" ' 'ucrInputCondition ' @@ -361,6 +403,12 @@ Partial Class dlgTransformClimatic Me.lblWBEvaporation.Name = "lblWBEvaporation" Me.lblWBEvaporation.Tag = "Evaporation" ' + 'lblCountOver + ' + resources.ApplyResources(Me.lblCountOver, "lblCountOver") + Me.lblCountOver.Name = "lblCountOver" + Me.lblCountOver.Tag = "Rows_to_Count_Over:" + ' 'ucrNudSumOver ' resources.ApplyResources(Me.ucrNudSumOver, "ucrNudSumOver") @@ -395,6 +443,12 @@ Partial Class dlgTransformClimatic Me.ucrInputSum.IsReadOnly = False Me.ucrInputSum.Name = "ucrInputSum" ' + 'lblSumOver + ' + resources.ApplyResources(Me.lblSumOver, "lblSumOver") + Me.lblSumOver.Name = "lblSumOver" + Me.lblSumOver.Tag = "Over" + ' 'ucrNudCountOver ' resources.ApplyResources(Me.ucrNudCountOver, "ucrNudCountOver") @@ -413,11 +467,6 @@ Partial Class dlgTransformClimatic Me.ucrInputCumulative.IsReadOnly = False Me.ucrInputCumulative.Name = "ucrInputCumulative" ' - 'lblTMin - ' - resources.ApplyResources(Me.lblTMin, "lblTMin") - Me.lblTMin.Name = "lblTMin" - ' 'grpDegree ' Me.grpDegree.Controls.Add(Me.ucrNudLimit) @@ -438,46 +487,14 @@ Partial Class dlgTransformClimatic Me.grpDegree.Name = "grpDegree" Me.grpDegree.TabStop = False ' - 'ucrNudLimit - ' - resources.ApplyResources(Me.ucrNudLimit, "ucrNudLimit") - Me.ucrNudLimit.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudLimit.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudLimit.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudLimit.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudLimit.Name = "ucrNudLimit" - Me.ucrNudLimit.Value = New Decimal(New Integer() {0, 0, 0, 0}) + 'rdoModifiedGDD ' - 'ucrNudMgdd + resources.ApplyResources(Me.rdoModifiedGDD, "rdoModifiedGDD") + Me.rdoModifiedGDD.Name = "rdoModifiedGDD" + Me.rdoModifiedGDD.TabStop = True + Me.rdoModifiedGDD.UseVisualStyleBackColor = True ' - resources.ApplyResources(Me.ucrNudMgdd, "ucrNudMgdd") - Me.ucrNudMgdd.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudMgdd.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudMgdd.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudMgdd.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudMgdd.Name = "ucrNudMgdd" - Me.ucrNudMgdd.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' - 'lblBaselineMgdd - ' - resources.ApplyResources(Me.lblBaselineMgdd, "lblBaselineMgdd") - Me.lblBaselineMgdd.Name = "lblBaselineMgdd" - Me.lblBaselineMgdd.Tag = "Over" - ' - 'lblLimit - ' - resources.ApplyResources(Me.lblLimit, "lblLimit") - Me.lblLimit.Name = "lblLimit" - Me.lblLimit.Tag = "Over" - ' - 'rdoModifiedGDD - ' - resources.ApplyResources(Me.rdoModifiedGDD, "rdoModifiedGDD") - Me.rdoModifiedGDD.Name = "rdoModifiedGDD" - Me.rdoModifiedGDD.TabStop = True - Me.rdoModifiedGDD.UseVisualStyleBackColor = True - ' - 'lblBaselineGDD + 'lblBaselineGDD ' resources.ApplyResources(Me.lblBaselineGDD, "lblBaselineGDD") Me.lblBaselineGDD.Name = "lblBaselineGDD" @@ -542,6 +559,29 @@ Partial Class dlgTransformClimatic resources.ApplyResources(Me.ucrPnlDegree, "ucrPnlDegree") Me.ucrPnlDegree.Name = "ucrPnlDegree" ' + 'ucrReceiverData + ' + resources.ApplyResources(Me.ucrReceiverData, "ucrReceiverData") + Me.ucrReceiverData.frmParent = Me + Me.ucrReceiverData.Name = "ucrReceiverData" + Me.ucrReceiverData.Selector = Nothing + Me.ucrReceiverData.strNcFilePath = "" + Me.ucrReceiverData.ucrSelector = Nothing + ' + 'lblTMin + ' + resources.ApplyResources(Me.lblTMin, "lblTMin") + Me.lblTMin.Name = "lblTMin" + ' + 'ucrReceiverStation + ' + resources.ApplyResources(Me.ucrReceiverStation, "ucrReceiverStation") + Me.ucrReceiverStation.frmParent = Me + Me.ucrReceiverStation.Name = "ucrReceiverStation" + Me.ucrReceiverStation.Selector = Nothing + Me.ucrReceiverStation.strNcFilePath = "" + Me.ucrReceiverStation.ucrSelector = Nothing + ' 'rdoMultSpells ' resources.ApplyResources(Me.rdoMultSpells, "rdoMultSpells") @@ -552,26 +592,6 @@ Partial Class dlgTransformClimatic Me.rdoMultSpells.Name = "rdoMultSpells" Me.rdoMultSpells.UseVisualStyleBackColor = True ' - 'rdoCumulative - ' - resources.ApplyResources(Me.rdoCumulative, "rdoCumulative") - Me.rdoCumulative.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoCumulative.FlatAppearance.BorderSize = 2 - Me.rdoCumulative.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoCumulative.ForeColor = System.Drawing.SystemColors.ActiveCaptionText - Me.rdoCumulative.Name = "rdoCumulative" - Me.rdoCumulative.UseVisualStyleBackColor = True - ' - 'rdoDegree - ' - resources.ApplyResources(Me.rdoDegree, "rdoDegree") - Me.rdoDegree.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoDegree.FlatAppearance.BorderSize = 2 - Me.rdoDegree.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption - Me.rdoDegree.ForeColor = System.Drawing.SystemColors.ActiveCaptionText - Me.rdoDegree.Name = "rdoDegree" - Me.rdoDegree.UseVisualStyleBackColor = True - ' 'lblTMax ' resources.ApplyResources(Me.lblTMax, "lblTMax") @@ -582,16 +602,31 @@ Partial Class dlgTransformClimatic resources.ApplyResources(Me.lblTMean, "lblTMean") Me.lblTMean.Name = "lblTMean" ' - 'ucrSaveColumn - ' - resources.ApplyResources(Me.ucrSaveColumn, "ucrSaveColumn") - Me.ucrSaveColumn.Name = "ucrSaveColumn" - ' 'ucrPnlTransform ' resources.ApplyResources(Me.ucrPnlTransform, "ucrPnlTransform") Me.ucrPnlTransform.Name = "ucrPnlTransform" ' + 'rdoDegree + ' + resources.ApplyResources(Me.rdoDegree, "rdoDegree") + Me.rdoDegree.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoDegree.FlatAppearance.BorderSize = 2 + Me.rdoDegree.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoDegree.ForeColor = System.Drawing.SystemColors.ActiveCaptionText + Me.rdoDegree.Name = "rdoDegree" + Me.rdoDegree.UseVisualStyleBackColor = True + ' + 'rdoCumulative + ' + resources.ApplyResources(Me.rdoCumulative, "rdoCumulative") + Me.rdoCumulative.FlatAppearance.BorderColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoCumulative.FlatAppearance.BorderSize = 2 + Me.rdoCumulative.FlatAppearance.CheckedBackColor = System.Drawing.SystemColors.ActiveCaption + Me.rdoCumulative.ForeColor = System.Drawing.SystemColors.ActiveCaptionText + Me.rdoCumulative.Name = "rdoCumulative" + Me.rdoCumulative.UseVisualStyleBackColor = True + ' 'ucrReceiverDate ' resources.ApplyResources(Me.ucrReceiverDate, "ucrReceiverDate") @@ -601,23 +636,6 @@ Partial Class dlgTransformClimatic Me.ucrReceiverDate.strNcFilePath = "" Me.ucrReceiverDate.ucrSelector = Nothing ' - 'ucrReceiverStation - ' - resources.ApplyResources(Me.ucrReceiverStation, "ucrReceiverStation") - Me.ucrReceiverStation.frmParent = Me - Me.ucrReceiverStation.Name = "ucrReceiverStation" - Me.ucrReceiverStation.Selector = Nothing - Me.ucrReceiverStation.strNcFilePath = "" - Me.ucrReceiverStation.ucrSelector = Nothing - ' - 'ucrSelectorTransform - ' - resources.ApplyResources(Me.ucrSelectorTransform, "ucrSelectorTransform") - Me.ucrSelectorTransform.bDropUnusedFilterLevels = False - Me.ucrSelectorTransform.bShowHiddenColumns = False - Me.ucrSelectorTransform.bUseCurrentFilter = True - Me.ucrSelectorTransform.Name = "ucrSelectorTransform" - ' 'ucrBase ' resources.ApplyResources(Me.ucrBase, "ucrBase") @@ -632,6 +650,15 @@ Partial Class dlgTransformClimatic Me.ucrReceiverTMin.strNcFilePath = "" Me.ucrReceiverTMin.ucrSelector = Nothing ' + 'ucrReceiverYear + ' + resources.ApplyResources(Me.ucrReceiverYear, "ucrReceiverYear") + Me.ucrReceiverYear.frmParent = Me + Me.ucrReceiverYear.Name = "ucrReceiverYear" + Me.ucrReceiverYear.Selector = Nothing + Me.ucrReceiverYear.strNcFilePath = "" + Me.ucrReceiverYear.ucrSelector = Nothing + ' 'ucrReceiverTMean ' resources.ApplyResources(Me.ucrReceiverTMean, "ucrReceiverTMean") @@ -650,78 +677,51 @@ Partial Class dlgTransformClimatic Me.ucrReceiverTMax.strNcFilePath = "" Me.ucrReceiverTMax.ucrSelector = Nothing ' - 'ucrReceiverData - ' - resources.ApplyResources(Me.ucrReceiverData, "ucrReceiverData") - Me.ucrReceiverData.frmParent = Me - Me.ucrReceiverData.Name = "ucrReceiverData" - Me.ucrReceiverData.Selector = Nothing - Me.ucrReceiverData.strNcFilePath = "" - Me.ucrReceiverData.ucrSelector = Nothing - ' - 'ucrReceiverYear - ' - resources.ApplyResources(Me.ucrReceiverYear, "ucrReceiverYear") - Me.ucrReceiverYear.frmParent = Me - Me.ucrReceiverYear.Name = "ucrReceiverYear" - Me.ucrReceiverYear.Selector = Nothing - Me.ucrReceiverYear.strNcFilePath = "" - Me.ucrReceiverYear.ucrSelector = Nothing - ' - 'ucrChkUseMaxMin - ' - resources.ApplyResources(Me.ucrChkUseMaxMin, "ucrChkUseMaxMin") - Me.ucrChkUseMaxMin.Checked = True - Me.ucrChkUseMaxMin.Name = "ucrChkUseMaxMin" - ' - 'ucrChkWB + 'ucrSaveColumn ' - resources.ApplyResources(Me.ucrChkWB, "ucrChkWB") - Me.ucrChkWB.Checked = False - Me.ucrChkWB.Name = "ucrChkWB" + resources.ApplyResources(Me.ucrSaveColumn, "ucrSaveColumn") + Me.ucrSaveColumn.Name = "ucrSaveColumn" ' - 'ucrNudWB + 'ucrSelectorTransform ' - resources.ApplyResources(Me.ucrNudWB, "ucrNudWB") - Me.ucrNudWB.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudWB.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudWB.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudWB.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudWB.Name = "ucrNudWB" - Me.ucrNudWB.Value = New Decimal(New Integer() {0, 0, 0, 0}) + resources.ApplyResources(Me.ucrSelectorTransform, "ucrSelectorTransform") + Me.ucrSelectorTransform.bDropUnusedFilterLevels = False + Me.ucrSelectorTransform.bShowHiddenColumns = False + Me.ucrSelectorTransform.bUseCurrentFilter = True + Me.ucrSelectorTransform.Name = "ucrSelectorTransform" ' 'dlgTransformClimatic ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi - Me.Controls.Add(Me.rdoDegree) - Me.Controls.Add(Me.ucrSaveColumn) - Me.Controls.Add(Me.rdoCumulative) - Me.Controls.Add(Me.rdoMultSpells) Me.Controls.Add(Me.rdoWaterBalance) Me.Controls.Add(Me.rdoSpell) + Me.Controls.Add(Me.lblDate) Me.Controls.Add(Me.rdoMoving) Me.Controls.Add(Me.rdoCount) - Me.Controls.Add(Me.ucrPnlTransform) Me.Controls.Add(Me.lblStation) - Me.Controls.Add(Me.ucrReceiverDate) - Me.Controls.Add(Me.ucrReceiverStation) - Me.Controls.Add(Me.ucrSelectorTransform) - Me.Controls.Add(Me.ucrBase) Me.Controls.Add(Me.lblYear) - Me.Controls.Add(Me.lblDate) - Me.Controls.Add(Me.ucrReceiverTMin) + Me.Controls.Add(Me.ucrChkUseMaxMin) + Me.Controls.Add(Me.lblData) + Me.Controls.Add(Me.grpTransform) Me.Controls.Add(Me.grpDegree) - Me.Controls.Add(Me.ucrReceiverTMean) + Me.Controls.Add(Me.ucrReceiverData) Me.Controls.Add(Me.lblTMin) + Me.Controls.Add(Me.ucrReceiverStation) + Me.Controls.Add(Me.rdoMultSpells) Me.Controls.Add(Me.lblTMax) - Me.Controls.Add(Me.ucrReceiverTMax) - Me.Controls.Add(Me.ucrReceiverData) - Me.Controls.Add(Me.ucrReceiverYear) - Me.Controls.Add(Me.ucrChkUseMaxMin) Me.Controls.Add(Me.lblTMean) - Me.Controls.Add(Me.lblData) - Me.Controls.Add(Me.grpTransform) + Me.Controls.Add(Me.ucrPnlTransform) + Me.Controls.Add(Me.rdoDegree) + Me.Controls.Add(Me.rdoCumulative) + Me.Controls.Add(Me.ucrReceiverDate) + Me.Controls.Add(Me.ucrBase) + Me.Controls.Add(Me.ucrReceiverTMin) + Me.Controls.Add(Me.ucrReceiverYear) + Me.Controls.Add(Me.ucrReceiverTMean) + Me.Controls.Add(Me.ucrReceiverTMax) + Me.Controls.Add(Me.ucrSaveColumn) + Me.Controls.Add(Me.ucrSelectorTransform) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.MaximizeBox = False Me.MinimizeBox = False @@ -735,80 +735,80 @@ Partial Class dlgTransformClimatic End Sub - Friend WithEvents ucrBase As ucrButtons - Friend WithEvents ucrReceiverYear As ucrReceiverSingle - Friend WithEvents lblYear As Label - Friend WithEvents lblDate As Label - Friend WithEvents ucrReceiverDate As ucrReceiverSingle - Friend WithEvents lblStation As Label - Friend WithEvents ucrReceiverStation As ucrReceiverSingle - Friend WithEvents ucrSelectorTransform As ucrSelectorByDataFrameAddRemove - Friend WithEvents lblData As Label - Friend WithEvents ucrReceiverData As ucrReceiverSingle Friend WithEvents rdoWaterBalance As RadioButton + Friend WithEvents ucrNudLimit As ucrNud + Friend WithEvents ucrNudMgdd As ucrNud + Friend WithEvents lblBaselineMgdd As Label + Friend WithEvents lblLimit As Label + Friend WithEvents ucrInputPosition As ucrInputComboBox + Friend WithEvents ucrChkCircular As ucrCheck Friend WithEvents rdoSpell As RadioButton + Friend WithEvents lblRowsMultSpells As Label + Friend WithEvents lblDate As Label + Friend WithEvents ucrInputSpellUpper As ucrInputTextBox Friend WithEvents rdoMoving As RadioButton Friend WithEvents rdoCount As RadioButton - Friend WithEvents ucrPnlTransform As UcrPanel - Friend WithEvents lblSumRows As Label - Friend WithEvents ucrNudSumOver As ucrNud - Friend WithEvents lblSumOver As Label - Friend WithEvents ucrInputSum As ucrInputComboBox - Friend WithEvents ucrNudCountOver As ucrNud - Friend WithEvents lblCountOver As Label - Friend WithEvents lblWBEvaporation As Label - Friend WithEvents ucrNudWBCapacity As ucrNud - Friend WithEvents lblWBCapacity As Label + Friend WithEvents lblStation As Label + Friend WithEvents lblYear As Label + Friend WithEvents ucrChkUseMaxMin As ucrCheck + Friend WithEvents lblData As Label Friend WithEvents grpTransform As GroupBox - Friend WithEvents ucrInputSpellUpper As ucrInputTextBox - Friend WithEvents ucrInputCondition As ucrInputComboBox - Friend WithEvents lblCondition As Label - Friend WithEvents rdoMultSpells As RadioButton - Friend WithEvents ucrChkGroupByYear As ucrCheck - Friend WithEvents ucrNudMultSpells As ucrNud - Friend WithEvents lblRowsMultSpells As Label - Friend WithEvents ucrInputEvaporation As ucrInputTextBox - Friend WithEvents ucrPnlEvap As UcrPanel + Friend WithEvents ucrNudWB As ucrNud + Friend WithEvents ucrChkWB As ucrCheck + Friend WithEvents ucrInputSpellLower As ucrInputComboBox + Friend WithEvents ucrChkOptions As ucrCheck Friend WithEvents ucrReceiverEvap As ucrReceiverSingle - Friend WithEvents rdoEvapVariable As RadioButton - Friend WithEvents rdoEvapValue As RadioButton - Friend WithEvents lblPosition As Label - Friend WithEvents ucrInputPosition As ucrInputComboBox - Friend WithEvents ucrChkCircular As ucrCheck - Friend WithEvents ucrInputCircularPosition As ucrInputComboBox - Friend WithEvents rdoCumulative As RadioButton - Friend WithEvents ucrInputCumulative As ucrInputComboBox - Friend WithEvents ucrSaveColumn As ucrSave - Friend WithEvents ucrReceiverTMean As ucrReceiverSingle - Friend WithEvents lblTMean As Label - Friend WithEvents ucrReceiverTMin As ucrReceiverSingle - Friend WithEvents lblTMax As Label - Friend WithEvents ucrReceiverTMax As ucrReceiverSingle - Friend WithEvents lblTMin As Label - Friend WithEvents ucrChkUseMaxMin As ucrCheck - Friend WithEvents rdoDegree As RadioButton - Friend WithEvents rdoDiurnalRange As RadioButton - Friend WithEvents ucrPnlDegree As UcrPanel - Friend WithEvents rdoModifiedGDD As RadioButton - Friend WithEvents rdoGrowingDegreeDays As RadioButton - Friend WithEvents rdoHeatingDegreeDays As RadioButton - Friend WithEvents rdoTMean As RadioButton Friend WithEvents grpDegree As GroupBox + Friend WithEvents rdoModifiedGDD As RadioButton Friend WithEvents lblBaselineGDD As Label + Friend WithEvents rdoGrowingDegreeDays As RadioButton Friend WithEvents lblBaselineHDD As Label + Friend WithEvents rdoHeatingDegreeDays As RadioButton Friend WithEvents ucrNudGDD As ucrNud + Friend WithEvents rdoTMean As RadioButton Friend WithEvents ucrNudHDD As ucrNud - Friend WithEvents lblLimit As Label - Friend WithEvents ucrChkOptions As ucrCheck - Friend WithEvents ucrInputSpellLower As ucrInputComboBox - Friend WithEvents ucrNudMgdd As ucrNud - Friend WithEvents lblBaselineMgdd As Label - Friend WithEvents ucrNudLimit As ucrNud - Friend WithEvents ttRdoRange As ToolTip + Friend WithEvents rdoDiurnalRange As RadioButton + Friend WithEvents ucrPnlDegree As UcrPanel + Friend WithEvents ucrReceiverData As ucrReceiverSingle + Friend WithEvents lblTMin As Label + Friend WithEvents ucrReceiverStation As ucrReceiverSingle + Friend WithEvents rdoMultSpells As RadioButton + Friend WithEvents lblTMax As Label + Friend WithEvents lblTMean As Label + Friend WithEvents ucrPnlTransform As UcrPanel + Friend WithEvents rdoDegree As RadioButton + Friend WithEvents rdoCumulative As RadioButton + Friend WithEvents ucrReceiverDate As ucrReceiverSingle + Friend WithEvents ucrBase As ucrButtons + Friend WithEvents ucrReceiverTMin As ucrReceiverSingle + Friend WithEvents ucrReceiverYear As ucrReceiverSingle + Friend WithEvents ucrReceiverTMean As ucrReceiverSingle + Friend WithEvents ucrReceiverTMax As ucrReceiverSingle + Friend WithEvents ucrSaveColumn As ucrSave + Friend WithEvents ucrSelectorTransform As ucrSelectorByDataFrameAddRemove + Friend WithEvents ucrInputEvaporation As ucrInputTextBox + Friend WithEvents ucrChkGroupByYear As ucrCheck + Friend WithEvents rdoEvapVariable As RadioButton + Friend WithEvents rdoEvapValue As RadioButton + Friend WithEvents ucrPnlEvap As UcrPanel + Friend WithEvents ucrInputCircularPosition As ucrInputComboBox + Friend WithEvents lblPosition As Label + Friend WithEvents ucrNudMultSpells As ucrNud + Friend WithEvents lblSumRows As Label + Friend WithEvents ucrInputCondition As ucrInputComboBox + Friend WithEvents lblCondition As Label + Friend WithEvents lblWBEvaporation As Label + Friend WithEvents lblCountOver As Label + Friend WithEvents ucrNudSumOver As ucrNud + Friend WithEvents lblWBCapacity As Label + Friend WithEvents ucrNudWBCapacity As ucrNud + Friend WithEvents ucrInputSum As ucrInputComboBox + Friend WithEvents lblSumOver As Label + Friend WithEvents ucrNudCountOver As ucrNud + Friend WithEvents ucrInputCumulative As ucrInputComboBox + Friend WithEvents ttRdoGdd As ToolTip Friend WithEvents ttRdoTMean As ToolTip Friend WithEvents ttRdoHdd As ToolTip - Friend WithEvents ttRdoGdd As ToolTip Friend WithEvents ttRdoMgdd As ToolTip - Friend WithEvents ucrNudWB As ucrNud - Friend WithEvents ucrChkWB As ucrCheck + Friend WithEvents ttRdoRange As ToolTip End Class diff --git a/instat/dlgTransformClimatic.resx b/instat/dlgTransformClimatic.resx index b41733cce82..7df82c09ec8 100644 --- a/instat/dlgTransformClimatic.resx +++ b/instat/dlgTransformClimatic.resx @@ -117,141 +117,219 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - True - - - NoControl + + Button + + + None - - 408, 250 + + MiddleCenter - - 4, 0, 4, 0 + + Flat - - 47, 20 + + NoControl - - 12 + + 358, 8 - - Year: + + 71, 40 - - lblYear + + + 75 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Water Balance - + + MiddleCenter + + + rdoWaterBalance + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + $this - - 14 + + 0 - + True - - NoControl + + 136, 122 - - 408, 176 + + 6, 6, 6, 6 - - 4, 0, 4, 0 + + 50, 20 - - 48, 20 + + 45 - - 8 + + ucrNudLimit - - Date: + + instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - lblDate + + grpDegree - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0 - - $this + + True - - 15 + + 136, 97 - + + 6, 6, 6, 6 + + + 50, 20 + + + 44 + + + ucrNudMgdd + + + instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + grpDegree + + + 1 + + True - + NoControl - - 408, 100 - - - 4, 0, 4, 0 + + 85, 101 - - 64, 20 + + 50, 13 - - 6 + + 45 - - Station: + + Baseline: - - lblStation + + lblBaselineMgdd - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + grpDegree - - 9 + + 2 - + True - + NoControl - - 408, 326 - - - 4, 0, 4, 0 + + 101, 124 - - 72, 20 + + 31, 13 - - 16 + + 44 - - Element: + + Limit: - - lblData + + lblLimit - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + grpDegree - + + 3 + + + GrowAndShrink + + + 199, 55 + + + 9, 9, 9, 9 + + + 137, 21 + + + 24 + + + ucrInputPosition + + + instat.ucrInputComboBox, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + grpTransform + + + 12 + + + True + + + 24, 58 + + + 6, 6, 6, 6 + + + 100, 34 + + 26 + + ucrChkCircular + + + instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + grpTransform + + + 13 + Button @@ -268,16 +346,13 @@ NoControl - 332, 22 - - - 4, 4, 4, 4 + 220, 8 - 106, 60 + 71, 40 - 3 + 74 Spell @@ -295,43 +370,127 @@ $this - 5 - - - Button - - - None - - - MiddleCenter + 1 - - Flat + + True - + NoControl - - 228, 22 + + 12, 25 - - 4, 4, 4, 4 + + 126, 13 - - 106, 60 + + 14 - - 2 + + Rows to Take Max Over: - - Moving + + lblRowsMultSpells - - MiddleCenter + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - rdoMoving + + grpTransform + + + 15 + + + True + + + NoControl + + + 257, 110 + + + 33, 13 + + + 79 + + + Date: + + + lblDate + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + + + True + + + 285, 50 + + + 9, 9, 9, 9 + + + 49, 21 + + + 13 + + + ucrInputSpellUpper + + + instat.ucrInputTextBox, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + grpTransform + + + 16 + + + Button + + + None + + + MiddleCenter + + + Flat + + + NoControl + + + 151, 8 + + + 71, 40 + + + 73 + + + Moving + + + MiddleCenter + + + rdoMoving System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -340,7 +499,7 @@ $this - 6 + 3 Button @@ -355,16 +514,13 @@ NoControl - 21, 22 - - - 4, 4, 4, 4 + 13, 8 - 106, 60 + 71, 40 - 1 + 72 Count @@ -382,163 +538,136 @@ $this - 7 - - - Button - - - None - - - MiddleCenter + 4 - - Flat + + True - + NoControl - - 538, 22 - - - 4, 4, 4, 4 - - - 106, 60 + + 257, 60 - - 4 + + 43, 13 - - Water Balance + + 77 - - MiddleCenter + + Station: - - rdoWaterBalance + + lblStation - - System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - - 4 + + 5 - + True - + NoControl - - 368, 36 - - - 4, 0, 4, 0 + + 257, 160 - - 49, 20 + + 32, 13 - - 5 + + 81 - - Rows + + Year: - - lblSumRows + + lblYear - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - grpTransform + + $this - - 17 + + 6 - + True - - NoControl - - - 236, 36 - - - 4, 0, 4, 0 + + 260, 173 - - 42, 20 + + 6, 6, 6, 6 - - 3 + + 144, 24 - - Over + + 91 - - lblSumOver + + ucrChkUseMaxMin - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - grpTransform + + $this - - 26 + + 7 - + True - + NoControl - - 18, 36 - - - 4, 0, 4, 0 + + 258, 210 - - 155, 20 + + 48, 13 - - 8 + + 83 - - Rows to Count Over: + + Element: - - lblCountOver + + lblData - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - grpTransform + + $this - - 21 + + 8 True - 186, 122 + 124, 81 - 9, 9, 9, 9 + 6, 6, 6, 6 - 75, 30 + 50, 20 45 @@ -559,13 +688,13 @@ True - 23, 122 + 15, 81 - 6, 6, 6, 6 + 4, 4, 4, 4 - 150, 34 + 100, 23 44 @@ -586,13 +715,13 @@ GrowAndShrink - 106, 76 + 71, 51 - 14, 14, 14, 14 + 9, 9, 9, 9 - 74, 32 + 49, 21 43 @@ -613,493 +742,46 @@ True - 399, 168 + 266, 112 - 9, 9, 9, 9 + 6, 6, 6, 6 - 114, 51 - - - 38 - - - False - - - ucrChkOptions - - - instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - grpTransform - - - 3 - - - True - - - True - - - 144, 144 - - - True - - - 1154, 735 - - - Button - - - None - - - MiddleCenter - - - Flat - - - NoControl - - - 642, 22 - - - 4, 4, 4, 4 - - - 106, 60 - - - 26 - - - Degrees - - - MiddleCenter - - - rdoDegree - - - System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 0 - - - GrowAndShrink - - - 16, 616 - - - 6, 8, 6, 8 - - - 502, 32 - - - 20 - - - ucrSaveColumn - - - instat.ucrSave, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - $this - - - 1 - - - Button - - - None - - - MiddleCenter - - - Flat - - - NoControl - - - 124, 22 - - - 4, 4, 4, 4 - - - 106, 60 - - - 25 - - - Cumulative - - - MiddleCenter - - - rdoCumulative - - - System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 2 - - - Button - - - None - - - MiddleCenter - - - Flat - - - NoControl - - - 435, 22 - - - 4, 4, 4, 4 - - - 106, 60 - - - 23 - - - Multiple Spells - - - MiddleCenter - - - rdoMultSpells - - - System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 3 - - - GrowAndShrink - - - 16, 14 - - - 9, 9, 9, 9 - - - 746, 74 - - - 0 - - - ucrPnlTransform - - - instat.UcrPanel, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - $this - - - 8 - - - True - - - 412, 195 - - - 0, 0, 0, 0 - - - 206, 30 - - - 9 - - - ucrReceiverDate - - - instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - $this - - - 10 - - - True - - - 412, 120 - - - 0, 0, 0, 0 - - - 206, 30 - - - 7 - - - ucrReceiverStation - - - instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - $this - - - 11 - - - True - - - 15, 92 - - - 0, 0, 0, 0 - - - 320, 274 - - - 5 - - - ucrSelectorTransform - - - instat.ucrSelectorByDataFrameAddRemove, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - $this - - - 12 - - - True - - - GrowAndShrink - - - 15, 656 - - - 6, 6, 6, 6 - - - 611, 77 - - - 21 - - - ucrBase - - - instat.ucrButtons, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - $this - - - 13 - - - True - - - 412, 420 - - - 0, 0, 0, 0 - - - 206, 30 - - - 31 - - - ucrReceiverTMin - - - instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - $this - - - 16 - - - True - - - 266, 183 - - - 9, 9, 9, 9 - - - 75, 30 - - - 45 - - - ucrNudLimit - - - instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - grpDegree - - - 0 - - - True - - - 266, 146 - - - 9, 9, 9, 9 - - - 75, 30 - - - 44 - - - ucrNudMgdd - - - instat.ucrNud, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - grpDegree - - - 1 - - - True - - - NoControl - - - 184, 150 - - - 4, 0, 4, 0 - - - 74, 20 - - - 45 - - - Baseline: - - - lblBaselineMgdd - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpDegree - - - 2 - - - True + 100, 34 - - NoControl + + 38 - - 204, 186 + + False - - 4, 0, 4, 0 + + ucrChkOptions - - 46, 20 + + instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - 44 + + grpTransform - - Limit: + + 3 - - lblLimit + + True - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + 96, 96 - - grpDegree + + True - - 3 + + 516, 490 True @@ -1108,13 +790,10 @@ NoControl - 22, 183 - - - 4, 4, 4, 4 + 10, 122 - 139, 24 + 95, 17 41 @@ -1141,13 +820,10 @@ NoControl - 184, 150 - - - 4, 0, 4, 0 + 85, 100 - 74, 20 + 50, 13 43 @@ -1174,13 +850,10 @@ NoControl - 22, 148 - - - 4, 4, 4, 4 + 10, 99 - 75, 24 + 52, 17 40 @@ -1207,13 +880,10 @@ NoControl - 184, 116 - - - 4, 0, 4, 0 + 85, 77 - 74, 20 + 50, 13 43 @@ -1240,13 +910,10 @@ NoControl - 22, 114 - - - 4, 4, 4, 4 + 10, 76 - 74, 24 + 52, 17 39 @@ -1270,13 +937,13 @@ True - 266, 146 + 137, 97 - 9, 9, 9, 9 + 6, 6, 6, 6 - 75, 30 + 50, 20 43 @@ -1300,13 +967,10 @@ NoControl - 22, 80 - - - 4, 4, 4, 4 + 10, 53 - 87, 24 + 61, 17 38 @@ -1330,13 +994,13 @@ True - 266, 110 + 136, 73 - 9, 9, 9, 9 + 6, 6, 6, 6 - 75, 30 + 50, 20 43 @@ -1360,13 +1024,10 @@ NoControl - 22, 45 - - - 4, 4, 4, 4 + 10, 30 - 140, 24 + 96, 17 37 @@ -1390,220 +1051,448 @@ GrowAndShrink - 9, 28 + 6, 19 - 9, 9, 9, 9 + 6, 6, 6, 6 - 178, 190 + 99, 127 34 - - ucrPnlDegree + + ucrPnlDegree + + + instat.UcrPanel, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + grpDegree + + + 13 + + + 9, 246 + + + 195, 151 + + + 98 + + + Options: + + + grpDegree + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 10 + + + True + + + 260, 223 + + + 0, 0, 0, 0 + + + 123, 20 + + + 84 + + + ucrReceiverData + + + instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 11 + + + True + + + NoControl + + + 257, 260 + + + 33, 13 + + + 92 + + + Tmin: + + + lblTMin + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 12 + + + True + + + 260, 73 + + + 0, 0, 0, 0 + + + 123, 20 + + + 78 + + + ucrReceiverStation + + + instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 13 + + + Button + + + None + + + MiddleCenter + + + Flat + + + NoControl + + + 289, 8 + + + 71, 40 + + + 88 + + + Multiple Spells + + + MiddleCenter + + + rdoMultSpells + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 14 + + + True + + + NoControl + + + 257, 210 + + + 36, 13 + + + 94 + + + Tmax: + + + lblTMax + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 15 + + + True + + + NoControl + + + 255, 210 + + + 43, 13 + + + 96 + + + Tmean: + + + lblTMean + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 16 + + + GrowAndShrink - - instat.UcrPanel, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + 10, 2 - - grpDegree + + 6, 6, 6, 6 - - 13 + + 497, 49 - - 785, 176 + + 71 - - 4, 4, 4, 4 + + ucrPnlTransform - - 4, 4, 4, 4 + + instat.UcrPanel, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - 356, 226 + + $this - - 42 + + 17 - - Options: + + Button - - grpDegree + + None - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + MiddleCenter - - $this + + Flat - - 17 + + NoControl - - True + + 427, 8 - - 412, 345 + + 71, 40 - - 0, 0, 0, 0 + + 90 - - 206, 30 + + Degrees - - 33 + + MiddleCenter - - ucrReceiverTMean + + rdoDegree - - instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - + 18 - - True + + Button - + + None + + + MiddleCenter + + + Flat + + NoControl - - 408, 400 + + 82, 8 - - 4, 0, 4, 0 + + 71, 40 - - 47, 20 + + 89 - - 28 + + Cumulative - - Tmin: + + MiddleCenter - - lblTMin + + rdoCumulative - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - + 19 - + True - - NoControl - - - 408, 326 - - - 4, 0, 4, 0 + + 260, 123 - - 51, 20 + + 0, 0, 0, 0 - - 30 + + 123, 20 - - Tmax: + + 80 - - lblTMax + + ucrReceiverDate - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - + $this - + 20 - + True - - 412, 345 + + GrowAndShrink - - 0, 0, 0, 0 + + 9, 430 - - 206, 30 + + 4, 4, 4, 4 - - 29 + + 408, 52 - - ucrReceiverTMax + + 87 - - instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + ucrBase - + + instat.ucrButtons, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + $this - + 21 - + True - - 412, 345 + + 260, 273 - + 0, 0, 0, 0 - - 206, 30 + + 123, 20 - - 17 + + 95 - - ucrReceiverData + + ucrReceiverTMin - + instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - + $this - + 22 True - 412, 270 + 260, 173 0, 0, 0, 0 - 206, 30 + 123, 20 - 13 + 82 ucrReceiverYear @@ -1617,68 +1506,113 @@ 23 - + True - - 412, 270 + + 260, 223 - - 9, 9, 9, 9 + + 0, 0, 0, 0 - - 206, 36 + + 123, 20 - - 27 + + 97 - - ucrChkUseMaxMin + + ucrReceiverTMean + + + instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 24 + + + True + + + 260, 223 + + + 0, 0, 0, 0 + + + 123, 20 + + + 93 + + + ucrReceiverTMax + + + instat.ucrReceiverSingle, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 25 + + + GrowAndShrink + + + 10, 404 + + + 4, 5, 4, 5 + + + 335, 21 + + + 86 + + + ucrSaveColumn - - instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + instat.ucrSave, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - + $this - - 24 + + 26 - + True - - NoControl - - - 408, 326 - - - 4, 0, 4, 0 + + 9, 54 - - 62, 20 + + 0, 0, 0, 0 - - 32 + + 213, 183 - - Tmean: + + 76 - - lblTMean + + ucrSelectorTransform - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + instat.ucrSelectorByDataFrameAddRemove, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - + $this - - 25 - - - 4, 4, 4, 4 + + 27 CenterScreen @@ -1686,10 +1620,10 @@ Transform - - ttRdoRange + + ttRdoGdd - + System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1704,18 +1638,18 @@ System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ttRdoGdd - - - System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ttRdoMgdd System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ttRdoRange + + + System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + dlgTransformClimatic @@ -1723,13 +1657,13 @@ System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 530, 80 + 310, 53 0, 0, 0, 0 - 154, 30 + 103, 20 37 @@ -1750,13 +1684,13 @@ True - 232, 80 + 151, 53 - 14, 14, 14, 14 + 9, 9, 9, 9 - 154, 32 + 88, 21 31 @@ -1777,13 +1711,13 @@ True - 36, 168 + 24, 112 - 9, 9, 9, 9 + 6, 6, 6, 6 - 261, 51 + 174, 34 22 @@ -1807,13 +1741,10 @@ NoControl - 430, 83 - - - 4, 4, 4, 4 + 247, 55 - 92, 24 + 63, 17 36 @@ -1840,13 +1771,10 @@ NoControl - 129, 82 - - - 4, 4, 4, 4 + 86, 55 - 75, 24 + 52, 17 35 @@ -1870,13 +1798,13 @@ GrowAndShrink - 123, 70 + 82, 47 - 9, 9, 9, 9 + 6, 6, 6, 6 - 578, 44 + 343, 29 29 @@ -1897,13 +1825,13 @@ GrowAndShrink - 298, 82 + 199, 55 - 14, 14, 14, 14 + 9, 9, 9, 9 - 206, 32 + 137, 21 27 @@ -1927,13 +1855,10 @@ NoControl - 226, 88 - - - 4, 0, 4, 0 + 151, 59 - 69, 20 + 47, 13 25 @@ -1953,71 +1878,17 @@ 11 - - GrowAndShrink - - - 298, 82 - - - 14, 14, 14, 14 - - - 206, 32 - - - 24 - - - ucrInputPosition - - - instat.ucrInputComboBox, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - grpTransform - - - 12 - - - True - - - 36, 87 - - - 9, 9, 9, 9 - - - 150, 51 - - - 26 - - - ucrChkCircular - - - instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - grpTransform - - - 13 - True - 291, 32 + 194, 21 - 9, 9, 9, 9 + 6, 6, 6, 6 - 75, 30 + 50, 20 15 @@ -2034,77 +1905,47 @@ 14 - + True - + NoControl - - 18, 38 - - - 4, 0, 4, 0 + + 245, 24 - - 180, 20 + + 34, 13 - - 14 + + 5 - - Rows to Take Max Over: + + Rows - - lblRowsMultSpells + + lblSumRows - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - grpTransform - - - 15 - - - True - - - 428, 75 - - - 14, 14, 14, 14 - - - 74, 32 - - - 13 - - - ucrInputSpellUpper - - - instat.ucrInputTextBox, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - + grpTransform - - 16 + + 17 GrowAndShrink - 186, 75 + 124, 50 - 14, 14, 14, 14 + 9, 9, 9, 9 - 232, 32 + 155, 21 12 @@ -2128,13 +1969,10 @@ NoControl - 18, 80 - - - 4, 0, 4, 0 + 12, 53 - 80, 20 + 54, 13 10 @@ -2161,13 +1999,10 @@ NoControl - 20, 82 - - - 4, 0, 4, 0 + 13, 55 - 98, 20 + 67, 13 6 @@ -2187,17 +2022,47 @@ 20 + + True + + + NoControl + + + 12, 24 + + + 106, 13 + + + 8 + + + Rows to Count Over: + + + lblCountOver + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpTransform + + + 21 + True - 290, 32 + 193, 21 - 9, 9, 9, 9 + 6, 6, 6, 6 - 75, 30 + 50, 20 4 @@ -2221,13 +2086,10 @@ NoControl - 20, 38 - - - 4, 0, 4, 0 + 13, 25 - 74, 20 + 51, 13 1 @@ -2251,13 +2113,13 @@ True - 129, 32 + 86, 21 - 9, 9, 9, 9 + 6, 6, 6, 6 - 75, 30 + 50, 20 2 @@ -2278,13 +2140,13 @@ GrowAndShrink - 36, 32 + 24, 21 - 14, 14, 14, 14 + 9, 9, 9, 9 - 168, 32 + 112, 21 0 @@ -2301,17 +2163,47 @@ 25 + + True + + + NoControl + + + 157, 24 + + + 30, 13 + + + 3 + + + Over + + + lblSumOver + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpTransform + + + 26 + True - 201, 32 + 134, 21 - 9, 9, 9, 9 + 6, 6, 6, 6 - 75, 30 + 50, 20 9 @@ -2332,13 +2224,13 @@ GrowAndShrink - 36, 32 + 24, 21 - 14, 14, 14, 14 + 9, 9, 9, 9 - 168, 32 + 112, 21 26 @@ -2356,19 +2248,13 @@ 28 - 15, 392 - - - 4, 4, 4, 4 - - - 4, 4, 4, 4 + 9, 254 - 733, 213 + 428, 151 - 18 + 85 Options @@ -2383,21 +2269,21 @@ $this - 27 + 9 - - 17, 17 + + 38, 8 - 133, 17 + 170, 8 - 252, 17 - - - 357, 17 + 289, 8 - 462, 17 + 405, 12 + + + 520, 12 \ No newline at end of file diff --git a/instat/dlgTransformClimatic.vb b/instat/dlgTransformClimatic.vb index 1aefa1e19c8..d4b2ae83e7f 100644 --- a/instat/dlgTransformClimatic.vb +++ b/instat/dlgTransformClimatic.vb @@ -35,8 +35,8 @@ Public Class dlgTransformClimatic Private clsGreaterThanOperator, clsLessThanOperator As New ROperator ' Water Balance - Private clsPMinFunctionMax, clsPMaxFunctionMax, clsRWaterBalanceFunction As New RFunction - Private clsPMaxOperatorMax, clsReduceOpEvapValue As New ROperator + Private clsPMinFunctionMax, clsPMaxFunctionMax, clsRWaterBalanceFunction, clsTailFunction, clsWBEvaporation As New RFunction + Private clsPMaxOperatorMax, clsReduceOpEvapValue, clsWBOperator As New ROperator 'Degree Private clsDiurnalRangeOperator, clsTMeanAddOperator, clsTMeanDivideOperator As New ROperator @@ -230,9 +230,10 @@ Public Class dlgTransformClimatic ucrChkWB.SetValuesCheckedAndUnchecked("TRUE", "FALSE") ucrChkWB.SetText("Reducing") - ucrNudWB.SetParameter(New RParameter("WB_evap_value")) + ucrNudWB.SetParameter(New RParameter("WB_evap_value", 2)) ucrNudWB.SetMinMax(0, 1) ucrNudWB.Increment = 0.01 + ucrNudWB.DecimalPlaces = 2 ' Count ucrNudCountOver.SetParameter(New RParameter("width", 1)) @@ -322,7 +323,7 @@ Public Class dlgTransformClimatic ucrPnlDegree.AddToLinkedControls(ucrNudHDD, {rdoHeatingDegreeDays}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=15.0) ucrPnlDegree.AddToLinkedControls(ucrNudLimit, {rdoModifiedGDD}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=30.0) - ucrChkWB.AddToLinkedControls(ucrNudWB, {True}, bNewLinkedHideIfParameterMissing:=True) + ucrChkWB.AddToLinkedControls(ucrNudWB, {True}, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=0.5) ucrPnlTransform.AddToLinkedControls({ucrInputCumulative}, {rdoCumulative}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:="Sum") ucrPnlTransform.AddToLinkedControls({ucrNudCountOver}, {rdoCount}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True, bNewLinkedChangeToDefaultState:=True, objNewDefaultState:=1) @@ -337,7 +338,6 @@ Public Class dlgTransformClimatic ucrPnlTransform.AddToLinkedControls({ucrReceiverYear, ucrReceiverData, ucrChkOptions}, {rdoCumulative, rdoCount, rdoMoving, rdoMultSpells, rdoSpell, rdoWaterBalance}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) ucrPnlTransform.AddToLinkedControls({ucrChkUseMaxMin, ucrPnlDegree}, {rdoDegree}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) ucrPnlTransform.AddToLinkedControls({ucrChkWB}, {rdoWaterBalance}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) - ucrChkCircular.AddToLinkedControls(ucrInputCircularPosition, {True}, bNewLinkedHideIfParameterMissing:=True) ucrChkCircular.AddToLinkedControls(ucrInputPosition, {False}, bNewLinkedHideIfParameterMissing:=True) @@ -366,7 +366,8 @@ Public Class dlgTransformClimatic clsReplaceNAasElement = New RFunction clsRCountFunction = New RFunction clsRWaterBalanceFunction = New RFunction - + clsWBEvaporation = New RFunction + clsTailFunction = New RFunction clsRRaindayMatch = New RFunction clsRRaindayAndOperator = New ROperator clsRRaindayOrOperator = New ROperator @@ -395,6 +396,7 @@ Public Class dlgTransformClimatic clsPMinFunctionMax = New RFunction clsPMaxFunctionMax = New RFunction clsPMaxOperatorMax = New ROperator + clsWBOperator = New ROperator clsGroupByYear.Clear() clsReduceOpEvapValue.Clear() clsGreaterThanOperator.Clear() @@ -496,8 +498,26 @@ Public Class dlgTransformClimatic clsPMinFunctionMax.AddParameter("capacity", 60, iPosition:=1, bIncludeArgumentName:=False) clsRWaterBalanceFunction.AddParameter("replace_na", iPosition:=1, bIncludeArgumentName:=False) clsRWaterBalanceFunction.AddParameter("accumulate", "TRUE", iPosition:=2) - '"Reduce(function(x, y) pmin(pmax(x + y - " & ucrInputEvaporation.GetText & ", 0), " & ucrNudCapacity.Value & "), Rain, accumulate=TRUE)" & Chr(34)) + clsWBOperator.SetOperation("-") + clsWBOperator.AddParameter("left", "x + y", iPosition:=0) + clsWBOperator.AddParameter("right", clsRFunctionParameter:=clsWBEvaporation, iPosition:=1) + clsWBOperator.bSpaceAroundOperation = True + clsWBOperator.bBrackets = False + + clsReduceOpEvapValue.SetOperation("-") + + clsWBEvaporation.SetRCommand("WB_evaporation") + clsWBEvaporation.AddParameter("water_balance", "x", iPosition:=0, bIncludeArgumentName:=False) + clsWBEvaporation.AddParameter("WB_evap_value", 0.5, iPosition:=1, bIncludeArgumentName:=False) + clsWBEvaporation.AddParameter("capacity", 60, iPosition:=2, bIncludeArgumentName:=False) + clsWBEvaporation.AddParameter("evaporation_value", 5, iPosition:=3, bIncludeArgumentName:=False) + clsWBEvaporation.AddParameter("rain", "rain", iPosition:=4, bIncludeArgumentName:=False) + + clsTailFunction.SetPackageName("utils") + clsTailFunction.SetRCommand("tail") + clsTailFunction.AddParameter("x", "rain", iPosition:=0) + clsTailFunction.AddParameter("n", "-1", iPosition:=1) ' Degree clsDiurnalRangeOperator.SetOperation("-") clsDiurnalRangeOperator.bToScriptAsRString = True @@ -660,9 +680,9 @@ Public Class dlgTransformClimatic ' Water Balance ucrPnlEvap.SetRCode(clsPMaxOperatorMax, bReset) - ucrInputEvaporation.SetRCode(clsPMaxOperatorMax, bReset) ucrReceiverEvap.SetRCode(clsReduceOpEvapValue, bReset) ucrNudWBCapacity.SetRCode(clsPMinFunctionMax, bReset) + ucrNudWB.SetRCode(clsWBOperator, bReset) 'Degree ucrReceiverTMin.SetRCode(clsDiurnalRangeOperator, bReset) @@ -675,6 +695,9 @@ Public Class dlgTransformClimatic ucrPnlDegree.SetRCode(clsDummyFunction, bReset) ucrSaveColumn.SetRCode(clsRTransform, bReset) + If bReset Then + ucrInputEvaporation.SetRCode(clsPMaxOperatorMax, bReset) + End If End Sub Private Sub TestOkEnabled() @@ -779,7 +802,8 @@ Public Class dlgTransformClimatic clsRTransform.RemoveParameterByName("sub_calculations") clsTransformCheck = clsRTransform End If - Evaporation() + ReduceWaterBalance() + 'Evaporation() AddCalculate() SetAssignName() GroupByStation() @@ -901,28 +925,12 @@ Public Class dlgTransformClimatic clsRTransform.AddParameter("calculated_from", "list(" & strCurrDataName & "=" & ucrReceiverData.GetVariableNames & ")", iPosition:=3) End Sub - Private Sub Evaporation() - If rdoWaterBalance.Checked Then - If rdoEvapValue.Checked Then - ucrReceiverData.SetMeAsReceiver() - clsRTransform.AddParameter("calculated_from", "list(" & strCurrDataName & "=" & ucrReceiverData.GetVariableNames & ")") - clsPMaxOperatorMax.AddParameter("evaporation.value", 5, iPosition:=1, bIncludeArgumentName:=False) - ElseIf rdoEvapVariable.Checked Then - ucrReceiverEvap.SetMeAsReceiver() - clsRTransform.AddParameter("calculated_from", "list(" & strCurrDataName & "=" & ucrReceiverData.GetVariableNames & ", " & strCurrDataName & "=" & ucrReceiverEvap.GetVariableNames & ")") - clsReduceOpEvapValue.SetOperation("-") - clsRWaterBalanceFunction.AddParameter("replace_na", clsROperatorParameter:=clsReduceOpEvapValue, iPosition:=1, bIncludeArgumentName:=False) - clsPMaxOperatorMax.RemoveParameterByName("evaporation.value") - End If - End If - End Sub - Private Sub ucrSelectorTransform_ControlValueChanged(ucrchangedControl As ucrCore) Handles ucrSelectorTransform.ControlValueChanged strCurrDataName = Chr(34) & ucrSelectorTransform.ucrAvailableDataFrames.cboAvailableDataFrames.SelectedItem & Chr(34) RainDays() GroupByYear() GroupByStation() - Evaporation() + ReduceWaterBalance() ChangeFunctions() AddCalculate() End Sub @@ -933,7 +941,7 @@ Public Class dlgTransformClimatic Private Sub ucrReceiverData_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverData.ControlValueChanged, ucrReceiverEvap.ControlValueChanged RainDays() - Evaporation() + ReduceWaterBalance() End Sub Private Sub ucrReceiverStation_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverStation.ControlValueChanged @@ -955,7 +963,7 @@ Public Class dlgTransformClimatic End Sub Private Sub ucrInputEvaporation_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrInputEvaporation.ControlContentsChanged, ucrPnlEvap.ControlContentsChanged - Evaporation() + ReduceWaterBalance() End Sub Private Sub RasterFunction() @@ -1086,4 +1094,38 @@ Public Class dlgTransformClimatic AddRemoveMeanOperator() AddCalculate() End Sub + Private Sub ReduceWaterBalance() + If rdoWaterBalance.Checked Then + If rdoEvapValue.Checked Then + clsRTransform.RemoveParameterByName("calculated_from") + ucrReceiverData.SetMeAsReceiver() + clsRTransform.AddParameter("calculated_from", "list(" & strCurrDataName & "=" & ucrReceiverData.GetVariableNames & ")") + If ucrChkWB.Checked Then + clsPMaxFunctionMax.AddParameter("0", 0, iPosition:=1, bIncludeArgumentName:=False) + clsPMaxOperatorMax.AddParameter("wb", clsROperatorParameter:=clsWBOperator, iPosition:=0, bIncludeArgumentName:=False) + clsPMaxOperatorMax.RemoveParameterByName("first") + clsPMaxOperatorMax.RemoveParameterByName("evaporation.value") + clsRWaterBalanceFunction.AddParameter("replace_na", clsRFunctionParameter:=clsTailFunction, iPosition:=2, bIncludeArgumentName:=False) + clsRWaterBalanceFunction.AddParameter("init", "0", iPosition:=3, bIncludeArgumentName:=False) + Else + clsPMaxOperatorMax.AddParameter("evaporation.value", 5, iPosition:=1, bIncludeArgumentName:=False) + clsPMaxFunctionMax.RemoveParameterByName("wb") + End If + + ElseIf rdoEvapVariable.Checked Then + ucrReceiverEvap.SetMeAsReceiver() + clsRTransform.AddParameter("calculated_from", "list(" & strCurrDataName & "=" & ucrReceiverData.GetVariableNames & ", " & strCurrDataName & "=" & ucrReceiverEvap.GetVariableNames & ")") + clsRWaterBalanceFunction.AddParameter("replace_na", clsROperatorParameter:=clsReduceOpEvapValue, iPosition:=1, bIncludeArgumentName:=False) + clsPMaxOperatorMax.RemoveParameterByName("evaporation.value") + End If + End If + End Sub + + Private Sub ucrChkWB_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkWB.ControlValueChanged + ReduceWaterBalance() + End Sub + + Private Sub rdoEvapValue_CheckedChanged(sender As Object, e As EventArgs) Handles rdoEvapValue.CheckedChanged, rdoEvapVariable.CheckedChanged + ReduceWaterBalance() + End Sub End Class \ No newline at end of file diff --git a/instat/frmMain.Designer.vb b/instat/frmMain.Designer.vb index 9a8750bf72f..9638a7ff857 100644 --- a/instat/frmMain.Designer.vb +++ b/instat/frmMain.Designer.vb @@ -189,6 +189,7 @@ Partial Class frmMain Me.mnuClimaticFileExportToClimsoft = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticFileExportToCPT = New System.Windows.Forms.ToolStripMenuItem() Me.mnuExportToWWRToolStrip = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticFileExportToClimpact = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator18 = New System.Windows.Forms.ToolStripSeparator() Me.mnuExamineEditData = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticExamineEditDataVisualiseData = New System.Windows.Forms.ToolStripMenuItem() @@ -680,6 +681,7 @@ Partial Class frmMain Me.mnuDataFrameMetadata = New System.Windows.Forms.ToolStripMenuItem() Me.mnuScriptFile = New System.Windows.Forms.ToolStripMenuItem() Me.mnuLogFile = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticPICSAGeneralGrap = New System.Windows.Forms.ToolStripMenuItem() Me.stsStrip.SuspendLayout() Me.Tool_strip.SuspendLayout() Me.mnuBar.SuspendLayout() @@ -1630,7 +1632,7 @@ Partial Class frmMain ' 'mnuClimaticFile ' - Me.mnuClimaticFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticFileImportSST, Me.mnuClimaticFileImportfromIRIDataLibrary, Me.mnuClimaticFileImportfromClimateDataStore, Me.mnuClimaticFileImportandTidyNetCDF, Me.mnuClimaticFileImportandTidyShapefile, Me.ToolStripSeparator20, Me.mnuClimateFileImportfromClimSoft, Me.mnuClimateFileImportfromClimSoftWizard, Me.mnuClimaticFileImportfromCliData, Me.ToolStripSeparator15, Me.mnuClimaticFileExportToClimsoft, Me.mnuClimaticFileExportToCPT, Me.mnuExportToWWRToolStrip}) + Me.mnuClimaticFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticFileImportSST, Me.mnuClimaticFileImportfromIRIDataLibrary, Me.mnuClimaticFileImportfromClimateDataStore, Me.mnuClimaticFileImportandTidyNetCDF, Me.mnuClimaticFileImportandTidyShapefile, Me.ToolStripSeparator20, Me.mnuClimateFileImportfromClimSoft, Me.mnuClimateFileImportfromClimSoftWizard, Me.mnuClimaticFileImportfromCliData, Me.ToolStripSeparator15, Me.mnuClimaticFileExportToClimsoft, Me.mnuClimaticFileExportToCPT, Me.mnuExportToWWRToolStrip, Me.mnuClimaticFileExportToClimpact}) Me.mnuClimaticFile.Name = "mnuClimaticFile" Me.mnuClimaticFile.Size = New System.Drawing.Size(212, 22) Me.mnuClimaticFile.Text = "File" @@ -1714,6 +1716,12 @@ Partial Class frmMain Me.mnuExportToWWRToolStrip.Size = New System.Drawing.Size(282, 22) Me.mnuExportToWWRToolStrip.Text = "Export to World Weather Records..." ' + 'mnuClimaticFileExportToClimpact + ' + Me.mnuClimaticFileExportToClimpact.Name = "mnuClimaticFileExportToClimpact" + Me.mnuClimaticFileExportToClimpact.Size = New System.Drawing.Size(282, 22) + Me.mnuClimaticFileExportToClimpact.Text = "Export to Climpact..." + ' 'ToolStripSeparator18 ' Me.ToolStripSeparator18.Name = "ToolStripSeparator18" @@ -2269,7 +2277,7 @@ Partial Class frmMain ' 'mnuClimaticPICSA ' - Me.mnuClimaticPICSA.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticPICSARainfallGraph, Me.mnuClimaticPICSATemperatureGraph, Me.ToolStripSeparator73, Me.mnuClimaticPICSACumExeedenceGraph, Me.mnuClimaticPICSACrops}) + Me.mnuClimaticPICSA.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticPICSARainfallGraph, Me.mnuClimaticPICSATemperatureGraph, Me.mnuClimaticPICSAGeneralGrap, Me.ToolStripSeparator73, Me.mnuClimaticPICSACumExeedenceGraph, Me.mnuClimaticPICSACrops}) Me.mnuClimaticPICSA.Name = "mnuClimaticPICSA" Me.mnuClimaticPICSA.Size = New System.Drawing.Size(212, 22) Me.mnuClimaticPICSA.Text = "PICSA" @@ -5085,6 +5093,12 @@ Partial Class frmMain Me.mnuLogFile.Text = "Log Window..." Me.mnuLogFile.ToolTipText = "Log Window" ' + 'mnuClimaticPICSAGeneralGrap + ' + Me.mnuClimaticPICSAGeneralGrap.Name = "mnuClimaticPICSAGeneralGrap" + Me.mnuClimaticPICSAGeneralGrap.Size = New System.Drawing.Size(246, 22) + Me.mnuClimaticPICSAGeneralGrap.Text = "General Graph..." + ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -5101,7 +5115,6 @@ Partial Class frmMain Me.Text = "R-Instat " + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "." + My.Application.Info.Version.Build.ToString - Me.Text = "R-Instat .." Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.stsStrip.ResumeLayout(False) Me.stsStrip.PerformLayout() @@ -5779,7 +5792,11 @@ Partial Class frmMain Friend WithEvents mnuClimaticDescribeOtherRosePlots As ToolStripMenuItem Friend WithEvents mnuClimaticDescribeTrendGraph As ToolStripMenuItem Friend WithEvents mnuClimaticDescribeSeasonalGraph As ToolStripMenuItem + + Friend WithEvents mnuClimaticFileExportToClimpact As ToolStripMenuItem + Friend WithEvents mnuViewSwapDataAndScript As ToolStripMenuItem Friend WithEvents mnuClimaticExamineEditDataVisualiseData As ToolStripMenuItem Friend WithEvents ToolStripSeparator27 As ToolStripSeparator + Friend WithEvents mnuClimaticPICSAGeneralGrap As ToolStripMenuItem End Class diff --git a/instat/frmMain.vb b/instat/frmMain.vb index 4b8d4749022..3dbd7477bd1 100644 --- a/instat/frmMain.vb +++ b/instat/frmMain.vb @@ -2476,6 +2476,10 @@ Public Class frmMain dlgExportToClimsoft.ShowDialog() End Sub + Private Sub mnuClimaticFileExportToClimpact_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileExportToClimpact.Click + dlgExportForClimpact.ShowDialog() + End Sub + Private Sub mnuPrepareDataReshapeScaleOrDistance_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataReshapeScaleOrDistance.Click dlgCluster.ShowDialog() End Sub @@ -2670,4 +2674,9 @@ Public Class frmMain Private Sub mnuClimaticExamineEditDataVisualiseData_Click(sender As Object, e As EventArgs) Handles mnuClimaticExamineEditDataVisualiseData.Click dlgVisualizeData.ShowDialog() End Sub + + Private Sub mnuClimaticPICSAGeneralGrap_Click(sender As Object, e As EventArgs) Handles mnuClimaticPICSAGeneralGrap.Click + dlgPICSARainfall.enumPICSAMode = dlgPICSARainfall.PICSAMode.General + dlgPICSARainfall.ShowDialog() + End Sub End Class diff --git a/instat/instat.vbproj b/instat/instat.vbproj index 305340244de..4ba86ddf574 100644 --- a/instat/instat.vbproj +++ b/instat/instat.vbproj @@ -239,6 +239,12 @@ Form + + dlgExportForClimpact.vb + + + Form + dlgFindInVariableOrFilter.vb @@ -3068,6 +3074,9 @@ dlgEdit.vb + + dlgExportForClimpact.vb + dlgExportToClimsoft.vb diff --git a/instat/sdgCalculationsSummmary.Designer.vb b/instat/sdgCalculationsSummmary.Designer.vb index ca1adec54dd..2d6baad1aed 100644 --- a/instat/sdgCalculationsSummmary.Designer.vb +++ b/instat/sdgCalculationsSummmary.Designer.vb @@ -82,9 +82,10 @@ Partial Class sdgCalculationsSummmary Me.tbSummaryCalcs.Controls.Add(Me.tbManipulations) Me.tbSummaryCalcs.Controls.Add(Me.tbSubCalcs) Me.tbSummaryCalcs.Location = New System.Drawing.Point(0, 0) + Me.tbSummaryCalcs.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.tbSummaryCalcs.Name = "tbSummaryCalcs" Me.tbSummaryCalcs.SelectedIndex = 0 - Me.tbSummaryCalcs.Size = New System.Drawing.Size(803, 533) + Me.tbSummaryCalcs.Size = New System.Drawing.Size(1004, 666) Me.tbSummaryCalcs.TabIndex = 1 ' 'tbMain @@ -104,10 +105,11 @@ Partial Class sdgCalculationsSummmary Me.tbMain.Controls.Add(Me.ucrSelectorBy) Me.tbMain.Controls.Add(Me.ucrPnlSave) Me.tbMain.Controls.Add(Me.ucrCalcSummary) - Me.tbMain.Location = New System.Drawing.Point(4, 22) + Me.tbMain.Location = New System.Drawing.Point(4, 25) + Me.tbMain.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.tbMain.Name = "tbMain" - Me.tbMain.Padding = New System.Windows.Forms.Padding(3) - Me.tbMain.Size = New System.Drawing.Size(795, 507) + Me.tbMain.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.tbMain.Size = New System.Drawing.Size(996, 637) Me.tbMain.TabIndex = 0 Me.tbMain.Text = "Main" Me.tbMain.UseVisualStyleBackColor = True @@ -115,20 +117,21 @@ Partial Class sdgCalculationsSummmary 'ucrDefineFilter ' Me.ucrDefineFilter.AutoSize = True - Me.ucrDefineFilter.Location = New System.Drawing.Point(8, 55) + Me.ucrDefineFilter.Location = New System.Drawing.Point(10, 69) + Me.ucrDefineFilter.Margin = New System.Windows.Forms.Padding(5, 5, 5, 5) Me.ucrDefineFilter.Name = "ucrDefineFilter" - Me.ucrDefineFilter.Size = New System.Drawing.Size(770, 389) + Me.ucrDefineFilter.Size = New System.Drawing.Size(962, 608) Me.ucrDefineFilter.TabIndex = 19 ' 'ucrReceiverByOrSort ' Me.ucrReceiverByOrSort.AutoSize = True Me.ucrReceiverByOrSort.frmParent = Nothing - Me.ucrReceiverByOrSort.Location = New System.Drawing.Point(239, 143) + Me.ucrReceiverByOrSort.Location = New System.Drawing.Point(299, 179) Me.ucrReceiverByOrSort.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverByOrSort.Name = "ucrReceiverByOrSort" Me.ucrReceiverByOrSort.Selector = Nothing - Me.ucrReceiverByOrSort.Size = New System.Drawing.Size(120, 100) + Me.ucrReceiverByOrSort.Size = New System.Drawing.Size(150, 125) Me.ucrReceiverByOrSort.strNcFilePath = "" Me.ucrReceiverByOrSort.TabIndex = 18 Me.ucrReceiverByOrSort.ucrSelector = Nothing @@ -139,17 +142,19 @@ Partial Class sdgCalculationsSummmary Me.ucrInputCalculationName.AutoSize = True Me.ucrInputCalculationName.IsMultiline = False Me.ucrInputCalculationName.IsReadOnly = False - Me.ucrInputCalculationName.Location = New System.Drawing.Point(373, 439) + Me.ucrInputCalculationName.Location = New System.Drawing.Point(466, 549) + Me.ucrInputCalculationName.Margin = New System.Windows.Forms.Padding(8, 8, 8, 8) Me.ucrInputCalculationName.Name = "ucrInputCalculationName" - Me.ucrInputCalculationName.Size = New System.Drawing.Size(137, 21) + Me.ucrInputCalculationName.Size = New System.Drawing.Size(171, 26) Me.ucrInputCalculationName.TabIndex = 12 ' 'lblReceiverLabel ' Me.lblReceiverLabel.AutoSize = True - Me.lblReceiverLabel.Location = New System.Drawing.Point(236, 126) + Me.lblReceiverLabel.Location = New System.Drawing.Point(295, 158) + Me.lblReceiverLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblReceiverLabel.Name = "lblReceiverLabel" - Me.lblReceiverLabel.Size = New System.Drawing.Size(45, 13) + Me.lblReceiverLabel.Size = New System.Drawing.Size(55, 16) Me.lblReceiverLabel.TabIndex = 15 Me.lblReceiverLabel.Text = "Factors:" ' @@ -159,35 +164,39 @@ Partial Class sdgCalculationsSummmary Me.ucrInputResultName.AutoSize = True Me.ucrInputResultName.IsMultiline = False Me.ucrInputResultName.IsReadOnly = False - Me.ucrInputResultName.Location = New System.Drawing.Point(102, 439) + Me.ucrInputResultName.Location = New System.Drawing.Point(128, 549) + Me.ucrInputResultName.Margin = New System.Windows.Forms.Padding(8, 8, 8, 8) Me.ucrInputResultName.Name = "ucrInputResultName" - Me.ucrInputResultName.Size = New System.Drawing.Size(137, 21) + Me.ucrInputResultName.Size = New System.Drawing.Size(171, 26) Me.ucrInputResultName.TabIndex = 13 ' 'lblResultName ' Me.lblResultName.AutoSize = True - Me.lblResultName.Location = New System.Drawing.Point(12, 442) + Me.lblResultName.Location = New System.Drawing.Point(15, 552) + Me.lblResultName.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblResultName.Name = "lblResultName" - Me.lblResultName.Size = New System.Drawing.Size(71, 13) + Me.lblResultName.Size = New System.Drawing.Size(88, 16) Me.lblResultName.TabIndex = 10 Me.lblResultName.Text = "Result Name:" ' 'lblCalcName ' Me.lblCalcName.AutoSize = True - Me.lblCalcName.Location = New System.Drawing.Point(273, 442) + Me.lblCalcName.Location = New System.Drawing.Point(341, 552) + Me.lblCalcName.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblCalcName.Name = "lblCalcName" - Me.lblCalcName.Size = New System.Drawing.Size(93, 13) + Me.lblCalcName.Size = New System.Drawing.Size(116, 16) Me.lblCalcName.TabIndex = 9 Me.lblCalcName.Text = "Calculation Name:" ' 'rdoSaveCalcAndResult ' Me.rdoSaveCalcAndResult.AutoSize = True - Me.rdoSaveCalcAndResult.Location = New System.Drawing.Point(12, 476) + Me.rdoSaveCalcAndResult.Location = New System.Drawing.Point(15, 595) + Me.rdoSaveCalcAndResult.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.rdoSaveCalcAndResult.Name = "rdoSaveCalcAndResult" - Me.rdoSaveCalcAndResult.Size = New System.Drawing.Size(159, 17) + Me.rdoSaveCalcAndResult.Size = New System.Drawing.Size(196, 20) Me.rdoSaveCalcAndResult.TabIndex = 8 Me.rdoSaveCalcAndResult.TabStop = True Me.rdoSaveCalcAndResult.Text = "Save Calculation and Result" @@ -196,9 +205,10 @@ Partial Class sdgCalculationsSummmary 'rdoSaveCalculation ' Me.rdoSaveCalculation.AutoSize = True - Me.rdoSaveCalculation.Location = New System.Drawing.Point(186, 476) + Me.rdoSaveCalculation.Location = New System.Drawing.Point(232, 595) + Me.rdoSaveCalculation.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.rdoSaveCalculation.Name = "rdoSaveCalculation" - Me.rdoSaveCalculation.Size = New System.Drawing.Size(129, 17) + Me.rdoSaveCalculation.Size = New System.Drawing.Size(159, 20) Me.rdoSaveCalculation.TabIndex = 7 Me.rdoSaveCalculation.TabStop = True Me.rdoSaveCalculation.Text = "Save Calculation Only" @@ -207,9 +217,10 @@ Partial Class sdgCalculationsSummmary 'rdoDoNotSave ' Me.rdoDoNotSave.AutoSize = True - Me.rdoDoNotSave.Location = New System.Drawing.Point(330, 476) + Me.rdoDoNotSave.Location = New System.Drawing.Point(412, 595) + Me.rdoDoNotSave.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.rdoDoNotSave.Name = "rdoDoNotSave" - Me.rdoDoNotSave.Size = New System.Drawing.Size(90, 17) + Me.rdoDoNotSave.Size = New System.Drawing.Size(109, 20) Me.rdoDoNotSave.TabIndex = 6 Me.rdoDoNotSave.TabStop = True Me.rdoDoNotSave.Text = "Save Nothing" @@ -218,9 +229,10 @@ Partial Class sdgCalculationsSummmary 'lblType ' Me.lblType.AutoSize = True - Me.lblType.Location = New System.Drawing.Point(9, 12) + Me.lblType.Location = New System.Drawing.Point(11, 15) + Me.lblType.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblType.Name = "lblType" - Me.lblType.Size = New System.Drawing.Size(34, 13) + Me.lblType.Size = New System.Drawing.Size(42, 16) Me.lblType.TabIndex = 4 Me.lblType.Text = "Type:" ' @@ -230,9 +242,10 @@ Partial Class sdgCalculationsSummmary Me.ucrInputType.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.ucrInputType.GetSetSelectedIndex = -1 Me.ucrInputType.IsReadOnly = False - Me.ucrInputType.Location = New System.Drawing.Point(8, 28) + Me.ucrInputType.Location = New System.Drawing.Point(10, 35) + Me.ucrInputType.Margin = New System.Windows.Forms.Padding(8, 8, 8, 8) Me.ucrInputType.Name = "ucrInputType" - Me.ucrInputType.Size = New System.Drawing.Size(120, 21) + Me.ucrInputType.Size = New System.Drawing.Size(150, 26) Me.ucrInputType.TabIndex = 3 ' 'ucrSelectorBy @@ -241,40 +254,43 @@ Partial Class sdgCalculationsSummmary Me.ucrSelectorBy.bDropUnusedFilterLevels = False Me.ucrSelectorBy.bShowHiddenColumns = False Me.ucrSelectorBy.bUseCurrentFilter = True - Me.ucrSelectorBy.Location = New System.Drawing.Point(8, 114) + Me.ucrSelectorBy.Location = New System.Drawing.Point(10, 142) Me.ucrSelectorBy.Margin = New System.Windows.Forms.Padding(0) Me.ucrSelectorBy.Name = "ucrSelectorBy" - Me.ucrSelectorBy.Size = New System.Drawing.Size(213, 183) + Me.ucrSelectorBy.Size = New System.Drawing.Size(334, 285) Me.ucrSelectorBy.TabIndex = 14 ' 'ucrPnlSave ' Me.ucrPnlSave.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.ucrPnlSave.Location = New System.Drawing.Point(3, 466) + Me.ucrPnlSave.Location = New System.Drawing.Point(4, 582) + Me.ucrPnlSave.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) Me.ucrPnlSave.Name = "ucrPnlSave" - Me.ucrPnlSave.Size = New System.Drawing.Size(427, 38) + Me.ucrPnlSave.Size = New System.Drawing.Size(534, 48) Me.ucrPnlSave.TabIndex = 20 ' 'ucrCalcSummary ' Me.ucrCalcSummary.AutoSize = True - Me.ucrCalcSummary.Location = New System.Drawing.Point(8, 50) + Me.ucrCalcSummary.Location = New System.Drawing.Point(10, 62) + Me.ucrCalcSummary.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.ucrCalcSummary.Name = "ucrCalcSummary" - Me.ucrCalcSummary.Size = New System.Drawing.Size(860, 338) + Me.ucrCalcSummary.Size = New System.Drawing.Size(1355, 518) Me.ucrCalcSummary.TabIndex = 17 ' 'tbManipulations ' - Me.tbManipulations.Controls.Add(Me.ucrManipulations) Me.tbManipulations.Controls.Add(Me.cmdManipDuplicate) Me.tbManipulations.Controls.Add(Me.cmdManipDelete) Me.tbManipulations.Controls.Add(Me.lblManipulations) Me.tbManipulations.Controls.Add(Me.cmdManipEdit) Me.tbManipulations.Controls.Add(Me.cmdManipAdd) - Me.tbManipulations.Location = New System.Drawing.Point(4, 22) + Me.tbManipulations.Controls.Add(Me.ucrManipulations) + Me.tbManipulations.Location = New System.Drawing.Point(4, 25) + Me.tbManipulations.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.tbManipulations.Name = "tbManipulations" - Me.tbManipulations.Padding = New System.Windows.Forms.Padding(3) - Me.tbManipulations.Size = New System.Drawing.Size(795, 507) + Me.tbManipulations.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.tbManipulations.Size = New System.Drawing.Size(996, 637) Me.tbManipulations.TabIndex = 1 Me.tbManipulations.Text = "Manipulations" Me.tbManipulations.UseVisualStyleBackColor = True @@ -282,27 +298,30 @@ Partial Class sdgCalculationsSummmary 'ucrManipulations ' Me.ucrManipulations.AutoSize = True - Me.ucrManipulations.Location = New System.Drawing.Point(6, 32) + Me.ucrManipulations.Location = New System.Drawing.Point(8, 40) + Me.ucrManipulations.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) Me.ucrManipulations.Name = "ucrManipulations" - Me.ucrManipulations.Size = New System.Drawing.Size(199, 150) + Me.ucrManipulations.Size = New System.Drawing.Size(375, 235) Me.ucrManipulations.TabIndex = 21 Me.ucrManipulations.ucrDataFrameList = Nothing Me.ucrManipulations.ucrReceiver = Nothing ' 'cmdManipDuplicate ' - Me.cmdManipDuplicate.Location = New System.Drawing.Point(166, 132) + Me.cmdManipDuplicate.Location = New System.Drawing.Point(273, 199) + Me.cmdManipDuplicate.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.cmdManipDuplicate.Name = "cmdManipDuplicate" - Me.cmdManipDuplicate.Size = New System.Drawing.Size(75, 23) + Me.cmdManipDuplicate.Size = New System.Drawing.Size(94, 29) Me.cmdManipDuplicate.TabIndex = 20 Me.cmdManipDuplicate.Text = "Duplicate" Me.cmdManipDuplicate.UseVisualStyleBackColor = True ' 'cmdManipDelete ' - Me.cmdManipDelete.Location = New System.Drawing.Point(166, 103) + Me.cmdManipDelete.Location = New System.Drawing.Point(273, 163) + Me.cmdManipDelete.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.cmdManipDelete.Name = "cmdManipDelete" - Me.cmdManipDelete.Size = New System.Drawing.Size(75, 23) + Me.cmdManipDelete.Size = New System.Drawing.Size(94, 29) Me.cmdManipDelete.TabIndex = 17 Me.cmdManipDelete.Text = "Delete" Me.cmdManipDelete.UseVisualStyleBackColor = True @@ -310,26 +329,29 @@ Partial Class sdgCalculationsSummmary 'lblManipulations ' Me.lblManipulations.AutoSize = True - Me.lblManipulations.Location = New System.Drawing.Point(9, 17) + Me.lblManipulations.Location = New System.Drawing.Point(11, 21) + Me.lblManipulations.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblManipulations.Name = "lblManipulations" - Me.lblManipulations.Size = New System.Drawing.Size(75, 13) + Me.lblManipulations.Size = New System.Drawing.Size(93, 16) Me.lblManipulations.TabIndex = 16 Me.lblManipulations.Text = "Manipulations:" ' 'cmdManipEdit ' - Me.cmdManipEdit.Location = New System.Drawing.Point(166, 74) + Me.cmdManipEdit.Location = New System.Drawing.Point(273, 126) + Me.cmdManipEdit.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.cmdManipEdit.Name = "cmdManipEdit" - Me.cmdManipEdit.Size = New System.Drawing.Size(75, 23) + Me.cmdManipEdit.Size = New System.Drawing.Size(94, 29) Me.cmdManipEdit.TabIndex = 18 Me.cmdManipEdit.Text = "Edit" Me.cmdManipEdit.UseVisualStyleBackColor = True ' 'cmdManipAdd ' - Me.cmdManipAdd.Location = New System.Drawing.Point(166, 45) + Me.cmdManipAdd.Location = New System.Drawing.Point(273, 90) + Me.cmdManipAdd.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.cmdManipAdd.Name = "cmdManipAdd" - Me.cmdManipAdd.Size = New System.Drawing.Size(75, 23) + Me.cmdManipAdd.Size = New System.Drawing.Size(94, 29) Me.cmdManipAdd.TabIndex = 19 Me.cmdManipAdd.Text = "Add" Me.cmdManipAdd.UseVisualStyleBackColor = True @@ -342,10 +364,11 @@ Partial Class sdgCalculationsSummmary Me.tbSubCalcs.Controls.Add(Me.cmdSubCalcAdd) Me.tbSubCalcs.Controls.Add(Me.lblSubCalcs) Me.tbSubCalcs.Controls.Add(Me.cmdSubCalcEdit) - Me.tbSubCalcs.Location = New System.Drawing.Point(4, 22) + Me.tbSubCalcs.Location = New System.Drawing.Point(4, 25) + Me.tbSubCalcs.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.tbSubCalcs.Name = "tbSubCalcs" - Me.tbSubCalcs.Padding = New System.Windows.Forms.Padding(3) - Me.tbSubCalcs.Size = New System.Drawing.Size(795, 507) + Me.tbSubCalcs.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.tbSubCalcs.Size = New System.Drawing.Size(996, 637) Me.tbSubCalcs.TabIndex = 2 Me.tbSubCalcs.Text = "Sub Calculations" Me.tbSubCalcs.UseVisualStyleBackColor = True @@ -353,36 +376,40 @@ Partial Class sdgCalculationsSummmary 'lstSubCalcs ' Me.lstSubCalcs.HideSelection = False - Me.lstSubCalcs.Location = New System.Drawing.Point(9, 33) + Me.lstSubCalcs.Location = New System.Drawing.Point(11, 41) + Me.lstSubCalcs.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.lstSubCalcs.Name = "lstSubCalcs" - Me.lstSubCalcs.Size = New System.Drawing.Size(121, 133) + Me.lstSubCalcs.Size = New System.Drawing.Size(150, 165) Me.lstSubCalcs.TabIndex = 21 Me.lstSubCalcs.UseCompatibleStateImageBehavior = False Me.lstSubCalcs.View = System.Windows.Forms.View.List ' 'cmdSubCalcDuplicate ' - Me.cmdSubCalcDuplicate.Location = New System.Drawing.Point(166, 132) + Me.cmdSubCalcDuplicate.Location = New System.Drawing.Point(208, 165) + Me.cmdSubCalcDuplicate.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.cmdSubCalcDuplicate.Name = "cmdSubCalcDuplicate" - Me.cmdSubCalcDuplicate.Size = New System.Drawing.Size(75, 23) + Me.cmdSubCalcDuplicate.Size = New System.Drawing.Size(94, 29) Me.cmdSubCalcDuplicate.TabIndex = 26 Me.cmdSubCalcDuplicate.Text = "Duplicate" Me.cmdSubCalcDuplicate.UseVisualStyleBackColor = True ' 'cmdSubCalcDelete ' - Me.cmdSubCalcDelete.Location = New System.Drawing.Point(166, 103) + Me.cmdSubCalcDelete.Location = New System.Drawing.Point(208, 129) + Me.cmdSubCalcDelete.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.cmdSubCalcDelete.Name = "cmdSubCalcDelete" - Me.cmdSubCalcDelete.Size = New System.Drawing.Size(75, 23) + Me.cmdSubCalcDelete.Size = New System.Drawing.Size(94, 29) Me.cmdSubCalcDelete.TabIndex = 23 Me.cmdSubCalcDelete.Text = "Delete" Me.cmdSubCalcDelete.UseVisualStyleBackColor = True ' 'cmdSubCalcAdd ' - Me.cmdSubCalcAdd.Location = New System.Drawing.Point(166, 45) + Me.cmdSubCalcAdd.Location = New System.Drawing.Point(208, 56) + Me.cmdSubCalcAdd.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.cmdSubCalcAdd.Name = "cmdSubCalcAdd" - Me.cmdSubCalcAdd.Size = New System.Drawing.Size(75, 23) + Me.cmdSubCalcAdd.Size = New System.Drawing.Size(94, 29) Me.cmdSubCalcAdd.TabIndex = 25 Me.cmdSubCalcAdd.Text = "Add" Me.cmdSubCalcAdd.UseVisualStyleBackColor = True @@ -390,17 +417,19 @@ Partial Class sdgCalculationsSummmary 'lblSubCalcs ' Me.lblSubCalcs.AutoSize = True - Me.lblSubCalcs.Location = New System.Drawing.Point(9, 17) + Me.lblSubCalcs.Location = New System.Drawing.Point(11, 21) + Me.lblSubCalcs.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblSubCalcs.Name = "lblSubCalcs" - Me.lblSubCalcs.Size = New System.Drawing.Size(89, 13) + Me.lblSubCalcs.Size = New System.Drawing.Size(111, 16) Me.lblSubCalcs.TabIndex = 22 Me.lblSubCalcs.Text = "Sub-Calculations:" ' 'cmdSubCalcEdit ' - Me.cmdSubCalcEdit.Location = New System.Drawing.Point(166, 74) + Me.cmdSubCalcEdit.Location = New System.Drawing.Point(208, 92) + Me.cmdSubCalcEdit.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.cmdSubCalcEdit.Name = "cmdSubCalcEdit" - Me.cmdSubCalcEdit.Size = New System.Drawing.Size(75, 23) + Me.cmdSubCalcEdit.Size = New System.Drawing.Size(94, 29) Me.cmdSubCalcEdit.TabIndex = 24 Me.cmdSubCalcEdit.Text = "Edit" Me.cmdSubCalcEdit.UseVisualStyleBackColor = True @@ -408,20 +437,22 @@ Partial Class sdgCalculationsSummmary 'ucrBaseSubDialog ' Me.ucrBaseSubDialog.AutoSize = True - Me.ucrBaseSubDialog.Location = New System.Drawing.Point(307, 533) + Me.ucrBaseSubDialog.Location = New System.Drawing.Point(384, 666) + Me.ucrBaseSubDialog.Margin = New System.Windows.Forms.Padding(5, 5, 5, 5) Me.ucrBaseSubDialog.Name = "ucrBaseSubDialog" - Me.ucrBaseSubDialog.Size = New System.Drawing.Size(224, 30) + Me.ucrBaseSubDialog.Size = New System.Drawing.Size(281, 38) Me.ucrBaseSubDialog.TabIndex = 0 ' 'sdgCalculationsSummmary ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(120.0!, 120.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi Me.AutoSize = True - Me.ClientSize = New System.Drawing.Size(806, 565) + Me.ClientSize = New System.Drawing.Size(1008, 706) Me.Controls.Add(Me.ucrBaseSubDialog) Me.Controls.Add(Me.tbSummaryCalcs) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "sdgCalculationsSummmary" diff --git a/instat/sdgPlots.vb b/instat/sdgPlots.vb index de83d3ad2c9..840c21da035 100644 --- a/instat/sdgPlots.vb +++ b/instat/sdgPlots.vb @@ -2383,6 +2383,7 @@ Public Class sdgPlots urChkSelectTheme.SetRCode(clsBaseOperator, bReset, bCloneIfNeeded:=True) ucrPnlHorizonatalVertical.SetRCode(clsFacetFunction, bReset, bCloneIfNeeded:=True) + ucr1stFactorReceiver.SetRCode(clsFacetVariablesOperator, bReset, bCloneIfNeeded:=True) ucr2ndFactorReceiver.SetRCode(clsFacetVariablesOperator, bReset, bCloneIfNeeded:=True) @@ -2391,11 +2392,11 @@ Public Class sdgPlots ucrChkFreeScalesX.SetRCode(clsFacetFunction, bReset, bCloneIfNeeded:=True) If bReset Then ucrChkFreeScalesY.SetRCode(clsFacetFunction, bReset, bCloneIfNeeded:=True) + ucrChkIncludeFacets.SetRCode(clsBaseOperator, bReset, bCloneIfNeeded:=True) End If ucrNudNumberofRows.SetRCode(clsFacetFunction, bReset, bCloneIfNeeded:=True) ucrChkLabeler.SetRCode(clsFacetFunction, bReset, bCloneIfNeeded:=True) ucrChkDrop.SetRCode(clsFacetFunction, bReset, bCloneIfNeeded:=True) - ucrChkIncludeFacets.SetRCode(clsBaseOperator, bReset, bCloneIfNeeded:=True) 'Annnotation ucrChkAnnotation.SetRCode(clsBaseOperator, bReset, bCloneIfNeeded:=True) diff --git a/instat/sdgProportionsPercentages.vb b/instat/sdgProportionsPercentages.vb index 2432df90623..b45d72b4af1 100644 --- a/instat/sdgProportionsPercentages.vb +++ b/instat/sdgProportionsPercentages.vb @@ -49,7 +49,6 @@ Public Class sdgProportionsPercentages ucrChkProportionsPercentages.SetParameter(New RParameter("percentage_type")) ucrChkProportionsPercentages.SetValuesCheckedAndUnchecked(Chr(34) & "factors" & Chr(34), Chr(34) & "none" & Chr(34)) - ucrChkProportionsPercentages.SetRDefault(Chr(34) & "none" & Chr(34)) ucrChkProportionsPercentages.SetText("Calculate Proportions or Percentages") ucrPnlBY.AddToLinkedControls({ucrReceiverByFactor, ucrChkDisplayAsDecimal}, objValues:={rdoByFactors}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) @@ -70,6 +69,8 @@ Public Class sdgProportionsPercentages InitialiseControls() End If clsDefaultFunction = clsNewDefaultFunction + clsDefaultFunction.AddParameter("percentage_type", Chr(34) & "factors" & Chr(34)) + SetRCode(Me, clsDefaultFunction, bReset) End Sub diff --git a/instat/sdgSummaries.Designer.vb b/instat/sdgSummaries.Designer.vb index 1a3609d27a0..4f1e8cd8ec8 100644 --- a/instat/sdgSummaries.Designer.vb +++ b/instat/sdgSummaries.Designer.vb @@ -41,96 +41,35 @@ Partial Class sdgSummaries Me.components = New System.ComponentModel.Container() Me.tbCircular = New System.Windows.Forms.TabPage() Me.grpCircScale = New System.Windows.Forms.GroupBox() - Me.ucrChkCircRange = New instat.ucrCheck() - Me.ucrChkAngVar = New instat.ucrCheck() - Me.ucrChkrho = New instat.ucrCheck() - Me.ucrChkAngDev = New instat.ucrCheck() - Me.ucrChkVar = New instat.ucrCheck() - Me.ucrChkSd = New instat.ucrCheck() Me.grpCircLocation = New System.Windows.Forms.GroupBox() - Me.ucrChkCircMedian = New instat.ucrCheck() - Me.ucrChkMin = New instat.ucrCheck() - Me.ucrChkMedianH = New instat.ucrCheck() - Me.ucrChkQ3 = New instat.ucrCheck() - Me.ucrChkQ1 = New instat.ucrCheck() - Me.ucrChkMax = New instat.ucrCheck() - Me.ucrChkCircMean = New instat.ucrCheck() Me.tbModel = New System.Windows.Forms.TabPage() - Me.ucrChkStandardErrorOfMean = New instat.ucrCheck() Me.tbPosition = New System.Windows.Forms.TabPage() - Me.ucrChkOrderBy = New instat.ucrCheck() Me.lblOrderBy = New System.Windows.Forms.Label() Me.grpPosition = New System.Windows.Forms.GroupBox() - Me.ucrChkSetseed = New instat.ucrCheck() - Me.ucrNudSeed = New instat.ucrNud() - Me.ucrChkSample = New instat.ucrCheck() - Me.ucrInputN = New instat.ucrInputTextBox() Me.lblInputN = New System.Windows.Forms.Label() - Me.ucrChkFirst = New instat.ucrCheck() - Me.ucrChkLast = New instat.ucrCheck() - Me.ucrChknth = New instat.ucrCheck() - Me.ucrSelectorOrderBy = New instat.ucrSelectorByDataFrameAddRemove() - Me.ucrReceiverOrderBy = New instat.ucrReceiverSingle() Me.tbTwoVariables = New System.Windows.Forms.TabPage() Me.lblSecondVariable = New System.Windows.Forms.Label() Me.grpRelationships = New System.Windows.Forms.GroupBox() - Me.ucrChkCovariance = New instat.ucrCheck() - Me.ucrChkCorrelations = New instat.ucrCheck() Me.grpHyroGOF = New System.Windows.Forms.GroupBox() Me.lblJmia = New System.Windows.Forms.Label() - Me.ucrInputJmia = New instat.ucrInputTextBox() - Me.ucrChkSelectAll = New instat.ucrCheck() - Me.ucrChkRelativeIndexOfAgreement = New instat.ucrCheck() - Me.ucrChkRatioOfStandardDeviation = New instat.ucrCheck() - Me.ucrChkCoefDetermination = New instat.ucrCheck() - Me.ucrChkRatioOfRootMeanSquaredError = New instat.ucrCheck() - Me.ucrChkRelativeNashSutcliffeEff = New instat.ucrCheck() - Me.ucrChkModifiedIndexOfAgreement = New instat.ucrCheck() - Me.ucrChkCoefPersistence = New instat.ucrCheck() - Me.ucrChkNashSutcliffeEfficiency = New instat.ucrCheck() - Me.ucrChkSumOfSquaredResiduals = New instat.ucrCheck() - Me.ucrChkKlingGuptaEfficiency = New instat.ucrCheck() - Me.ucrChkVolumetricEfficiency = New instat.ucrCheck() - Me.ucrChkPercentBias = New instat.ucrCheck() - Me.ucrChkModNashSutcliffeEff = New instat.ucrCheck() - Me.ucrChkMeanError = New instat.ucrCheck() - Me.ucrChkMeanSquaredError = New instat.ucrCheck() - Me.ucrChkRootMeanSquaredError = New instat.ucrCheck() Me.cmdHelp = New System.Windows.Forms.Button() - Me.ucrChkNormRootMeanSquaredError = New instat.ucrCheck() - Me.ucrChkMeanAbsoluteError = New instat.ucrCheck() - Me.ucrChkIndexOfAgreement = New instat.ucrCheck() - Me.ucrReceiverSecondVariable = New instat.ucrReceiverSingle() - Me.ucrSelectorSecondVariable = New instat.ucrSelectorByDataFrameAddRemove() Me.tbMore = New System.Windows.Forms.TabPage() Me.grpProportionsPercentiles = New System.Windows.Forms.GroupBox() - Me.ucrInputQuantile = New instat.ucrInputTextBox() - Me.ucrChkQuantile = New instat.ucrCheck() - Me.ucrInputCountValue = New instat.ucrInputTextBox() - Me.ucrInputComboCountTest = New instat.ucrInputComboBox() - Me.ucrChkProportion = New instat.ucrCheck() - Me.ucrChkCount = New instat.ucrCheck() - Me.ucrChkPercentage = New instat.ucrCheck() - Me.ucrInputPropValue = New instat.ucrInputTextBox() - Me.ucrInputComboPropTest = New instat.ucrInputComboBox() - Me.ucrInputPercentile = New instat.ucrInputTextBox() - Me.ucrChkPercentile = New instat.ucrCheck() Me.grpLocation = New System.Windows.Forms.GroupBox() Me.lblFractionTrimmed = New System.Windows.Forms.Label() - Me.ucrNudFraction = New instat.ucrNud() - Me.ucrChkTrimmedMean = New instat.ucrCheck() Me.grpScale = New System.Windows.Forms.GroupBox() - Me.ucrChkSn = New instat.ucrCheck() - Me.ucrChkQn = New instat.ucrCheck() - Me.ucrChkCoefficientOfVariation = New instat.ucrCheck() - Me.ucrChkMedianAbsoluteDeviation = New instat.ucrCheck() Me.grpSkewness = New System.Windows.Forms.GroupBox() - Me.ucrChkMc = New instat.ucrCheck() - Me.ucrChkSkewness = New instat.ucrCheck() Me.grpKurtosis = New System.Windows.Forms.GroupBox() - Me.ucrChkKurtosis = New instat.ucrCheck() + Me.cmdOptions = New System.Windows.Forms.Button() Me.tbsum = New System.Windows.Forms.TabPage() Me.grpDecilesQuintiles = New System.Windows.Forms.GroupBox() + Me.grpCommon = New System.Windows.Forms.GroupBox() + Me.grpQuartilesTerciles = New System.Windows.Forms.GroupBox() + Me.grpNotOrderedFactor = New System.Windows.Forms.GroupBox() + Me.grpNumeric = New System.Windows.Forms.GroupBox() + Me.tbSummaries = New System.Windows.Forms.TabControl() + Me.ttVerificationSummaries = New System.Windows.Forms.ToolTip(Me.components) + Me.ucrButtonsSummaries = New instat.ucrButtonsSubdialogue() Me.ucrChkP60 = New instat.ucrCheck() Me.ucrChkP90 = New instat.ucrCheck() Me.ucrChkP70 = New instat.ucrCheck() @@ -139,30 +78,94 @@ Partial Class sdgSummaries Me.ucrChkP30 = New instat.ucrCheck() Me.ucrChkP10 = New instat.ucrCheck() Me.ucrChkP20 = New instat.ucrCheck() - Me.grpCommon = New System.Windows.Forms.GroupBox() Me.ucrChkn_distinct = New instat.ucrCheck() Me.ucrChkNTotal = New instat.ucrCheck() Me.ucrChkMode = New instat.ucrCheck() Me.ucrChkNMissing = New instat.ucrCheck() Me.ucrChkNonMissing = New instat.ucrCheck() - Me.grpQuartilesTerciles = New System.Windows.Forms.GroupBox() Me.ucrChkP67 = New instat.ucrCheck() Me.ucrChkP33 = New instat.ucrCheck() Me.ucrChkP25 = New instat.ucrCheck() Me.ucrChkP75 = New instat.ucrCheck() - Me.grpNotOrderedFactor = New System.Windows.Forms.GroupBox() Me.ucrChkRange = New instat.ucrCheck() Me.ucrChkMaximum = New instat.ucrCheck() Me.ucrChkMinimum = New instat.ucrCheck() - Me.grpNumeric = New System.Windows.Forms.GroupBox() Me.ucrChkVariance = New instat.ucrCheck() Me.ucrChkMedian = New instat.ucrCheck() Me.ucrChkStdDev = New instat.ucrCheck() Me.ucrChkSum = New instat.ucrCheck() Me.ucrChkMean = New instat.ucrCheck() - Me.tbSummaries = New System.Windows.Forms.TabControl() - Me.ttVerificationSummaries = New System.Windows.Forms.ToolTip(Me.components) - Me.ucrButtonsSummaries = New instat.ucrButtonsSubdialogue() + Me.ucrInputQuantile = New instat.ucrInputTextBox() + Me.ucrChkQuantile = New instat.ucrCheck() + Me.ucrInputCountValue = New instat.ucrInputTextBox() + Me.ucrInputComboCountTest = New instat.ucrInputComboBox() + Me.ucrChkProportion = New instat.ucrCheck() + Me.ucrChkCount = New instat.ucrCheck() + Me.ucrChkPercentage = New instat.ucrCheck() + Me.ucrInputPropValue = New instat.ucrInputTextBox() + Me.ucrInputComboPropTest = New instat.ucrInputComboBox() + Me.ucrInputPercentile = New instat.ucrInputTextBox() + Me.ucrChkPercentile = New instat.ucrCheck() + Me.ucrNudFraction = New instat.ucrNud() + Me.ucrChkTrimmedMean = New instat.ucrCheck() + Me.ucrChkSn = New instat.ucrCheck() + Me.ucrChkQn = New instat.ucrCheck() + Me.ucrChkCoefficientOfVariation = New instat.ucrCheck() + Me.ucrChkMedianAbsoluteDeviation = New instat.ucrCheck() + Me.ucrChkMc = New instat.ucrCheck() + Me.ucrChkSkewness = New instat.ucrCheck() + Me.ucrChkProportionsPercentages = New instat.ucrCheck() + Me.ucrChkKurtosis = New instat.ucrCheck() + Me.ucrChkCovariance = New instat.ucrCheck() + Me.ucrChkCorrelations = New instat.ucrCheck() + Me.ucrInputJmia = New instat.ucrInputTextBox() + Me.ucrChkSelectAll = New instat.ucrCheck() + Me.ucrChkRelativeIndexOfAgreement = New instat.ucrCheck() + Me.ucrChkRatioOfStandardDeviation = New instat.ucrCheck() + Me.ucrChkCoefDetermination = New instat.ucrCheck() + Me.ucrChkRatioOfRootMeanSquaredError = New instat.ucrCheck() + Me.ucrChkRelativeNashSutcliffeEff = New instat.ucrCheck() + Me.ucrChkModifiedIndexOfAgreement = New instat.ucrCheck() + Me.ucrChkCoefPersistence = New instat.ucrCheck() + Me.ucrChkNashSutcliffeEfficiency = New instat.ucrCheck() + Me.ucrChkSumOfSquaredResiduals = New instat.ucrCheck() + Me.ucrChkKlingGuptaEfficiency = New instat.ucrCheck() + Me.ucrChkVolumetricEfficiency = New instat.ucrCheck() + Me.ucrChkPercentBias = New instat.ucrCheck() + Me.ucrChkModNashSutcliffeEff = New instat.ucrCheck() + Me.ucrChkMeanError = New instat.ucrCheck() + Me.ucrChkMeanSquaredError = New instat.ucrCheck() + Me.ucrChkRootMeanSquaredError = New instat.ucrCheck() + Me.ucrChkNormRootMeanSquaredError = New instat.ucrCheck() + Me.ucrChkMeanAbsoluteError = New instat.ucrCheck() + Me.ucrChkIndexOfAgreement = New instat.ucrCheck() + Me.ucrReceiverSecondVariable = New instat.ucrReceiverSingle() + Me.ucrSelectorSecondVariable = New instat.ucrSelectorByDataFrameAddRemove() + Me.ucrChkOrderBy = New instat.ucrCheck() + Me.ucrChkSetseed = New instat.ucrCheck() + Me.ucrNudSeed = New instat.ucrNud() + Me.ucrChkSample = New instat.ucrCheck() + Me.ucrInputN = New instat.ucrInputTextBox() + Me.ucrChkFirst = New instat.ucrCheck() + Me.ucrChkLast = New instat.ucrCheck() + Me.ucrChknth = New instat.ucrCheck() + Me.ucrSelectorOrderBy = New instat.ucrSelectorByDataFrameAddRemove() + Me.ucrReceiverOrderBy = New instat.ucrReceiverSingle() + Me.ucrChkStandardErrorOfMean = New instat.ucrCheck() + Me.ucrChkCircRange = New instat.ucrCheck() + Me.ucrChkAngVar = New instat.ucrCheck() + Me.ucrChkrho = New instat.ucrCheck() + Me.ucrChkAngDev = New instat.ucrCheck() + Me.ucrChkVar = New instat.ucrCheck() + Me.ucrChkSd = New instat.ucrCheck() + Me.ucrChkCircMedian = New instat.ucrCheck() + Me.ucrChkMin = New instat.ucrCheck() + Me.ucrChkMedianH = New instat.ucrCheck() + Me.ucrChkQ3 = New instat.ucrCheck() + Me.ucrChkQ1 = New instat.ucrCheck() + Me.ucrChkMax = New instat.ucrCheck() + Me.ucrChkCircMean = New instat.ucrCheck() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.tbCircular.SuspendLayout() Me.grpCircScale.SuspendLayout() Me.grpCircLocation.SuspendLayout() @@ -185,17 +188,17 @@ Partial Class sdgSummaries Me.grpNotOrderedFactor.SuspendLayout() Me.grpNumeric.SuspendLayout() Me.tbSummaries.SuspendLayout() + Me.GroupBox1.SuspendLayout() Me.SuspendLayout() ' 'tbCircular ' Me.tbCircular.Controls.Add(Me.grpCircScale) Me.tbCircular.Controls.Add(Me.grpCircLocation) - Me.tbCircular.Location = New System.Drawing.Point(4, 22) - Me.tbCircular.Margin = New System.Windows.Forms.Padding(2) + Me.tbCircular.Location = New System.Drawing.Point(4, 29) Me.tbCircular.Name = "tbCircular" - Me.tbCircular.Padding = New System.Windows.Forms.Padding(2) - Me.tbCircular.Size = New System.Drawing.Size(409, 383) + Me.tbCircular.Padding = New System.Windows.Forms.Padding(3) + Me.tbCircular.Size = New System.Drawing.Size(618, 581) Me.tbCircular.TabIndex = 8 Me.tbCircular.Text = "Circular" Me.tbCircular.UseVisualStyleBackColor = True @@ -208,75 +211,13 @@ Partial Class sdgSummaries Me.grpCircScale.Controls.Add(Me.ucrChkAngDev) Me.grpCircScale.Controls.Add(Me.ucrChkVar) Me.grpCircScale.Controls.Add(Me.ucrChkSd) - Me.grpCircScale.Location = New System.Drawing.Point(4, 103) - Me.grpCircScale.Margin = New System.Windows.Forms.Padding(2) + Me.grpCircScale.Location = New System.Drawing.Point(6, 154) Me.grpCircScale.Name = "grpCircScale" - Me.grpCircScale.Padding = New System.Windows.Forms.Padding(2) - Me.grpCircScale.Size = New System.Drawing.Size(401, 81) + Me.grpCircScale.Size = New System.Drawing.Size(602, 122) Me.grpCircScale.TabIndex = 1 Me.grpCircScale.TabStop = False Me.grpCircScale.Text = "Scale" ' - 'ucrChkCircRange - ' - Me.ucrChkCircRange.AutoSize = True - Me.ucrChkCircRange.Checked = False - Me.ucrChkCircRange.Location = New System.Drawing.Point(21, 47) - Me.ucrChkCircRange.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkCircRange.Name = "ucrChkCircRange" - Me.ucrChkCircRange.Size = New System.Drawing.Size(80, 23) - Me.ucrChkCircRange.TabIndex = 1 - ' - 'ucrChkAngVar - ' - Me.ucrChkAngVar.AutoSize = True - Me.ucrChkAngVar.Checked = False - Me.ucrChkAngVar.Location = New System.Drawing.Point(213, 21) - Me.ucrChkAngVar.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkAngVar.Name = "ucrChkAngVar" - Me.ucrChkAngVar.Size = New System.Drawing.Size(80, 23) - Me.ucrChkAngVar.TabIndex = 4 - ' - 'ucrChkrho - ' - Me.ucrChkrho.AutoSize = True - Me.ucrChkrho.Checked = False - Me.ucrChkrho.Location = New System.Drawing.Point(124, 47) - Me.ucrChkrho.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkrho.Name = "ucrChkrho" - Me.ucrChkrho.Size = New System.Drawing.Size(80, 23) - Me.ucrChkrho.TabIndex = 3 - ' - 'ucrChkAngDev - ' - Me.ucrChkAngDev.AutoSize = True - Me.ucrChkAngDev.Checked = False - Me.ucrChkAngDev.Location = New System.Drawing.Point(213, 47) - Me.ucrChkAngDev.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkAngDev.Name = "ucrChkAngDev" - Me.ucrChkAngDev.Size = New System.Drawing.Size(80, 23) - Me.ucrChkAngDev.TabIndex = 5 - ' - 'ucrChkVar - ' - Me.ucrChkVar.AutoSize = True - Me.ucrChkVar.Checked = False - Me.ucrChkVar.Location = New System.Drawing.Point(124, 19) - Me.ucrChkVar.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkVar.Name = "ucrChkVar" - Me.ucrChkVar.Size = New System.Drawing.Size(80, 23) - Me.ucrChkVar.TabIndex = 2 - ' - 'ucrChkSd - ' - Me.ucrChkSd.AutoSize = True - Me.ucrChkSd.Checked = False - Me.ucrChkSd.Location = New System.Drawing.Point(21, 19) - Me.ucrChkSd.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkSd.Name = "ucrChkSd" - Me.ucrChkSd.Size = New System.Drawing.Size(80, 23) - Me.ucrChkSd.TabIndex = 0 - ' 'grpCircLocation ' Me.grpCircLocation.Controls.Add(Me.ucrChkCircMedian) @@ -286,106 +227,25 @@ Partial Class sdgSummaries Me.grpCircLocation.Controls.Add(Me.ucrChkQ1) Me.grpCircLocation.Controls.Add(Me.ucrChkMax) Me.grpCircLocation.Controls.Add(Me.ucrChkCircMean) - Me.grpCircLocation.Location = New System.Drawing.Point(4, 9) - Me.grpCircLocation.Margin = New System.Windows.Forms.Padding(2) + Me.grpCircLocation.Location = New System.Drawing.Point(6, 14) Me.grpCircLocation.Name = "grpCircLocation" - Me.grpCircLocation.Padding = New System.Windows.Forms.Padding(2) - Me.grpCircLocation.Size = New System.Drawing.Size(401, 90) + Me.grpCircLocation.Size = New System.Drawing.Size(602, 135) Me.grpCircLocation.TabIndex = 0 Me.grpCircLocation.TabStop = False Me.grpCircLocation.Text = "Location" ' - 'ucrChkCircMedian - ' - Me.ucrChkCircMedian.AutoSize = True - Me.ucrChkCircMedian.Checked = False - Me.ucrChkCircMedian.Location = New System.Drawing.Point(124, 26) - Me.ucrChkCircMedian.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkCircMedian.Name = "ucrChkCircMedian" - Me.ucrChkCircMedian.Size = New System.Drawing.Size(81, 23) - Me.ucrChkCircMedian.TabIndex = 2 - ' - 'ucrChkMin - ' - Me.ucrChkMin.AutoSize = True - Me.ucrChkMin.Checked = False - Me.ucrChkMin.Location = New System.Drawing.Point(213, 26) - Me.ucrChkMin.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkMin.Name = "ucrChkMin" - Me.ucrChkMin.Size = New System.Drawing.Size(80, 23) - Me.ucrChkMin.TabIndex = 4 - ' - 'ucrChkMedianH - ' - Me.ucrChkMedianH.AutoSize = True - Me.ucrChkMedianH.Checked = False - Me.ucrChkMedianH.Location = New System.Drawing.Point(300, 26) - Me.ucrChkMedianH.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkMedianH.Name = "ucrChkMedianH" - Me.ucrChkMedianH.Size = New System.Drawing.Size(80, 23) - Me.ucrChkMedianH.TabIndex = 6 - ' - 'ucrChkQ3 - ' - Me.ucrChkQ3.AutoSize = True - Me.ucrChkQ3.Checked = False - Me.ucrChkQ3.Location = New System.Drawing.Point(124, 54) - Me.ucrChkQ3.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkQ3.Name = "ucrChkQ3" - Me.ucrChkQ3.Size = New System.Drawing.Size(80, 23) - Me.ucrChkQ3.TabIndex = 3 - ' - 'ucrChkQ1 - ' - Me.ucrChkQ1.AutoSize = True - Me.ucrChkQ1.Checked = False - Me.ucrChkQ1.Location = New System.Drawing.Point(21, 54) - Me.ucrChkQ1.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkQ1.Name = "ucrChkQ1" - Me.ucrChkQ1.Size = New System.Drawing.Size(80, 23) - Me.ucrChkQ1.TabIndex = 1 - ' - 'ucrChkMax - ' - Me.ucrChkMax.AutoSize = True - Me.ucrChkMax.Checked = False - Me.ucrChkMax.Location = New System.Drawing.Point(213, 54) - Me.ucrChkMax.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkMax.Name = "ucrChkMax" - Me.ucrChkMax.Size = New System.Drawing.Size(80, 23) - Me.ucrChkMax.TabIndex = 5 - ' - 'ucrChkCircMean - ' - Me.ucrChkCircMean.AutoSize = True - Me.ucrChkCircMean.Checked = False - Me.ucrChkCircMean.Location = New System.Drawing.Point(21, 26) - Me.ucrChkCircMean.Margin = New System.Windows.Forms.Padding(4) - Me.ucrChkCircMean.Name = "ucrChkCircMean" - Me.ucrChkCircMean.Size = New System.Drawing.Size(86, 23) - Me.ucrChkCircMean.TabIndex = 0 - ' 'tbModel ' Me.tbModel.Controls.Add(Me.ucrChkStandardErrorOfMean) - Me.tbModel.Location = New System.Drawing.Point(4, 22) + Me.tbModel.Location = New System.Drawing.Point(4, 29) + Me.tbModel.Margin = New System.Windows.Forms.Padding(4) Me.tbModel.Name = "tbModel" - Me.tbModel.Padding = New System.Windows.Forms.Padding(3) - Me.tbModel.Size = New System.Drawing.Size(409, 383) + Me.tbModel.Padding = New System.Windows.Forms.Padding(4) + Me.tbModel.Size = New System.Drawing.Size(618, 581) Me.tbModel.TabIndex = 6 Me.tbModel.Text = "Model" Me.tbModel.UseVisualStyleBackColor = True ' - 'ucrChkStandardErrorOfMean - ' - Me.ucrChkStandardErrorOfMean.AutoSize = True - Me.ucrChkStandardErrorOfMean.Checked = False - Me.ucrChkStandardErrorOfMean.Location = New System.Drawing.Point(16, 21) - Me.ucrChkStandardErrorOfMean.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkStandardErrorOfMean.Name = "ucrChkStandardErrorOfMean" - Me.ucrChkStandardErrorOfMean.Size = New System.Drawing.Size(295, 23) - Me.ucrChkStandardErrorOfMean.TabIndex = 1 - ' 'tbPosition ' Me.tbPosition.Controls.Add(Me.ucrChkOrderBy) @@ -393,31 +253,23 @@ Partial Class sdgSummaries Me.tbPosition.Controls.Add(Me.grpPosition) Me.tbPosition.Controls.Add(Me.ucrSelectorOrderBy) Me.tbPosition.Controls.Add(Me.ucrReceiverOrderBy) - Me.tbPosition.Location = New System.Drawing.Point(4, 22) + Me.tbPosition.Location = New System.Drawing.Point(4, 29) + Me.tbPosition.Margin = New System.Windows.Forms.Padding(4) Me.tbPosition.Name = "tbPosition" - Me.tbPosition.Padding = New System.Windows.Forms.Padding(3) - Me.tbPosition.Size = New System.Drawing.Size(409, 383) + Me.tbPosition.Padding = New System.Windows.Forms.Padding(4) + Me.tbPosition.Size = New System.Drawing.Size(618, 581) Me.tbPosition.TabIndex = 7 Me.tbPosition.Text = "Position" Me.tbPosition.UseVisualStyleBackColor = True ' - 'ucrChkOrderBy - ' - Me.ucrChkOrderBy.AutoSize = True - Me.ucrChkOrderBy.Checked = False - Me.ucrChkOrderBy.Location = New System.Drawing.Point(12, 101) - Me.ucrChkOrderBy.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkOrderBy.Name = "ucrChkOrderBy" - Me.ucrChkOrderBy.Size = New System.Drawing.Size(188, 23) - Me.ucrChkOrderBy.TabIndex = 1 - ' - 'lblOrderBy + 'lblOrderBy ' Me.lblOrderBy.AutoSize = True Me.lblOrderBy.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblOrderBy.Location = New System.Drawing.Point(229, 160) + Me.lblOrderBy.Location = New System.Drawing.Point(344, 240) + Me.lblOrderBy.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblOrderBy.Name = "lblOrderBy" - Me.lblOrderBy.Size = New System.Drawing.Size(51, 13) + Me.lblOrderBy.Size = New System.Drawing.Size(75, 20) Me.lblOrderBy.TabIndex = 3 Me.lblOrderBy.Text = "Order By:" ' @@ -431,124 +283,26 @@ Partial Class sdgSummaries Me.grpPosition.Controls.Add(Me.ucrChkFirst) Me.grpPosition.Controls.Add(Me.ucrChkLast) Me.grpPosition.Controls.Add(Me.ucrChknth) - Me.grpPosition.Location = New System.Drawing.Point(6, 6) + Me.grpPosition.Location = New System.Drawing.Point(9, 9) + Me.grpPosition.Margin = New System.Windows.Forms.Padding(4) Me.grpPosition.Name = "grpPosition" - Me.grpPosition.Size = New System.Drawing.Size(397, 80) + Me.grpPosition.Padding = New System.Windows.Forms.Padding(4) + Me.grpPosition.Size = New System.Drawing.Size(596, 120) Me.grpPosition.TabIndex = 0 Me.grpPosition.TabStop = False Me.grpPosition.Text = "Position" ' - 'ucrChkSetseed - ' - Me.ucrChkSetseed.AutoSize = True - Me.ucrChkSetseed.Checked = False - Me.ucrChkSetseed.Location = New System.Drawing.Point(166, 45) - Me.ucrChkSetseed.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkSetseed.Name = "ucrChkSetseed" - Me.ucrChkSetseed.Size = New System.Drawing.Size(101, 23) - Me.ucrChkSetseed.TabIndex = 8 - ' - 'ucrNudSeed - ' - Me.ucrNudSeed.AutoSize = True - Me.ucrNudSeed.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudSeed.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudSeed.Location = New System.Drawing.Point(273, 45) - Me.ucrNudSeed.Margin = New System.Windows.Forms.Padding(5) - Me.ucrNudSeed.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudSeed.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudSeed.Name = "ucrNudSeed" - Me.ucrNudSeed.Size = New System.Drawing.Size(50, 20) - Me.ucrNudSeed.TabIndex = 7 - Me.ucrNudSeed.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' - 'ucrChkSample - ' - Me.ucrChkSample.AutoSize = True - Me.ucrChkSample.Checked = False - Me.ucrChkSample.Location = New System.Drawing.Point(8, 45) - Me.ucrChkSample.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkSample.Name = "ucrChkSample" - Me.ucrChkSample.Size = New System.Drawing.Size(113, 23) - Me.ucrChkSample.TabIndex = 5 - ' - 'ucrInputN - ' - Me.ucrInputN.AddQuotesIfUnrecognised = True - Me.ucrInputN.AutoSize = True - Me.ucrInputN.IsMultiline = False - Me.ucrInputN.IsReadOnly = False - Me.ucrInputN.Location = New System.Drawing.Point(233, 19) - Me.ucrInputN.Margin = New System.Windows.Forms.Padding(7, 6, 7, 6) - Me.ucrInputN.Name = "ucrInputN" - Me.ucrInputN.Size = New System.Drawing.Size(64, 20) - Me.ucrInputN.TabIndex = 3 - ' 'lblInputN ' Me.lblInputN.AutoSize = True Me.lblInputN.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblInputN.Location = New System.Drawing.Point(215, 22) + Me.lblInputN.Location = New System.Drawing.Point(322, 33) + Me.lblInputN.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblInputN.Name = "lblInputN" - Me.lblInputN.Size = New System.Drawing.Size(16, 13) + Me.lblInputN.Size = New System.Drawing.Size(22, 20) Me.lblInputN.TabIndex = 2 Me.lblInputN.Text = "n:" ' - 'ucrChkFirst - ' - Me.ucrChkFirst.AutoSize = True - Me.ucrChkFirst.Checked = False - Me.ucrChkFirst.Location = New System.Drawing.Point(8, 19) - Me.ucrChkFirst.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkFirst.Name = "ucrChkFirst" - Me.ucrChkFirst.Size = New System.Drawing.Size(101, 23) - Me.ucrChkFirst.TabIndex = 0 - ' - 'ucrChkLast - ' - Me.ucrChkLast.AutoSize = True - Me.ucrChkLast.Checked = False - Me.ucrChkLast.Location = New System.Drawing.Point(309, 19) - Me.ucrChkLast.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkLast.Name = "ucrChkLast" - Me.ucrChkLast.Size = New System.Drawing.Size(80, 23) - Me.ucrChkLast.TabIndex = 4 - ' - 'ucrChknth - ' - Me.ucrChknth.AutoSize = True - Me.ucrChknth.Checked = False - Me.ucrChknth.Location = New System.Drawing.Point(166, 21) - Me.ucrChknth.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChknth.Name = "ucrChknth" - Me.ucrChknth.Size = New System.Drawing.Size(59, 23) - Me.ucrChknth.TabIndex = 1 - ' - 'ucrSelectorOrderBy - ' - Me.ucrSelectorOrderBy.AutoSize = True - Me.ucrSelectorOrderBy.bDropUnusedFilterLevels = False - Me.ucrSelectorOrderBy.bShowHiddenColumns = False - Me.ucrSelectorOrderBy.bUseCurrentFilter = True - Me.ucrSelectorOrderBy.Location = New System.Drawing.Point(10, 132) - Me.ucrSelectorOrderBy.Margin = New System.Windows.Forms.Padding(0) - Me.ucrSelectorOrderBy.Name = "ucrSelectorOrderBy" - Me.ucrSelectorOrderBy.Size = New System.Drawing.Size(213, 183) - Me.ucrSelectorOrderBy.TabIndex = 2 - ' - 'ucrReceiverOrderBy - ' - Me.ucrReceiverOrderBy.AutoSize = True - Me.ucrReceiverOrderBy.frmParent = Nothing - Me.ucrReceiverOrderBy.Location = New System.Drawing.Point(231, 176) - Me.ucrReceiverOrderBy.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverOrderBy.Name = "ucrReceiverOrderBy" - Me.ucrReceiverOrderBy.Selector = Nothing - Me.ucrReceiverOrderBy.Size = New System.Drawing.Size(120, 20) - Me.ucrReceiverOrderBy.strNcFilePath = "" - Me.ucrReceiverOrderBy.TabIndex = 4 - Me.ucrReceiverOrderBy.ucrSelector = Nothing - ' 'tbTwoVariables ' Me.tbTwoVariables.Controls.Add(Me.lblSecondVariable) @@ -556,10 +310,11 @@ Partial Class sdgSummaries Me.tbTwoVariables.Controls.Add(Me.grpHyroGOF) Me.tbTwoVariables.Controls.Add(Me.ucrReceiverSecondVariable) Me.tbTwoVariables.Controls.Add(Me.ucrSelectorSecondVariable) - Me.tbTwoVariables.Location = New System.Drawing.Point(4, 22) + Me.tbTwoVariables.Location = New System.Drawing.Point(4, 29) + Me.tbTwoVariables.Margin = New System.Windows.Forms.Padding(4) Me.tbTwoVariables.Name = "tbTwoVariables" - Me.tbTwoVariables.Padding = New System.Windows.Forms.Padding(3) - Me.tbTwoVariables.Size = New System.Drawing.Size(409, 383) + Me.tbTwoVariables.Padding = New System.Windows.Forms.Padding(4) + Me.tbTwoVariables.Size = New System.Drawing.Size(618, 581) Me.tbTwoVariables.TabIndex = 5 Me.tbTwoVariables.Text = " Two-Variables" Me.tbTwoVariables.UseVisualStyleBackColor = True @@ -568,9 +323,10 @@ Partial Class sdgSummaries ' Me.lblSecondVariable.AutoSize = True Me.lblSecondVariable.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblSecondVariable.Location = New System.Drawing.Point(263, 207) + Me.lblSecondVariable.Location = New System.Drawing.Point(394, 310) + Me.lblSecondVariable.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblSecondVariable.Name = "lblSecondVariable" - Me.lblSecondVariable.Size = New System.Drawing.Size(88, 13) + Me.lblSecondVariable.Size = New System.Drawing.Size(130, 20) Me.lblSecondVariable.TabIndex = 3 Me.lblSecondVariable.Text = "Second Variable:" ' @@ -578,33 +334,15 @@ Partial Class sdgSummaries ' Me.grpRelationships.Controls.Add(Me.ucrChkCovariance) Me.grpRelationships.Controls.Add(Me.ucrChkCorrelations) - Me.grpRelationships.Location = New System.Drawing.Point(4, 6) + Me.grpRelationships.Location = New System.Drawing.Point(6, 9) + Me.grpRelationships.Margin = New System.Windows.Forms.Padding(4) Me.grpRelationships.Name = "grpRelationships" - Me.grpRelationships.Size = New System.Drawing.Size(399, 38) + Me.grpRelationships.Padding = New System.Windows.Forms.Padding(4) + Me.grpRelationships.Size = New System.Drawing.Size(598, 57) Me.grpRelationships.TabIndex = 0 Me.grpRelationships.TabStop = False Me.grpRelationships.Text = "Relationships" ' - 'ucrChkCovariance - ' - Me.ucrChkCovariance.AutoSize = True - Me.ucrChkCovariance.Checked = False - Me.ucrChkCovariance.Location = New System.Drawing.Point(166, 10) - Me.ucrChkCovariance.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkCovariance.Name = "ucrChkCovariance" - Me.ucrChkCovariance.Size = New System.Drawing.Size(167, 23) - Me.ucrChkCovariance.TabIndex = 1 - ' - 'ucrChkCorrelations - ' - Me.ucrChkCorrelations.AutoSize = True - Me.ucrChkCorrelations.Checked = False - Me.ucrChkCorrelations.Location = New System.Drawing.Point(15, 13) - Me.ucrChkCorrelations.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkCorrelations.Name = "ucrChkCorrelations" - Me.ucrChkCorrelations.Size = New System.Drawing.Size(149, 23) - Me.ucrChkCorrelations.TabIndex = 0 - ' 'grpHyroGOF ' Me.grpHyroGOF.Controls.Add(Me.lblJmia) @@ -630,9 +368,11 @@ Partial Class sdgSummaries Me.grpHyroGOF.Controls.Add(Me.ucrChkNormRootMeanSquaredError) Me.grpHyroGOF.Controls.Add(Me.ucrChkMeanAbsoluteError) Me.grpHyroGOF.Controls.Add(Me.ucrChkIndexOfAgreement) - Me.grpHyroGOF.Location = New System.Drawing.Point(6, 45) + Me.grpHyroGOF.Location = New System.Drawing.Point(9, 68) + Me.grpHyroGOF.Margin = New System.Windows.Forms.Padding(4) Me.grpHyroGOF.Name = "grpHyroGOF" - Me.grpHyroGOF.Size = New System.Drawing.Size(399, 145) + Me.grpHyroGOF.Padding = New System.Windows.Forms.Padding(4) + Me.grpHyroGOF.Size = New System.Drawing.Size(598, 218) Me.grpHyroGOF.TabIndex = 1 Me.grpHyroGOF.TabStop = False Me.grpHyroGOF.Text = "HydroGOF" @@ -641,292 +381,514 @@ Partial Class sdgSummaries ' Me.lblJmia.AutoSize = True Me.lblJmia.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblJmia.Location = New System.Drawing.Point(284, 125) + Me.lblJmia.Location = New System.Drawing.Point(426, 188) + Me.lblJmia.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.lblJmia.Name = "lblJmia" - Me.lblJmia.Size = New System.Drawing.Size(12, 13) + Me.lblJmia.Size = New System.Drawing.Size(16, 20) Me.lblJmia.TabIndex = 20 Me.lblJmia.Text = "j:" ' - 'ucrInputJmia - ' - Me.ucrInputJmia.AddQuotesIfUnrecognised = True - Me.ucrInputJmia.AutoSize = True - Me.ucrInputJmia.IsMultiline = False - Me.ucrInputJmia.IsReadOnly = False - Me.ucrInputJmia.Location = New System.Drawing.Point(299, 122) - Me.ucrInputJmia.Name = "ucrInputJmia" - Me.ucrInputJmia.Size = New System.Drawing.Size(32, 21) - Me.ucrInputJmia.TabIndex = 21 - ' - 'ucrChkSelectAll - ' - Me.ucrChkSelectAll.AutoSize = True - Me.ucrChkSelectAll.Checked = False - Me.ucrChkSelectAll.Location = New System.Drawing.Point(9, 15) - Me.ucrChkSelectAll.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkSelectAll.Name = "ucrChkSelectAll" - Me.ucrChkSelectAll.Size = New System.Drawing.Size(87, 23) - Me.ucrChkSelectAll.TabIndex = 0 + 'cmdHelp ' - 'ucrChkRelativeIndexOfAgreement + Me.cmdHelp.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.cmdHelp.Location = New System.Drawing.Point(496, 180) + Me.cmdHelp.Margin = New System.Windows.Forms.Padding(4) + Me.cmdHelp.Name = "cmdHelp" + Me.cmdHelp.Size = New System.Drawing.Size(102, 34) + Me.cmdHelp.TabIndex = 22 + Me.cmdHelp.Text = "Help" + Me.cmdHelp.UseVisualStyleBackColor = True ' - Me.ucrChkRelativeIndexOfAgreement.AutoSize = True - Me.ucrChkRelativeIndexOfAgreement.Checked = False - Me.ucrChkRelativeIndexOfAgreement.Location = New System.Drawing.Point(204, 75) - Me.ucrChkRelativeIndexOfAgreement.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkRelativeIndexOfAgreement.Name = "ucrChkRelativeIndexOfAgreement" - Me.ucrChkRelativeIndexOfAgreement.Size = New System.Drawing.Size(87, 23) - Me.ucrChkRelativeIndexOfAgreement.TabIndex = 13 + 'tbMore ' - 'ucrChkRatioOfStandardDeviation + Me.tbMore.Controls.Add(Me.GroupBox1) + Me.tbMore.Controls.Add(Me.grpProportionsPercentiles) + Me.tbMore.Controls.Add(Me.grpLocation) + Me.tbMore.Controls.Add(Me.grpScale) + Me.tbMore.Controls.Add(Me.grpSkewness) + Me.tbMore.Controls.Add(Me.grpKurtosis) + Me.tbMore.Location = New System.Drawing.Point(4, 29) + Me.tbMore.Margin = New System.Windows.Forms.Padding(4) + Me.tbMore.Name = "tbMore" + Me.tbMore.Padding = New System.Windows.Forms.Padding(4) + Me.tbMore.Size = New System.Drawing.Size(618, 601) + Me.tbMore.TabIndex = 1 + Me.tbMore.Text = "More" + Me.tbMore.UseVisualStyleBackColor = True ' - Me.ucrChkRatioOfStandardDeviation.AutoSize = True - Me.ucrChkRatioOfStandardDeviation.Checked = False - Me.ucrChkRatioOfStandardDeviation.Location = New System.Drawing.Point(94, 54) - Me.ucrChkRatioOfStandardDeviation.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkRatioOfStandardDeviation.Name = "ucrChkRatioOfStandardDeviation" - Me.ucrChkRatioOfStandardDeviation.Size = New System.Drawing.Size(87, 23) - Me.ucrChkRatioOfStandardDeviation.TabIndex = 7 + 'grpProportionsPercentiles ' - 'ucrChkCoefDetermination + Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputQuantile) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkQuantile) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputCountValue) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputComboCountTest) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkProportion) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkCount) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkPercentage) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputPropValue) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputComboPropTest) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputPercentile) + Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkPercentile) + Me.grpProportionsPercentiles.Location = New System.Drawing.Point(15, 9) + Me.grpProportionsPercentiles.Margin = New System.Windows.Forms.Padding(4) + Me.grpProportionsPercentiles.Name = "grpProportionsPercentiles" + Me.grpProportionsPercentiles.Padding = New System.Windows.Forms.Padding(4) + Me.grpProportionsPercentiles.Size = New System.Drawing.Size(590, 183) + Me.grpProportionsPercentiles.TabIndex = 0 + Me.grpProportionsPercentiles.TabStop = False + Me.grpProportionsPercentiles.Text = "Proportions/Percentiles/Count" ' - Me.ucrChkCoefDetermination.AutoSize = True - Me.ucrChkCoefDetermination.Checked = False - Me.ucrChkCoefDetermination.Location = New System.Drawing.Point(204, 116) - Me.ucrChkCoefDetermination.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkCoefDetermination.Name = "ucrChkCoefDetermination" - Me.ucrChkCoefDetermination.Size = New System.Drawing.Size(87, 23) - Me.ucrChkCoefDetermination.TabIndex = 15 + 'grpLocation ' - 'ucrChkRatioOfRootMeanSquaredError + Me.grpLocation.Controls.Add(Me.lblFractionTrimmed) + Me.grpLocation.Controls.Add(Me.ucrNudFraction) + Me.grpLocation.Controls.Add(Me.ucrChkTrimmedMean) + Me.grpLocation.Location = New System.Drawing.Point(15, 197) + Me.grpLocation.Margin = New System.Windows.Forms.Padding(4) + Me.grpLocation.Name = "grpLocation" + Me.grpLocation.Padding = New System.Windows.Forms.Padding(4) + Me.grpLocation.Size = New System.Drawing.Size(590, 78) + Me.grpLocation.TabIndex = 0 + Me.grpLocation.TabStop = False + Me.grpLocation.Text = "Location" ' - Me.ucrChkRatioOfRootMeanSquaredError.AutoSize = True - Me.ucrChkRatioOfRootMeanSquaredError.Checked = False - Me.ucrChkRatioOfRootMeanSquaredError.Location = New System.Drawing.Point(94, 34) - Me.ucrChkRatioOfRootMeanSquaredError.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkRatioOfRootMeanSquaredError.Name = "ucrChkRatioOfRootMeanSquaredError" - Me.ucrChkRatioOfRootMeanSquaredError.Size = New System.Drawing.Size(87, 23) - Me.ucrChkRatioOfRootMeanSquaredError.TabIndex = 6 + 'lblFractionTrimmed ' - 'ucrChkRelativeNashSutcliffeEff + Me.lblFractionTrimmed.AutoSize = True + Me.lblFractionTrimmed.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblFractionTrimmed.Location = New System.Drawing.Point(312, 32) + Me.lblFractionTrimmed.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblFractionTrimmed.Name = "lblFractionTrimmed" + Me.lblFractionTrimmed.Size = New System.Drawing.Size(136, 20) + Me.lblFractionTrimmed.TabIndex = 1 + Me.lblFractionTrimmed.Text = "Fraction Trimmed:" ' - Me.ucrChkRelativeNashSutcliffeEff.AutoSize = True - Me.ucrChkRelativeNashSutcliffeEff.Checked = False - Me.ucrChkRelativeNashSutcliffeEff.Location = New System.Drawing.Point(94, 115) - Me.ucrChkRelativeNashSutcliffeEff.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkRelativeNashSutcliffeEff.Name = "ucrChkRelativeNashSutcliffeEff" - Me.ucrChkRelativeNashSutcliffeEff.Size = New System.Drawing.Size(87, 23) - Me.ucrChkRelativeNashSutcliffeEff.TabIndex = 10 + 'grpScale ' - 'ucrChkModifiedIndexOfAgreement + Me.grpScale.Controls.Add(Me.ucrChkSn) + Me.grpScale.Controls.Add(Me.ucrChkQn) + Me.grpScale.Controls.Add(Me.ucrChkCoefficientOfVariation) + Me.grpScale.Controls.Add(Me.ucrChkMedianAbsoluteDeviation) + Me.grpScale.Location = New System.Drawing.Point(15, 279) + Me.grpScale.Margin = New System.Windows.Forms.Padding(4) + Me.grpScale.Name = "grpScale" + Me.grpScale.Padding = New System.Windows.Forms.Padding(4) + Me.grpScale.Size = New System.Drawing.Size(590, 111) + Me.grpScale.TabIndex = 1 + Me.grpScale.TabStop = False + Me.grpScale.Text = "Scale" ' - Me.ucrChkModifiedIndexOfAgreement.AutoSize = True - Me.ucrChkModifiedIndexOfAgreement.Checked = False - Me.ucrChkModifiedIndexOfAgreement.Location = New System.Drawing.Point(204, 36) - Me.ucrChkModifiedIndexOfAgreement.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkModifiedIndexOfAgreement.Name = "ucrChkModifiedIndexOfAgreement" - Me.ucrChkModifiedIndexOfAgreement.Size = New System.Drawing.Size(87, 23) - Me.ucrChkModifiedIndexOfAgreement.TabIndex = 11 + 'grpSkewness ' - 'ucrChkCoefPersistence + Me.grpSkewness.Controls.Add(Me.ucrChkMc) + Me.grpSkewness.Controls.Add(Me.ucrChkSkewness) + Me.grpSkewness.Location = New System.Drawing.Point(15, 395) + Me.grpSkewness.Margin = New System.Windows.Forms.Padding(4) + Me.grpSkewness.Name = "grpSkewness" + Me.grpSkewness.Padding = New System.Windows.Forms.Padding(4) + Me.grpSkewness.Size = New System.Drawing.Size(590, 74) + Me.grpSkewness.TabIndex = 2 + Me.grpSkewness.TabStop = False + Me.grpSkewness.Text = "Skewness" ' - Me.ucrChkCoefPersistence.AutoSize = True - Me.ucrChkCoefPersistence.Checked = False - Me.ucrChkCoefPersistence.Location = New System.Drawing.Point(204, 95) - Me.ucrChkCoefPersistence.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkCoefPersistence.Name = "ucrChkCoefPersistence" - Me.ucrChkCoefPersistence.Size = New System.Drawing.Size(87, 23) - Me.ucrChkCoefPersistence.TabIndex = 14 + 'grpKurtosis ' - 'ucrChkNashSutcliffeEfficiency + Me.grpKurtosis.Controls.Add(Me.ucrChkKurtosis) + Me.grpKurtosis.Location = New System.Drawing.Point(15, 467) + Me.grpKurtosis.Margin = New System.Windows.Forms.Padding(4) + Me.grpKurtosis.Name = "grpKurtosis" + Me.grpKurtosis.Padding = New System.Windows.Forms.Padding(4) + Me.grpKurtosis.Size = New System.Drawing.Size(590, 62) + Me.grpKurtosis.TabIndex = 3 + Me.grpKurtosis.TabStop = False + Me.grpKurtosis.Text = "Kurtosis" ' - Me.ucrChkNashSutcliffeEfficiency.AutoSize = True - Me.ucrChkNashSutcliffeEfficiency.Checked = False - Me.ucrChkNashSutcliffeEfficiency.Location = New System.Drawing.Point(94, 75) - Me.ucrChkNashSutcliffeEfficiency.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkNashSutcliffeEfficiency.Name = "ucrChkNashSutcliffeEfficiency" - Me.ucrChkNashSutcliffeEfficiency.Size = New System.Drawing.Size(87, 23) - Me.ucrChkNashSutcliffeEfficiency.TabIndex = 8 + 'cmdOptions ' - 'ucrChkSumOfSquaredResiduals + Me.cmdOptions.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.cmdOptions.Location = New System.Drawing.Point(471, 20) + Me.cmdOptions.Margin = New System.Windows.Forms.Padding(4) + Me.cmdOptions.Name = "cmdOptions" + Me.cmdOptions.Size = New System.Drawing.Size(111, 34) + Me.cmdOptions.TabIndex = 10 + Me.cmdOptions.Tag = "Options" + Me.cmdOptions.Text = "Options" + Me.cmdOptions.UseVisualStyleBackColor = True ' - Me.ucrChkSumOfSquaredResiduals.AutoSize = True - Me.ucrChkSumOfSquaredResiduals.Checked = False - Me.ucrChkSumOfSquaredResiduals.Location = New System.Drawing.Point(306, 100) - Me.ucrChkSumOfSquaredResiduals.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkSumOfSquaredResiduals.Name = "ucrChkSumOfSquaredResiduals" - Me.ucrChkSumOfSquaredResiduals.Size = New System.Drawing.Size(87, 23) - Me.ucrChkSumOfSquaredResiduals.TabIndex = 19 + 'tbsum ' - 'ucrChkKlingGuptaEfficiency + Me.tbsum.Controls.Add(Me.grpDecilesQuintiles) + Me.tbsum.Controls.Add(Me.grpCommon) + Me.tbsum.Controls.Add(Me.grpQuartilesTerciles) + Me.tbsum.Controls.Add(Me.grpNotOrderedFactor) + Me.tbsum.Controls.Add(Me.grpNumeric) + Me.tbsum.Location = New System.Drawing.Point(4, 29) + Me.tbsum.Margin = New System.Windows.Forms.Padding(4) + Me.tbsum.Name = "tbsum" + Me.tbsum.Padding = New System.Windows.Forms.Padding(4) + Me.tbsum.Size = New System.Drawing.Size(618, 581) + Me.tbsum.TabIndex = 0 + Me.tbsum.Text = "Summaries" + Me.tbsum.UseVisualStyleBackColor = True ' - Me.ucrChkKlingGuptaEfficiency.AutoSize = True - Me.ucrChkKlingGuptaEfficiency.Checked = False - Me.ucrChkKlingGuptaEfficiency.Location = New System.Drawing.Point(306, 38) - Me.ucrChkKlingGuptaEfficiency.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkKlingGuptaEfficiency.Name = "ucrChkKlingGuptaEfficiency" - Me.ucrChkKlingGuptaEfficiency.Size = New System.Drawing.Size(87, 23) - Me.ucrChkKlingGuptaEfficiency.TabIndex = 16 + 'grpDecilesQuintiles ' - 'ucrChkVolumetricEfficiency + Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP60) + Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP90) + Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP70) + Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP80) + Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP40) + Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP30) + Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP10) + Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP20) + Me.grpDecilesQuintiles.Location = New System.Drawing.Point(15, 434) + Me.grpDecilesQuintiles.Margin = New System.Windows.Forms.Padding(4) + Me.grpDecilesQuintiles.Name = "grpDecilesQuintiles" + Me.grpDecilesQuintiles.Padding = New System.Windows.Forms.Padding(4) + Me.grpDecilesQuintiles.Size = New System.Drawing.Size(590, 130) + Me.grpDecilesQuintiles.TabIndex = 4 + Me.grpDecilesQuintiles.TabStop = False + Me.grpDecilesQuintiles.Tag = "" + Me.grpDecilesQuintiles.Text = "Deciles && Quintiles" ' - Me.ucrChkVolumetricEfficiency.AutoSize = True - Me.ucrChkVolumetricEfficiency.Checked = False - Me.ucrChkVolumetricEfficiency.Location = New System.Drawing.Point(306, 58) - Me.ucrChkVolumetricEfficiency.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkVolumetricEfficiency.Name = "ucrChkVolumetricEfficiency" - Me.ucrChkVolumetricEfficiency.Size = New System.Drawing.Size(87, 23) - Me.ucrChkVolumetricEfficiency.TabIndex = 17 + 'grpCommon ' - 'ucrChkPercentBias + Me.grpCommon.Controls.Add(Me.ucrChkn_distinct) + Me.grpCommon.Controls.Add(Me.ucrChkNTotal) + Me.grpCommon.Controls.Add(Me.ucrChkMode) + Me.grpCommon.Controls.Add(Me.ucrChkNMissing) + Me.grpCommon.Controls.Add(Me.ucrChkNonMissing) + Me.grpCommon.Location = New System.Drawing.Point(15, 9) + Me.grpCommon.Margin = New System.Windows.Forms.Padding(4) + Me.grpCommon.Name = "grpCommon" + Me.grpCommon.Padding = New System.Windows.Forms.Padding(4) + Me.grpCommon.Size = New System.Drawing.Size(590, 120) + Me.grpCommon.TabIndex = 0 + Me.grpCommon.TabStop = False + Me.grpCommon.Tag = "Common" + Me.grpCommon.Text = "Common" ' - Me.ucrChkPercentBias.AutoSize = True - Me.ucrChkPercentBias.Checked = False - Me.ucrChkPercentBias.Location = New System.Drawing.Point(8, 116) - Me.ucrChkPercentBias.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkPercentBias.Name = "ucrChkPercentBias" - Me.ucrChkPercentBias.Size = New System.Drawing.Size(87, 23) - Me.ucrChkPercentBias.TabIndex = 5 + 'grpQuartilesTerciles ' - 'ucrChkModNashSutcliffeEff + Me.grpQuartilesTerciles.Controls.Add(Me.ucrChkP67) + Me.grpQuartilesTerciles.Controls.Add(Me.ucrChkP33) + Me.grpQuartilesTerciles.Controls.Add(Me.ucrChkP25) + Me.grpQuartilesTerciles.Controls.Add(Me.ucrChkP75) + Me.grpQuartilesTerciles.Location = New System.Drawing.Point(15, 345) + Me.grpQuartilesTerciles.Margin = New System.Windows.Forms.Padding(4) + Me.grpQuartilesTerciles.Name = "grpQuartilesTerciles" + Me.grpQuartilesTerciles.Padding = New System.Windows.Forms.Padding(4) + Me.grpQuartilesTerciles.Size = New System.Drawing.Size(590, 84) + Me.grpQuartilesTerciles.TabIndex = 3 + Me.grpQuartilesTerciles.TabStop = False + Me.grpQuartilesTerciles.Tag = "Quartiles" + Me.grpQuartilesTerciles.Text = "Quartiles && Terciles" ' - Me.ucrChkModNashSutcliffeEff.AutoSize = True - Me.ucrChkModNashSutcliffeEff.Checked = False - Me.ucrChkModNashSutcliffeEff.Location = New System.Drawing.Point(94, 95) - Me.ucrChkModNashSutcliffeEff.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkModNashSutcliffeEff.Name = "ucrChkModNashSutcliffeEff" - Me.ucrChkModNashSutcliffeEff.Size = New System.Drawing.Size(87, 23) - Me.ucrChkModNashSutcliffeEff.TabIndex = 9 + 'grpNotOrderedFactor ' - 'ucrChkMeanError + Me.grpNotOrderedFactor.Controls.Add(Me.ucrChkRange) + Me.grpNotOrderedFactor.Controls.Add(Me.ucrChkMaximum) + Me.grpNotOrderedFactor.Controls.Add(Me.ucrChkMinimum) + Me.grpNotOrderedFactor.Location = New System.Drawing.Point(15, 138) + Me.grpNotOrderedFactor.Margin = New System.Windows.Forms.Padding(4) + Me.grpNotOrderedFactor.Name = "grpNotOrderedFactor" + Me.grpNotOrderedFactor.Padding = New System.Windows.Forms.Padding(4) + Me.grpNotOrderedFactor.Size = New System.Drawing.Size(590, 76) + Me.grpNotOrderedFactor.TabIndex = 1 + Me.grpNotOrderedFactor.TabStop = False + Me.grpNotOrderedFactor.Tag = "All_but_unordered_Factor" + Me.grpNotOrderedFactor.Text = "All but (unordered) Factor" ' - Me.ucrChkMeanError.AutoSize = True - Me.ucrChkMeanError.Checked = False - Me.ucrChkMeanError.Location = New System.Drawing.Point(8, 34) - Me.ucrChkMeanError.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkMeanError.Name = "ucrChkMeanError" - Me.ucrChkMeanError.Size = New System.Drawing.Size(87, 23) - Me.ucrChkMeanError.TabIndex = 1 + 'grpNumeric ' - 'ucrChkMeanSquaredError + Me.grpNumeric.Controls.Add(Me.ucrChkVariance) + Me.grpNumeric.Controls.Add(Me.ucrChkMedian) + Me.grpNumeric.Controls.Add(Me.ucrChkStdDev) + Me.grpNumeric.Controls.Add(Me.ucrChkSum) + Me.grpNumeric.Controls.Add(Me.ucrChkMean) + Me.grpNumeric.Location = New System.Drawing.Point(15, 224) + Me.grpNumeric.Margin = New System.Windows.Forms.Padding(4) + Me.grpNumeric.Name = "grpNumeric" + Me.grpNumeric.Padding = New System.Windows.Forms.Padding(4) + Me.grpNumeric.Size = New System.Drawing.Size(590, 117) + Me.grpNumeric.TabIndex = 2 + Me.grpNumeric.TabStop = False + Me.grpNumeric.Tag = "Numeric" + Me.grpNumeric.Text = "Numeric" ' - Me.ucrChkMeanSquaredError.AutoSize = True - Me.ucrChkMeanSquaredError.Checked = False - Me.ucrChkMeanSquaredError.Location = New System.Drawing.Point(306, 79) - Me.ucrChkMeanSquaredError.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkMeanSquaredError.Name = "ucrChkMeanSquaredError" - Me.ucrChkMeanSquaredError.Size = New System.Drawing.Size(87, 23) - Me.ucrChkMeanSquaredError.TabIndex = 18 + 'tbSummaries ' - 'ucrChkRootMeanSquaredError + Me.tbSummaries.Controls.Add(Me.tbsum) + Me.tbSummaries.Controls.Add(Me.tbMore) + Me.tbSummaries.Controls.Add(Me.tbTwoVariables) + Me.tbSummaries.Controls.Add(Me.tbPosition) + Me.tbSummaries.Controls.Add(Me.tbModel) + Me.tbSummaries.Controls.Add(Me.tbCircular) + Me.tbSummaries.Location = New System.Drawing.Point(9, 10) + Me.tbSummaries.Margin = New System.Windows.Forms.Padding(4) + Me.tbSummaries.Name = "tbSummaries" + Me.tbSummaries.SelectedIndex = 0 + Me.tbSummaries.Size = New System.Drawing.Size(626, 634) + Me.tbSummaries.TabIndex = 0 ' - Me.ucrChkRootMeanSquaredError.AutoSize = True - Me.ucrChkRootMeanSquaredError.Checked = False - Me.ucrChkRootMeanSquaredError.Location = New System.Drawing.Point(8, 74) - Me.ucrChkRootMeanSquaredError.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkRootMeanSquaredError.Name = "ucrChkRootMeanSquaredError" - Me.ucrChkRootMeanSquaredError.Size = New System.Drawing.Size(87, 23) - Me.ucrChkRootMeanSquaredError.TabIndex = 3 + 'ucrButtonsSummaries ' - 'cmdHelp + Me.ucrButtonsSummaries.AutoSize = True + Me.ucrButtonsSummaries.Location = New System.Drawing.Point(153, 645) + Me.ucrButtonsSummaries.Margin = New System.Windows.Forms.Padding(6) + Me.ucrButtonsSummaries.Name = "ucrButtonsSummaries" + Me.ucrButtonsSummaries.Size = New System.Drawing.Size(336, 46) + Me.ucrButtonsSummaries.TabIndex = 1 ' - Me.cmdHelp.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.cmdHelp.Location = New System.Drawing.Point(331, 120) - Me.cmdHelp.Name = "cmdHelp" - Me.cmdHelp.Size = New System.Drawing.Size(68, 23) - Me.cmdHelp.TabIndex = 22 - Me.cmdHelp.Text = "Help" - Me.cmdHelp.UseVisualStyleBackColor = True + 'ucrChkP60 ' - 'ucrChkNormRootMeanSquaredError + Me.ucrChkP60.AutoSize = True + Me.ucrChkP60.Checked = False + Me.ucrChkP60.Location = New System.Drawing.Point(10, 76) + Me.ucrChkP60.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP60.Name = "ucrChkP60" + Me.ucrChkP60.Size = New System.Drawing.Size(128, 51) + Me.ucrChkP60.TabIndex = 7 ' - Me.ucrChkNormRootMeanSquaredError.AutoSize = True - Me.ucrChkNormRootMeanSquaredError.Checked = False - Me.ucrChkNormRootMeanSquaredError.Location = New System.Drawing.Point(8, 95) - Me.ucrChkNormRootMeanSquaredError.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkNormRootMeanSquaredError.Name = "ucrChkNormRootMeanSquaredError" - Me.ucrChkNormRootMeanSquaredError.Size = New System.Drawing.Size(87, 23) - Me.ucrChkNormRootMeanSquaredError.TabIndex = 4 + 'ucrChkP90 ' - 'ucrChkMeanAbsoluteError + Me.ucrChkP90.AutoSize = True + Me.ucrChkP90.Checked = False + Me.ucrChkP90.Location = New System.Drawing.Point(438, 76) + Me.ucrChkP90.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP90.Name = "ucrChkP90" + Me.ucrChkP90.Size = New System.Drawing.Size(128, 51) + Me.ucrChkP90.TabIndex = 6 ' - Me.ucrChkMeanAbsoluteError.AutoSize = True - Me.ucrChkMeanAbsoluteError.Checked = False - Me.ucrChkMeanAbsoluteError.Location = New System.Drawing.Point(8, 54) - Me.ucrChkMeanAbsoluteError.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkMeanAbsoluteError.Name = "ucrChkMeanAbsoluteError" - Me.ucrChkMeanAbsoluteError.Size = New System.Drawing.Size(87, 23) - Me.ucrChkMeanAbsoluteError.TabIndex = 2 + 'ucrChkP70 ' - 'ucrChkIndexOfAgreement + Me.ucrChkP70.AutoSize = True + Me.ucrChkP70.Checked = False + Me.ucrChkP70.Location = New System.Drawing.Point(144, 76) + Me.ucrChkP70.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP70.Name = "ucrChkP70" + Me.ucrChkP70.Size = New System.Drawing.Size(99, 51) + Me.ucrChkP70.TabIndex = 5 ' - Me.ucrChkIndexOfAgreement.AutoSize = True - Me.ucrChkIndexOfAgreement.Checked = False - Me.ucrChkIndexOfAgreement.Location = New System.Drawing.Point(204, 57) - Me.ucrChkIndexOfAgreement.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkIndexOfAgreement.Name = "ucrChkIndexOfAgreement" - Me.ucrChkIndexOfAgreement.Size = New System.Drawing.Size(87, 23) - Me.ucrChkIndexOfAgreement.TabIndex = 12 + 'ucrChkP80 ' - 'ucrReceiverSecondVariable + Me.ucrChkP80.AutoSize = True + Me.ucrChkP80.Checked = False + Me.ucrChkP80.Location = New System.Drawing.Point(252, 76) + Me.ucrChkP80.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP80.Name = "ucrChkP80" + Me.ucrChkP80.Size = New System.Drawing.Size(128, 51) + Me.ucrChkP80.TabIndex = 4 ' - Me.ucrReceiverSecondVariable.AutoSize = True - Me.ucrReceiverSecondVariable.frmParent = Nothing - Me.ucrReceiverSecondVariable.Location = New System.Drawing.Point(266, 223) - Me.ucrReceiverSecondVariable.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverSecondVariable.Name = "ucrReceiverSecondVariable" - Me.ucrReceiverSecondVariable.Selector = Nothing - Me.ucrReceiverSecondVariable.Size = New System.Drawing.Size(120, 20) - Me.ucrReceiverSecondVariable.strNcFilePath = "" - Me.ucrReceiverSecondVariable.TabIndex = 4 - Me.ucrReceiverSecondVariable.ucrSelector = Nothing + 'ucrChkP40 ' - 'ucrSelectorSecondVariable + Me.ucrChkP40.AutoSize = True + Me.ucrChkP40.Checked = False + Me.ucrChkP40.Location = New System.Drawing.Point(438, 32) + Me.ucrChkP40.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP40.Name = "ucrChkP40" + Me.ucrChkP40.Size = New System.Drawing.Size(128, 51) + Me.ucrChkP40.TabIndex = 3 ' - Me.ucrSelectorSecondVariable.AutoSize = True - Me.ucrSelectorSecondVariable.bDropUnusedFilterLevels = False - Me.ucrSelectorSecondVariable.bShowHiddenColumns = False - Me.ucrSelectorSecondVariable.bUseCurrentFilter = True - Me.ucrSelectorSecondVariable.Location = New System.Drawing.Point(8, 193) - Me.ucrSelectorSecondVariable.Margin = New System.Windows.Forms.Padding(0) - Me.ucrSelectorSecondVariable.Name = "ucrSelectorSecondVariable" - Me.ucrSelectorSecondVariable.Size = New System.Drawing.Size(213, 188) - Me.ucrSelectorSecondVariable.TabIndex = 2 + 'ucrChkP30 ' - 'tbMore + Me.ucrChkP30.AutoSize = True + Me.ucrChkP30.Checked = False + Me.ucrChkP30.Location = New System.Drawing.Point(252, 32) + Me.ucrChkP30.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP30.Name = "ucrChkP30" + Me.ucrChkP30.Size = New System.Drawing.Size(128, 51) + Me.ucrChkP30.TabIndex = 2 ' - Me.tbMore.Controls.Add(Me.grpProportionsPercentiles) - Me.tbMore.Controls.Add(Me.grpLocation) - Me.tbMore.Controls.Add(Me.grpScale) - Me.tbMore.Controls.Add(Me.grpSkewness) - Me.tbMore.Controls.Add(Me.grpKurtosis) - Me.tbMore.Location = New System.Drawing.Point(4, 22) - Me.tbMore.Name = "tbMore" - Me.tbMore.Padding = New System.Windows.Forms.Padding(3) - Me.tbMore.Size = New System.Drawing.Size(409, 383) - Me.tbMore.TabIndex = 1 - Me.tbMore.Text = "More" - Me.tbMore.UseVisualStyleBackColor = True + 'ucrChkP10 ' - 'grpProportionsPercentiles + Me.ucrChkP10.AutoSize = True + Me.ucrChkP10.Checked = False + Me.ucrChkP10.Location = New System.Drawing.Point(10, 32) + Me.ucrChkP10.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP10.Name = "ucrChkP10" + Me.ucrChkP10.Size = New System.Drawing.Size(128, 51) + Me.ucrChkP10.TabIndex = 0 ' - Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputQuantile) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkQuantile) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputCountValue) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputComboCountTest) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkProportion) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkCount) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkPercentage) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputPropValue) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputComboPropTest) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrInputPercentile) - Me.grpProportionsPercentiles.Controls.Add(Me.ucrChkPercentile) - Me.grpProportionsPercentiles.Location = New System.Drawing.Point(10, 6) - Me.grpProportionsPercentiles.Name = "grpProportionsPercentiles" - Me.grpProportionsPercentiles.Size = New System.Drawing.Size(393, 122) - Me.grpProportionsPercentiles.TabIndex = 0 - Me.grpProportionsPercentiles.TabStop = False - Me.grpProportionsPercentiles.Text = "Proportions/Percentiles/Count" + 'ucrChkP20 + ' + Me.ucrChkP20.AutoSize = True + Me.ucrChkP20.Checked = False + Me.ucrChkP20.Location = New System.Drawing.Point(144, 32) + Me.ucrChkP20.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP20.Name = "ucrChkP20" + Me.ucrChkP20.Size = New System.Drawing.Size(99, 51) + Me.ucrChkP20.TabIndex = 1 + ' + 'ucrChkn_distinct + ' + Me.ucrChkn_distinct.AutoSize = True + Me.ucrChkn_distinct.Checked = False + Me.ucrChkn_distinct.Location = New System.Drawing.Point(252, 74) + Me.ucrChkn_distinct.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkn_distinct.Name = "ucrChkn_distinct" + Me.ucrChkn_distinct.Size = New System.Drawing.Size(152, 51) + Me.ucrChkn_distinct.TabIndex = 3 + ' + 'ucrChkNTotal + ' + Me.ucrChkNTotal.AutoSize = True + Me.ucrChkNTotal.Checked = False + Me.ucrChkNTotal.Location = New System.Drawing.Point(252, 28) + Me.ucrChkNTotal.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkNTotal.Name = "ucrChkNTotal" + Me.ucrChkNTotal.Size = New System.Drawing.Size(150, 51) + Me.ucrChkNTotal.TabIndex = 2 + ' + 'ucrChkMode + ' + Me.ucrChkMode.AutoSize = True + Me.ucrChkMode.Checked = False + Me.ucrChkMode.Location = New System.Drawing.Point(10, 74) + Me.ucrChkMode.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkMode.Name = "ucrChkMode" + Me.ucrChkMode.Size = New System.Drawing.Size(150, 51) + Me.ucrChkMode.TabIndex = 1 + ' + 'ucrChkNMissing + ' + Me.ucrChkNMissing.AutoSize = True + Me.ucrChkNMissing.Checked = False + Me.ucrChkNMissing.Location = New System.Drawing.Point(438, 28) + Me.ucrChkNMissing.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkNMissing.Name = "ucrChkNMissing" + Me.ucrChkNMissing.Size = New System.Drawing.Size(128, 51) + Me.ucrChkNMissing.TabIndex = 4 + ' + 'ucrChkNonMissing + ' + Me.ucrChkNonMissing.AutoSize = True + Me.ucrChkNonMissing.Checked = False + Me.ucrChkNonMissing.Location = New System.Drawing.Point(10, 28) + Me.ucrChkNonMissing.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkNonMissing.Name = "ucrChkNonMissing" + Me.ucrChkNonMissing.Size = New System.Drawing.Size(194, 51) + Me.ucrChkNonMissing.TabIndex = 0 + ' + 'ucrChkP67 + ' + Me.ucrChkP67.AutoSize = True + Me.ucrChkP67.Checked = False + Me.ucrChkP67.Location = New System.Drawing.Point(252, 28) + Me.ucrChkP67.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP67.Name = "ucrChkP67" + Me.ucrChkP67.Size = New System.Drawing.Size(128, 51) + Me.ucrChkP67.TabIndex = 3 + ' + 'ucrChkP33 + ' + Me.ucrChkP33.AutoSize = True + Me.ucrChkP33.Checked = False + Me.ucrChkP33.Location = New System.Drawing.Point(144, 28) + Me.ucrChkP33.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP33.Name = "ucrChkP33" + Me.ucrChkP33.Size = New System.Drawing.Size(99, 51) + Me.ucrChkP33.TabIndex = 2 + ' + 'ucrChkP25 + ' + Me.ucrChkP25.AutoSize = True + Me.ucrChkP25.Checked = False + Me.ucrChkP25.Location = New System.Drawing.Point(10, 28) + Me.ucrChkP25.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP25.Name = "ucrChkP25" + Me.ucrChkP25.Size = New System.Drawing.Size(128, 51) + Me.ucrChkP25.TabIndex = 0 + ' + 'ucrChkP75 + ' + Me.ucrChkP75.AutoSize = True + Me.ucrChkP75.Checked = False + Me.ucrChkP75.Location = New System.Drawing.Point(438, 28) + Me.ucrChkP75.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkP75.Name = "ucrChkP75" + Me.ucrChkP75.Size = New System.Drawing.Size(128, 51) + Me.ucrChkP75.TabIndex = 1 + ' + 'ucrChkRange + ' + Me.ucrChkRange.AutoSize = True + Me.ucrChkRange.Checked = False + Me.ucrChkRange.Location = New System.Drawing.Point(438, 28) + Me.ucrChkRange.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkRange.Name = "ucrChkRange" + Me.ucrChkRange.Size = New System.Drawing.Size(128, 51) + Me.ucrChkRange.TabIndex = 1 + ' + 'ucrChkMaximum + ' + Me.ucrChkMaximum.AutoSize = True + Me.ucrChkMaximum.Checked = False + Me.ucrChkMaximum.Location = New System.Drawing.Point(252, 28) + Me.ucrChkMaximum.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkMaximum.Name = "ucrChkMaximum" + Me.ucrChkMaximum.Size = New System.Drawing.Size(150, 51) + Me.ucrChkMaximum.TabIndex = 2 + ' + 'ucrChkMinimum + ' + Me.ucrChkMinimum.AutoSize = True + Me.ucrChkMinimum.Checked = False + Me.ucrChkMinimum.Location = New System.Drawing.Point(10, 28) + Me.ucrChkMinimum.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkMinimum.Name = "ucrChkMinimum" + Me.ucrChkMinimum.Size = New System.Drawing.Size(150, 51) + Me.ucrChkMinimum.TabIndex = 0 + ' + 'ucrChkVariance + ' + Me.ucrChkVariance.AutoSize = True + Me.ucrChkVariance.Checked = False + Me.ucrChkVariance.Location = New System.Drawing.Point(252, 74) + Me.ucrChkVariance.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkVariance.Name = "ucrChkVariance" + Me.ucrChkVariance.Size = New System.Drawing.Size(236, 51) + Me.ucrChkVariance.TabIndex = 3 + ' + 'ucrChkMedian + ' + Me.ucrChkMedian.AutoSize = True + Me.ucrChkMedian.Checked = False + Me.ucrChkMedian.Location = New System.Drawing.Point(438, 28) + Me.ucrChkMedian.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkMedian.Name = "ucrChkMedian" + Me.ucrChkMedian.Size = New System.Drawing.Size(154, 51) + Me.ucrChkMedian.TabIndex = 4 + ' + 'ucrChkStdDev + ' + Me.ucrChkStdDev.AutoSize = True + Me.ucrChkStdDev.Checked = False + Me.ucrChkStdDev.Location = New System.Drawing.Point(10, 74) + Me.ucrChkStdDev.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkStdDev.Name = "ucrChkStdDev" + Me.ucrChkStdDev.Size = New System.Drawing.Size(232, 51) + Me.ucrChkStdDev.TabIndex = 1 + ' + 'ucrChkSum + ' + Me.ucrChkSum.AutoSize = True + Me.ucrChkSum.Checked = False + Me.ucrChkSum.Location = New System.Drawing.Point(10, 28) + Me.ucrChkSum.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkSum.Name = "ucrChkSum" + Me.ucrChkSum.Size = New System.Drawing.Size(150, 51) + Me.ucrChkSum.TabIndex = 0 + ' + 'ucrChkMean + ' + Me.ucrChkMean.AutoSize = True + Me.ucrChkMean.Checked = False + Me.ucrChkMean.Location = New System.Drawing.Point(252, 28) + Me.ucrChkMean.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkMean.Name = "ucrChkMean" + Me.ucrChkMean.Size = New System.Drawing.Size(150, 51) + Me.ucrChkMean.TabIndex = 2 ' 'ucrInputQuantile ' @@ -934,20 +896,20 @@ Partial Class sdgSummaries Me.ucrInputQuantile.AutoSize = True Me.ucrInputQuantile.IsMultiline = False Me.ucrInputQuantile.IsReadOnly = False - Me.ucrInputQuantile.Location = New System.Drawing.Point(119, 93) - Me.ucrInputQuantile.Margin = New System.Windows.Forms.Padding(5) + Me.ucrInputQuantile.Location = New System.Drawing.Point(178, 140) + Me.ucrInputQuantile.Margin = New System.Windows.Forms.Padding(8) Me.ucrInputQuantile.Name = "ucrInputQuantile" - Me.ucrInputQuantile.Size = New System.Drawing.Size(52, 21) + Me.ucrInputQuantile.Size = New System.Drawing.Size(78, 32) Me.ucrInputQuantile.TabIndex = 10 ' 'ucrChkQuantile ' Me.ucrChkQuantile.AutoSize = True Me.ucrChkQuantile.Checked = False - Me.ucrChkQuantile.Location = New System.Drawing.Point(7, 96) - Me.ucrChkQuantile.Margin = New System.Windows.Forms.Padding(4) + Me.ucrChkQuantile.Location = New System.Drawing.Point(10, 144) + Me.ucrChkQuantile.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) Me.ucrChkQuantile.Name = "ucrChkQuantile" - Me.ucrChkQuantile.Size = New System.Drawing.Size(108, 23) + Me.ucrChkQuantile.Size = New System.Drawing.Size(162, 51) Me.ucrChkQuantile.TabIndex = 9 ' 'ucrInputCountValue @@ -956,10 +918,10 @@ Partial Class sdgSummaries Me.ucrInputCountValue.AutoSize = True Me.ucrInputCountValue.IsMultiline = False Me.ucrInputCountValue.IsReadOnly = False - Me.ucrInputCountValue.Location = New System.Drawing.Point(175, 68) - Me.ucrInputCountValue.Margin = New System.Windows.Forms.Padding(7, 6, 7, 6) + Me.ucrInputCountValue.Location = New System.Drawing.Point(262, 102) + Me.ucrInputCountValue.Margin = New System.Windows.Forms.Padding(10, 9, 10, 9) Me.ucrInputCountValue.Name = "ucrInputCountValue" - Me.ucrInputCountValue.Size = New System.Drawing.Size(51, 20) + Me.ucrInputCountValue.Size = New System.Drawing.Size(76, 30) Me.ucrInputCountValue.TabIndex = 8 ' 'ucrInputComboCountTest @@ -969,40 +931,40 @@ Partial Class sdgSummaries Me.ucrInputComboCountTest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.ucrInputComboCountTest.GetSetSelectedIndex = -1 Me.ucrInputComboCountTest.IsReadOnly = False - Me.ucrInputComboCountTest.Location = New System.Drawing.Point(119, 68) - Me.ucrInputComboCountTest.Margin = New System.Windows.Forms.Padding(7, 6, 7, 6) + Me.ucrInputComboCountTest.Location = New System.Drawing.Point(178, 102) + Me.ucrInputComboCountTest.Margin = New System.Windows.Forms.Padding(10, 9, 10, 9) Me.ucrInputComboCountTest.Name = "ucrInputComboCountTest" - Me.ucrInputComboCountTest.Size = New System.Drawing.Size(51, 25) + Me.ucrInputComboCountTest.Size = New System.Drawing.Size(76, 38) Me.ucrInputComboCountTest.TabIndex = 7 ' 'ucrChkProportion ' Me.ucrChkProportion.AutoSize = True Me.ucrChkProportion.Checked = False - Me.ucrChkProportion.Location = New System.Drawing.Point(7, 45) - Me.ucrChkProportion.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkProportion.Location = New System.Drawing.Point(10, 68) + Me.ucrChkProportion.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkProportion.Name = "ucrChkProportion" - Me.ucrChkProportion.Size = New System.Drawing.Size(108, 23) + Me.ucrChkProportion.Size = New System.Drawing.Size(162, 51) Me.ucrChkProportion.TabIndex = 2 ' 'ucrChkCount ' Me.ucrChkCount.AutoSize = True Me.ucrChkCount.Checked = False - Me.ucrChkCount.Location = New System.Drawing.Point(7, 71) - Me.ucrChkCount.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkCount.Location = New System.Drawing.Point(10, 106) + Me.ucrChkCount.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkCount.Name = "ucrChkCount" - Me.ucrChkCount.Size = New System.Drawing.Size(108, 23) + Me.ucrChkCount.Size = New System.Drawing.Size(162, 51) Me.ucrChkCount.TabIndex = 6 ' 'ucrChkPercentage ' Me.ucrChkPercentage.AutoSize = True Me.ucrChkPercentage.Checked = False - Me.ucrChkPercentage.Location = New System.Drawing.Point(238, 45) - Me.ucrChkPercentage.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkPercentage.Location = New System.Drawing.Point(357, 68) + Me.ucrChkPercentage.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkPercentage.Name = "ucrChkPercentage" - Me.ucrChkPercentage.Size = New System.Drawing.Size(101, 23) + Me.ucrChkPercentage.Size = New System.Drawing.Size(152, 51) Me.ucrChkPercentage.TabIndex = 5 ' 'ucrInputPropValue @@ -1011,10 +973,10 @@ Partial Class sdgSummaries Me.ucrInputPropValue.AutoSize = True Me.ucrInputPropValue.IsMultiline = False Me.ucrInputPropValue.IsReadOnly = False - Me.ucrInputPropValue.Location = New System.Drawing.Point(175, 43) - Me.ucrInputPropValue.Margin = New System.Windows.Forms.Padding(7, 6, 7, 6) + Me.ucrInputPropValue.Location = New System.Drawing.Point(262, 64) + Me.ucrInputPropValue.Margin = New System.Windows.Forms.Padding(10, 9, 10, 9) Me.ucrInputPropValue.Name = "ucrInputPropValue" - Me.ucrInputPropValue.Size = New System.Drawing.Size(51, 20) + Me.ucrInputPropValue.Size = New System.Drawing.Size(76, 30) Me.ucrInputPropValue.TabIndex = 4 ' 'ucrInputComboPropTest @@ -1024,10 +986,10 @@ Partial Class sdgSummaries Me.ucrInputComboPropTest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.ucrInputComboPropTest.GetSetSelectedIndex = -1 Me.ucrInputComboPropTest.IsReadOnly = False - Me.ucrInputComboPropTest.Location = New System.Drawing.Point(119, 43) - Me.ucrInputComboPropTest.Margin = New System.Windows.Forms.Padding(7, 6, 7, 6) + Me.ucrInputComboPropTest.Location = New System.Drawing.Point(178, 64) + Me.ucrInputComboPropTest.Margin = New System.Windows.Forms.Padding(10, 9, 10, 9) Me.ucrInputComboPropTest.Name = "ucrInputComboPropTest" - Me.ucrInputComboPropTest.Size = New System.Drawing.Size(51, 25) + Me.ucrInputComboPropTest.Size = New System.Drawing.Size(76, 38) Me.ucrInputComboPropTest.TabIndex = 3 ' 'ucrInputPercentile @@ -1036,55 +998,33 @@ Partial Class sdgSummaries Me.ucrInputPercentile.AutoSize = True Me.ucrInputPercentile.IsMultiline = False Me.ucrInputPercentile.IsReadOnly = False - Me.ucrInputPercentile.Location = New System.Drawing.Point(119, 19) - Me.ucrInputPercentile.Margin = New System.Windows.Forms.Padding(7, 6, 7, 6) + Me.ucrInputPercentile.Location = New System.Drawing.Point(178, 28) + Me.ucrInputPercentile.Margin = New System.Windows.Forms.Padding(10, 9, 10, 9) Me.ucrInputPercentile.Name = "ucrInputPercentile" - Me.ucrInputPercentile.Size = New System.Drawing.Size(51, 20) + Me.ucrInputPercentile.Size = New System.Drawing.Size(76, 30) Me.ucrInputPercentile.TabIndex = 1 ' 'ucrChkPercentile ' Me.ucrChkPercentile.AutoSize = True Me.ucrChkPercentile.Checked = False - Me.ucrChkPercentile.Location = New System.Drawing.Point(7, 19) - Me.ucrChkPercentile.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkPercentile.Location = New System.Drawing.Point(10, 28) + Me.ucrChkPercentile.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkPercentile.Name = "ucrChkPercentile" - Me.ucrChkPercentile.Size = New System.Drawing.Size(108, 23) + Me.ucrChkPercentile.Size = New System.Drawing.Size(162, 51) Me.ucrChkPercentile.TabIndex = 0 ' - 'grpLocation - ' - Me.grpLocation.Controls.Add(Me.lblFractionTrimmed) - Me.grpLocation.Controls.Add(Me.ucrNudFraction) - Me.grpLocation.Controls.Add(Me.ucrChkTrimmedMean) - Me.grpLocation.Location = New System.Drawing.Point(10, 134) - Me.grpLocation.Name = "grpLocation" - Me.grpLocation.Size = New System.Drawing.Size(393, 52) - Me.grpLocation.TabIndex = 0 - Me.grpLocation.TabStop = False - Me.grpLocation.Text = "Location" - ' - 'lblFractionTrimmed - ' - Me.lblFractionTrimmed.AutoSize = True - Me.lblFractionTrimmed.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.lblFractionTrimmed.Location = New System.Drawing.Point(208, 21) - Me.lblFractionTrimmed.Name = "lblFractionTrimmed" - Me.lblFractionTrimmed.Size = New System.Drawing.Size(91, 13) - Me.lblFractionTrimmed.TabIndex = 1 - Me.lblFractionTrimmed.Text = "Fraction Trimmed:" - ' 'ucrNudFraction ' Me.ucrNudFraction.AutoSize = True Me.ucrNudFraction.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudFraction.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - Me.ucrNudFraction.Location = New System.Drawing.Point(303, 18) - Me.ucrNudFraction.Margin = New System.Windows.Forms.Padding(5) + Me.ucrNudFraction.Location = New System.Drawing.Point(454, 27) + Me.ucrNudFraction.Margin = New System.Windows.Forms.Padding(8) Me.ucrNudFraction.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) Me.ucrNudFraction.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) Me.ucrNudFraction.Name = "ucrNudFraction" - Me.ucrNudFraction.Size = New System.Drawing.Size(50, 20) + Me.ucrNudFraction.Size = New System.Drawing.Size(75, 30) Me.ucrNudFraction.TabIndex = 2 Me.ucrNudFraction.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' @@ -1092,488 +1032,623 @@ Partial Class sdgSummaries ' Me.ucrChkTrimmedMean.AutoSize = True Me.ucrChkTrimmedMean.Checked = False - Me.ucrChkTrimmedMean.Location = New System.Drawing.Point(7, 19) - Me.ucrChkTrimmedMean.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkTrimmedMean.Location = New System.Drawing.Point(10, 28) + Me.ucrChkTrimmedMean.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkTrimmedMean.Name = "ucrChkTrimmedMean" - Me.ucrChkTrimmedMean.Size = New System.Drawing.Size(120, 23) + Me.ucrChkTrimmedMean.Size = New System.Drawing.Size(180, 51) Me.ucrChkTrimmedMean.TabIndex = 0 ' - 'grpScale - ' - Me.grpScale.Controls.Add(Me.ucrChkSn) - Me.grpScale.Controls.Add(Me.ucrChkQn) - Me.grpScale.Controls.Add(Me.ucrChkCoefficientOfVariation) - Me.grpScale.Controls.Add(Me.ucrChkMedianAbsoluteDeviation) - Me.grpScale.Location = New System.Drawing.Point(10, 193) - Me.grpScale.Name = "grpScale" - Me.grpScale.Size = New System.Drawing.Size(393, 74) - Me.grpScale.TabIndex = 1 - Me.grpScale.TabStop = False - Me.grpScale.Text = "Scale" - ' 'ucrChkSn ' Me.ucrChkSn.AutoSize = True Me.ucrChkSn.Checked = False - Me.ucrChkSn.Location = New System.Drawing.Point(208, 46) - Me.ucrChkSn.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkSn.Location = New System.Drawing.Point(312, 69) + Me.ucrChkSn.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkSn.Name = "ucrChkSn" - Me.ucrChkSn.Size = New System.Drawing.Size(101, 23) + Me.ucrChkSn.Size = New System.Drawing.Size(152, 51) Me.ucrChkSn.TabIndex = 3 ' 'ucrChkQn ' Me.ucrChkQn.AutoSize = True Me.ucrChkQn.Checked = False - Me.ucrChkQn.Location = New System.Drawing.Point(208, 19) - Me.ucrChkQn.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkQn.Location = New System.Drawing.Point(312, 28) + Me.ucrChkQn.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkQn.Name = "ucrChkQn" - Me.ucrChkQn.Size = New System.Drawing.Size(101, 23) + Me.ucrChkQn.Size = New System.Drawing.Size(152, 51) Me.ucrChkQn.TabIndex = 2 ' 'ucrChkCoefficientOfVariation ' Me.ucrChkCoefficientOfVariation.AutoSize = True Me.ucrChkCoefficientOfVariation.Checked = False - Me.ucrChkCoefficientOfVariation.Location = New System.Drawing.Point(7, 19) - Me.ucrChkCoefficientOfVariation.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkCoefficientOfVariation.Location = New System.Drawing.Point(10, 28) + Me.ucrChkCoefficientOfVariation.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkCoefficientOfVariation.Name = "ucrChkCoefficientOfVariation" - Me.ucrChkCoefficientOfVariation.Size = New System.Drawing.Size(200, 23) + Me.ucrChkCoefficientOfVariation.Size = New System.Drawing.Size(300, 51) Me.ucrChkCoefficientOfVariation.TabIndex = 0 ' 'ucrChkMedianAbsoluteDeviation ' Me.ucrChkMedianAbsoluteDeviation.AutoSize = True Me.ucrChkMedianAbsoluteDeviation.Checked = False - Me.ucrChkMedianAbsoluteDeviation.Location = New System.Drawing.Point(7, 45) - Me.ucrChkMedianAbsoluteDeviation.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkMedianAbsoluteDeviation.Location = New System.Drawing.Point(10, 68) + Me.ucrChkMedianAbsoluteDeviation.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkMedianAbsoluteDeviation.Name = "ucrChkMedianAbsoluteDeviation" - Me.ucrChkMedianAbsoluteDeviation.Size = New System.Drawing.Size(262, 23) - Me.ucrChkMedianAbsoluteDeviation.TabIndex = 1 - ' - 'grpSkewness - ' - Me.grpSkewness.Controls.Add(Me.ucrChkMc) - Me.grpSkewness.Controls.Add(Me.ucrChkSkewness) - Me.grpSkewness.Location = New System.Drawing.Point(10, 273) - Me.grpSkewness.Name = "grpSkewness" - Me.grpSkewness.Size = New System.Drawing.Size(393, 49) - Me.grpSkewness.TabIndex = 2 - Me.grpSkewness.TabStop = False - Me.grpSkewness.Text = "Skewness" + Me.ucrChkMedianAbsoluteDeviation.Size = New System.Drawing.Size(393, 51) + Me.ucrChkMedianAbsoluteDeviation.TabIndex = 1 ' 'ucrChkMc ' Me.ucrChkMc.AutoSize = True Me.ucrChkMc.Checked = False - Me.ucrChkMc.Location = New System.Drawing.Point(208, 19) - Me.ucrChkMc.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkMc.Location = New System.Drawing.Point(312, 28) + Me.ucrChkMc.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkMc.Name = "ucrChkMc" - Me.ucrChkMc.Size = New System.Drawing.Size(101, 23) + Me.ucrChkMc.Size = New System.Drawing.Size(152, 51) Me.ucrChkMc.TabIndex = 1 ' 'ucrChkSkewness ' Me.ucrChkSkewness.AutoSize = True Me.ucrChkSkewness.Checked = False - Me.ucrChkSkewness.Location = New System.Drawing.Point(7, 19) - Me.ucrChkSkewness.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkSkewness.Location = New System.Drawing.Point(10, 28) + Me.ucrChkSkewness.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkSkewness.Name = "ucrChkSkewness" - Me.ucrChkSkewness.Size = New System.Drawing.Size(254, 23) + Me.ucrChkSkewness.Size = New System.Drawing.Size(381, 51) Me.ucrChkSkewness.TabIndex = 0 ' - 'grpKurtosis + 'ucrChkProportionsPercentages ' - Me.grpKurtosis.Controls.Add(Me.ucrChkKurtosis) - Me.grpKurtosis.Location = New System.Drawing.Point(10, 329) - Me.grpKurtosis.Name = "grpKurtosis" - Me.grpKurtosis.Size = New System.Drawing.Size(393, 50) - Me.grpKurtosis.TabIndex = 3 - Me.grpKurtosis.TabStop = False - Me.grpKurtosis.Text = "Kurtosis" + Me.ucrChkProportionsPercentages.AutoSize = True + Me.ucrChkProportionsPercentages.Checked = False + Me.ucrChkProportionsPercentages.Location = New System.Drawing.Point(10, 19) + Me.ucrChkProportionsPercentages.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkProportionsPercentages.Name = "ucrChkProportionsPercentages" + Me.ucrChkProportionsPercentages.Size = New System.Drawing.Size(438, 34) + Me.ucrChkProportionsPercentages.TabIndex = 1 ' 'ucrChkKurtosis ' Me.ucrChkKurtosis.AutoSize = True Me.ucrChkKurtosis.Checked = False - Me.ucrChkKurtosis.Location = New System.Drawing.Point(7, 19) - Me.ucrChkKurtosis.Margin = New System.Windows.Forms.Padding(5) + Me.ucrChkKurtosis.Location = New System.Drawing.Point(10, 25) + Me.ucrChkKurtosis.Margin = New System.Windows.Forms.Padding(8) Me.ucrChkKurtosis.Name = "ucrChkKurtosis" - Me.ucrChkKurtosis.Size = New System.Drawing.Size(120, 23) + Me.ucrChkKurtosis.Size = New System.Drawing.Size(180, 34) Me.ucrChkKurtosis.TabIndex = 0 ' - 'tbsum + 'ucrChkCovariance ' - Me.tbsum.Controls.Add(Me.grpDecilesQuintiles) - Me.tbsum.Controls.Add(Me.grpCommon) - Me.tbsum.Controls.Add(Me.grpQuartilesTerciles) - Me.tbsum.Controls.Add(Me.grpNotOrderedFactor) - Me.tbsum.Controls.Add(Me.grpNumeric) - Me.tbsum.Location = New System.Drawing.Point(4, 22) - Me.tbsum.Name = "tbsum" - Me.tbsum.Padding = New System.Windows.Forms.Padding(3) - Me.tbsum.Size = New System.Drawing.Size(409, 383) - Me.tbsum.TabIndex = 0 - Me.tbsum.Text = "Summaries" - Me.tbsum.UseVisualStyleBackColor = True + Me.ucrChkCovariance.AutoSize = True + Me.ucrChkCovariance.Checked = False + Me.ucrChkCovariance.Location = New System.Drawing.Point(249, 15) + Me.ucrChkCovariance.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkCovariance.Name = "ucrChkCovariance" + Me.ucrChkCovariance.Size = New System.Drawing.Size(250, 51) + Me.ucrChkCovariance.TabIndex = 1 ' - 'grpDecilesQuintiles + 'ucrChkCorrelations ' - Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP60) - Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP90) - Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP70) - Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP80) - Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP40) - Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP30) - Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP10) - Me.grpDecilesQuintiles.Controls.Add(Me.ucrChkP20) - Me.grpDecilesQuintiles.Location = New System.Drawing.Point(10, 289) - Me.grpDecilesQuintiles.Name = "grpDecilesQuintiles" - Me.grpDecilesQuintiles.Size = New System.Drawing.Size(393, 87) - Me.grpDecilesQuintiles.TabIndex = 4 - Me.grpDecilesQuintiles.TabStop = False - Me.grpDecilesQuintiles.Tag = "" - Me.grpDecilesQuintiles.Text = "Deciles && Quintiles" + Me.ucrChkCorrelations.AutoSize = True + Me.ucrChkCorrelations.Checked = False + Me.ucrChkCorrelations.Location = New System.Drawing.Point(22, 20) + Me.ucrChkCorrelations.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkCorrelations.Name = "ucrChkCorrelations" + Me.ucrChkCorrelations.Size = New System.Drawing.Size(224, 51) + Me.ucrChkCorrelations.TabIndex = 0 ' - 'ucrChkP60 + 'ucrInputJmia ' - Me.ucrChkP60.AutoSize = True - Me.ucrChkP60.Checked = False - Me.ucrChkP60.Location = New System.Drawing.Point(7, 51) - Me.ucrChkP60.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP60.Name = "ucrChkP60" - Me.ucrChkP60.Size = New System.Drawing.Size(85, 23) - Me.ucrChkP60.TabIndex = 7 + Me.ucrInputJmia.AddQuotesIfUnrecognised = True + Me.ucrInputJmia.AutoSize = True + Me.ucrInputJmia.IsMultiline = False + Me.ucrInputJmia.IsReadOnly = False + Me.ucrInputJmia.Location = New System.Drawing.Point(448, 183) + Me.ucrInputJmia.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputJmia.Name = "ucrInputJmia" + Me.ucrInputJmia.Size = New System.Drawing.Size(48, 32) + Me.ucrInputJmia.TabIndex = 21 ' - 'ucrChkP90 + 'ucrChkSelectAll ' - Me.ucrChkP90.AutoSize = True - Me.ucrChkP90.Checked = False - Me.ucrChkP90.Location = New System.Drawing.Point(292, 51) - Me.ucrChkP90.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP90.Name = "ucrChkP90" - Me.ucrChkP90.Size = New System.Drawing.Size(85, 23) - Me.ucrChkP90.TabIndex = 6 + Me.ucrChkSelectAll.AutoSize = True + Me.ucrChkSelectAll.Checked = False + Me.ucrChkSelectAll.Location = New System.Drawing.Point(14, 22) + Me.ucrChkSelectAll.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkSelectAll.Name = "ucrChkSelectAll" + Me.ucrChkSelectAll.Size = New System.Drawing.Size(130, 51) + Me.ucrChkSelectAll.TabIndex = 0 ' - 'ucrChkP70 + 'ucrChkRelativeIndexOfAgreement ' - Me.ucrChkP70.AutoSize = True - Me.ucrChkP70.Checked = False - Me.ucrChkP70.Location = New System.Drawing.Point(96, 51) - Me.ucrChkP70.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP70.Name = "ucrChkP70" - Me.ucrChkP70.Size = New System.Drawing.Size(66, 23) - Me.ucrChkP70.TabIndex = 5 + Me.ucrChkRelativeIndexOfAgreement.AutoSize = True + Me.ucrChkRelativeIndexOfAgreement.Checked = False + Me.ucrChkRelativeIndexOfAgreement.Location = New System.Drawing.Point(306, 112) + Me.ucrChkRelativeIndexOfAgreement.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkRelativeIndexOfAgreement.Name = "ucrChkRelativeIndexOfAgreement" + Me.ucrChkRelativeIndexOfAgreement.Size = New System.Drawing.Size(130, 51) + Me.ucrChkRelativeIndexOfAgreement.TabIndex = 13 ' - 'ucrChkP80 + 'ucrChkRatioOfStandardDeviation ' - Me.ucrChkP80.AutoSize = True - Me.ucrChkP80.Checked = False - Me.ucrChkP80.Location = New System.Drawing.Point(168, 51) - Me.ucrChkP80.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP80.Name = "ucrChkP80" - Me.ucrChkP80.Size = New System.Drawing.Size(85, 23) - Me.ucrChkP80.TabIndex = 4 + Me.ucrChkRatioOfStandardDeviation.AutoSize = True + Me.ucrChkRatioOfStandardDeviation.Checked = False + Me.ucrChkRatioOfStandardDeviation.Location = New System.Drawing.Point(141, 81) + Me.ucrChkRatioOfStandardDeviation.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkRatioOfStandardDeviation.Name = "ucrChkRatioOfStandardDeviation" + Me.ucrChkRatioOfStandardDeviation.Size = New System.Drawing.Size(130, 51) + Me.ucrChkRatioOfStandardDeviation.TabIndex = 7 ' - 'ucrChkP40 + 'ucrChkCoefDetermination ' - Me.ucrChkP40.AutoSize = True - Me.ucrChkP40.Checked = False - Me.ucrChkP40.Location = New System.Drawing.Point(292, 21) - Me.ucrChkP40.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP40.Name = "ucrChkP40" - Me.ucrChkP40.Size = New System.Drawing.Size(85, 23) - Me.ucrChkP40.TabIndex = 3 + Me.ucrChkCoefDetermination.AutoSize = True + Me.ucrChkCoefDetermination.Checked = False + Me.ucrChkCoefDetermination.Location = New System.Drawing.Point(306, 174) + Me.ucrChkCoefDetermination.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkCoefDetermination.Name = "ucrChkCoefDetermination" + Me.ucrChkCoefDetermination.Size = New System.Drawing.Size(130, 51) + Me.ucrChkCoefDetermination.TabIndex = 15 ' - 'ucrChkP30 + 'ucrChkRatioOfRootMeanSquaredError ' - Me.ucrChkP30.AutoSize = True - Me.ucrChkP30.Checked = False - Me.ucrChkP30.Location = New System.Drawing.Point(168, 21) - Me.ucrChkP30.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP30.Name = "ucrChkP30" - Me.ucrChkP30.Size = New System.Drawing.Size(85, 23) - Me.ucrChkP30.TabIndex = 2 + Me.ucrChkRatioOfRootMeanSquaredError.AutoSize = True + Me.ucrChkRatioOfRootMeanSquaredError.Checked = False + Me.ucrChkRatioOfRootMeanSquaredError.Location = New System.Drawing.Point(141, 51) + Me.ucrChkRatioOfRootMeanSquaredError.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkRatioOfRootMeanSquaredError.Name = "ucrChkRatioOfRootMeanSquaredError" + Me.ucrChkRatioOfRootMeanSquaredError.Size = New System.Drawing.Size(130, 51) + Me.ucrChkRatioOfRootMeanSquaredError.TabIndex = 6 ' - 'ucrChkP10 + 'ucrChkRelativeNashSutcliffeEff ' - Me.ucrChkP10.AutoSize = True - Me.ucrChkP10.Checked = False - Me.ucrChkP10.Location = New System.Drawing.Point(7, 21) - Me.ucrChkP10.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP10.Name = "ucrChkP10" - Me.ucrChkP10.Size = New System.Drawing.Size(85, 23) - Me.ucrChkP10.TabIndex = 0 + Me.ucrChkRelativeNashSutcliffeEff.AutoSize = True + Me.ucrChkRelativeNashSutcliffeEff.Checked = False + Me.ucrChkRelativeNashSutcliffeEff.Location = New System.Drawing.Point(141, 172) + Me.ucrChkRelativeNashSutcliffeEff.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkRelativeNashSutcliffeEff.Name = "ucrChkRelativeNashSutcliffeEff" + Me.ucrChkRelativeNashSutcliffeEff.Size = New System.Drawing.Size(130, 51) + Me.ucrChkRelativeNashSutcliffeEff.TabIndex = 10 ' - 'ucrChkP20 + 'ucrChkModifiedIndexOfAgreement ' - Me.ucrChkP20.AutoSize = True - Me.ucrChkP20.Checked = False - Me.ucrChkP20.Location = New System.Drawing.Point(96, 21) - Me.ucrChkP20.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP20.Name = "ucrChkP20" - Me.ucrChkP20.Size = New System.Drawing.Size(66, 23) - Me.ucrChkP20.TabIndex = 1 + Me.ucrChkModifiedIndexOfAgreement.AutoSize = True + Me.ucrChkModifiedIndexOfAgreement.Checked = False + Me.ucrChkModifiedIndexOfAgreement.Location = New System.Drawing.Point(306, 54) + Me.ucrChkModifiedIndexOfAgreement.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkModifiedIndexOfAgreement.Name = "ucrChkModifiedIndexOfAgreement" + Me.ucrChkModifiedIndexOfAgreement.Size = New System.Drawing.Size(130, 51) + Me.ucrChkModifiedIndexOfAgreement.TabIndex = 11 ' - 'grpCommon + 'ucrChkCoefPersistence ' - Me.grpCommon.Controls.Add(Me.ucrChkn_distinct) - Me.grpCommon.Controls.Add(Me.ucrChkNTotal) - Me.grpCommon.Controls.Add(Me.ucrChkMode) - Me.grpCommon.Controls.Add(Me.ucrChkNMissing) - Me.grpCommon.Controls.Add(Me.ucrChkNonMissing) - Me.grpCommon.Location = New System.Drawing.Point(10, 6) - Me.grpCommon.Name = "grpCommon" - Me.grpCommon.Size = New System.Drawing.Size(393, 80) - Me.grpCommon.TabIndex = 0 - Me.grpCommon.TabStop = False - Me.grpCommon.Tag = "Common" - Me.grpCommon.Text = "Common" + Me.ucrChkCoefPersistence.AutoSize = True + Me.ucrChkCoefPersistence.Checked = False + Me.ucrChkCoefPersistence.Location = New System.Drawing.Point(306, 142) + Me.ucrChkCoefPersistence.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkCoefPersistence.Name = "ucrChkCoefPersistence" + Me.ucrChkCoefPersistence.Size = New System.Drawing.Size(130, 51) + Me.ucrChkCoefPersistence.TabIndex = 14 + ' + 'ucrChkNashSutcliffeEfficiency + ' + Me.ucrChkNashSutcliffeEfficiency.AutoSize = True + Me.ucrChkNashSutcliffeEfficiency.Checked = False + Me.ucrChkNashSutcliffeEfficiency.Location = New System.Drawing.Point(141, 112) + Me.ucrChkNashSutcliffeEfficiency.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkNashSutcliffeEfficiency.Name = "ucrChkNashSutcliffeEfficiency" + Me.ucrChkNashSutcliffeEfficiency.Size = New System.Drawing.Size(130, 51) + Me.ucrChkNashSutcliffeEfficiency.TabIndex = 8 + ' + 'ucrChkSumOfSquaredResiduals + ' + Me.ucrChkSumOfSquaredResiduals.AutoSize = True + Me.ucrChkSumOfSquaredResiduals.Checked = False + Me.ucrChkSumOfSquaredResiduals.Location = New System.Drawing.Point(459, 150) + Me.ucrChkSumOfSquaredResiduals.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkSumOfSquaredResiduals.Name = "ucrChkSumOfSquaredResiduals" + Me.ucrChkSumOfSquaredResiduals.Size = New System.Drawing.Size(130, 51) + Me.ucrChkSumOfSquaredResiduals.TabIndex = 19 + ' + 'ucrChkKlingGuptaEfficiency + ' + Me.ucrChkKlingGuptaEfficiency.AutoSize = True + Me.ucrChkKlingGuptaEfficiency.Checked = False + Me.ucrChkKlingGuptaEfficiency.Location = New System.Drawing.Point(459, 57) + Me.ucrChkKlingGuptaEfficiency.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkKlingGuptaEfficiency.Name = "ucrChkKlingGuptaEfficiency" + Me.ucrChkKlingGuptaEfficiency.Size = New System.Drawing.Size(130, 51) + Me.ucrChkKlingGuptaEfficiency.TabIndex = 16 + ' + 'ucrChkVolumetricEfficiency + ' + Me.ucrChkVolumetricEfficiency.AutoSize = True + Me.ucrChkVolumetricEfficiency.Checked = False + Me.ucrChkVolumetricEfficiency.Location = New System.Drawing.Point(459, 87) + Me.ucrChkVolumetricEfficiency.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkVolumetricEfficiency.Name = "ucrChkVolumetricEfficiency" + Me.ucrChkVolumetricEfficiency.Size = New System.Drawing.Size(130, 51) + Me.ucrChkVolumetricEfficiency.TabIndex = 17 + ' + 'ucrChkPercentBias + ' + Me.ucrChkPercentBias.AutoSize = True + Me.ucrChkPercentBias.Checked = False + Me.ucrChkPercentBias.Location = New System.Drawing.Point(12, 174) + Me.ucrChkPercentBias.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkPercentBias.Name = "ucrChkPercentBias" + Me.ucrChkPercentBias.Size = New System.Drawing.Size(130, 51) + Me.ucrChkPercentBias.TabIndex = 5 + ' + 'ucrChkModNashSutcliffeEff + ' + Me.ucrChkModNashSutcliffeEff.AutoSize = True + Me.ucrChkModNashSutcliffeEff.Checked = False + Me.ucrChkModNashSutcliffeEff.Location = New System.Drawing.Point(141, 142) + Me.ucrChkModNashSutcliffeEff.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkModNashSutcliffeEff.Name = "ucrChkModNashSutcliffeEff" + Me.ucrChkModNashSutcliffeEff.Size = New System.Drawing.Size(130, 51) + Me.ucrChkModNashSutcliffeEff.TabIndex = 9 + ' + 'ucrChkMeanError + ' + Me.ucrChkMeanError.AutoSize = True + Me.ucrChkMeanError.Checked = False + Me.ucrChkMeanError.Location = New System.Drawing.Point(12, 51) + Me.ucrChkMeanError.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkMeanError.Name = "ucrChkMeanError" + Me.ucrChkMeanError.Size = New System.Drawing.Size(130, 51) + Me.ucrChkMeanError.TabIndex = 1 + ' + 'ucrChkMeanSquaredError + ' + Me.ucrChkMeanSquaredError.AutoSize = True + Me.ucrChkMeanSquaredError.Checked = False + Me.ucrChkMeanSquaredError.Location = New System.Drawing.Point(459, 118) + Me.ucrChkMeanSquaredError.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkMeanSquaredError.Name = "ucrChkMeanSquaredError" + Me.ucrChkMeanSquaredError.Size = New System.Drawing.Size(130, 51) + Me.ucrChkMeanSquaredError.TabIndex = 18 + ' + 'ucrChkRootMeanSquaredError + ' + Me.ucrChkRootMeanSquaredError.AutoSize = True + Me.ucrChkRootMeanSquaredError.Checked = False + Me.ucrChkRootMeanSquaredError.Location = New System.Drawing.Point(12, 111) + Me.ucrChkRootMeanSquaredError.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkRootMeanSquaredError.Name = "ucrChkRootMeanSquaredError" + Me.ucrChkRootMeanSquaredError.Size = New System.Drawing.Size(130, 51) + Me.ucrChkRootMeanSquaredError.TabIndex = 3 + ' + 'ucrChkNormRootMeanSquaredError + ' + Me.ucrChkNormRootMeanSquaredError.AutoSize = True + Me.ucrChkNormRootMeanSquaredError.Checked = False + Me.ucrChkNormRootMeanSquaredError.Location = New System.Drawing.Point(12, 142) + Me.ucrChkNormRootMeanSquaredError.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkNormRootMeanSquaredError.Name = "ucrChkNormRootMeanSquaredError" + Me.ucrChkNormRootMeanSquaredError.Size = New System.Drawing.Size(130, 51) + Me.ucrChkNormRootMeanSquaredError.TabIndex = 4 + ' + 'ucrChkMeanAbsoluteError + ' + Me.ucrChkMeanAbsoluteError.AutoSize = True + Me.ucrChkMeanAbsoluteError.Checked = False + Me.ucrChkMeanAbsoluteError.Location = New System.Drawing.Point(12, 81) + Me.ucrChkMeanAbsoluteError.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkMeanAbsoluteError.Name = "ucrChkMeanAbsoluteError" + Me.ucrChkMeanAbsoluteError.Size = New System.Drawing.Size(130, 51) + Me.ucrChkMeanAbsoluteError.TabIndex = 2 + ' + 'ucrChkIndexOfAgreement + ' + Me.ucrChkIndexOfAgreement.AutoSize = True + Me.ucrChkIndexOfAgreement.Checked = False + Me.ucrChkIndexOfAgreement.Location = New System.Drawing.Point(306, 86) + Me.ucrChkIndexOfAgreement.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkIndexOfAgreement.Name = "ucrChkIndexOfAgreement" + Me.ucrChkIndexOfAgreement.Size = New System.Drawing.Size(130, 51) + Me.ucrChkIndexOfAgreement.TabIndex = 12 + ' + 'ucrReceiverSecondVariable + ' + Me.ucrReceiverSecondVariable.AutoSize = True + Me.ucrReceiverSecondVariable.frmParent = Nothing + Me.ucrReceiverSecondVariable.Location = New System.Drawing.Point(399, 334) + Me.ucrReceiverSecondVariable.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverSecondVariable.Name = "ucrReceiverSecondVariable" + Me.ucrReceiverSecondVariable.Selector = Nothing + Me.ucrReceiverSecondVariable.Size = New System.Drawing.Size(180, 30) + Me.ucrReceiverSecondVariable.strNcFilePath = "" + Me.ucrReceiverSecondVariable.TabIndex = 4 + Me.ucrReceiverSecondVariable.ucrSelector = Nothing + ' + 'ucrSelectorSecondVariable + ' + Me.ucrSelectorSecondVariable.AutoSize = True + Me.ucrSelectorSecondVariable.bDropUnusedFilterLevels = False + Me.ucrSelectorSecondVariable.bShowHiddenColumns = False + Me.ucrSelectorSecondVariable.bUseCurrentFilter = True + Me.ucrSelectorSecondVariable.Location = New System.Drawing.Point(12, 290) + Me.ucrSelectorSecondVariable.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorSecondVariable.Name = "ucrSelectorSecondVariable" + Me.ucrSelectorSecondVariable.Size = New System.Drawing.Size(480, 411) + Me.ucrSelectorSecondVariable.TabIndex = 2 + ' + 'ucrChkOrderBy + ' + Me.ucrChkOrderBy.AutoSize = True + Me.ucrChkOrderBy.Checked = False + Me.ucrChkOrderBy.Location = New System.Drawing.Point(18, 152) + Me.ucrChkOrderBy.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkOrderBy.Name = "ucrChkOrderBy" + Me.ucrChkOrderBy.Size = New System.Drawing.Size(282, 51) + Me.ucrChkOrderBy.TabIndex = 1 + ' + 'ucrChkSetseed + ' + Me.ucrChkSetseed.AutoSize = True + Me.ucrChkSetseed.Checked = False + Me.ucrChkSetseed.Location = New System.Drawing.Point(249, 68) + Me.ucrChkSetseed.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkSetseed.Name = "ucrChkSetseed" + Me.ucrChkSetseed.Size = New System.Drawing.Size(152, 51) + Me.ucrChkSetseed.TabIndex = 8 ' - 'ucrChkn_distinct + 'ucrNudSeed ' - Me.ucrChkn_distinct.AutoSize = True - Me.ucrChkn_distinct.Checked = False - Me.ucrChkn_distinct.Location = New System.Drawing.Point(168, 49) - Me.ucrChkn_distinct.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkn_distinct.Name = "ucrChkn_distinct" - Me.ucrChkn_distinct.Size = New System.Drawing.Size(101, 23) - Me.ucrChkn_distinct.TabIndex = 3 + Me.ucrNudSeed.AutoSize = True + Me.ucrNudSeed.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudSeed.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + Me.ucrNudSeed.Location = New System.Drawing.Point(410, 68) + Me.ucrNudSeed.Margin = New System.Windows.Forms.Padding(8) + Me.ucrNudSeed.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.ucrNudSeed.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudSeed.Name = "ucrNudSeed" + Me.ucrNudSeed.Size = New System.Drawing.Size(75, 30) + Me.ucrNudSeed.TabIndex = 7 + Me.ucrNudSeed.Value = New Decimal(New Integer() {0, 0, 0, 0}) ' - 'ucrChkNTotal + 'ucrChkSample ' - Me.ucrChkNTotal.AutoSize = True - Me.ucrChkNTotal.Checked = False - Me.ucrChkNTotal.Location = New System.Drawing.Point(168, 19) - Me.ucrChkNTotal.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkNTotal.Name = "ucrChkNTotal" - Me.ucrChkNTotal.Size = New System.Drawing.Size(100, 23) - Me.ucrChkNTotal.TabIndex = 2 + Me.ucrChkSample.AutoSize = True + Me.ucrChkSample.Checked = False + Me.ucrChkSample.Location = New System.Drawing.Point(12, 68) + Me.ucrChkSample.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkSample.Name = "ucrChkSample" + Me.ucrChkSample.Size = New System.Drawing.Size(170, 51) + Me.ucrChkSample.TabIndex = 5 ' - 'ucrChkMode + 'ucrInputN ' - Me.ucrChkMode.AutoSize = True - Me.ucrChkMode.Checked = False - Me.ucrChkMode.Location = New System.Drawing.Point(7, 49) - Me.ucrChkMode.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkMode.Name = "ucrChkMode" - Me.ucrChkMode.Size = New System.Drawing.Size(100, 23) - Me.ucrChkMode.TabIndex = 1 + Me.ucrInputN.AddQuotesIfUnrecognised = True + Me.ucrInputN.AutoSize = True + Me.ucrInputN.IsMultiline = False + Me.ucrInputN.IsReadOnly = False + Me.ucrInputN.Location = New System.Drawing.Point(350, 28) + Me.ucrInputN.Margin = New System.Windows.Forms.Padding(10, 9, 10, 9) + Me.ucrInputN.Name = "ucrInputN" + Me.ucrInputN.Size = New System.Drawing.Size(96, 30) + Me.ucrInputN.TabIndex = 3 ' - 'ucrChkNMissing + 'ucrChkFirst ' - Me.ucrChkNMissing.AutoSize = True - Me.ucrChkNMissing.Checked = False - Me.ucrChkNMissing.Location = New System.Drawing.Point(292, 19) - Me.ucrChkNMissing.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkNMissing.Name = "ucrChkNMissing" - Me.ucrChkNMissing.Size = New System.Drawing.Size(85, 23) - Me.ucrChkNMissing.TabIndex = 4 + Me.ucrChkFirst.AutoSize = True + Me.ucrChkFirst.Checked = False + Me.ucrChkFirst.Location = New System.Drawing.Point(12, 28) + Me.ucrChkFirst.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkFirst.Name = "ucrChkFirst" + Me.ucrChkFirst.Size = New System.Drawing.Size(152, 51) + Me.ucrChkFirst.TabIndex = 0 ' - 'ucrChkNonMissing + 'ucrChkLast ' - Me.ucrChkNonMissing.AutoSize = True - Me.ucrChkNonMissing.Checked = False - Me.ucrChkNonMissing.Location = New System.Drawing.Point(7, 19) - Me.ucrChkNonMissing.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkNonMissing.Name = "ucrChkNonMissing" - Me.ucrChkNonMissing.Size = New System.Drawing.Size(129, 23) - Me.ucrChkNonMissing.TabIndex = 0 + Me.ucrChkLast.AutoSize = True + Me.ucrChkLast.Checked = False + Me.ucrChkLast.Location = New System.Drawing.Point(464, 28) + Me.ucrChkLast.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkLast.Name = "ucrChkLast" + Me.ucrChkLast.Size = New System.Drawing.Size(120, 51) + Me.ucrChkLast.TabIndex = 4 ' - 'grpQuartilesTerciles + 'ucrChknth ' - Me.grpQuartilesTerciles.Controls.Add(Me.ucrChkP67) - Me.grpQuartilesTerciles.Controls.Add(Me.ucrChkP33) - Me.grpQuartilesTerciles.Controls.Add(Me.ucrChkP25) - Me.grpQuartilesTerciles.Controls.Add(Me.ucrChkP75) - Me.grpQuartilesTerciles.Location = New System.Drawing.Point(10, 230) - Me.grpQuartilesTerciles.Name = "grpQuartilesTerciles" - Me.grpQuartilesTerciles.Size = New System.Drawing.Size(393, 56) - Me.grpQuartilesTerciles.TabIndex = 3 - Me.grpQuartilesTerciles.TabStop = False - Me.grpQuartilesTerciles.Tag = "Quartiles" - Me.grpQuartilesTerciles.Text = "Quartiles && Terciles" + Me.ucrChknth.AutoSize = True + Me.ucrChknth.Checked = False + Me.ucrChknth.Location = New System.Drawing.Point(249, 32) + Me.ucrChknth.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChknth.Name = "ucrChknth" + Me.ucrChknth.Size = New System.Drawing.Size(88, 51) + Me.ucrChknth.TabIndex = 1 ' - 'ucrChkP67 + 'ucrSelectorOrderBy ' - Me.ucrChkP67.AutoSize = True - Me.ucrChkP67.Checked = False - Me.ucrChkP67.Location = New System.Drawing.Point(168, 19) - Me.ucrChkP67.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP67.Name = "ucrChkP67" - Me.ucrChkP67.Size = New System.Drawing.Size(85, 23) - Me.ucrChkP67.TabIndex = 3 + Me.ucrSelectorOrderBy.AutoSize = True + Me.ucrSelectorOrderBy.bDropUnusedFilterLevels = False + Me.ucrSelectorOrderBy.bShowHiddenColumns = False + Me.ucrSelectorOrderBy.bUseCurrentFilter = True + Me.ucrSelectorOrderBy.Location = New System.Drawing.Point(15, 198) + Me.ucrSelectorOrderBy.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorOrderBy.Name = "ucrSelectorOrderBy" + Me.ucrSelectorOrderBy.Size = New System.Drawing.Size(480, 411) + Me.ucrSelectorOrderBy.TabIndex = 2 ' - 'ucrChkP33 + 'ucrReceiverOrderBy ' - Me.ucrChkP33.AutoSize = True - Me.ucrChkP33.Checked = False - Me.ucrChkP33.Location = New System.Drawing.Point(96, 19) - Me.ucrChkP33.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP33.Name = "ucrChkP33" - Me.ucrChkP33.Size = New System.Drawing.Size(66, 23) - Me.ucrChkP33.TabIndex = 2 + Me.ucrReceiverOrderBy.AutoSize = True + Me.ucrReceiverOrderBy.frmParent = Nothing + Me.ucrReceiverOrderBy.Location = New System.Drawing.Point(346, 264) + Me.ucrReceiverOrderBy.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverOrderBy.Name = "ucrReceiverOrderBy" + Me.ucrReceiverOrderBy.Selector = Nothing + Me.ucrReceiverOrderBy.Size = New System.Drawing.Size(180, 30) + Me.ucrReceiverOrderBy.strNcFilePath = "" + Me.ucrReceiverOrderBy.TabIndex = 4 + Me.ucrReceiverOrderBy.ucrSelector = Nothing ' - 'ucrChkP25 + 'ucrChkStandardErrorOfMean ' - Me.ucrChkP25.AutoSize = True - Me.ucrChkP25.Checked = False - Me.ucrChkP25.Location = New System.Drawing.Point(7, 19) - Me.ucrChkP25.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP25.Name = "ucrChkP25" - Me.ucrChkP25.Size = New System.Drawing.Size(85, 23) - Me.ucrChkP25.TabIndex = 0 + Me.ucrChkStandardErrorOfMean.AutoSize = True + Me.ucrChkStandardErrorOfMean.Checked = False + Me.ucrChkStandardErrorOfMean.Location = New System.Drawing.Point(24, 32) + Me.ucrChkStandardErrorOfMean.Margin = New System.Windows.Forms.Padding(8) + Me.ucrChkStandardErrorOfMean.Name = "ucrChkStandardErrorOfMean" + Me.ucrChkStandardErrorOfMean.Size = New System.Drawing.Size(442, 51) + Me.ucrChkStandardErrorOfMean.TabIndex = 1 ' - 'ucrChkP75 + 'ucrChkCircRange ' - Me.ucrChkP75.AutoSize = True - Me.ucrChkP75.Checked = False - Me.ucrChkP75.Location = New System.Drawing.Point(292, 19) - Me.ucrChkP75.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkP75.Name = "ucrChkP75" - Me.ucrChkP75.Size = New System.Drawing.Size(85, 23) - Me.ucrChkP75.TabIndex = 1 + Me.ucrChkCircRange.AutoSize = True + Me.ucrChkCircRange.Checked = False + Me.ucrChkCircRange.Location = New System.Drawing.Point(32, 70) + Me.ucrChkCircRange.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkCircRange.Name = "ucrChkCircRange" + Me.ucrChkCircRange.Size = New System.Drawing.Size(120, 51) + Me.ucrChkCircRange.TabIndex = 1 ' - 'grpNotOrderedFactor + 'ucrChkAngVar ' - Me.grpNotOrderedFactor.Controls.Add(Me.ucrChkRange) - Me.grpNotOrderedFactor.Controls.Add(Me.ucrChkMaximum) - Me.grpNotOrderedFactor.Controls.Add(Me.ucrChkMinimum) - Me.grpNotOrderedFactor.Location = New System.Drawing.Point(10, 92) - Me.grpNotOrderedFactor.Name = "grpNotOrderedFactor" - Me.grpNotOrderedFactor.Size = New System.Drawing.Size(393, 51) - Me.grpNotOrderedFactor.TabIndex = 1 - Me.grpNotOrderedFactor.TabStop = False - Me.grpNotOrderedFactor.Tag = "All_but_unordered_Factor" - Me.grpNotOrderedFactor.Text = "All but (unordered) Factor" + Me.ucrChkAngVar.AutoSize = True + Me.ucrChkAngVar.Checked = False + Me.ucrChkAngVar.Location = New System.Drawing.Point(320, 32) + Me.ucrChkAngVar.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkAngVar.Name = "ucrChkAngVar" + Me.ucrChkAngVar.Size = New System.Drawing.Size(120, 51) + Me.ucrChkAngVar.TabIndex = 4 ' - 'ucrChkRange + 'ucrChkrho ' - Me.ucrChkRange.AutoSize = True - Me.ucrChkRange.Checked = False - Me.ucrChkRange.Location = New System.Drawing.Point(292, 19) - Me.ucrChkRange.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkRange.Name = "ucrChkRange" - Me.ucrChkRange.Size = New System.Drawing.Size(85, 23) - Me.ucrChkRange.TabIndex = 1 + Me.ucrChkrho.AutoSize = True + Me.ucrChkrho.Checked = False + Me.ucrChkrho.Location = New System.Drawing.Point(186, 70) + Me.ucrChkrho.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkrho.Name = "ucrChkrho" + Me.ucrChkrho.Size = New System.Drawing.Size(120, 51) + Me.ucrChkrho.TabIndex = 3 ' - 'ucrChkMaximum + 'ucrChkAngDev ' - Me.ucrChkMaximum.AutoSize = True - Me.ucrChkMaximum.Checked = False - Me.ucrChkMaximum.Location = New System.Drawing.Point(168, 19) - Me.ucrChkMaximum.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkMaximum.Name = "ucrChkMaximum" - Me.ucrChkMaximum.Size = New System.Drawing.Size(100, 23) - Me.ucrChkMaximum.TabIndex = 2 + Me.ucrChkAngDev.AutoSize = True + Me.ucrChkAngDev.Checked = False + Me.ucrChkAngDev.Location = New System.Drawing.Point(320, 70) + Me.ucrChkAngDev.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkAngDev.Name = "ucrChkAngDev" + Me.ucrChkAngDev.Size = New System.Drawing.Size(120, 51) + Me.ucrChkAngDev.TabIndex = 5 ' - 'ucrChkMinimum + 'ucrChkVar ' - Me.ucrChkMinimum.AutoSize = True - Me.ucrChkMinimum.Checked = False - Me.ucrChkMinimum.Location = New System.Drawing.Point(7, 19) - Me.ucrChkMinimum.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkMinimum.Name = "ucrChkMinimum" - Me.ucrChkMinimum.Size = New System.Drawing.Size(100, 23) - Me.ucrChkMinimum.TabIndex = 0 + Me.ucrChkVar.AutoSize = True + Me.ucrChkVar.Checked = False + Me.ucrChkVar.Location = New System.Drawing.Point(186, 28) + Me.ucrChkVar.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkVar.Name = "ucrChkVar" + Me.ucrChkVar.Size = New System.Drawing.Size(120, 51) + Me.ucrChkVar.TabIndex = 2 ' - 'grpNumeric + 'ucrChkSd ' - Me.grpNumeric.Controls.Add(Me.ucrChkVariance) - Me.grpNumeric.Controls.Add(Me.ucrChkMedian) - Me.grpNumeric.Controls.Add(Me.ucrChkStdDev) - Me.grpNumeric.Controls.Add(Me.ucrChkSum) - Me.grpNumeric.Controls.Add(Me.ucrChkMean) - Me.grpNumeric.Location = New System.Drawing.Point(10, 149) - Me.grpNumeric.Name = "grpNumeric" - Me.grpNumeric.Size = New System.Drawing.Size(393, 78) - Me.grpNumeric.TabIndex = 2 - Me.grpNumeric.TabStop = False - Me.grpNumeric.Tag = "Numeric" - Me.grpNumeric.Text = "Numeric" + Me.ucrChkSd.AutoSize = True + Me.ucrChkSd.Checked = False + Me.ucrChkSd.Location = New System.Drawing.Point(32, 28) + Me.ucrChkSd.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkSd.Name = "ucrChkSd" + Me.ucrChkSd.Size = New System.Drawing.Size(120, 51) + Me.ucrChkSd.TabIndex = 0 ' - 'ucrChkVariance + 'ucrChkCircMedian ' - Me.ucrChkVariance.AutoSize = True - Me.ucrChkVariance.Checked = False - Me.ucrChkVariance.Location = New System.Drawing.Point(168, 49) - Me.ucrChkVariance.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkVariance.Name = "ucrChkVariance" - Me.ucrChkVariance.Size = New System.Drawing.Size(157, 23) - Me.ucrChkVariance.TabIndex = 3 + Me.ucrChkCircMedian.AutoSize = True + Me.ucrChkCircMedian.Checked = False + Me.ucrChkCircMedian.Location = New System.Drawing.Point(186, 39) + Me.ucrChkCircMedian.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkCircMedian.Name = "ucrChkCircMedian" + Me.ucrChkCircMedian.Size = New System.Drawing.Size(122, 51) + Me.ucrChkCircMedian.TabIndex = 2 ' - 'ucrChkMedian + 'ucrChkMin ' - Me.ucrChkMedian.AutoSize = True - Me.ucrChkMedian.Checked = False - Me.ucrChkMedian.Location = New System.Drawing.Point(292, 19) - Me.ucrChkMedian.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkMedian.Name = "ucrChkMedian" - Me.ucrChkMedian.Size = New System.Drawing.Size(103, 23) - Me.ucrChkMedian.TabIndex = 4 + Me.ucrChkMin.AutoSize = True + Me.ucrChkMin.Checked = False + Me.ucrChkMin.Location = New System.Drawing.Point(320, 39) + Me.ucrChkMin.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkMin.Name = "ucrChkMin" + Me.ucrChkMin.Size = New System.Drawing.Size(120, 51) + Me.ucrChkMin.TabIndex = 4 ' - 'ucrChkStdDev + 'ucrChkMedianH ' - Me.ucrChkStdDev.AutoSize = True - Me.ucrChkStdDev.Checked = False - Me.ucrChkStdDev.Location = New System.Drawing.Point(7, 49) - Me.ucrChkStdDev.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkStdDev.Name = "ucrChkStdDev" - Me.ucrChkStdDev.Size = New System.Drawing.Size(155, 23) - Me.ucrChkStdDev.TabIndex = 1 + Me.ucrChkMedianH.AutoSize = True + Me.ucrChkMedianH.Checked = False + Me.ucrChkMedianH.Location = New System.Drawing.Point(450, 39) + Me.ucrChkMedianH.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkMedianH.Name = "ucrChkMedianH" + Me.ucrChkMedianH.Size = New System.Drawing.Size(120, 51) + Me.ucrChkMedianH.TabIndex = 6 ' - 'ucrChkSum + 'ucrChkQ3 ' - Me.ucrChkSum.AutoSize = True - Me.ucrChkSum.Checked = False - Me.ucrChkSum.Location = New System.Drawing.Point(7, 19) - Me.ucrChkSum.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkSum.Name = "ucrChkSum" - Me.ucrChkSum.Size = New System.Drawing.Size(100, 23) - Me.ucrChkSum.TabIndex = 0 + Me.ucrChkQ3.AutoSize = True + Me.ucrChkQ3.Checked = False + Me.ucrChkQ3.Location = New System.Drawing.Point(186, 81) + Me.ucrChkQ3.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkQ3.Name = "ucrChkQ3" + Me.ucrChkQ3.Size = New System.Drawing.Size(120, 51) + Me.ucrChkQ3.TabIndex = 3 ' - 'ucrChkMean + 'ucrChkQ1 ' - Me.ucrChkMean.AutoSize = True - Me.ucrChkMean.Checked = False - Me.ucrChkMean.Location = New System.Drawing.Point(168, 19) - Me.ucrChkMean.Margin = New System.Windows.Forms.Padding(5) - Me.ucrChkMean.Name = "ucrChkMean" - Me.ucrChkMean.Size = New System.Drawing.Size(100, 23) - Me.ucrChkMean.TabIndex = 2 + Me.ucrChkQ1.AutoSize = True + Me.ucrChkQ1.Checked = False + Me.ucrChkQ1.Location = New System.Drawing.Point(32, 81) + Me.ucrChkQ1.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkQ1.Name = "ucrChkQ1" + Me.ucrChkQ1.Size = New System.Drawing.Size(120, 51) + Me.ucrChkQ1.TabIndex = 1 ' - 'tbSummaries + 'ucrChkMax ' - Me.tbSummaries.Controls.Add(Me.tbsum) - Me.tbSummaries.Controls.Add(Me.tbMore) - Me.tbSummaries.Controls.Add(Me.tbTwoVariables) - Me.tbSummaries.Controls.Add(Me.tbPosition) - Me.tbSummaries.Controls.Add(Me.tbModel) - Me.tbSummaries.Controls.Add(Me.tbCircular) - Me.tbSummaries.Location = New System.Drawing.Point(6, 7) - Me.tbSummaries.Name = "tbSummaries" - Me.tbSummaries.SelectedIndex = 0 - Me.tbSummaries.Size = New System.Drawing.Size(417, 409) - Me.tbSummaries.TabIndex = 0 + Me.ucrChkMax.AutoSize = True + Me.ucrChkMax.Checked = False + Me.ucrChkMax.Location = New System.Drawing.Point(320, 81) + Me.ucrChkMax.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkMax.Name = "ucrChkMax" + Me.ucrChkMax.Size = New System.Drawing.Size(120, 51) + Me.ucrChkMax.TabIndex = 5 ' - 'ucrButtonsSummaries + 'ucrChkCircMean ' - Me.ucrButtonsSummaries.AutoSize = True - Me.ucrButtonsSummaries.Location = New System.Drawing.Point(100, 418) - Me.ucrButtonsSummaries.Margin = New System.Windows.Forms.Padding(4) - Me.ucrButtonsSummaries.Name = "ucrButtonsSummaries" - Me.ucrButtonsSummaries.Size = New System.Drawing.Size(224, 31) - Me.ucrButtonsSummaries.TabIndex = 1 + Me.ucrChkCircMean.AutoSize = True + Me.ucrChkCircMean.Checked = False + Me.ucrChkCircMean.Location = New System.Drawing.Point(32, 39) + Me.ucrChkCircMean.Margin = New System.Windows.Forms.Padding(6, 6, 6, 6) + Me.ucrChkCircMean.Name = "ucrChkCircMean" + Me.ucrChkCircMean.Size = New System.Drawing.Size(129, 51) + Me.ucrChkCircMean.TabIndex = 0 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmdOptions) + Me.GroupBox1.Controls.Add(Me.ucrChkProportionsPercentages) + Me.GroupBox1.Location = New System.Drawing.Point(15, 528) + Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4) + Me.GroupBox1.Size = New System.Drawing.Size(590, 62) + Me.GroupBox1.TabIndex = 4 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Percentages" ' 'sdgSummaries ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(144.0!, 144.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi Me.AutoSize = True - Me.ClientSize = New System.Drawing.Size(429, 448) + Me.ClientSize = New System.Drawing.Size(644, 698) Me.Controls.Add(Me.ucrButtonsSummaries) Me.Controls.Add(Me.tbSummaries) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "sdgSummaries" @@ -1620,6 +1695,8 @@ Partial Class sdgSummaries Me.grpNumeric.ResumeLayout(False) Me.grpNumeric.PerformLayout() Me.tbSummaries.ResumeLayout(False) + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -1749,4 +1826,7 @@ Partial Class sdgSummaries Friend WithEvents ucrChkSample As ucrCheck Friend WithEvents ucrChkSetseed As ucrCheck Friend WithEvents ucrNudSeed As ucrNud + Friend WithEvents ucrChkProportionsPercentages As ucrCheck + Friend WithEvents cmdOptions As Button + Friend WithEvents GroupBox1 As GroupBox End Class \ No newline at end of file diff --git a/instat/sdgSummaries.vb b/instat/sdgSummaries.vb index 79d90333c37..ee20059ba3f 100644 --- a/instat/sdgSummaries.vb +++ b/instat/sdgSummaries.vb @@ -16,7 +16,7 @@ Imports instat.Translations Public Class sdgSummaries - Public clsListFunction, clsDefaultFunction, clsConcFunction As New RFunction + Public clsListFunction, clsDefaultFunction, clsConcFunction, clsDummyFunction As New RFunction Public bControlsInitialised As Boolean = False Private lstCheckboxes As New List(Of ucrCheck) Private lstVerifCheckboxes As New List(Of ucrCheck) @@ -25,6 +25,7 @@ Public Class sdgSummaries Private strWeightLabel As String Public bEnable2VariableTab As Boolean = True Public bOkEnabled As Boolean = True + Private bResetSubdialog As Boolean = False Private Sub sdgDescribe_Load(sender As Object, e As EventArgs) Handles MyBase.Load autoTranslate(Me) @@ -327,6 +328,10 @@ Public Class sdgSummaries ucrChkSetseed.AddParameterPresentCondition(True, "seed") ucrChkSetseed.AddParameterPresentCondition(False, "seed", False) + ucrChkProportionsPercentages.SetParameter(New RParameter("percentage_type")) + ucrChkProportionsPercentages.SetValuesCheckedAndUnchecked(Chr(34) & "factors" & Chr(34), Chr(34) & "none" & Chr(34)) + ucrChkProportionsPercentages.SetText("Add Percentages") + ucrNudSeed.SetParameter(New RParameter("seed", 11)) lstVerifCheckboxes.AddRange({ucrChkCorrelations, ucrChkCoefDetermination, ucrChkCoefPersistence, ucrChkIndexOfAgreement, ucrChkKlingGuptaEfficiency, ucrChkMeanAbsoluteError, ucrChkModifiedIndexOfAgreement, ucrChkMeanError, ucrChkModNashSutcliffeEff, ucrChkMeanSquaredError, ucrChkNormRootMeanSquaredError, ucrChkNashSutcliffeEfficiency, ucrChkPercentBias, ucrChkRelativeIndexOfAgreement, ucrChkRootMeanSquaredError, ucrChkRelativeNashSutcliffeEff, ucrChkRatioOfStandardDeviation, ucrChkRatioOfRootMeanSquaredError, ucrChkSumOfSquaredResiduals, ucrChkVolumetricEfficiency}) @@ -349,6 +354,8 @@ Public Class sdgSummaries ctrTemp.SetParameterIncludeArgumentName(False) ctrTemp.SetRDefault(Chr(34) & Chr(34)) Next + + cmdOptions.Visible = False bControlsInitialised = True TwoVariablesControls() PositionOptions() @@ -393,6 +400,8 @@ Public Class sdgSummaries ucrChkCorrelations.SetText("Correlations" & strWeightLabel) ucrChkCovariance.SetText("Covariance" & strWeightLabel) + clsDummyFunction.AddParameter("percentage_type", "none") + 'This is meant to force selector select the current dataframe as selected in the main dialog ucrBaseSelector = ucrNewBaseSelector If ucrBaseSelector IsNot Nothing AndAlso ucrBaseSelector.strCurrentDataFrame <> "" Then @@ -490,10 +499,12 @@ Public Class sdgSummaries ucrChkSumOfSquaredResiduals.SetRCode(clsListFunction, bReset, bCloneIfNeeded:=True) ucrChkVolumetricEfficiency.SetRCode(clsListFunction, bReset, bCloneIfNeeded:=True) ucrChkSample.SetRCode(clsListFunction, bReset, bCloneIfNeeded:=True) - + ucrChkProportionsPercentages.SetRCode(clsDefaultFunction, bReset, bCloneIfNeeded:=True) If bReset Then ucrSelectorSecondVariable.Reset() ucrSelectorOrderBy.Reset() + + If strDefaultTab <> "" Then For i As Integer = 0 To tbSummaries.TabPages.Count - 1 If tbSummaries.TabPages(i).Text = strDefaultTab Then @@ -510,6 +521,7 @@ Public Class sdgSummaries tbSummaries.SelectedIndex = 0 End If End If + bResetSubdialog = True End Sub Public ReadOnly Property SummaryCount As Integer @@ -605,6 +617,16 @@ Public Class sdgSummaries frmMain.clsRLink.RunScript(clsHelp.ToScript, strComment:="Opening help page for" & " " & strPackageName & " " & "Package. Generated from dialog Modelling", iCallType:=2, bSeparateThread:=False, bUpdateGrids:=False) End Sub + Private Sub cmdOptions_Click(sender As Object, e As EventArgs) Handles cmdOptions.Click + sdgProportionsPercentages.SetRFunction(clsDefaultFunction, bResetSubdialog) + sdgProportionsPercentages.ShowDialog() + bResetSubdialog = False + End Sub + + Private Sub ucrChkProportionsPercentages_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkProportionsPercentages.ControlValueChanged + cmdOptions.Visible = ucrChkProportionsPercentages.Checked + End Sub + Private Sub ucrChkOrderBy_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkOrderBy.ControlValueChanged PositionOptions() OrderByCheckEnabled() diff --git a/instat/static/InstatObject/R/stand_alone_functions.R b/instat/static/InstatObject/R/stand_alone_functions.R index 09f224a2981..904794d2d2c 100644 --- a/instat/static/InstatObject/R/stand_alone_functions.R +++ b/instat/static/InstatObject/R/stand_alone_functions.R @@ -2556,7 +2556,9 @@ is.containValueLabel <- function(x){ is.containPartialValueLabel <- function(x) { if(is.containValueLabel(x)) { - return(!all(x[!is.na(x)] %in% attr(x, labels_label))) + levelCounts <- table(x) + return(!all(x[!is.na(x)] %in% attr(x, labels_label)) && + sum(levelCounts == 0) == 0) } else{return(FALSE)} } @@ -3006,3 +3008,43 @@ getExample <- function (topic, package = NULL, lib.loc = NULL, character.only = } return(example_text) } + +WB_evaporation <- function(water_balance, frac, capacity, evaporation_value, rain){ + if (water_balance >= frac*capacity){ + evaporation <- evaporation_value + } else { + if (rain == 0){ + evaporation <- evaporation_value * ((water_balance)/(frac*capacity)) + } else { + if (water_balance < frac*capacity){ + if (rain > evaporation_value){ + evaporation <- evaporation_value + } else { + evaporation <- evaporation_value * ((water_balance)/(frac*capacity)) + evaporation <- evaporation + ((evaporation_value - evaporation)*(rain/evaporation_value)) + } + } else { + evaporation <- evaporation_value + } + } + } + return(evaporation) +} + +write_weather_data <- function(year, month, day, rain, mn_tmp, mx_tmp, missing_code, output_file) { + # Create a data frame with the provided inputs + weather_data <- data.frame(year = year, + month = month, + day = day, + rain = rain, + mn_tmp = mn_tmp, + mx_tmp = mx_tmp) + + # Replace missing values with the specified code + weather_data[is.na(weather_data)] <- missing_code + + # Write the data frame to a text file + write.table(weather_data, file = output_file, sep = "\t", row.names = FALSE, col.names = TRUE, quote = FALSE) + + cat("Weather data has been written to", output_file, "\n") +} \ No newline at end of file diff --git a/instat/ucrReceiverMultiple.vb b/instat/ucrReceiverMultiple.vb index 16063dcb64e..728630115ec 100644 --- a/instat/ucrReceiverMultiple.vb +++ b/instat/ucrReceiverMultiple.vb @@ -26,7 +26,6 @@ Public Class ucrReceiverMultiple If bFirstLoad Then If lstSelectedVariables.Columns.Count = 0 Then lstSelectedVariables.Columns.Add("Selected Data") - lstSelectedVariables.Columns(0).Width = lstSelectedVariables.Width - 25 End If 'by default multiple receivers will not be autoswitched on selection change bAutoSwitchFromReceiver = False @@ -168,12 +167,21 @@ Public Class ucrReceiverMultiple 'it's not clear when the receiver will ever have more than one data frame 'reset the header text with the name - lstSelectedVariables.Groups(0).Header = lstSelectedVariables.Groups(0).Name + lstSelectedVariables.Groups(0).Header = ShortenString(lstSelectedVariables.Groups(0).Name) If lstSelectedVariables.Groups.Count = 1 AndAlso lstSelectedVariables.Items.Count > 0 Then lstSelectedVariables.Groups(0).Header = lstSelectedVariables.Groups(0).Header & " (" & lstSelectedVariables.Items.Count & ")" End If End Sub + Private Function ShortenString(strText As String) As String + Dim maxLength As Integer = 10 + If strText.Length > maxLength Then + ' Trim the string to the specified length and add ellipsis + Return strText.Substring(0, maxLength) & "..." + End If + Return strText + End Function + Public Overrides Function IsEmpty() As Boolean Return lstSelectedVariables.Items.Count = 0 End Function @@ -502,6 +510,12 @@ Public Class ucrReceiverMultiple CheckSingleType() End Sub + Private Sub lstSelectedVariables_ClientSizeChanged(ByVal sender As Object, ByVal e As EventArgs) Handles lstSelectedVariables.ClientSizeChanged + If lstSelectedVariables.Columns.Count > 0 Then + lstSelectedVariables.Columns(0).Width = lstSelectedVariables.ClientSize.Width + End If + End Sub + Private Sub ucrReceiverMultiple_SelectionChanged(sender As Object, e As EventArgs) Handles Me.SelectionChanged CheckSingleType() End Sub diff --git a/instat/ucrScript.vb b/instat/ucrScript.vb index 8186584b1a6..94ee428fca8 100644 --- a/instat/ucrScript.vb +++ b/instat/ucrScript.vb @@ -214,6 +214,7 @@ Public Class ucrScript Using dlgSave As New SaveFileDialog dlgSave.Title = "Save " & If(bIsLog, "Log", "Script") & " To File" dlgSave.Filter = "R Script File (*.R)|*.R|Text File (*.txt)|*.txt" + dlgSave.FileName = Path.GetFileName(TabControl.SelectedTab.Text) 'Ensure that dialog opens in correct folder. 'In theory, we should be able to use `dlgLoad.RestoreDirectory = True` but this does diff --git a/instat/ucrSplitButton.vb b/instat/ucrSplitButton.vb index de6826314e7..95776041dba 100644 --- a/instat/ucrSplitButton.vb +++ b/instat/ucrSplitButton.vb @@ -232,14 +232,19 @@ Public Class ucrSplitButton If mevent.Button = MouseButtons.Right AndAlso ClientRectangle.Contains(mevent.Location) AndAlso Not _bSplitMenuVisible Then ShowContextMenuStrip() ElseIf _contextSplitMenuStrip Is Nothing OrElse Not _bSplitMenuVisible Then - SetButtonDrawState() - If ClientRectangle.Contains(mevent.Location) AndAlso Not _dropDownRectangle.Contains(mevent.Location) Then - OnClick(New EventArgs()) + ' Trigger the Click event + OnClick(EventArgs.Empty) End If End If + + ' Set the button state to Normal regardless of other conditions + State = PushButtonState.Normal + + MyBase.OnMouseUp(mevent) End Sub + Protected Overrides Sub OnPaint(pevent As PaintEventArgs) MyBase.OnPaint(pevent) If Not _bShowSplit Then Exit Sub @@ -585,9 +590,66 @@ Public Class ucrSplitButton State = PushButtonState.Pressed + Dim tmpForm As New Form With { + .AutoScaleMode = AutoScaleMode.None, + .FormBorderStyle = FormBorderStyle.None, + .StartPosition = FormStartPosition.Manual, + .ShowInTaskbar = False + } + Dim panel As New Panel With { + .Dock = DockStyle.Fill, + .BorderStyle = BorderStyle.None + } + _contextSplitMenuStrip.TopLevel = False + _contextSplitMenuStrip.Dock = DockStyle.Top + _contextSplitMenuStrip.ShowImageMargin = False + + AddHandler _contextSplitMenuStrip.ItemClicked, Sub(sender As Object, e As ToolStripItemClickedEventArgs) + tmpForm.Close() + End Sub + + AddHandler tmpForm.FormClosed, Sub(sender As Object, e As FormClosedEventArgs) + If panel.Controls.Contains(_contextSplitMenuStrip) Then + panel.Controls.Remove(_contextSplitMenuStrip) + End If + End Sub + + AddHandler tmpForm.LostFocus, Sub(sender As Object, e As EventArgs) + _bSplitMenuVisible = False + tmpForm.Close() + End Sub + + panel.Controls.Add(_contextSplitMenuStrip) + ' Set a maximum height for the form + Dim maxHeight As Integer = 250 + + ' Ensure that the panel fits the preferred size of the context menu without extra space + Dim preferredSize As Size = _contextSplitMenuStrip.PreferredSize + If preferredSize.Height > maxHeight Then + panel.AutoScroll = True + preferredSize.Height = maxHeight + Else + panel.AutoScroll = False + End If + If _contextSplitMenuStrip IsNot Nothing Then - _contextSplitMenuStrip.Show(Me, New Point(0, Height), ToolStripDropDownDirection.BelowRight) + _contextSplitMenuStrip.Show() + End If + + ' Calculate whether to show the form above or below + Dim screenRect As Rectangle = Screen.FromControl(Me).WorkingArea + Dim showUp As Boolean = PointToScreen(New Point(0, Height + PreferredSize.Height)).Y > screenRect.Bottom + + ' Set the form size and location accordingly + tmpForm.Size = New Size(PreferredSize.Width, PreferredSize.Height) + If showUp Then + tmpForm.Location = PointToScreen(New Point(0, Height - tmpForm.Height)) + Else + tmpForm.Location = PointToScreen(New Point(0, Height)) End If + + tmpForm.Controls.Add(panel) + tmpForm.Show() End Sub Private Sub SplitMenuStrip_Opening(sender As Object, e As CancelEventArgs)