Merge pull request #252 from IDEMSInternational/master

update

instat/dlgAddKey.vb

@@ -138,9 +138,9 @@ Public Class dlgAddKey
     Private Sub SetHelpOptions()
         Select Case enumAddkeyMode
             Case AddkeyMode.Prepare
-                ucrBase.iHelpTopicID = 416
+                ucrBase.iHelpTopicID = 504
             Case AddkeyMode.Climatic
-                ucrBase.iHelpTopicID = 424
+                ucrBase.iHelpTopicID = 611
         End Select
     End Sub
 

instat/dlgCalculator.vb

@@ -18,6 +18,12 @@ Imports System.ComponentModel
 Imports instat.Translations
 
 Public Class dlgCalculator
+    Public enumCalculatorMode As String = CalculatorMode.Prepare
+    Public Enum CalculatorMode
+        Prepare
+        Structured
+    End Enum
+
     Private clsAttachFunction As New RFunction
     Private clsDetachFunction As New RFunction
     Private clsRemoveLabelsFunction As New RFunction
@@ -38,7 +44,7 @@ Public Class dlgCalculator
             SetDefaults()
             bFirstLoad = False
         End If
-
+        SetHelpOptions()
         ReopenDialog()
         TestOKEnabled()
         autoTranslate(Me)
@@ -69,6 +75,7 @@ Public Class dlgCalculator
                                            bInsertColumnBefore:=ucrBase.clsRsyntax.clsBaseCommandString.bInsertColumnBefore,
                                            bRequireCorrectLength:=ucrBase.clsRsyntax.clsBaseCommandString.bRequireCorrectLength)
         ucrBase.Visible = True
+        SetHelpOptions()
     End Sub
 
     Private Sub ReopenDialog()
@@ -78,7 +85,6 @@ Public Class dlgCalculator
     End Sub
 
     Private Sub InitialiseDialog()
-        ucrBase.iHelpTopicID = 14
         ucrCalc.ucrReceiverForCalculation.SetMeAsReceiver()
         ucrCalc.ucrTryCalculator.SetIsCommand()
         ucrCalc.ucrTryCalculator.SetReceiver(ucrCalc.ucrReceiverForCalculation)
@@ -212,7 +218,6 @@ Public Class dlgCalculator
 
         ' Test if OK button can be enabled
         TestOKEnabled()
-
     End Sub
 
     Private Sub ucrBase_ClickOk(sender As Object, e As EventArgs) Handles ucrBase.ClickOk
@@ -254,6 +259,17 @@ Public Class dlgCalculator
         End If
     End Sub
 
+    Private Sub SetHelpOptions()
+        Select Case enumCalculatorMode
+            Case CalculatorMode.Prepare
+                ucrCalc.ucrInputCalOptions.SetName("Basic")
+                ucrBase.iHelpTopicID = 14
+            Case CalculatorMode.Structured
+                ucrCalc.ucrInputCalOptions.SetName("Circular")
+                ucrBase.iHelpTopicID = 677
+        End Select
+    End Sub
+
     Private Sub ucrCalc_Click() Handles ucrCalc.CheckBoxClick
         ManageScalarStorage()
     End Sub
@@ -270,8 +286,8 @@ Public Class dlgCalculator
     Private Sub ucrInputCalOptions_NameChanged() Handles ucrCalc.NameChanged
         Select Case ucrCalc.ucrInputCalOptions.GetText
             Case "Functions"
-                Me.Width = iBasicWidth * 1.5
-                ucrBase.iHelpTopicID = 439
+                Me.Width = iBasicWidth * 1.4
+                ucrBase.iHelpTopicID = 167
             Case "Maths"
                 Me.Width = iBasicWidth * 1.38
                 ucrBase.iHelpTopicID = 126
@@ -308,7 +324,7 @@ Public Class dlgCalculator
                 Me.Width = iBasicWidth * 2.56
             Case "Goodness of Fit"
                 Me.Width = iBasicWidth * 1.27
