LazStats: Refactor DistribUnit. Add pdf help to chm.

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

applications/lazstats/source/forms/simulations/distribunit.lfm

@@ -1,13 +1,14 @@
 object DistribFrm: TDistribFrm
   Left = 420
-  Height = 301
+  Height = 223
   Top = 215
-  Width = 307
+  Width = 384
   AutoSize = True
   BorderStyle = bsDialog
   Caption = 'Distributions'
-  ClientHeight = 301
-  ClientWidth = 307
+  ClientHeight = 223
+  ClientWidth = 384
+  OnActivate = FormActivate
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poMainFormCenter
@@ -32,7 +33,7 @@ object DistribFrm: TDistribFrm
     ClientHeight = 89
     ClientWidth = 176
     TabOrder = 0
-    object NDChk: TCheckBox
+    object NDChk: TRadioButton
       Left = 16
       Height = 19
       Top = 8
@@ -41,7 +42,7 @@ object DistribFrm: TDistribFrm
       OnClick = NDChkClick
       TabOrder = 0
     end
-    object ChiChk: TCheckBox
+    object ChiChk: TRadioButton
       Left = 16
       Height = 19
       Top = 35
@@ -50,7 +51,7 @@ object DistribFrm: TDistribFrm
       OnClick = ChiChkClick
       TabOrder = 1
     end
-    object FChk: TCheckBox
+    object FChk: TRadioButton
       Left = 16
       Height = 19
       Top = 62
@@ -61,29 +62,28 @@ object DistribFrm: TDistribFrm
     end
   end
   object GroupBox2: TGroupBox
-    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Control = GroupBox1
+    AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = GroupBox1
-    AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = GroupBox1
     AnchorSideRight.Side = asrBottom
-    Left = 12
-    Height = 146
-    Top = 137
-    Width = 180
-    Anchors = [akTop, akLeft, akRight]
+    Left = 204
+    Height = 140
+    Top = 12
+    Width = 170
     AutoSize = True
     BorderSpacing.Left = 12
-    BorderSpacing.Top = 16
+    BorderSpacing.Right = 12
     BorderSpacing.Bottom = 12
     Caption = 'Parameters'
-    ClientHeight = 126
-    ClientWidth = 176
+    ClientHeight = 120
+    ClientWidth = 166
     TabOrder = 1
     object AlphaLabel: TLabel
       AnchorSideTop.Control = AlphaEdit
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = AlphaEdit
-      Left = 33
+      Left = 19
       Height = 15
       Top = 6
       Width = 84
@@ -92,57 +92,60 @@ object DistribFrm: TDistribFrm
       Caption = 'Type I Error Rate'
       ParentColor = False
     end
-    object Label2: TLabel
+    object DF1Label: TLabel
       AnchorSideTop.Control = DF1Edit
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = DF1Edit
-      Left = 26
+      Left = 12
       Height = 15
-      Top = 37
+      Top = 33
       Width = 91
       Anchors = [akTop, akRight]
       BorderSpacing.Right = 8
       Caption = 'Deg. Freedom (1)'
       ParentColor = False
     end
-    object Label3: TLabel
+    object DF2Label: TLabel
+      AnchorSideLeft.Control = GroupBox2
       AnchorSideTop.Control = DF2Edit
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = DF2Edit
-      Left = 26
+      Left = 12
       Height = 15
-      Top = 68
+      Top = 60
       Width = 91
-      Anchors = [akTop, akRight]
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Left = 12
       BorderSpacing.Right = 8
       Caption = 'Deg. Freedom (2)'
       ParentColor = False
     end
-    object Label4: TLabel
+    object MeanLabel: TLabel
       AnchorSideTop.Control = MeanEdit
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = MeanEdit
-      Left = 87
+      Left = 73
       Height = 15
-      Top = 99
+      Top = 93
       Width = 30
       Anchors = [akTop, akRight]
       BorderSpacing.Right = 8
       Caption = 'Mean'
       ParentColor = False
+      Visible = False
     end
     object AlphaEdit: TEdit
       AnchorSideTop.Control = GroupBox2
       AnchorSideRight.Control = GroupBox2
       AnchorSideRight.Side = asrBottom
-      Left = 125
+      Left = 111
       Height = 23
       Top = 2
       Width = 43
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
       BorderSpacing.Top = 2
-      BorderSpacing.Right = 8
+      BorderSpacing.Right = 12
       TabOrder = 0
       Text = 'AlphaEdit'
     end
@@ -151,130 +154,110 @@ object DistribFrm: TDistribFrm
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = AlphaEdit
       AnchorSideRight.Side = asrBottom
-      Left = 125
+      Left = 111
       Height = 23
-      Top = 33
+      Top = 29
       Width = 43
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
-      BorderSpacing.Top = 8
+      BorderSpacing.Top = 4
       TabOrder = 1
-      Text = 'Edit1'
+      Text = 'DF1Edit'
     end
     object MeanEdit: TEdit
       AnchorSideTop.Control = DF2Edit
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = AlphaEdit
       AnchorSideRight.Side = asrBottom
-      Left = 125
+      Left = 111
       Height = 23
