Merge pull request #218 from IDEMSInternational/master

update
Vitalis95 · Feb 15, 2024 · 521e8a9 · 521e8a9
2 parents d15bd31 + 062493c
commit 521e8a9
Show file tree

Hide file tree

Showing 22 changed files with 23 additions and 6 deletions.
diff --git a/instat/dlgCircularDensityPlot.vb b/instat/dlgCircularDensityPlot.vb
@@ -39,7 +39,7 @@ Public Class dlgCircularDensityPlot
     Private Sub InitialiseDialog()
         Dim dctKernel As New Dictionary(Of String, String)
         Dim dctUnits As New Dictionary(Of String, String)
-
+        ucrBase.iHelpTopicID = 181
         ucrBase.clsRsyntax.iCallType = 3
         ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False
 

diff --git a/instat/dlgClimaticNCMPCountRecords.vb b/instat/dlgClimaticNCMPCountRecords.vb
@@ -41,6 +41,7 @@ Public Class dlgClimaticNCMPCountRecords
     Private Sub InitialiseDialog()
         Dim dctResolution As New Dictionary(Of String, String)
 
+        ucrBase.iHelpTopicID=631
         ucrSelectorForA2.SetParameter(New RParameter("a2", 0))
         ucrSelectorForA2.SetParameterIsrfunction()
         ucrSelectorForA2.ucrAvailableDataFrames.lblDataFrame.Text = "Indices Data Frame:"

diff --git a/instat/dlgClimaticNCMPIndices.vb b/instat/dlgClimaticNCMPIndices.vb
@@ -39,6 +39,7 @@ Public Class dlgClimaticNCMPIndices
     End Sub
 
     Private Sub InitialiseDialog()
+        ucrBase.iHelpTopicID=627
         ucrSelectorIndices.SetParameter(New RParameter("df", 0))
         ucrSelectorIndices.SetParameterIsrfunction()
 

diff --git a/instat/dlgClimaticNCMPRegionAverage.vb b/instat/dlgClimaticNCMPRegionAverage.vb
@@ -41,6 +41,7 @@ Public Class dlgClimaticNCMPRegionAverage
     Private Sub InitialiseDialog()
         Dim dctResolution As New Dictionary(Of String, String)
 
+        ucrBase.iHelpTopicID=629
         ucrSelectorForA2.SetParameter(New RParameter("a2", 0))
         ucrSelectorForA2.SetParameterIsrfunction()
         ucrSelectorForA2.ucrAvailableDataFrames.lblDataFrame.Text = "Indices Data Frame:"

diff --git a/instat/dlgClimaticNCMPSummaryFile.vb b/instat/dlgClimaticNCMPSummaryFile.vb
@@ -39,6 +39,7 @@ Public Class dlgClimaticNCMPSummaryFile
     Private Sub InitialiseDialog()
         Dim dctResolution As New Dictionary(Of String, String)
 
+        ucrBase.iHelpTopicID=632
         ucrSelectorA2.SetParameter(New RParameter("a2", 0))
         ucrSelectorA2.SetParameterIsRFunction()
         ucrSelectorA2.lblDataFrame.Text = "Indices Data Frame:"

diff --git a/instat/dlgClimaticNCMPTrendGraphs.vb b/instat/dlgClimaticNCMPTrendGraphs.vb
@@ -41,6 +41,7 @@ Public Class dlgClimaticNCMPTrendGraphs
     Private Sub InitialiseDialog()
         Dim dctResolution As New Dictionary(Of String, String)
 
+        ucrBase.iHelpTopicID=630
         ucrSelectorForA2.SetParameter(New RParameter("a2", 0))
         ucrSelectorForA2.SetParameterIsrfunction()
         ucrSelectorForA2.ucrAvailableDataFrames.lblDataFrame.Text = "Indices Data Frame:"

diff --git a/instat/dlgClimaticNCMPVariogram.vb b/instat/dlgClimaticNCMPVariogram.vb
@@ -39,6 +39,7 @@ Public Class dlgClimaticNCMPVariogram
     End Sub
 
     Private Sub InitialiseDialog()
