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

LazStats: Inherit form of BoxPlotUnit from TBasicStatsReportAndChartForm.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7745 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-05 18:46:33 +00:00
parent 0b2786b7b2
commit 04db6bd5ee
2 changed files with 73 additions and 218 deletions
Download Patch File Download Diff File Expand all files Collapse all files

151
applications/lazstats/source/forms/analysis/descriptive/boxplotunit.lfm
View File

@ -1,4 +1,4 @@
object BoxPlotFrm: TBoxPlotFrm
inherited BoxPlotFrm: TBoxPlotFrm
Left = 449
Height = 500
Top = 211
@ -8,102 +8,36 @@ object BoxPlotFrm: TBoxPlotFrm
Caption = 'Box Plot'
ClientHeight = 500
ClientWidth = 1000
OnActivate = FormActivate
OnCreate = FormCreate
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
object ParamsPanel: TPanel
Left = 8
inherited ParamsPanel: TPanel
Height = 484
Top = 8
Width = 333
Align = alLeft
BorderSpacing.Around = 8
BevelOuter = bvNone
ClientHeight = 484
ClientWidth = 333
TabOrder = 0
object CloseBtn: TButton
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ParamsPanel
AnchorSideBottom.Side = asrBottom
inherited CloseBtn: TButton
Left = 278
Height = 25
Top = 459
Width = 55
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 8
Caption = 'Close'
ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 10
end
object ComputeBtn: TButton
AnchorSideRight.Control = CloseBtn
AnchorSideBottom.Control = ParamsPanel
AnchorSideBottom.Side = asrBottom
Left = 194
Height = 25
Top = 459
Width = 76
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'Compute'
OnClick = ComputeBtnClick
TabOrder = 9
end
object ResetBtn: TButton
AnchorSideRight.Control = ComputeBtn
AnchorSideBottom.Control = ParamsPanel
AnchorSideBottom.Side = asrBottom
Left = 132
Height = 25
Top = 459
Width = 54
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'Reset'
OnClick = ResetBtnClick
TabOrder = 8
end
object HelpBtn: TButton
Tag = 108
AnchorSideRight.Control = ResetBtn
AnchorSideBottom.Control = ParamsPanel
AnchorSideBottom.Side = asrBottom
Left = 73
Height = 25
Top = 459
Width = 51
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'Help'
OnClick = HelpBtnClick
TabOrder = 7
end
object Bevel2: TBevel
AnchorSideLeft.Control = ParamsPanel
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CloseBtn
Left = 0
Height = 8
inherited ComputeBtn: TButton
Left = 195
Top = 459
TabOrder = 8
end
inherited ResetBtn: TButton
Left = 133
Top = 459
TabOrder = 9
end
inherited HelpBtn: TButton
Left = 74
Top = 459
TabOrder = 10
end
inherited ButtonBevel: TBevel
Top = 443
Width = 333
Anchors = [akLeft, akRight, akBottom]
Shape = bsBottomLine
end
object Label1: TLabel
object Label1: TLabel[5]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = ParamsPanel
Left = 0
@ -113,12 +47,12 @@ object BoxPlotFrm: TBoxPlotFrm
Caption = 'Available Variables'
ParentColor = False
end
object VarList: TListBox
object VarList: TListBox[6]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MeasInBtn
AnchorSideBottom.Control = Bevel2
AnchorSideBottom.Control = ButtonBevel
Left = 0
Height = 426
Top = 17
@ -132,7 +66,7 @@ object BoxPlotFrm: TBoxPlotFrm
OnSelectionChange = VarListSelectionChange
TabOrder = 0
end
object Label2: TLabel
object Label2: TLabel[7]
AnchorSideLeft.Control = GrpInBtn
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = GroupEdit
@ -144,7 +78,7 @@ object BoxPlotFrm: TBoxPlotFrm
Caption = 'Group Variable'
ParentColor = False
end
object GroupEdit: TEdit
object GroupEdit: TEdit[8]
AnchorSideLeft.Control = GrpInBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2
@ -163,7 +97,7 @@ object BoxPlotFrm: TBoxPlotFrm
TabOrder = 6
Text = 'GroupEdit'
end
object Label3: TLabel
object Label3: TLabel[9]
AnchorSideLeft.Control = MeasEdit
AnchorSideBottom.Control = MeasEdit
Left = 187
@ -175,7 +109,7 @@ object BoxPlotFrm: TBoxPlotFrm
Caption = 'Meaurement Variable'
ParentColor = False
end
object MeasEdit: TEdit
object MeasEdit: TEdit[10]
AnchorSideLeft.Control = MeasOutBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = VarList
@ -194,7 +128,7 @@ object BoxPlotFrm: TBoxPlotFrm
TabOrder = 3
Text = 'MeasEdit'
end
object GrpInBtn: TBitBtn
object GrpInBtn: TBitBtn[11]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = MeasOutBtn
@ -212,7 +146,7 @@ object BoxPlotFrm: TBoxPlotFrm
Spacing = 0
TabOrder = 4
end
object GrpOutBtn: TBitBtn
object GrpOutBtn: TBitBtn[12]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GrpInBtn
@ -228,7 +162,7 @@ object BoxPlotFrm: TBoxPlotFrm
Spacing = 0
TabOrder = 5
end
object MeasInBtn: TBitBtn
object MeasInBtn: TBitBtn[13]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList
@ -246,7 +180,7 @@ object BoxPlotFrm: TBoxPlotFrm
Spacing = 0
TabOrder = 1
end
object MeasOutBtn: TBitBtn
object MeasOutBtn: TBitBtn[14]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = MeasInBtn
@ -265,28 +199,13 @@ object BoxPlotFrm: TBoxPlotFrm
TabOrder = 2
end
end
object ParamsSplitter: TSplitter
Left = 349
inherited ParamsSplitter: TSplitter
Left = 345
Height = 500
Top = 0
Width = 5
ResizeStyle = rsPattern
end
object PageControl1: TPageControl
Left = 362
inherited PageControl: TPageControl
Left = 354
Height = 484
Top = 8
Width = 630
ActivePage = ReportPage
Align = alClient
BorderSpacing.Around = 8
TabIndex = 0
TabOrder = 2
object ReportPage: TTabSheet
Caption = 'Report'
end
object ChartPage: TTabSheet
Caption = 'Chart'
end
Width = 638
end
end