lazarus-ccr/applications/lazstats/source_orig/itemcodesunit.lfm

object CodesForm: TCodesForm
  Left = 212
  Height = 286
  Top = 126
  Width = 709
  Caption = 'Code Creation Form'
  ClientHeight = 286
  ClientWidth = 709
  OnShow = FormShow
  LCLVersion = '0.9.30'
  object Memo1: TMemo
    Left = 24
    Height = 102
    Top = 4
    Width = 667
    Lines.Strings = (
      'One of the first steps in creating an item bank is to develop a coding scheme for each item in the item bank of items.  You'
      'can create up to 100 major and minor codes to describe each item in your bank.  Typically, the first item major code is 1 and '
      'the corresponding minor code is 0.  You will typically have multiple minor coded items under each major code.  For '
      'example, a major code 1 and minor code 0 might be a major section in a statistics book such as Descriptive Analyses.  Under'
      'the same major code you might have a minor code 1 to represent items such as the Mean or the Standard Deviation.'
      'On this form you will enter the  major and minor codes and a description for each one.'
    )
    TabOrder = 0
  end
  object ItemNoLabel: TLabel
    Left = 25
    Height = 16
    Top = 120
    Width = 79
    Caption = 'Code Number:'
    ParentColor = False
  end
  object ItemNoEdit: TEdit
    Left = 106
    Height = 23
    Top = 113
    Width = 37
    TabOrder = 1
    Text = '1'
  end
  object MajorLabel: TLabel
    Left = 168
    Height = 16
    Top = 120
    Width = 66
    Caption = 'Major Code:'
    ParentColor = False
  end
  object MajorEdit: TEdit
    Left = 238
    Height = 23
    Top = 112
    Width = 35
    TabOrder = 2
    Text = '1'
  end
  object MinorLabel: TLabel
    Left = 296
    Height = 16
    Top = 120
    Width = 67
    Caption = 'Minor Code:'
    ParentColor = False
  end
  object MinorEdit: TEdit
    Left = 368
    Height = 23
    Top = 114
    Width = 38
    TabOrder = 3
    Text = '0'
  end
  object DescLabel: TLabel
    Left = 25
    Height = 16
    Top = 153
    Width = 112
    Caption = 'Category Description'
    ParentColor = False
  end
  object DescriptionEdit: TEdit
    Left = 144
    Height = 23
    Top = 147
    Width = 545
    TabOrder = 4
  end
  object SaveCodeBtn: TButton
    Left = 24
    Height = 33
    Top = 189
    Width = 137
    Caption = 'Save Info. for this code'
    OnClick = SaveCodeBtnClick
    TabOrder = 5
  end
  object StartNewBtn: TButton
    Left = 168
    Height = 32
    Top = 189
    Width = 146
    Caption = 'Start New Code'
    OnClick = StartNewBtnClick
    TabOrder = 6
  end
  object DisplayBtn: TButton
    Left = 329
    Height = 32
    Top = 240
    Width = 177
    Caption = 'Display All Saved Code Data'
    OnClick = DisplayBtnClick
    TabOrder = 7
  end
  object ReturnBtn: TButton
    Left = 592
    Height = 30
    Top = 240
    Width = 92
    Caption = 'Return'
    OnClick = ReturnBtnClick
    TabOrder = 8
  end
  object EditOneBtn: TButton
    Left = 329
    Height = 31
    Top = 190
    Width = 177
    Caption = 'Edit a Specific Code Entry'
    OnClick = EditOneBtnClick
    TabOrder = 9
  end
end