+        ucrBase.iHelpTopicID=628
         ucrSelectorVariogram.SetParameter(New RParameter("a2", 0))
         ucrSelectorVariogram.SetParameterIsrfunction()
         ucrSelectorVariogram.ucrAvailableDataFrames.lblDataFrame.Text = "Indices Data Frame:"

diff --git a/instat/dlgClimaticStationMaps.vb b/instat/dlgClimaticStationMaps.vb
@@ -64,7 +64,7 @@ Public Class dlgClimaticStationMaps
     End Sub
 
     Private Sub InitialiseDialog()
-        ucrBase.iHelpTopicID = 558
+        ucrBase.iHelpTopicID = 645
         ucrBase.clsRsyntax.iCallType = 3
         ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False
 

diff --git a/instat/dlgCompare.vb b/instat/dlgCompare.vb
@@ -48,7 +48,7 @@ Public Class dlgCompare
     End Sub
 
     Private Sub InitialiseDialog()
-        ucrBase.iHelpTopicID = 562
+        ucrBase.iHelpTopicID = 634
         ucrPnlCompare.AddRadioButton(rdoDifferences)
         ucrPnlCompare.AddRadioButton(rdoAnomalies)
         ucrPnlCompare.AddParameterPresentCondition(rdoDifferences, "manipulations", False)

diff --git a/instat/dlgCompareSummary.vb b/instat/dlgCompareSummary.vb
@@ -37,6 +37,7 @@ Public Class dlgCompareSummary
     End Sub
 
     Private Sub InitialiseDialog()
+        ucrBase.iHelpTopicID = 635
         ucrSelectorVerificationSummary.SetParameter(New RParameter("data_name", 0))
         ucrSelectorVerificationSummary.SetParameterIsString()
 

diff --git a/instat/dlgConditionalQuantilePlot.vb b/instat/dlgConditionalQuantilePlot.vb
@@ -42,6 +42,7 @@ Public Class dlgConditionalQuantilePlot
         Dim dctLegendPosition As New Dictionary(Of String, String)
         Dim dctStatistics As New Dictionary(Of String, String)
         ucrBase.clsRsyntax.iCallType = 3
+        ucrBase.iHelpTopicID = 642
 
         ucrConditionalQuantilePlotSelector.SetParameter(New RParameter("mydata", 0))
         ucrConditionalQuantilePlotSelector.SetParameterIsrfunction()

diff --git a/instat/dlgExtremes.vb b/instat/dlgExtremes.vb
@@ -47,6 +47,7 @@ clsInitialListFunction, clsOmitMissingFunction As New RFunction
     Private Sub InitialiseDialog()
         Dim dctFevdTypes As New Dictionary(Of String, String)
 
+        ucrBase.iHelpTopicID = 488
         ucrInputExtremes.SetParameter(New RParameter("type", 1))
         dctFevdTypes.Add("GEV", Chr(34) & "GEV" & Chr(34))
         dctFevdTypes.Add("GP", Chr(34) & "GP" & Chr(34))

diff --git a/instat/dlgIDFCurves.vb b/instat/dlgIDFCurves.vb
@@ -37,6 +37,7 @@ Public Class dlgIDFCurves
     End Sub
 
     Private Sub InitialiseDialog()
+        ucrBase.iHelpTopicID = 523
         ucrBase.clsRsyntax.bSeparateThread = False
 
         ucrIDFCurvesSelector.SetParameter(New RParameter("prdat", 0))

diff --git a/instat/dlgLocatingPointsInShapeFile.vb b/instat/dlgLocatingPointsInShapeFile.vb
@@ -44,6 +44,7 @@ Public Class dlgLocatingPointsInShapeFile
     End Sub
 
     Private Sub InitiliseDialog()
+        ucrBase.iHelpTopicID=622
         ucrSelectorStationFile.SetParameter(New RParameter("x", 0))
         ucrSelectorStationFile.SetParameterIsrfunction()
 

diff --git a/instat/dlgNewMarkovChains.vb b/instat/dlgNewMarkovChains.vb
@@ -55,6 +55,7 @@ Public Class dlgNewMarkovChains
     End Sub
 
     Private Sub InitialiseDialog()