-                ucrBase.iHelpTopicID = 598
+                ucrBase.iHelpTopicID = 717
             Case "Integer"
                 Me.Width = iBasicWidth * 1.5
                 ucrBase.iHelpTopicID = 463
@@ -322,7 +338,6 @@ Public Class dlgCalculator
                 Me.Width = iBasicWidth
         End Select
     End Sub
-
 End Class
 
 

instat/dlgCircular.vb

@@ -32,7 +32,7 @@ Public Class dlgCircular
     End Sub
 
     Private Sub InitialiseDialog()
-        ucrBase.iHelpTopicID = 520
+        ucrBase.iHelpTopicID = 175
         ucrReceiverCircular.Selector = ucrSelectorCircular
         ucrReceiverCircular.SetMeAsReceiver()
 

instat/dlgCorrelation.vb

@@ -16,6 +16,12 @@
 
 Imports instat.Translations
 Public Class dlgCorrelation
+    Public Enum DefaultSequenceOption
+        MultipleOption
+        TwoVariableOption
+        ClimaticOption
+    End Enum
+
     Private bFirstload As Boolean = True
     Private bReset As Boolean = True
     Private bRcodeSet As Boolean = True
@@ -30,17 +36,13 @@ Public Class dlgCorrelation
     Private clsNotOperator As New ROperator
     Private clsRGGscatMatricReverseOperator As New ROperator
     Private strColFunction As String
-    Private enumDefaultSequenceOption As DefaultSequenceOption = DefaultSequenceOption.MultipleOption
+    Public enumDefaultSequenceOption As DefaultSequenceOption = DefaultSequenceOption.MultipleOption
     Private bDefaultOptionChanged As Boolean = False
     Private bResetSubdialog As Boolean = False
     Public strDefaultDataFrame As String = ""
     Public strDefaultColumns() As String = Nothing
     Public mnuCurrent As ToolStripMenuItem
 
-    Private Enum DefaultSequenceOption
-        MultipleOption
-        TwoVariableOption
-    End Enum
     Private Sub dlgCorrelation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If bFirstload Then
             InitialiseDialog()
@@ -67,6 +69,8 @@ Public Class dlgCorrelation
                 rdoMultipleColumns.Checked = True
             Case DefaultSequenceOption.TwoVariableOption
                 rdoTwoColumns.Checked = True
+            Case DefaultSequenceOption.ClimaticOption
+                rdoMultipleColumns.Checked = True
         End Select
     End Sub
 
@@ -76,6 +80,7 @@ Public Class dlgCorrelation
     Public Sub SetMultipleSequenceAsDefaultOption()
         enumDefaultSequenceOption = DefaultSequenceOption.MultipleOption
         bDefaultOptionChanged = True
+        ucrBase.iHelpTopicID = 421
     End Sub
 
     ''' <summary>
@@ -84,7 +89,15 @@ Public Class dlgCorrelation
     Public Sub SetTwoVariableSequenceAsDefaultOption()
         enumDefaultSequenceOption = DefaultSequenceOption.TwoVariableOption
         bDefaultOptionChanged = True
+        ucrBase.iHelpTopicID = 153
+    End Sub
+
+    Public Sub SetClimaticAsDefaultOption()
+        enumDefaultSequenceOption = DefaultSequenceOption.ClimaticOption
+        bDefaultOptionChanged = True
+        ucrBase.iHelpTopicID = 637
     End Sub
+
     Private Sub InitialiseDialog()
         Dim dctNaPrint As New Dictionary(Of String, String)
         Dim dctDiagonal As New Dictionary(Of String, String)

instat/dlgEdit.vb

@@ -55,6 +55,7 @@ Public Class dlgEdit
     Private Sub InitialiseDialog()
         Dim dctLogical As New Dictionary(Of String, String)
 
+        ucrBase.iHelpTopicID = 699
         ucrSelectValues.SetParameter(New RParameter("data_name", 0))
         ucrSelectValues.SetParameterIsString()
         ucrSelectValues.ucrAvailableDataFrames.Enabled = False