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