lazarus-ccr/applications/lazstats/source/forms/analysis/measurement_programs/guttmanunit.lfm

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