home *** CD-ROM | disk | FTP | other *** search
- object frmJavaQuiz: TfrmJavaQuiz
- Left = 156
- Top = 112
- HelpContext = 10
- AutoScroll = False
- Caption = 'Martin'#39's Javascript Quiz Generator - [Untitled]'
- ClientHeight = 421
- ClientWidth = 600
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- Position = poScreenCenter
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object lblQNum: TLabel
- Left = 24
- Top = 64
- Width = 22
- Height = 34
- Caption = 'Q'
- Font.Color = clMaroon
- Font.Height = -29
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object SpinQNum: TSpinEdit
- Left = 48
- Top = 64
- Width = 57
- Height = 39
- HelpContext = 40
- TabStop = False
- AutoSelect = False
- EditorEnabled = False
- Font.Color = clMaroon
- Font.Height = -24
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- MaxValue = 99
- MinValue = 1
- ParentFont = False
- TabOrder = 0
- Value = 1
- OnChange = SpinQNumChange
- end
- object pnlQuestion: TPanel
- Left = 112
- Top = 56
- Width = 473
- Height = 81
- TabOrder = 2
- object mmoQuestion: TMemo
- Left = 8
- Top = 8
- Width = 457
- Height = 65
- HelpContext = 40
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 256
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- OnChange = mmoQuestionChange
- end
- end
- object pnlAnswer1: TPanel
- Left = 112
- Top = 144
- Width = 473
- Height = 65
- BevelInner = bvLowered
- TabOrder = 3
- object mmoAnswer1: TMemo
- Left = 8
- Top = 8
- Width = 457
- Height = 49
- HelpContext = 40
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 256
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- WantReturns = False
- OnChange = mmoAnswer1Change
- end
- end
- object pnlAnswer2: TPanel
- Left = 112
- Top = 216
- Width = 473
- Height = 65
- BevelInner = bvLowered
- TabOrder = 4
- object mmoAnswer2: TMemo
- Left = 8
- Top = 8
- Width = 457
- Height = 49
- HelpContext = 40
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 256
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- WantReturns = False
- OnChange = mmoAnswer2Change
- end
- end
- object pnlAnswer3: TPanel
- Left = 112
- Top = 288
- Width = 473
- Height = 65
- BevelInner = bvLowered
- TabOrder = 5
- object mmoAnswer3: TMemo
- Left = 8
- Top = 8
- Width = 457
- Height = 49
- HelpContext = 40
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 256
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- WantReturns = False
- OnChange = mmoAnswer3Change
- end
- end
- object pnlAns1Label: TPanel
- Left = 8
- Top = 152
- Width = 97
- Height = 41
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = 'Answer 1:'
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 11
- end
- object pnlAns2Label: TPanel
- Left = 8
- Top = 224
- Width = 97
- Height = 41
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = 'Answer 2:'
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 12
- end
- object pnlAns3Label: TPanel
- Left = 8
- Top = 296
- Width = 97
- Height = 41
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = 'Answer 3:'
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 13
- end
- object btnLoadQuiz: TButton
- Left = 10
- Top = 360
- Width = 105
- Height = 33
- Hint =
- 'Load a quiz from disk|Load a quiz previously saved to disk (in *' +
- '.jqz format)'
- HelpContext = 110
- Caption = '&Load quiz'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnClick = btnLoadQuizClick
- end
- object btnSaveQuiz: TButton
- Left = 129
- Top = 360
- Width = 105
- Height = 33
- Hint = 'Save the quiz to disk|Save a quiz to disk (in *.jqz format)'
- HelpContext = 110
- Caption = '&Save quiz'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = btnSaveQuizClick
- end
- object btnCompileWebPage: TButton
- Left = 248
- Top = 360
- Width = 105
- Height = 33
- Hint =
- 'Turn this quiz into Web pages|Compile this quiz into HTML pages ' +
- 'for posting to the Web'
- HelpContext = 110
- Caption = '&Make Web page'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnClick = btnCompileWebPageClick
- end
- object btnQuit: TButton
- Left = 486
- Top = 360
- Width = 105
- Height = 33
- Hint = 'Exit the program|Exit the JQuiz Generator program'
- HelpContext = 110
- Caption = '&Quit'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- OnClick = btnQuitClick
- end
- object pnlTitle: TPanel
- Left = 8
- Top = 8
- Width = 97
- Height = 41
- BevelInner = bvRaised
- BevelOuter = bvLowered
- Caption = 'Title'
- Font.Color = clMaroon
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 14
- end
- object mmoTitle: TMemo
- Left = 112
- Top = 8
- Width = 473
- Height = 33
- HelpContext = 40
- Alignment = taCenter
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 60
- ParentFont = False
- PopupMenu = PopupMenu1
- TabOrder = 1
- WantReturns = False
- WordWrap = False
- end
- object btnNew: TButton
- Left = 367
- Top = 360
- Width = 105
- Height = 33
- Hint =
- 'Start a new blank quiz|Clear the program and start a new blank q' +
- 'uiz'
- HelpContext = 110
- Caption = '&New'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnClick = btnNewClick
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 402
- Width = 600
- Height = 19
- HelpContext = 56
- Panels = <
- item
- Width = 400
- end
- item
- Text = 'IE Safe: On'
- Width = 150
- end
- item
- Width = 50
- end>
- SimplePanel = False
- end
- object OpenDialog1: TOpenDialog
- HelpContext = 54
- FileEditStyle = fsEdit
- Filter = 'Javaquiz files (*.jqz)|*.jqz'
- Options = [ofShowHelp]
- Left = 8
- Top = 120
- end
- object SaveDialog1: TSaveDialog
- HelpContext = 54
- DefaultExt = 'jqz'
- FileEditStyle = fsEdit
- Filter = 'JavaQuiz files (*.jqz)|*.jqz'
- Options = [ofOverwritePrompt, ofShowHelp, ofPathMustExist, ofNoReadOnlyReturn]
- Left = 40
- Top = 120
- end
- object MainMenu1: TMainMenu
- Left = 72
- Top = 120
- object File1: TMenuItem
- Caption = '&File'
- HelpContext = 54
- ShortCut = 0
- object New1: TMenuItem
- Caption = '&New'
- HelpContext = 54
- Hint = 'Clear the program and start a new blank quiz'
- ShortCut = 0
- OnClick = btnNewClick
- end
- object Open1: TMenuItem
- Caption = '&Open...'
- HelpContext = 54
- Hint = 'Load a quiz previously saved to disk (in *.jqz format)'
- ShortCut = 0
- OnClick = btnLoadQuizClick
- end
- object Save1: TMenuItem
- Caption = '&Save'
- HelpContext = 54
- Hint = 'Save this quiz to disk (in *.jqz format)'
- ShortCut = 0
- OnClick = btnSaveQuizClick
- end
- object SaveAs1: TMenuItem
- Caption = 'Save &As...'
- HelpContext = 54
- Hint = 'Save this quiz to disk (in *.jqz format) with a new name'
- ShortCut = 0
- OnClick = SaveAs1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object MakeWebPage1: TMenuItem
- Caption = '&Make Web page'
- HelpContext = 54
- Hint = 'Compile this quiz into HTML pages for posting to the Web'
- ShortCut = 0
- OnClick = btnCompileWebPageClick
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- HelpContext = 54
- Hint = 'Exit the program'
- ShortCut = 0
- OnClick = btnQuitClick
- end
- end
- object Edit1: TMenuItem
- Caption = '&Edit'
- HelpContext = 55
- ShortCut = 0
- object Cut1: TMenuItem
- Caption = 'Cu&t'
- HelpContext = 55
- Hint = 'Cut the selected text to the clipboard'
- ShortCut = 16472
- OnClick = Cut1Click
- end
- object Copy1: TMenuItem
- Caption = '&Copy'
- HelpContext = 55
- Hint = 'Copy the selected text to the clipboard'
- ShortCut = 16451
- OnClick = Copy1Click
- end
- object Paste1: TMenuItem
- Caption = '&Paste'
- HelpContext = 55
- Hint = 'Paste text from clipboard'
- ShortCut = 16470
- OnClick = Paste1Click
- end
- object SelectAll1: TMenuItem
- Caption = 'Se&lect All'
- HelpContext = 55
- Hint = 'Select all the text in the current box'
- ShortCut = 0
- OnClick = SelectAll1Click
- end
- end
- object Options1: TMenuItem
- Caption = 'Options'
- HelpContext = 56
- ShortCut = 0
- object InternetExplorerSafe1: TMenuItem
- Caption = 'Internet Explorer Safe'
- Checked = True
- HelpContext = 60
- Hint = 'Make this quiz safe for use in Internet Explorer'
- ShortCut = 0
- OnClick = InternetExplorerSafe1Click
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- HelpContext = 57
- ShortCut = 0
- object Contents1: TMenuItem
- Caption = '&Contents'
- HelpContext = 10
- Hint = 'Show the contents page of the help file'
- ShortCut = 0
- OnClick = Contents1Click
- end
- object About1: TMenuItem
- Caption = '&About...'
- HelpContext = 57
- Hint = 'Information about this program'
- ShortCut = 0
- OnClick = About1Click
- end
- end
- end
- object PopupMenu1: TPopupMenu
- HelpContext = 55
- Left = 8
- Top = 192
- object Cut2: TMenuItem
- Caption = 'Cu&t'
- HelpContext = 55
- ShortCut = 16472
- OnClick = Cut1Click
- end
- object Copy2: TMenuItem
- Caption = '&Copy'
- HelpContext = 55
- ShortCut = 16451
- OnClick = Copy1Click
- end
- object Paste2: TMenuItem
- Caption = '&Paste'
- HelpContext = 55
- ShortCut = 16470
- OnClick = Paste1Click
- end
- object SelectAll2: TMenuItem
- Caption = 'Se&lect All'
- HelpContext = 55
- ShortCut = 0
- OnClick = SelectAll1Click
- end
- end
- object SaveDialog2: TSaveDialog
- HelpContext = 30
- DefaultExt = 'htm'
- FileEditStyle = fsEdit
- Filter = 'HTML files (*.htm)|*.htm'
- Options = [ofOverwritePrompt, ofShowHelp, ofPathMustExist, ofNoReadOnlyReturn]
- Left = 40
- Top = 192
- end
- end
-