pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Inherit KendallTauUnit from TBasicStatsReportForm. Fix tab order in recently modified forms.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7811 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-26 16:06:42 +00:00
parent ded71d0f59
commit 02db991125
7 changed files with 835 additions and 904 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/lazstats/source/LazStats.lpi
View File

@ -793,7 +793,7 @@
<Unit86>
<Filename Value="forms\analysis\nonparametric\kendalltauunit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="KendallTauFrm"/>
<ComponentName Value="KendallTauForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="KendallTauUnit"/>

584
applications/lazstats/source/forms/analysis/nonparametric/kendalltauunit.lfm
View File

@ -1,331 +1,277 @@
object KendallTauFrm: TKendallTauFrm
inherited KendallTauForm: TKendallTauForm
Left = 719
Height = 379
Height = 361
Top = 350
Width = 396
Width = 415
HelpType = htKeyword
HelpKeyword = 'html/KendallsTauandPartialTau.htm'
AutoSize = True
Caption = 'Kendall Rank Correlation Tau and Partial Tau'
ClientHeight = 379
ClientWidth = 396
OnActivate = FormActivate
OnCreate = FormCreate
OnShow = FormShow
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 15
Top = 8
Width = 97
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Variables Available'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = XEdit
AnchorSideBottom.Control = XEdit
Left = 220
Height = 15
Top = 33
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'X Variable'
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = YEdit
AnchorSideBottom.Control = YEdit
Left = 220
Height = 15
Top = 117
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Y Variable'
ParentColor = False
end
object Label4: TLabel
AnchorSideLeft.Control = ZEdit
AnchorSideBottom.Control = ZEdit
Left = 220
Height = 15
Top = 201
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Z Variable'
ParentColor = False
end
object VarList: TListBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = XIn
AnchorSideBottom.Control = Bevel1
Left = 8
Height = 303
Top = 25
Width = 168
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 8
ItemHeight = 0
OnSelectionChange = VarListSelectionChange
TabOrder = 0
end
object XIn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList
Left = 184
Height = 28
Top = 25
Width = 28
Images = MainDataModule.ImageList
ImageIndex = 1
OnClick = XInClick
Spacing = 0
TabOrder = 1
end
object XOut: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = XIn
AnchorSideTop.Side = asrBottom
Left = 184
Height = 28
Top = 57
Width = 28
BorderSpacing.Top = 4
Images = MainDataModule.ImageList
ImageIndex = 0
OnClick = XOutClick
Spacing = 0
TabOrder = 2
end
object YIn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = XOut
AnchorSideTop.Side = asrBottom
Left = 184
Height = 28
Top = 109
Width = 28
BorderSpacing.Top = 24
Images = MainDataModule.ImageList
ImageIndex = 1
OnClick = YInClick
Spacing = 0
TabOrder = 4
end
object YOut: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = YIn
AnchorSideTop.Side = asrBottom
Left = 184
Height = 28
Top = 141
Width = 28
BorderSpacing.Top = 4
Images = MainDataModule.ImageList
ImageIndex = 0
OnClick = YOutClick
Spacing = 0
TabOrder = 5
end
object ZIn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = YOut
AnchorSideTop.Side = asrBottom
Left = 184
Height = 28
Top = 193
Width = 28
BorderSpacing.Top = 24
Images = MainDataModule.ImageList
ImageIndex = 1
OnClick = ZInClick
Spacing = 0
TabOrder = 7
end
object ZOut: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ZIn
AnchorSideTop.Side = asrBottom
Left = 184
Height = 28
Top = 225
Width = 28
BorderSpacing.Top = 4
Images = MainDataModule.ImageList
ImageIndex = 0
OnClick = ZOutClick
Spacing = 0
TabOrder = 8
end
object XEdit: TEdit
AnchorSideLeft.Control = XIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = XOut
AnchorSideBottom.Side = asrBottom
Left = 220
Height = 23
Top = 50
Width = 168
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 3
Text = 'XEdit'
end
object YEdit: TEdit
AnchorSideLeft.Control = YIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = YOut
AnchorSideBottom.Side = asrBottom
Left = 220
Height = 23
Top = 134
Width = 168
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 6
Text = 'Edit1'
end
object ZEdit: TEdit
AnchorSideLeft.Control = ZIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ZOut
AnchorSideBottom.Side = asrBottom
Left = 220
Height = 23
Top = 218
Width = 168
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 9
Text = 'Edit1'
end
object OptionsGroup: TGroupBox
AnchorSideLeft.Control = XEdit
AnchorSideTop.Control = ZOut
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = Bevel1
Left = 222
Height = 45
Top = 277
Width = 150
AutoSize = True
BorderSpacing.Left = 2
BorderSpacing.Top = 24
BorderSpacing.Bottom = 8
Caption = 'Options:'
ClientHeight = 25
ClientWidth = 146
TabOrder = 10
object RanksChk: TCheckBox
Left = 12
Height = 19
ClientHeight = 361
ClientWidth = 415
inherited ParamsPanel: TPanel
Height = 345
ClientHeight = 345
inherited CloseBtn: TButton
Top = 320
TabOrder = 14
end
inherited ComputeBtn: TButton
Top = 320
TabOrder = 13
end
inherited ResetBtn: TButton
Top = 320
TabOrder = 12
end
inherited HelpBtn: TButton
Top = 320
TabOrder = 11
end
inherited ButtonBevel: TBevel
Top = 304
end
object Label1: TLabel[5]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = ParamsPanel
Left = 0
Height = 15
Top = 0
Width = 128
BorderSpacing.Left = 12
Width = 97
Caption = 'Available Variables'
ParentColor = False
end
object Label2: TLabel[6]
AnchorSideLeft.Control = XEdit
AnchorSideBottom.Control = XEdit
Left = 164
Height = 15
Top = 21
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'X Variable'
ParentColor = False
end
object Label3: TLabel[7]
AnchorSideLeft.Control = YEdit
AnchorSideBottom.Control = YEdit
Left = 164
Height = 15
Top = 101
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Y Variable'
ParentColor = False
end
object Label4: TLabel[8]
AnchorSideLeft.Control = ZEdit
AnchorSideBottom.Control = ZEdit
Left = 164
Height = 15
Top = 181
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Z Variable'
ParentColor = False
end
object VarList: TListBox[9]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = XIn
AnchorSideBottom.Control = ButtonBevel
Left = 0
Height = 287
Top = 17
Width = 126
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Show Ranked Scores'
ItemHeight = 0
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange
TabOrder = 0
end
object XIn: TBitBtn[10]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList
Left = 132
Height = 26
Top = 17
Width = 26
Images = MainDataModule.ImageList
ImageIndex = 1
OnClick = XInClick
Spacing = 0
TabOrder = 1
end
object XOut: TBitBtn[11]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = XIn
AnchorSideTop.Side = asrBottom
Left = 132
Height = 26
Top = 47
Width = 26
BorderSpacing.Top = 4
Images = MainDataModule.ImageList
ImageIndex = 0
OnClick = XOutClick
Spacing = 0
TabOrder = 2
end
object YIn: TBitBtn[12]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = XOut
AnchorSideTop.Side = asrBottom
Left = 132
Height = 26
Top = 97
Width = 26
BorderSpacing.Top = 24
Images = MainDataModule.ImageList
ImageIndex = 1
OnClick = YInClick
Spacing = 0
TabOrder = 4
end
object YOut: TBitBtn[13]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = YIn
AnchorSideTop.Side = asrBottom
Left = 132
Height = 26
Top = 127
Width = 26
BorderSpacing.Top = 4
Images = MainDataModule.ImageList
ImageIndex = 0
OnClick = YOutClick
Spacing = 0
TabOrder = 5
end
object ZIn: TBitBtn[14]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = YOut
AnchorSideTop.Side = asrBottom
Left = 132
Height = 26
Top = 177
Width = 26
BorderSpacing.Top = 24
Images = MainDataModule.ImageList
ImageIndex = 1
OnClick = ZInClick
Spacing = 0
TabOrder = 7
end
object ZOut: TBitBtn[15]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ZIn
AnchorSideTop.Side = asrBottom
Left = 132
Height = 26
Top = 207
Width = 26
BorderSpacing.Top = 4
Images = MainDataModule.ImageList
ImageIndex = 0
OnClick = ZOutClick
Spacing = 0
TabOrder = 8
end
object XEdit: TEdit[16]
AnchorSideLeft.Control = XIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = XOut
AnchorSideBottom.Side = asrBottom
Left = 164
Height = 23
Top = 38
Width = 127
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 3
Text = 'XEdit'
end
object YEdit: TEdit[17]
AnchorSideLeft.Control = YIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = YOut
AnchorSideBottom.Side = asrBottom
Left = 164
Height = 23
Top = 118
Width = 127
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 6
Text = 'YEdit'
end
object ZEdit: TEdit[18]
AnchorSideLeft.Control = ZIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ZOut
AnchorSideBottom.Side = asrBottom
Left = 164
Height = 23
Top = 198
Width = 127
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 9
Text = 'ZEdit'
end
object OptionsGroup: TGroupBox[19]
AnchorSideLeft.Control = ZOut
AnchorSideTop.Control = ZOut
AnchorSideTop.Side = asrBottom
Left = 134
Height = 45
Top = 257
Width = 150
AutoSize = True
BorderSpacing.Left = 2
BorderSpacing.Top = 24
BorderSpacing.Bottom = 8
Caption = 'Options:'
ClientHeight = 25
ClientWidth = 146
TabOrder = 10
object RanksChk: TCheckBox
Left = 12
Height = 19
Top = 0
Width = 128
BorderSpacing.Left = 12
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Show Ranked Scores'
TabOrder = 0
end
end
end
object ResetBtn: TButton
AnchorSideRight.Control = ComputeBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 187
Height = 25
Top = 346
Width = 54
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 32
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Reset'
OnClick = ResetBtnClick
TabOrder = 11
end
object ComputeBtn: TButton
AnchorSideRight.Control = CloseBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 249
Height = 25
Top = 346
Width = 76
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Compute'
OnClick = ComputeBtnClick
TabOrder = 12
end
object CloseBtn: TButton
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 333
Height = 25
Top = 346
Width = 55
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Close'
ModalResult = 11
TabOrder = 13
end
object Bevel1: TBevel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CloseBtn
Left = 0
Height = 8
Top = 330
Width = 396
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 2
Shape = bsBottomLine
inherited ParamsSplitter: TSplitter
Height = 361
end
end

