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

object MCItemForm: TMCItemForm
  Left = 188
  Height = 604
  Top = 127
  Width = 626
  Caption = 'Multiple Choice Item Create or Edit'
  ClientHeight = 604
  ClientWidth = 626
  OnShow = FormShow
  LCLVersion = '0.9.30'
  object jpeglabel: TLabel
    Left = 7
    Height = 16
    Top = 424
    Width = 225
    Caption = 'jpeg photo to display prior to item (if any):'
    ParentColor = False
  end
  object jpegnameEdit: TEdit
    Left = 236
    Height = 23
    Top = 416
    Width = 372
    TabOrder = 0
    Text = 'jpegnameEdit'
  end
  object jpegBrowseBtn: TButton
    Left = 1
    Height = 30
    Top = 455
    Width = 118
    Caption = 'Browse jpeg Images'
    OnClick = jpegBrowseBtnClick
    TabOrder = 1
  end
  object SelectImageBtn: TButton
    Left = 7
    Height = 26
    Top = 560
    Width = 112
    Caption = 'Select Shown Image'
    OnClick = SelectImageBtnClick
    TabOrder = 2
  end
  object ItemSaveBtn: TButton
    Left = 368
    Height = 33
    Top = 455
    Width = 111
    Caption = 'Save this item'
    OnClick = ItemSaveBtnClick
    TabOrder = 3
  end
  object PreviousBtn: TButton
    Left = 496
    Height = 32
    Top = 456
    Width = 110
    Caption = 'Show Previous Item'
    OnClick = PreviousBtnClick
    TabOrder = 4
  end
  object ShowNextBtn: TButton
    Left = 368
    Height = 30
    Top = 512
    Width = 109
    Caption = 'Show Next Item'
    OnClick = ShowNextBtnClick
    TabOrder = 5
  end
  object StartNewBtn: TButton
    Left = 498
    Height = 30
    Top = 512
    Width = 111
    Caption = 'Start a new item'
    OnClick = StartNewBtnClick
    TabOrder = 6
  end
  object ReturnBtn: TButton
    Left = 432
    Height = 30
    Top = 560
    Width = 111
    Caption = 'Return'
    OnClick = ReturnBtnClick
    TabOrder = 7
  end
  object ItemStemLabel: TLabel
    Left = 7
    Height = 16
    Top = 144
    Width = 58
    Caption = 'Item Stem:'
    ParentColor = False
  end
  object ItemStemEdit: TEdit
    Left = 80
    Height = 23
    Top = 136
    Width = 539
    TabOrder = 8
    Text = 'ItemStemEdit'
  end
  object AnswerLabel: TLabel
    Left = 7
    Height = 16
    Top = 392
    Width = 117
    Caption = 'Answer (A,B,C,D or F):'
    ParentColor = False
  end
  object AnswerEdit: TEdit
    Left = 128
    Height = 23
    Top = 384
    Width = 29
    TabOrder = 9
  end
  object Label1: TLabel
    Left = 267
    Height = 16
    Top = 200
    Width = 46
    Caption = 'Choices:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 9
    Height = 16
    Top = 231
    Width = 15
    Caption = 'A. '
    ParentColor = False
  end
  object Label3: TLabel
    Left = 8
    Height = 16
    Top = 263
    Width = 14
    Caption = 'B. '
    ParentColor = False
  end
  object Label4: TLabel
    Left = 7
    Height = 16
    Top = 295
    Width = 15
    Caption = 'C. '
    ParentColor = False
  end
  object Label5: TLabel
    Left = 7
    Height = 16
    Top = 327
    Width = 15
    Caption = 'D. '
    ParentColor = False
  end
  object Label6: TLabel
    Left = 9
    Height = 16
    Top = 359
    Width = 13
    Caption = 'E. '
    ParentColor = False
  end
  object ChoiceAEdit: TEdit
    Left = 34
    Height = 23
    Top = 224
    Width = 585
    TabOrder = 10
    Text = 'ChoiceAEdit'
  end
  object ChoiceDEdit: TEdit
    Left = 34
    Height = 23
    Top = 320
    Width = 585
    TabOrder = 11
    Text = 'Edit1'
  end
  object ChoiceEEdit: TEdit
    Left = 34
    Height = 23
    Top = 352
    Width = 585
    TabOrder = 12
    Text = 'Edit1'
  end
  object ChoiceCEdit: TEdit
    Left = 34
    Height = 23
    Top = 288
    Width = 585
    TabOrder = 13
    Text = 'Edit1'
  end
  object ChoiceBEdit: TEdit
    Left = 34
    Height = 23
    Top = 256
    Width = 585
    TabOrder = 14
    Text = 'Edit1'
  end
  object Memo1: TMemo
    Left = 8
    Height = 81
    Top = 7
    Width = 608
    Lines.Strings = (
      'Directions:  To create a Multiple Choice item, you will need to enter the number of an item code which '
      'contains'
      'both a major code and a minor code.  It is suggested you print all item codes from the options menu on the'
      'main procedure page of the item banking program.  You can however, browse the MC items  from this '
      'form.'
      'After you have selected an item code number, enter the item stem in the space provided.  Your item can also'
      'include a jpeg picture prior to the presentation of the item on a test.  To find the image, click the jpeg browse'
      'button until you see the image you wish to include.  When that item is shown, click the Select button to save'
      'the name of the image file.'
      'Memo1'
    )
    ScrollBars = ssVertical
    TabOrder = 15
  end
  object Image1: TImage
    Left = 136
    Height = 130
    Top = 455
    Width = 217
  end
  object TFItemNoLabel: TLabel
    Left = 9
    Height = 16
    Top = 112
    Width = 75
    Caption = 'Item Number:'
    ParentColor = False
  end
  object ItemNoEdit: TEdit
    Left = 104
    Height = 23
    Top = 105
    Width = 44
    TabOrder = 16
    Text = '1'
  end
  object ItemCodeLabel: TLabel
    Left = 168
    Height = 16
    Top = 112
    Width = 93
    Caption = 'Item Major Code:'
    ParentColor = False
  end
  object MajorCodeEdit: TEdit
    Left = 272
    Height = 23
    Top = 105
    Width = 41
    TabOrder = 17
    Text = '1'
  end
  object MinorCodeLabel: TLabel
    Left = 336
    Height = 16
    Top = 112
    Width = 94
    Caption = 'Item Minor Code:'
    ParentColor = False
  end
  object MinorCodeEdit: TEdit
    Left = 440
    Height = 23
    Top = 105
    Width = 45
    TabOrder = 18
    Text = '0'
  end
  object CodeBrowseBtn: TButton
    Left = 510
    Height = 28
    Top = 100
    Width = 106
    Caption = 'Browse Items'
    OnClick = CodeBrowseBtnClick
    TabOrder = 19
  end
  object Label7: TLabel
    Left = 11
    Height = 16
    Top = 184
    Width = 224
    Caption = 'Enter number of choices and press return: '
    ParentColor = False
  end
  object NoChoicesEdit: TEdit
    Left = 240
    Height = 23
    Top = 168
    Width = 32
    OnChange = NoChoicesEditChange
    TabOrder = 20
    Text = '0'
  end
  object OpenPictureDialog1: TOpenPictureDialog
    left = 512
    top = 368
  end
end