+        ucrBase.iHelpTopicID = 490
         ucrReceiverStation.Selector = ucrSelectorMarkovChains
         ucrReceiverStation.AddIncludedMetadataProperty("Climatic_Type", {Chr(34) & "station" & Chr(34)})
         ucrReceiverStation.bAutoFill = True

diff --git a/instat/dlgOtherRosePlots.vb b/instat/dlgOtherRosePlots.vb
@@ -39,7 +39,7 @@ Public Class dlgOtherRosePlots
 
     Private Sub InitiliseDialog()
         Dim dctMethod As New Dictionary(Of String, String)
-
+        ucrBase.iHelpTopicID = 309
         ucrBase.clsRsyntax.iCallType = 3
 
         ucrSelectorOtherRosePlots.SetParameter(New RParameter("data", 0))

diff --git a/instat/dlgPICSARainfall.vb b/instat/dlgPICSARainfall.vb
@@ -875,6 +875,7 @@ Public Class dlgPICSARainfall
                 ucrChkLineofBestFit.Visible = True
                 ucrChkWithSE.Visible = True
                 Me.Text = "PICSA General Graphs"
+                ucrBase.iHelpTopicID = 521
             Case PICSAMode.Rainfall
                 ucrChkLineofBestFit.Visible = False
                 ucrChkWithSE.Visible = False
@@ -883,6 +884,7 @@ Public Class dlgPICSARainfall
                 ucrChkLineofBestFit.Visible = True
                 ucrChkWithSE.Visible = True
                 Me.Text = "PICSA Temperature Graphs"
+                ucrBase.iHelpTopicID = 479
         End Select
     End Sub
 

diff --git a/instat/dlgSeasonalPlot.vb b/instat/dlgSeasonalPlot.vb
@@ -98,6 +98,7 @@ Public Class dlgSeasonalPlot
     End Sub
 
     Private Sub InitiliseDialog()
+        ucrBase.iHelpTopicID = 640
         ucrBase.clsRsyntax.iCallType = 3
         ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False
 

diff --git a/instat/dlgTaylorDiagram.vb b/instat/dlgTaylorDiagram.vb
@@ -35,6 +35,7 @@ Public Class dlgTaylorDiagram
     End Sub
 
     Private Sub InitialiseDialog()
+        ucrBase.iHelpTopicID= 643
         ucrBase.clsRsyntax.iCallType = 3
 
         ucrSelectorTaylorDiagram.SetParameter(New RParameter("mydata", 0))

diff --git a/instat/dlgTimeSeriesPlot.vb b/instat/dlgTimeSeriesPlot.vb
@@ -194,7 +194,7 @@ Public Class dlgTimeSeriesPlot
     End Sub
 
     Private Sub InitialiseDialog()
-        'ucrBase.iHelpTopicID =
+        ucrBase.iHelpTopicID = 639
         ucrBase.clsRsyntax.bExcludeAssignedFunctionOutput = False
         ucrBase.clsRsyntax.iCallType = 3
 

diff --git a/instat/dlgWindPollutionRose.vb b/instat/dlgWindPollutionRose.vb
@@ -41,7 +41,7 @@ Public Class dlgWindPollutionRose
         Dim dctStatistic As New Dictionary(Of String, String)
         Dim dctPosition As New Dictionary(Of String, String)
         Dim dctColor As New Dictionary(Of String, String)
-
+        ucrBase.iHelpTopicID = 184
         ucrBase.clsRsyntax.iCallType = 3
 
         ucrSelectorWindPollutionRose.SetParameter(New RParameter("mydata", 0))

diff --git a/instat/sdgTimeSeries.vb b/instat/sdgTimeSeries.vb
@@ -56,6 +56,7 @@ Public Class sdgTimeSeries
     End Sub
 
     Public Sub InitialiseControls()
+        ucrButtonsSummaries.iHelpTopicID = 268
         ucrPnlSummaries.AddRadioButton(rdoComparison)
         ucrPnlSummaries.AddRadioButton(rdoIndividual)