1093
applications/lazstats/source/forms/analysis/nonparametric/kendalltauunit.pas
View File

File diff suppressed because it is too large Load Diff

18
applications/lazstats/source/forms/analysis/nonparametric/signtestunit.lfm
View File

@ -11,15 +11,19 @@ inherited SignTestFrm: TSignTestFrm
ClientHeight = 329
inherited CloseBtn: TButton
Top = 304
TabOrder = 10
end
inherited ComputeBtn: TButton
Top = 304
TabOrder = 9
end
inherited ResetBtn: TButton
Top = 304
TabOrder = 8
end
inherited HelpBtn: TButton
Top = 304
TabOrder = 7
end
inherited ButtonBevel: TBevel
Top = 288
@ -74,7 +78,7 @@ inherited SignTestFrm: TSignTestFrm
ItemHeight = 0
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange
TabOrder = 4
TabOrder = 0
end
object Var1In: TBitBtn[9]
AnchorSideLeft.Control = ParamsPanel
@ -88,7 +92,7 @@ inherited SignTestFrm: TSignTestFrm
ImageIndex = 1
OnClick = Var1InClick
Spacing = 0
TabOrder = 5
TabOrder = 1
end
object Var1Out: TBitBtn[10]
AnchorSideLeft.Control = ParamsPanel
@ -104,7 +108,7 @@ inherited SignTestFrm: TSignTestFrm
ImageIndex = 0
OnClick = Var1OutClick
Spacing = 0
TabOrder = 6
TabOrder = 2
end
object Var2In: TBitBtn[11]
AnchorSideLeft.Control = ParamsPanel
@ -120,7 +124,7 @@ inherited SignTestFrm: TSignTestFrm
ImageIndex = 1
OnClick = Var2InClick
Spacing = 0
TabOrder = 7
TabOrder = 4
end
object Var2Out: TBitBtn[12]
AnchorSideLeft.Control = ParamsPanel
@ -136,7 +140,7 @@ inherited SignTestFrm: TSignTestFrm
ImageIndex = 0
OnClick = Var2OutClick
Spacing = 0
TabOrder = 8
TabOrder = 5
end
object Var1Edit: TEdit[13]
AnchorSideLeft.Control = Var1In
@ -153,7 +157,7 @@ inherited SignTestFrm: TSignTestFrm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 9
TabOrder = 3
Text = 'Var1Edit'
end
object Var2Edit: TEdit[14]
@ -171,7 +175,7 @@ inherited SignTestFrm: TSignTestFrm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 10
TabOrder = 6
Text = 'Var2Edit'
end
end

