home *** CD-ROM | disk | FTP | other *** search
- object TestData: TTestData
- Left = 369
- Top = 185
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsDialog
- Caption = 'Test Data'
- ClientHeight = 240
- ClientWidth = 398
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsStayOnTop
- PixelsPerInch = 120
- OnClose = FormClose
- OnCreate = FormCreate
- TextHeight = 20
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 385
- Height = 225
- end
- object Label1: TLabel
- Left = 16
- Top = 47
- Width = 149
- Height = 20
- Hint = 'Name of the item subset file defining the test'
- AutoSize = False
- Caption = 'Test name'
- end
- object Name: TLabel
- Left = 184
- Top = 47
- Width = 200
- Height = 20
- Hint = 'Name of the item subset file defining the test'
- AutoSize = False
- end
- object Label3: TLabel
- Left = 16
- Top = 77
- Width = 149
- Height = 20
- Hint = 'Total number of items in the test'
- AutoSize = False
- Caption = 'Total items'
- end
- object Total: TLabel
- Left = 184
- Top = 77
- Width = 200
- Height = 20
- Hint = 'Total number of items in the test'
- AutoSize = False
- end
- object Label5: TLabel
- Left = 16
- Top = 108
- Width = 149
- Height = 20
- Hint = 'Number of items that have already been passed in the test'
- AutoSize = False
- Caption = 'Passed items'
- end
- object Passed: TLabel
- Left = 184
- Top = 108
- Width = 200
- Height = 20
- Hint = 'Number of items that have already been passed in the test'
- AutoSize = False
- end
- object Label7: TLabel
- Left = 16
- Top = 139
- Width = 149
- Height = 20
- Hint = 'Number of correct responses in the test'
- AutoSize = False
- Caption = 'Correct responses'
- end
- object Correct: TLabel
- Left = 184
- Top = 139
- Width = 200
- Height = 20
- Hint = 'Number of correct responses in the test'
- AutoSize = False
- end
- object Label10: TLabel
- Left = 16
- Top = 169
- Width = 149
- Height = 20
- Hint = 'Time that has passed since the beginning of the test'
- AutoSize = False
- Caption = 'Time passed'
- end
- object Time: TLabel
- Left = 184
- Top = 169
- Width = 200
- Height = 20
- Hint = 'Time that has passed since the beginning of the test'
- AutoSize = False
- end
- object Label12: TLabel
- Left = 16
- Top = 200
- Width = 149
- Height = 20
- Hint = 'Time in which the test has to be completed'
- AutoSize = False
- Caption = 'Time limit'
- end
- object TimeLimit: TLabel
- Left = 184
- Top = 200
- Width = 200
- Height = 20
- Hint = 'Time in which the test has to be completed'
- AutoSize = False
- end
- object Bevel2: TBevel
- Left = 172
- Top = 8
- Width = 3
- Height = 225
- end
- object Label2: TLabel
- Left = 16
- Top = 16
- Width = 153
- Height = 20
- Hint = 'Name of the student taking the test'
- AutoSize = False
- Caption = 'Student'
- end
- object Student: TLabel
- Left = 184
- Top = 16
- Width = 201
- Height = 20
- Hint = 'Name of the student taking the test'
- AutoSize = False
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 192
- Top = 208
- end
- end
-