-      Top = 95
+      Top = 89
       Width = 43
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
-      BorderSpacing.Top = 8
+      BorderSpacing.Top = 4
       BorderSpacing.Bottom = 8
       TabOrder = 3
-      Text = 'Edit1'
+      Text = 'MeanEdit'
+      Visible = False
     end
     object DF2Edit: TEdit
       AnchorSideTop.Control = DF1Edit
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = AlphaEdit
       AnchorSideRight.Side = asrBottom
-      Left = 125
+      Left = 111
       Height = 23
-      Top = 64
+      Top = 56
       Width = 43
       Alignment = taRightJustify
       Anchors = [akTop, akRight]
-      BorderSpacing.Top = 8
+      BorderSpacing.Top = 4
+      BorderSpacing.Bottom = 10
       TabOrder = 2
-      Text = 'Edit1'
+      Text = 'DF2Edit'
     end
   end
-  object Panel1: TPanel
-    AnchorSideLeft.Control = GroupBox1
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideBottom.Control = GroupBox2
+  object CloseBtn: TButton
+    AnchorSideTop.Control = Bevel1
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Side = asrBottom
-    Left = 208
-    Height = 136
-    Top = 147
-    Width = 76
-    Anchors = [akLeft, akBottom]
+    Left = 321
+    Height = 25
+    Top = 180
+    Width = 55
+    Anchors = [akTop, akRight]
     AutoSize = True
-    BorderSpacing.Left = 16
-    BorderSpacing.Right = 12
-    BevelOuter = bvNone
-    ChildSizing.VerticalSpacing = 12
-    ClientHeight = 136
-    ClientWidth = 76
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 8
+    Caption = 'Close'
+    ModalResult = 11
+    TabOrder = 4
+  end
+  object ComputeBtn: TButton
+    AnchorSideTop.Control = CloseBtn
+    AnchorSideRight.Control = CloseBtn
+    Left = 237
+    Height = 25
+    Top = 180
+    Width = 76
+    Anchors = [akTop, akRight]
+    AutoSize = True
+    BorderSpacing.Left = 8
+    BorderSpacing.Right = 8
+    Caption = 'Compute'
+    OnClick = ComputeBtnClick
+    TabOrder = 3
+  end
+  object ResetBtn: TButton
+    AnchorSideTop.Control = CloseBtn
+    AnchorSideRight.Control = ComputeBtn
+    Left = 175
+    Height = 25
+    Top = 180
+    Width = 54
+    Anchors = [akTop, akRight]
+    AutoSize = True
+    BorderSpacing.Left = 8
+    BorderSpacing.Right = 8
+    BorderSpacing.Bottom = 8
+    Caption = 'Reset'
+    OnClick = ResetBtnClick
     TabOrder = 2
-    object ResetBtn: TButton
-      AnchorSideLeft.Control = Panel1
-      AnchorSideTop.Control = Panel1
-      AnchorSideRight.Control = Panel1
-      AnchorSideRight.Side = asrBottom
-      Left = 0
-      Height = 25
-      Top = 0
-      Width = 76
-      Anchors = [akTop, akLeft, akRight]
-      AutoSize = True
-      BorderSpacing.Bottom = 8
-      Caption = 'Reset'
-      OnClick = ResetBtnClick
-      TabOrder = 0
-    end
-    object CancelBtn: TButton
-      AnchorSideLeft.Control = Panel1
-      AnchorSideTop.Control = ResetBtn
-      AnchorSideTop.Side = asrBottom
-      AnchorSideRight.Control = Panel1
-      AnchorSideRight.Side = asrBottom
-      Left = 0
-      Height = 25
-      Top = 37
-      Width = 76
-      Anchors = [akTop, akLeft, akRight]
-      AutoSize = True
-      Caption = 'Cancel'
-      ModalResult = 2
-      TabOrder = 1
-    end
-    object ComputeBtn: TButton
-      AnchorSideLeft.Control = Panel1
-      AnchorSideTop.Control = CancelBtn
-      AnchorSideTop.Side = asrBottom
-      AnchorSideRight.Control = Panel1
-      AnchorSideRight.Side = asrBottom
-      Left = 0
-      Height = 25
-      Top = 74
-      Width = 76
-      Anchors = [akTop, akLeft, akRight]
-      AutoSize = True
-      Caption = 'Compute'
-      OnClick = ComputeBtnClick
-      TabOrder = 2
-    end
-    object ReturnBtn: TButton
-      AnchorSideLeft.Control = Panel1
-      AnchorSideTop.Control = ComputeBtn
-      AnchorSideTop.Side = asrBottom
-      AnchorSideRight.Control = Panel1
-      AnchorSideRight.Side = asrBottom
-      AnchorSideBottom.Side = asrBottom
-      Left = 0
-      Height = 25
-      Top = 111
-      Width = 76
-      Anchors = [akTop, akLeft, akRight]
-      AutoSize = True
-      Caption = 'Return'
-      ModalResult = 1
-      TabOrder = 3
-    end
+  end
+  object Bevel1: TBevel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = GroupBox2
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 0
+    Height = 8
+    Top = 164
+    Width = 384
+    Anchors = [akTop, akLeft, akRight]
+    Shape = bsBottomLine
   end
 end