18
applications/lazstats/source/forms/analysis/nonparametric/spearmanunit.lfm
View File

@ -13,15 +13,19 @@ inherited SpearmanForm: TSpearmanForm
ClientHeight = 331
inherited CloseBtn: TButton
Top = 306
TabOrder = 10
end
inherited ComputeBtn: TButton
Top = 306
TabOrder = 9
end
inherited ResetBtn: TButton
Top = 306
TabOrder = 8
end
inherited HelpBtn: TButton
Top = 306
TabOrder = 7
end
inherited ButtonBevel: TBevel
Top = 290
@ -78,7 +82,7 @@ inherited SpearmanForm: TSpearmanForm
ItemHeight = 0
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange
TabOrder = 4
TabOrder = 0
end
object XIn: TBitBtn[9]
AnchorSideLeft.Control = ParamsPanel
@ -92,7 +96,7 @@ inherited SpearmanForm: TSpearmanForm
ImageIndex = 1
OnClick = XInClick
Spacing = 0
TabOrder = 5
TabOrder = 1
end
object XOut: TBitBtn[10]
AnchorSideLeft.Control = ParamsPanel
@ -108,7 +112,7 @@ inherited SpearmanForm: TSpearmanForm
ImageIndex = 0
OnClick = XOutClick
Spacing = 0
TabOrder = 6
TabOrder = 2
end
object YIn: TBitBtn[11]
AnchorSideLeft.Control = ParamsPanel
@ -124,7 +128,7 @@ inherited SpearmanForm: TSpearmanForm
ImageIndex = 1
OnClick = YInClick
Spacing = 0
TabOrder = 7
TabOrder = 4
end
object YOut: TBitBtn[12]
AnchorSideLeft.Control = ParamsPanel
@ -140,7 +144,7 @@ inherited SpearmanForm: TSpearmanForm
ImageIndex = 0
OnClick = YOutClick
Spacing = 0
TabOrder = 8
TabOrder = 5
end
object XEdit: TEdit[13]
AnchorSideLeft.Control = XIn
@ -157,7 +161,7 @@ inherited SpearmanForm: TSpearmanForm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 9
TabOrder = 3
Text = 'XEdit'
end
object YEdit: TEdit[14]
@ -175,7 +179,7 @@ inherited SpearmanForm: TSpearmanForm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 10
TabOrder = 6
Text = 'YEdit'
end
end

