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

object GradingFrm: TGradingFrm
  Left = 354
  Height = 441
  Top = 163
  Width = 622
  HelpType = htKeyword
  HelpKeyword = 'html/GradeBook.htm'
  Caption = 'Specification for Grades'
  ClientHeight = 441
  ClientWidth = 622
  OnActivate = FormActivate
  OnShow = FormShow
  Position = poMainFormCenter
  ShowHint = True
  LCLVersion = '2.1.0.0'
  object Label1: TLabel
    AnchorSideLeft.Control = ScoresGrid
    AnchorSideTop.Control = DistUseGroup
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 15
    Top = 130
    Width = 29
    BorderSpacing.Top = 8
    Caption = 'Score'
    ParentColor = False
  end
  object Label2: TLabel
    AnchorSideTop.Control = DistUseGroup
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = ScoresGrid
    AnchorSideRight.Side = asrBottom
    Left = 79
    Height = 15
    Top = 130
    Width = 55
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 8
    BorderSpacing.Right = 24
    Caption = 'Frequency'
    ParentColor = False
  end
  object DistUseGroup: TRadioGroup
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 8
    Height = 114
    Top = 8
    Width = 166
    AutoFill = True
    AutoSize = True
    BorderSpacing.Left = 8
    BorderSpacing.Top = 8
    Caption = 'To Assign Grades Use:'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.VerticalSpacing = 2
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 94
    ClientWidth = 162
    Items.Strings = (
      'Raw Test Scores'
      'z Scores'
      'T Scores'
      'Percentile Rank Scores'
    )
    OnClick = DistUseGroupClick
    TabOrder = 0
  end
  object CategoriesGroup: TRadioGroup
    AnchorSideLeft.Control = DistUseGroup
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideBottom.Control = DistUseGroup
    AnchorSideBottom.Side = asrBottom
    Left = 190
    Height = 114
    Top = 8
    Width = 279
    Anchors = [akTop, akLeft, akBottom]
    AutoFill = True
    BorderSpacing.Left = 16
    BorderSpacing.Top = 8
    Caption = 'Use the following Grade Categories:'
    ChildSizing.LeftRightSpacing = 12
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.VerticalSpacing = 2
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 94
    ClientWidth = 275
    Items.Strings = (
      'A, B, C, D, F'
      'A, A-, B+, B, B-, C+, C, C-, D+, D, D-, F'
    )
    OnClick = CategoriesGroupClick
    TabOrder = 1
  end
  object ScoresGrid: TStringGrid
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label1
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = Bevel1
    AnchorSideBottom.Side = asrBottom
    Left = 8
    Height = 245
    Top = 147
    Width = 150
    Anchors = [akTop, akLeft, akBottom]
    AutoFillColumns = True
    BorderSpacing.Left = 8
    BorderSpacing.Top = 2
    BorderSpacing.Bottom = 8
    ColCount = 2
    FixedCols = 0
    FixedRows = 0
    TabOrder = 2
    ColWidths = (
      73
      73
    )
  end
  object SaveBtn: TButton
    AnchorSideRight.Control = LoadBtn
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 136
    Height = 25
    Top = 408
    Width = 86
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 8
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 8
    Caption = 'Save Specs.'
    OnClick = SaveBtnClick
    TabOrder = 4
  end
  object LoadBtn: TButton
    AnchorSideRight.Control = ResetBtn
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 234
    Height = 25
    Top = 408
    Width = 88
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Left = 8
    BorderSpacing.Top = 8
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 8
    Caption = 'Load Specs.'
    OnClick = LoadBtnClick
    TabOrder = 5
  end
  object ResetBtn: TButton
    AnchorSideRight.Control = ComputeBtn
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 330
    Height = 25
    Top = 408
    Width = 54
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Left = 8
    BorderSpacing.Top = 8
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 8
    Caption = 'Reset'
    OnClick = ResetBtnClick
    TabOrder = 6
  end
  object CloseBtn: TButton
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 559
    Height = 25
    Top = 408
    Width = 55
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Left = 8
    BorderSpacing.Top = 8
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 8
    Caption = 'Close'
    ModalResult = 1
    TabOrder = 8
  end
  object ComputeBtn: TButton
    AnchorSideRight.Control = CancelBtn
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 392
    Height = 25
    Top = 408
    Width = 76
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Left = 8
    BorderSpacing.Top = 8
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 8
    Caption = 'Compute'
    OnClick = ComputeBtnClick
    TabOrder = 7
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = CloseBtn
    Left = 0
    Height = 8
    Top = 392
    Width = 622
    Anchors = [akLeft, akRight, akBottom]
    Shape = bsBottomLine
  end
  object Panel6: TPanel
    AnchorSideLeft.Control = ScoresGrid
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = DistUseGroup
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Bevel1
    Left = 158
    Height = 262
    Top = 130
    Width = 464
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Top = 8
    BevelOuter = bvNone
    ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 5
    ClientHeight = 262
    ClientWidth = 464
    TabOrder = 3
    object Panel1: TPanel
      Left = 15
      Height = 262
      Top = 0
      Width = 75
      BevelOuter = bvNone
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
      ClientHeight = 262
      ClientWidth = 75
      TabOrder = 0
      object Label3: TLabel
        AnchorSideLeft.Control = Panel1
        AnchorSideLeft.Side = asrCenter
        AnchorSideTop.Control = Panel1
        Left = 5
        Height = 15
        Top = 0
        Width = 64
        BorderSpacing.Bottom = 2
        Caption = 'Grade Given'
        ParentColor = False
      end
      object GradesGrid: TStringGrid
        AnchorSideLeft.Control = Panel1
        AnchorSideTop.Control = Label3
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = Panel1
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = Panel1
        AnchorSideBottom.Side = asrBottom
        Left = 0
        Height = 245
        Top = 17
        Width = 75
        Anchors = [akTop, akLeft, akRight, akBottom]
        AutoFillColumns = True
        ColCount = 1
        FixedCols = 0
        FixedRows = 0
        TabOrder = 0
        ColWidths = (
          71
        )
      end
    end
    object Panel2: TPanel
      Left = 105
      Height = 262
      Top = 0
      Width = 75
      BevelOuter = bvNone
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
      ClientHeight = 262
      ClientWidth = 75
      TabOrder = 1
      object Label5: TLabel
        AnchorSideLeft.Control = Panel2
        AnchorSideLeft.Side = asrCenter
        AnchorSideTop.Control = Panel2
        Left = 19
        Height = 15
        Top = 0
        Width = 36
        BorderSpacing.Bottom = 2
        Caption = 'Grades'
        ParentColor = False
      end
      object Grades: TStringGrid
        AnchorSideLeft.Control = Panel2
        AnchorSideTop.Control = Label5
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = Panel2
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = Panel2
        AnchorSideBottom.Side = asrBottom
        Left = 0
        Height = 245
        Top = 17
        Width = 75
        Anchors = [akTop, akLeft, akRight, akBottom]
        AutoFillColumns = True
        BorderSpacing.Top = 2
        ColCount = 1
        FixedCols = 0
        FixedRows = 0
        TabOrder = 0
        ColWidths = (
          71
        )
      end
    end
    object Panel3: TPanel
      Left = 195
      Height = 262
      Top = 0
      Width = 75
      BevelOuter = bvNone
      ClientHeight = 262
      ClientWidth = 75
      TabOrder = 2
      object TopScoreLabel: TLabel
        AnchorSideLeft.Control = TopScoreGrid
        AnchorSideLeft.Side = asrCenter
        AnchorSideTop.Control = Panel3
        Left = 12
        Height = 15
        Top = 0
        Width = 51
        BorderSpacing.Bottom = 2
        Caption = 'Top Score'
        ParentColor = False
      end
      object TopScoreGrid: TStringGrid
        AnchorSideLeft.Control = Panel3
        AnchorSideTop.Control = TopScoreLabel
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = Panel3
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = Panel3
        AnchorSideBottom.Side = asrBottom
        Left = 0
        Height = 245
        Top = 17
        Width = 75
        Anchors = [akTop, akLeft, akRight, akBottom]
        AutoFillColumns = True
        BorderSpacing.Top = 2
        ColCount = 1
        FixedCols = 0
        FixedRows = 0
        TabOrder = 0
        ColWidths = (
          71
        )
      end
    end
    object Panel4: TPanel
      Left = 285
      Height = 262
      Top = 0
      Width = 77
      BevelOuter = bvNone
      ClientHeight = 262
      ClientWidth = 77
      TabOrder = 3
      object DownThroughLabel: TLabel
        AnchorSideLeft.Control = LowScoreGrid
        AnchorSideLeft.Side = asrCenter
        AnchorSideTop.Control = Panel4
        Left = -1
        Height = 15
        Top = 0
        Width = 79
        BorderSpacing.Bottom = 2
        Caption = 'Down Through'
        ParentColor = False
      end
      object LowScoreGrid: TStringGrid
        AnchorSideLeft.Control = Panel4
        AnchorSideTop.Control = DownThroughLabel
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = Panel4
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = Panel4
        AnchorSideBottom.Side = asrBottom
        Left = 0
        Height = 245
        Hint = 'Enter low score value for the given grade. '#13#10'IMPORTANT: Press ENTER key.'
        Top = 17
        Width = 77
        Anchors = [akTop, akLeft, akRight, akBottom]
        AutoAdvance = aaDown
        AutoFillColumns = True
        BorderSpacing.Top = 2
        ColCount = 1
        FixedCols = 0
        FixedRows = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
        TabOrder = 0
        OnKeyDown = LowScoreGridKeyDown
        ColWidths = (
          73
        )
      end
    end
    object Panel5: TPanel
      Left = 377
      Height = 262
      Top = 0
      Width = 75
      BevelOuter = bvNone
      ClientHeight = 262
      ClientWidth = 75
      TabOrder = 4
      object Label4: TLabel
        AnchorSideLeft.Control = AssignedGrid
        AnchorSideLeft.Side = asrCenter
        AnchorSideTop.Control = Panel5
        Left = 2
        Height = 15
        Top = 0
        Width = 70
        BorderSpacing.Bottom = 2
        Caption = 'No. Assigned'
        ParentColor = False
      end
      object AssignedGrid: TStringGrid
        AnchorSideLeft.Control = Panel5
        AnchorSideTop.Control = Label4
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = Panel5
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = Panel5
        AnchorSideBottom.Side = asrBottom
        Left = 0
        Height = 245
        Top = 17
        Width = 75
        Anchors = [akTop, akRight, akBottom]
        AutoFillColumns = True
        BorderSpacing.Top = 2
        ColCount = 1
        FixedCols = 0
        FixedRows = 0
        TabOrder = 0
        ColWidths = (
          71
        )
      end
    end
  end
  object CancelBtn: TButton
    AnchorSideRight.Control = CloseBtn
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 476
    Height = 25
    Top = 408
    Width = 75
    Anchors = [akRight, akBottom]
    BorderSpacing.Left = 8
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 8
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 9
  end
  object OpenDialog1: TOpenDialog
    Left = 496
    Top = 24
  end
  object SaveDialog1: TSaveDialog
    Left = 408
    Top = 24
  end
end