LazStats: Refactor RaschUnit, add help text to chm.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7384 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/lazstats/source/forms/analysis/measurement_programs/raschunit.lfm

@@ -78,88 +78,74 @@ object RaschFrm: TRaschFrm
     end
   end
   object ResetBtn: TButton
-    AnchorSideRight.Control = CancelBtn
+    AnchorSideRight.Control = ComputeBtn
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
-    Left = 105
+    Left = 197
     Height = 25
     Top = 386
     Width = 54
     Anchors = [akRight, akBottom]
     AutoSize = True
+    BorderSpacing.Left = 8
     BorderSpacing.Top = 8
-    BorderSpacing.Right = 12
+    BorderSpacing.Right = 8
     BorderSpacing.Bottom = 8
     Caption = 'Reset'
     OnClick = ResetBtnClick
     TabOrder = 6
   end
-  object CancelBtn: TButton
-    AnchorSideRight.Control = ComputeBtn
-    AnchorSideBottom.Control = Owner
-    AnchorSideBottom.Side = asrBottom
-    Left = 171
-    Height = 25
-    Top = 386
-    Width = 62
-    Anchors = [akRight, akBottom]
-    AutoSize = True
-    BorderSpacing.Top = 8
-    BorderSpacing.Right = 12
-    BorderSpacing.Bottom = 8
-    Caption = 'Cancel'
-    ModalResult = 2
-    TabOrder = 7
-  end
   object ComputeBtn: TButton
-    AnchorSideRight.Control = ReturnBtn
+    AnchorSideRight.Control = CloseBtn
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
-    Left = 245
+    Left = 259
     Height = 25
     Top = 386
     Width = 76
     Anchors = [akRight, akBottom]
     AutoSize = True
+    BorderSpacing.Left = 8
     BorderSpacing.Top = 8
-    BorderSpacing.Right = 12
+    BorderSpacing.Right = 8
     BorderSpacing.Bottom = 8
     Caption = 'Compute'
     OnClick = ComputeBtnClick
-    TabOrder = 8
+    TabOrder = 7
   end
-  object ReturnBtn: TButton
+  object CloseBtn: TButton
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
-    Left = 333
+    Left = 343
     Height = 25
     Top = 386
-    Width = 61
+    Width = 55
     Anchors = [akRight, akBottom]
     AutoSize = True
+    BorderSpacing.Left = 8
     BorderSpacing.Top = 8
-    BorderSpacing.Right = 12
+    BorderSpacing.Right = 8
     BorderSpacing.Bottom = 8
-    Caption = 'Return'
+    Caption = 'Close'
-    ModalResult = 1
+    ModalResult = 11
-    TabOrder = 9
+    TabOrder = 8
   end
   object HelpBtn: TButton
     Tag = 140
     AnchorSideRight.Control = ResetBtn
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
-    Left = 42
+    Left = 138
     Height = 25
     Top = 386
     Width = 51
     Anchors = [akRight, akBottom]
     AutoSize = True
-    BorderSpacing.Left = 12
+    BorderSpacing.Left = 8
     BorderSpacing.Top = 8
-    BorderSpacing.Right = 12
+    BorderSpacing.Right = 8
     BorderSpacing.Bottom = 8
     Caption = 'Help'
     OnClick = HelpBtnClick
@@ -169,7 +155,7 @@ object RaschFrm: TRaschFrm
     AnchorSideLeft.Control = Owner
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
-    AnchorSideBottom.Control = ReturnBtn
+    AnchorSideBottom.Control = CloseBtn
     Left = 0
     Height = 8
     Top = 370
@@ -218,6 +204,7 @@ object RaschFrm: TRaschFrm
     Constraints.MinHeight = 220
     ItemHeight = 0
     MultiSelect = True
+    OnSelectionChange = VarListSelectionChange
     TabOrder = 0
   end
   object InBtn: TBitBtn
@@ -251,6 +238,8 @@ object RaschFrm: TRaschFrm
     BorderSpacing.Top = 2
     BorderSpacing.Right = 8
     ItemHeight = 0
+    MultiSelect = True
+    OnSelectionChange = VarListSelectionChange
     TabOrder = 3
   end
   object OutBtn: TBitBtn

applications/lazstats/source/forms/analysis/measurement_programs/succintunit.lfm

@@ -1,11 +1,11 @@
 object SuccIntFrm: TSuccIntFrm
   Left = 864
-  Height = 326
+  Height = 282
   Top = 391
   Width = 335
   AutoSize = True
   Caption = 'Successive Interval Scaling'
-  ClientHeight = 326
+  ClientHeight = 282
   ClientWidth = 335
   OnActivate = FormActivate
   OnCreate = FormCreate
@@ -41,7 +41,7 @@ object SuccIntFrm: TSuccIntFrm
     AnchorSideRight.Control = AllBtn
     AnchorSideBottom.Control = Bevel1
     Left = 8
-    Height = 252
+    Height = 208
     Top = 25
     Width = 128
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -91,7 +91,7 @@ object SuccIntFrm: TSuccIntFrm
     AnchorSideTop.Side = asrCenter
     Left = 144
     Height = 25
-    Top = 139
+    Top = 117
     Width = 46
     AutoSize = True
     Caption = 'ALL'
@@ -108,7 +108,7 @@ object SuccIntFrm: TSuccIntFrm
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = Bevel1
     Left = 198
-    Height = 252
+    Height = 208
     Top = 25
     Width = 129
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -126,7 +126,7 @@ object SuccIntFrm: TSuccIntFrm
     AnchorSideBottom.Side = asrBottom
     Left = 126
     Height = 25
-    Top = 293
+    Top = 249
     Width = 54
     Anchors = [akRight, akBottom]
     AutoSize = True
@@ -144,7 +144,7 @@ object SuccIntFrm: TSuccIntFrm
     AnchorSideBottom.Side = asrBottom
     Left = 188
     Height = 25
-    Top = 293
+    Top = 249
     Width = 76
     Anchors = [akRight, akBottom]
     AutoSize = True
@@ -163,7 +163,7 @@ object SuccIntFrm: TSuccIntFrm
     AnchorSideBottom.Side = asrBottom
     Left = 272
     Height = 25
-    Top = 293
+    Top = 249
     Width = 55
     Anchors = [akRight, akBottom]
     AutoSize = True
@@ -182,7 +182,7 @@ object SuccIntFrm: TSuccIntFrm
     AnchorSideBottom.Control = CloseBtn
     Left = 0
     Height = 8
-    Top = 277
+    Top = 233
     Width = 335
     Anchors = [akLeft, akRight, akBottom]
     Shape = bsBottomLine