18
applications/lazstats/source/forms/analysis/nonparametric/wilcoxonunit.lfm
View File

@ -13,15 +13,19 @@ inherited WilcoxonForm: TWilcoxonForm
ClientHeight = 278
inherited CloseBtn: TButton
Top = 253
TabOrder = 10
end
inherited ComputeBtn: TButton
Top = 253
TabOrder = 9
end
inherited ResetBtn: TButton
Top = 253
TabOrder = 8
end
inherited HelpBtn: TButton
Top = 253
TabOrder = 7
end
inherited ButtonBevel: TBevel
Top = 237
@ -76,7 +80,7 @@ inherited WilcoxonForm: TWilcoxonForm
ItemHeight = 0
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange
TabOrder = 4
TabOrder = 0
end
object Var1In: TBitBtn[9]
AnchorSideLeft.Control = ParamsPanel
@ -90,7 +94,7 @@ inherited WilcoxonForm: TWilcoxonForm
ImageIndex = 1
OnClick = Var1InClick
Spacing = 0
TabOrder = 5
TabOrder = 1
end
object Var1Out: TBitBtn[10]
AnchorSideLeft.Control = ParamsPanel
@ -106,7 +110,7 @@ inherited WilcoxonForm: TWilcoxonForm
ImageIndex = 0
OnClick = Var1OutClick
Spacing = 0
TabOrder = 6
TabOrder = 2
end
object Var2In: TBitBtn[11]
AnchorSideLeft.Control = ParamsPanel
@ -122,7 +126,7 @@ inherited WilcoxonForm: TWilcoxonForm
ImageIndex = 1
OnClick = Var2InClick
Spacing = 0
TabOrder = 7
TabOrder = 4
end
object Var2Out: TBitBtn[12]
AnchorSideLeft.Control = ParamsPanel
@ -138,7 +142,7 @@ inherited WilcoxonForm: TWilcoxonForm
ImageIndex = 0
OnClick = Var2OutClick
Spacing = 0
TabOrder = 8
TabOrder = 5
end
object Var1Edit: TEdit[13]
AnchorSideLeft.Control = Var1In
@ -156,7 +160,7 @@ inherited WilcoxonForm: TWilcoxonForm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 9
TabOrder = 3
Text = 'Var1Edit'
end
object Var2Edit: TEdit[14]
@ -174,7 +178,7 @@ inherited WilcoxonForm: TWilcoxonForm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 10
TabOrder = 6
Text = 'Var2Edit'
end
end

6
applications/lazstats/source/forms/mainunit.pas
View File

@ -1904,9 +1904,9 @@ end;
// Menu "Analysis" > "Nonparametric" > Kendall's Tau and Partial Tau"
procedure TOS3MainFrm.mnuAnalysisNonPar_TauClick(Sender: TObject);
begin
if KendallTauFrm = nil then
Application.CreateForm(TKendallTauFrm, KendallTauFrm);
KendallTauFrm.ShowModal;
if KendallTauForm = nil then
Application.CreateForm(TKendallTauForm, KendallTauForm);
KendallTauForm.Show;
end;
// Menu "Analysis" > "Nonparametric" > "Kaplan-Meier Survival Analysis"