public
Description: Math Drill app
Homepage: http://kylecordes.com/2007/01/05/math-drill/
Clone URL: git://github.com/kylecordes/mathdrill.git
mathdrill / uMain.dfm
100644 409 lines (408 sloc) 9.74 kb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
object MathFlashCardForm: TMathFlashCardForm
  Left = 390
  Top = 299
  Caption = 'Math Drill'
  ClientHeight = 387
  ClientWidth = 669
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object MainPC: TPageControl
    Left = 0
    Top = 0
    Width = 669
    Height = 387
    ActivePage = SetupSheet
    Align = alClient
    TabOrder = 0
    object SetupSheet: TTabSheet
      Caption = 'Setup'
      object Label5: TLabel
        Left = 40
        Top = 60
        Width = 38
        Height = 14
        Caption = 'Range:'
      end
      object Label7: TLabel
        Left = 138
        Top = 57
        Width = 4
        Height = 14
        Caption = '-'
      end
      object Label8: TLabel
        Left = 40
        Top = 264
        Width = 53
        Height = 14
        Caption = 'Problems:'
      end
      object ProblemCountLabel: TLabel
        Left = 111
        Top = 264
        Width = 24
        Height = 14
        Caption = '999'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 8
        Top = 24
        Width = 272
        Height = 14
        Caption = 'What kinds of problems do you want to practice?'
      end
      object Label11: TLabel
        Left = 208
        Top = 60
        Width = 369
        Height = 14
        Caption =
          '(Don'#39't enter negative number here, the negative option is below.' +
          ')'
      end
      object IncludeNegativeInputs: TCheckBox
        Left = 40
        Top = 201
        Width = 169
        Height = 17
        Caption = 'Include negative values'
        TabOrder = 6
        OnClick = IncludeNegativeInputsClick
      end
      object IncludeNegativeResults: TCheckBox
        Left = 40
        Top = 224
        Width = 169
        Height = 17
        Caption = 'Include negative answers'
        TabOrder = 7
        OnClick = IncludeNegativeResultsClick
      end
      object Panel1: TPanel
        Left = 0
        Top = 307
        Width = 661
        Height = 51
        Align = alBottom
        BevelOuter = bvNone
        Color = clWhite
        TabOrder = 9
        object Label10: TLabel
          Left = 12
          Top = 8
          Width = 285
          Height = 14
          Caption = 'Copyright 2007 Kyle Cordes - http://kylecordes.com'
        end
        object Label6: TLabel
          Left = 12
          Top = 28
          Width = 397
          Height = 21
          AutoSize = False
          Caption = 'This is free software. You are welcome to use and copy it.'
          WordWrap = True
          OnClick = Label6Click
        end
      end
      object IncludeAddition: TCheckBox
        Left = 40
        Top = 96
        Width = 89
        Height = 17
        Caption = '+ Addition'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = IncludeAdditionClick
      end
      object IncludeSubtraction: TCheckBox
        Left = 40
        Top = 120
        Width = 117
        Height = 17
        Caption = '- Subtraction'
        Checked = True
        State = cbChecked
        TabOrder = 3
        OnClick = IncludeAdditionClick
      end
      object IncludeMultiplication: TCheckBox
        Left = 40
        Top = 144
        Width = 117
        Height = 17
        Caption = 'x Multiplication'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = IncludeAdditionClick
      end
      object IncludeDivision: TCheckBox
        Left = 40
        Top = 167
        Width = 81
        Height = 17
        Caption = '/ Division'
        Checked = True
        State = cbChecked
        TabOrder = 5
        OnClick = IncludeAdditionClick
      end
      object GoButton: TButton
        Left = 310
        Top = 236
        Width = 75
        Height = 42
        Caption = 'Go!'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnClick = GoButtonClick
      end
      object MaxInputEdit: TEdit
        Left = 147
        Top = 57
        Width = 40
        Height = 22
        MaxLength = 3
        TabOrder = 1
        Text = '12'
        OnChange = MaxInputEditChange
      end
      object MinInputEdit: TEdit
        Left = 92
        Top = 57
        Width = 40
        Height = 22
        MaxLength = 3
        TabOrder = 0
        Text = '0'
        OnChange = MinInputEditChange
      end
    end
    object RunSheet: TTabSheet
      Caption = 'Go'
      ImageIndex = 1
      object Bevel2: TBevel
        Left = 17
        Top = 240
        Width = 200
        Height = 105
      end
      object Val1Label: TLabel
        Left = 325
        Top = 42
        Width = 36
        Height = 72
        Alignment = taRightJustify
        Caption = '0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -64
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object RightLabel: TLabel
        Left = 160
        Top = 296
        Width = 20
        Height = 16
        Caption = '----'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object OopsLabel: TLabel
        Left = 160
        Top = 320
        Width = 20
        Height = 16
        Caption = '----'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object TimeLabel: TLabel
        Left = 160
        Top = 248
        Width = 25
        Height = 20
        Caption = '----'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object SorryLabel: TLabel
        Left = 152
        Top = 149
        Width = 339
        Height = 29
        Caption = 'Oops, the correct answer was'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -24
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object Label1: TLabel
        Left = 24
        Top = 296
        Width = 115
        Height = 14
        Caption = 'Right The First Time:'
      end
      object Label2: TLabel
        Left = 24
        Top = 320
        Width = 103
        Height = 14
        Caption = 'Room To Improve:'
      end
      object Label3: TLabel
        Left = 24
        Top = 248
        Width = 76
        Height = 14
        Caption = 'Time Elapsed:'
      end
      object GoodJobLabel: TLabel
        Left = 176
        Top = 120
        Width = 300
        Height = 72
        Caption = 'Good Job!'
        Font.Charset = ANSI_CHARSET
        Font.Color = clLime
        Font.Height = -64
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object AnswerLabel: TLabel
        Left = 152
        Top = 184
        Width = 353
        Height = 37
        Alignment = taCenter
        AutoSize = False
        Caption = '-'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -32
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object Label4: TLabel
        Left = 24
        Top = 272
        Width = 112
        Height = 14
        Caption = 'Problems Remaining:'
      end
      object RemainingLabel: TLabel
        Left = 160
        Top = 272
        Width = 20
        Height = 16
        Caption = '----'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object AllDoneLabel: TLabel
        Left = 304
        Top = 256
        Width = 266
        Height = 73
        Caption = 'All Done!'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -64
        Font.Name = 'Academy Engraved LET'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object AnswerEdit: TEdit
        Left = 392
        Top = 34
        Width = 145
        Height = 80
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -64
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object CheckButton: TButton
        Left = 576
        Top = 66
        Width = 75
        Height = 25
        Caption = 'Check'
        Default = True
        TabOrder = 1
        OnClick = CheckButtonClick
      end
      object StartOverButton: TButton
        Left = 0
        Top = 0
        Width = 100
        Height = 25
        Caption = '<< Start Over'
        TabOrder = 2
        OnClick = StartOverButtonClick
      end
    end
  end
  object CountdownTimer: TTimer
    Enabled = False
    OnTimer = CountdownTimerTimer
    Left = 176
  end
  object MessageTimer: TTimer
    Enabled = False
    OnTimer = MessageTimerTimer
    Left = 224
  end
end