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

object gradingfrm: Tgradingfrm
  Left = 102
  Height = 494
  Top = 109
  Width = 706
  Caption = 'Specification for Grades'
  ClientHeight = 494
  ClientWidth = 706
  OnShow = FormShow
  LCLVersion = '0.9.28.2'
  object Label1: TLabel
    Left = 16
    Height = 14
    Top = 122
    Width = 28
    Caption = 'Score'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 80
    Height = 14
    Top = 122
    Width = 52
    Caption = 'Frequency'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 160
    Height = 14
    Top = 122
    Width = 60
    Caption = 'Grade Given'
    ParentColor = False
  end
  object TopScoreLabel: TLabel
    Left = 344
    Height = 14
    Top = 122
    Width = 49
    Caption = 'Top Score'
    ParentColor = False
  end
  object DownThroughLabel: TLabel
    Left = 432
    Height = 14
    Top = 122
    Width = 71
    Caption = 'Down Through'
    ParentColor = False
  end
  object Label4: TLabel
    Left = 520
    Height = 14
    Top = 122
    Width = 64
    Caption = 'No. Assigned'
    ParentColor = False
  end
  object Label5: TLabel
    Left = 256
    Height = 14
    Top = 122
    Width = 35
    Caption = 'Grades'
    ParentColor = False
  end
  object DistUseGroup: TRadioGroup
    Left = 8
    Height = 111
    Top = 3
    Width = 212
    AutoFill = True
    Caption = 'To Assign Grades Use:'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 93
    ClientWidth = 208
    Items.Strings = (
      'Raw Test Scores'
      'z Scores'
      'T Scores'
      'Percentile Rank Scores'
    )
    OnClick = DistUseGroupClick
    TabOrder = 0
  end
  object CategoriesGroup: TRadioGroup
    Left = 233
    Height = 112
    Top = 2
    Width = 279
    AutoFill = True
    Caption = 'Use the following Grade Categories:'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    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
    Left = 8
    Height = 294
    Top = 137
    Width = 136
    ColCount = 2
    FixedCols = 0
    FixedRows = 0
    TabOrder = 2
  end
  object GradesGrid: TStringGrid
    Left = 159
    Height = 294
    Top = 137
    Width = 74
    ColCount = 1
    FixedCols = 0
    FixedRows = 0
    TabOrder = 3
  end
  object TopScoreGrid: TStringGrid
    Left = 344
    Height = 298
    Top = 138
    Width = 71
    ColCount = 1
    FixedCols = 0
    FixedRows = 0
    TabOrder = 4
  end
  object LowScoreGrid: TStringGrid
    Left = 432
    Height = 298
    Top = 138
    Width = 67
    ColCount = 1
    FixedCols = 0
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
    TabOrder = 5
    OnKeyDown = LowScoreGridKeyDown
  end
  object SaveBtn: TButton
    Left = 608
    Height = 32
    Top = 122
    Width = 77
    Caption = 'Save Specs.'
    OnClick = SaveBtnClick
    TabOrder = 6
  end
  object LoadBtn: TButton
    Left = 608
    Height = 32
    Top = 176
    Width = 77
    Caption = 'Load Specs.'
    OnClick = LoadBtnClick
    TabOrder = 7
  end
  object ResetBtn: TButton
    Left = 608
    Height = 32
    Top = 232
    Width = 77
    Caption = 'Reset'
    OnClick = ResetBtnClick
    TabOrder = 8
  end
  object Cancelbtn: TButton
    Left = 608
    Height = 32
    Top = 288
    Width = 77
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 9
  end
  object ReturnBtn: TButton
    Left = 608
    Height = 32
    Top = 399
    Width = 77
    Caption = 'Return'
    ModalResult = 1
    TabOrder = 10
  end
  object AssignedGrid: TStringGrid
    Left = 520
    Height = 299
    Top = 138
    Width = 68
    ColCount = 1
    FixedCols = 0
    FixedRows = 0
    TabOrder = 11
  end
  object Grades: TStringGrid
    Left = 256
    Height = 296
    Top = 138
    Width = 72
    ColCount = 1
    FixedCols = 0
    FixedRows = 0
    TabOrder = 12
  end
  object ComputeBtn: TButton
    Left = 608
    Height = 29
    Top = 344
    Width = 77
    Caption = 'Compute'
    OnClick = ComputeBtnClick
    TabOrder = 13
  end
  object OpenDialog1: TOpenDialog
    left = 552
    top = 448
  end
  object SaveDialog1: TSaveDialog
    left = 640
    top = 448
  end
end