You've already forked lazarus-ccr
b98f47bf19
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7899 8e941d3f-bd1b-0410-a28a-d453659cc2b4
157 lines
3.8 KiB
Plaintext
157 lines
3.8 KiB
Plaintext
inherited GuttmanForm: TGuttmanForm
|
|
Left = 608
|
|
Height = 307
|
|
Top = 322
|
|
Width = 719
|
|
HelpType = htKeyword
|
|
HelpKeyword = 'html/GuttmanScalogramAnalysis.htm'
|
|
Caption = 'Guttman Sclaogram Analysis'
|
|
ClientHeight = 307
|
|
ClientWidth = 719
|
|
inherited ParamsPanel: TPanel
|
|
Height = 291
|
|
ClientHeight = 291
|
|
inherited CloseBtn: TButton
|
|
Top = 266
|
|
TabOrder = 8
|
|
end
|
|
inherited ComputeBtn: TButton
|
|
Top = 266
|
|
TabOrder = 7
|
|
end
|
|
inherited ResetBtn: TButton
|
|
Top = 266
|
|
TabOrder = 6
|
|
end
|
|
inherited HelpBtn: TButton
|
|
Top = 266
|
|
TabOrder = 5
|
|
end
|
|
inherited ButtonBevel: TBevel
|
|
Top = 250
|
|
end
|
|
object Label1: TLabel[5]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideTop.Control = ParamsPanel
|
|
Left = 0
|
|
Height = 15
|
|
Top = 0
|
|
Width = 97
|
|
Caption = 'Variables Available'
|
|
ParentColor = False
|
|
end
|
|
object Label2: TLabel[6]
|
|
AnchorSideLeft.Control = ItemList
|
|
AnchorSideTop.Control = ParamsPanel
|
|
Left = 171
|
|
Height = 15
|
|
Top = 0
|
|
Width = 76
|
|
Caption = 'Selected Items'
|
|
ParentColor = False
|
|
end
|
|
object VarList: TListBox[7]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = AllBtn
|
|
AnchorSideBottom.Control = ButtonBevel
|
|
Left = 0
|
|
Height = 233
|
|
Top = 17
|
|
Width = 119
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Top = 2
|
|
BorderSpacing.Right = 6
|
|
Constraints.MinHeight = 200
|
|
ItemHeight = 0
|
|
MultiSelect = True
|
|
OnDblClick = VarListDblClick
|
|
OnSelectionChange = VarListSelectionChange
|
|
TabOrder = 0
|
|
end
|
|
object InBtn: TBitBtn[8]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
Left = 132
|
|
Height = 26
|
|
Top = 25
|
|
Width = 26
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 1
|
|
OnClick = InBtnClick
|
|
Spacing = 0
|
|
TabOrder = 1
|
|
end
|
|
object OutBtn: TBitBtn[9]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
Left = 132
|
|
Height = 26
|
|
Top = 56
|
|
Width = 26
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 0
|
|
OnClick = OutBtnClick
|
|
Spacing = 0
|
|
TabOrder = 2
|
|
end
|
|
object AllBtn: TBitBtn[10]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
Left = 125
|
|
Height = 25
|
|
Top = 104
|
|
Width = 40
|
|
AutoSize = True
|
|
Caption = 'All'
|
|
OnClick = AllBtnClick
|
|
Spacing = 0
|
|
TabOrder = 3
|
|
end
|
|
object ItemList: TListBox[11]
|
|
AnchorSideLeft.Control = AllBtn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Label2
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = ParamsPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ButtonBevel
|
|
Left = 171
|
|
Height = 233
|
|
Top = 17
|
|
Width = 120
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 2
|
|
ItemHeight = 0
|
|
OnDblClick = ItemListDblClick
|
|
OnSelectionChange = VarListSelectionChange
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
inherited ParamsSplitter: TSplitter
|
|
Height = 307
|
|
end
|
|
object PageControl: TPageControl[2]
|
|
Left = 312
|
|
Height = 291
|
|
Top = 8
|
|
Width = 399
|
|
ActivePage = GoodenoughPage
|
|
Align = alClient
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Right = 8
|
|
BorderSpacing.Bottom = 8
|
|
TabIndex = 1
|
|
TabOrder = 2
|
|
object CornellPage: TTabSheet
|
|
Caption = 'Cornell method'
|
|
end
|
|
object GoodenoughPage: TTabSheet
|
|
Caption = 'Goodenough method'
|
|
end
|
|
end
|
|
end
|