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

LazStats: Refactor excessive usage of form-global variables in ABRAnovaUnit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7801 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-25 10:21:35 +00:00
parent 990ad56ae4
commit c022ad9edf
2 changed files with 466 additions and 407 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
applications/lazstats/source/forms/analysis/comparisons/abranovaunit.lfm
View File

@ -13,7 +13,31 @@ inherited ABRAnovaForm: TABRAnovaForm
Width = 329 Width = 329
ClientHeight = 336 ClientHeight = 336
ClientWidth = 329 ClientWidth = 329
object OptionsGroup: TGroupBox[0] inherited CloseBtn: TButton
Left = 274
Top = 311
TabOrder = 14
end
inherited ComputeBtn: TButton
Left = 190
Top = 311
TabOrder = 13
end
inherited ResetBtn: TButton
Left = 128
Top = 311
TabOrder = 12
end
inherited HelpBtn: TButton
Left = 69
Top = 311
TabOrder = 11
end
inherited ButtonBevel: TBevel
Top = 295
Width = 329
end
object OptionsGroup: TGroupBox[5]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
AnchorSideBottom.Control = ButtonBevel AnchorSideBottom.Control = ButtonBevel
Left = 0 Left = 0
@ -70,30 +94,6 @@ inherited ABRAnovaForm: TABRAnovaForm
TabOrder = 2 TabOrder = 2
end end
end end
inherited CloseBtn: TButton[1]
Left = 274
Top = 311
TabOrder = 14
end
inherited ComputeBtn: TButton[2]
Left = 190
Top = 311
TabOrder = 13
end
inherited ResetBtn: TButton[3]
Left = 128
Top = 311
TabOrder = 12
end
inherited HelpBtn: TButton[4]
Left = 69
Top = 311
TabOrder = 11
end
inherited ButtonBevel: TBevel[5]
Top = 295
Width = 329
end
object Label1: TLabel[6] object Label1: TLabel[6]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = ParamsPanel AnchorSideTop.Control = ParamsPanel
@ -331,15 +331,15 @@ inherited ABRAnovaForm: TABRAnovaForm
inherited ReportPage: TTabSheet inherited ReportPage: TTabSheet
Caption = 'ANOVA Summary' Caption = 'ANOVA Summary'
end end
object MeansPage: TTabSheet[1] inherited ChartPage: TTabSheet
Caption = 'Charts'
end
object MeansPage: TTabSheet[2]
Caption = 'Means' Caption = 'Means'
end end
object BoxTestsPage: TTabSheet[2] object BoxTestsPage: TTabSheet[3]
Caption = 'Box Tests' Caption = 'Box Tests'
end end
inherited ChartPage: TTabSheet[3]
Caption = 'Charts'
end
end end
object ListChartSource_AB: TListChartSource[3] object ListChartSource_AB: TListChartSource[3]
Left = 465 Left = 465

813
applications/lazstats/source/forms/analysis/comparisons/abranovaunit.pas
View File

File diff suppressed because it is too large Load Diff