object MainForm: TMainForm Left = 294 Top = 121 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'MainForm' ClientHeight = 259 ClientWidth = 428 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Frame: TGroupBox Left = 8 Top = 12 Width = 413 Height = 209 Caption = 'LICENSE AGREEMENT' Font.Color = clMaroon Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object MainNotebook: TNotebook Left = 4 Top = 20 Width = 405 Height = 185 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PageIndex = 4 ParentFont = False TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'License' object ScrollInfo: TLabel Left = 5 Top = 171 Width = 396 Height = 13 Caption = 'Scroll to read the entire agreement, and activate the "I Agree" ' + 'button' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LicenseMemo: TMPWMemo Left = 4 Top = 5 Width = 397 Height = 162 ReadOnly = True ScrollBars = ssVertical TabOrder = 0 WordWrap = False OnMaxScroll = LicenseMemoMaxScroll end end object TPage Left = 0 Top = 0 Caption = 'UserInfo' object LabelName: TLabel Left = 5 Top = 8 Width = 60 Height = 13 AutoSize = False Caption = 'N&ame:' FocusControl = FirstName end object LabelCompany: TLabel Left = 5 Top = 30 Width = 60 Height = 13 AutoSize = False Caption = 'Co&mpany' FocusControl = Company end object LabelCountry: TLabel Left = 5 Top = 52 Width = 60 Height = 13 AutoSize = False Caption = 'Co&untry:' FocusControl = Country end object LabelAddress1: TLabel Left = 5 Top = 74 Width = 60 Height = 13 AutoSize = False Caption = 'Address &1:' FocusControl = Address1 end object LabelAddress2: TLabel Left = 5 Top = 96 Width = 60 Height = 13 AutoSize = False Caption = 'Address &2:' FocusControl = Address2 end object LabelAddress3: TLabel Left = 5 Top = 118 Width = 60 Height = 13 AutoSize = False Caption = 'City/St/&Zip:' FocusControl = City end object LabelEMail: TLabel Left = 5 Top = 140 Width = 60 Height = 13 AutoSize = False Caption = '&E-Mail:' FocusControl = EMailAddress end object LabelPhoneNumber: TLabel Left = 5 Top = 162 Width = 60 Height = 13 AutoSize = False Caption = '&Phone/Ext:' FocusControl = PhoneNumber end object LabelFaxNumber: TLabel Left = 264 Top = 162 Width = 22 Height = 13 AutoSize = False Caption = '&Fax:' FocusControl = FaxNumber end object Address3: TMPWEdit Left = 72 Top = 115 Width = 329 Height = 21 Hint = 'Address (Line #3)' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False MaxLength = 36 TabOrder = 7 end object FirstName: TMPWEdit Left = 72 Top = 5 Width = 143 Height = 21 Hint = 'First Name' MaxLength = 16 TabOrder = 0 PopupMenu = EditMenu end object Initial: TMPWEdit Left = 216 Top = 5 Width = 38 Height = 21 Hint = 'Initial' MaxLength = 1 TabOrder = 1 PopupMenu = EditMenu CharCase = ecUpperCase end object LastName: TMPWEdit Left = 255 Top = 5 Width = 146 Height = 21 Hint = 'Last Name' MaxLength = 20 TabOrder = 2 PopupMenu = EditMenu end object Company: TMPWEdit Left = 72 Top = 27 Width = 329 Height = 21 Hint = 'Company' MaxLength = 36 TabOrder = 3 PopupMenu = EditMenu end object Country: TComboBox Left = 72 Top = 49 Width = 329 Height = 21 Hint = 'Country' Style = csDropDownList ItemHeight = 13 MaxLength = 36 Sorted = True TabOrder = 4 OnChange = CountryChange OnExit = CountryExit end object Address1: TMPWEdit Left = 72 Top = 71 Width = 329 Height = 21 Hint = 'Address (Line #1)' MaxLength = 36 TabOrder = 5 PopupMenu = EditMenu end object Address2: TMPWEdit Left = 72 Top = 93 Width = 329 Height = 21 Hint = 'Address (Line #2)' MaxLength = 36 TabOrder = 6 PopupMenu = EditMenu end object City: TMPWEdit Left = 72 Top = 115 Width = 182 Height = 21 Hint = 'City' MaxLength = 20 TabOrder = 8 PopupMenu = EditMenu end object Province: TMPWEdit Left = 255 Top = 115 Width = 33 Height = 21 Hint = 'State/Province' MaxLength = 2 TabOrder = 9 PopupMenu = EditMenu OnExit = ProvinceExit CharCase = ecUpperCase ValidChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' end object PostalCode: TMPWEdit Left = 289 Top = 115 Width = 112 Height = 21 Hint = 'Postal Code' MaxLength = 10 TabOrder = 10 PopupMenu = EditMenu ValidChars = '1234567890-' end object EMailAddress: TMPWEdit Left = 72 Top = 137 Width = 329 Height = 21 Hint = 'E-Mail Address' MaxLength = 48 TabOrder = 11 PopupMenu = EditMenu CharCase = ecLowerCase ValidChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890@.-_' end object PhoneNumber: TMPWEdit Left = 72 Top = 159 Width = 143 Height = 21 Hint = 'Phone Number' MaxLength = 16 TabOrder = 12 PopupMenu = EditMenu OnExit = PhoneNumberExit ValidChars = '1234567890()-. ' end object Extension: TMPWEdit Left = 216 Top = 159 Width = 38 Height = 21 Hint = 'Extension' MaxLength = 5 TabOrder = 13 PopupMenu = EditMenu ValidChars = '1234567890' end object FaxNumber: TMPWEdit Left = 289 Top = 159 Width = 112 Height = 21 Hint = 'Fax Number' MaxLength = 16 TabOrder = 14 PopupMenu = EditMenu OnExit = FaxNumberExit ValidChars = '1234567890()-. ' end end object TPage Left = 0 Top = 0 Caption = 'Survey1' object LabelSurveyCombo1: TLabel Left = 5 Top = 8 Width = 208 Height = 13 AutoSize = False FocusControl = SurveyCombo1 end object LabelSurveyCombo2: TLabel Left = 5 Top = 30 Width = 208 Height = 13 AutoSize = False FocusControl = SurveyCombo2 end object LabelSurveyCombo3: TLabel Left = 5 Top = 52 Width = 208 Height = 13 AutoSize = False FocusControl = SurveyCombo3 end object LabelSurveyCombo4: TLabel Left = 5 Top = 74 Width = 208 Height = 13 AutoSize = False FocusControl = SurveyCombo4 end object LabelSurveyCombo5: TLabel Left = 5 Top = 96 Width = 208 Height = 13 AutoSize = False FocusControl = SurveyCombo5 end object LabelSurveyCombo6: TLabel Left = 5 Top = 118 Width = 208 Height = 13 AutoSize = False FocusControl = SurveyCombo6 end object LabelSurveyCombo7: TLabel Left = 5 Top = 140 Width = 208 Height = 13 AutoSize = False FocusControl = SurveyCombo7 end object LabelSurveyCombo8: TLabel Left = 5 Top = 162 Width = 208 Height = 13 AutoSize = False FocusControl = SurveyCombo8 end object SurveyCombo1: TComboBox Left = 216 Top = 5 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 end object SurveyCombo2: TComboBox Left = 216 Top = 27 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 end object SurveyCombo3: TComboBox Left = 216 Top = 49 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 2 end object SurveyCombo4: TComboBox Left = 216 Top = 71 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 3 end object SurveyCombo5: TComboBox Left = 216 Top = 93 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 4 end object SurveyCombo6: TComboBox Left = 216 Top = 115 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 5 end object SurveyCombo7: TComboBox Left = 216 Top = 137 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 6 end object SurveyCombo8: TComboBox Left = 216 Top = 159 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 7 end end object TPage Left = 0 Top = 0 Caption = 'Survey2' object LabelAppType: TLabel Left = 4 Top = 8 Width = 393 Height = 13 AutoSize = False FocusControl = AppType01 end object LabelSysType: TLabel Left = 4 Top = 123 Width = 393 Height = 13 AutoSize = False FocusControl = SysType1 end object AppType01: TCheckBox Left = 4 Top = 29 Width = 97 Height = 17 TabOrder = 0 end object AppType02: TCheckBox Left = 4 Top = 45 Width = 97 Height = 17 TabOrder = 1 end object AppType03: TCheckBox Left = 4 Top = 61 Width = 97 Height = 17 TabOrder = 2 end object AppType04: TCheckBox Left = 4 Top = 77 Width = 97 Height = 17 TabOrder = 3 end object AppType05: TCheckBox Left = 4 Top = 93 Width = 97 Height = 17 TabOrder = 4 end object AppType06: TCheckBox Left = 106 Top = 29 Width = 101 Height = 17 TabOrder = 5 end object AppType07: TCheckBox Left = 106 Top = 45 Width = 101 Height = 17 TabOrder = 6 end object AppType08: TCheckBox Left = 106 Top = 61 Width = 101 Height = 17 TabOrder = 7 end object AppType09: TCheckBox Left = 106 Top = 77 Width = 101 Height = 17 TabOrder = 8 end object AppType10: TCheckBox Left = 106 Top = 93 Width = 101 Height = 17 TabOrder = 9 end object AppType11: TCheckBox Left = 212 Top = 29 Width = 91 Height = 17 TabOrder = 10 end object AppType12: TCheckBox Left = 212 Top = 45 Width = 91 Height = 17 TabOrder = 11 end object AppType13: TCheckBox Left = 212 Top = 61 Width = 91 Height = 17 TabOrder = 12 end object AppType14: TCheckBox Left = 212 Top = 77 Width = 91 Height = 17 TabOrder = 13 end object AppType15: TCheckBox Left = 212 Top = 93 Width = 91 Height = 17 TabOrder = 14 end object AppType16: TCheckBox Left = 308 Top = 29 Width = 91 Height = 17 TabOrder = 15 end object AppType17: TCheckBox Left = 308 Top = 45 Width = 91 Height = 17 TabOrder = 16 end object AppType18: TCheckBox Left = 308 Top = 61 Width = 91 Height = 17 TabOrder = 17 end object AppType19: TCheckBox Left = 308 Top = 77 Width = 91 Height = 17 TabOrder = 18 end object AppType20: TCheckBox Left = 308 Top = 93 Width = 91 Height = 17 TabOrder = 19 end object SysType1: TCheckBox Left = 4 Top = 144 Width = 97 Height = 17 TabOrder = 20 end object SysType2: TCheckBox Left = 4 Top = 160 Width = 97 Height = 17 TabOrder = 21 end object SysType3: TCheckBox Left = 106 Top = 144 Width = 101 Height = 17 TabOrder = 22 end object SysType4: TCheckBox Left = 106 Top = 160 Width = 101 Height = 17 TabOrder = 23 end object SysType5: TCheckBox Left = 212 Top = 144 Width = 91 Height = 17 TabOrder = 24 end object SysType6: TCheckBox Left = 212 Top = 160 Width = 91 Height = 17 TabOrder = 25 end object SysType7: TCheckBox Left = 308 Top = 144 Width = 91 Height = 17 TabOrder = 26 end object SysType8: TCheckBox Left = 308 Top = 160 Width = 91 Height = 17 TabOrder = 27 end end object TPage Left = 0 Top = 0 Caption = 'Order' object FrameTotalDue: TGroupBox Left = 280 Top = 8 Width = 121 Height = 91 Caption = 'Total Due ($US)' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object LabelTotalDue: TLabel Left = 8 Top = 73 Width = 50 Height = 13 Caption = 'Total Due:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelHandling: TLabel Left = 8 Top = 54 Width = 45 Height = 13 Caption = 'Handling:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelExtPrice: TLabel Left = 8 Top = 20 Width = 48 Height = 13 Caption = 'Ext. Price:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ExtPrice: TLabel Left = 64 Top = 20 Width = 49 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '0.00' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Handling: TLabel Left = 64 Top = 54 Width = 49 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '0.00' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object TotalDue: TLabel Left = 64 Top = 73 Width = 49 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '0.00' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object TotalLine: TShape Left = 77 Top = 70 Width = 37 Height = 1 end object LabelSalesTax: TLabel Left = 8 Top = 37 Width = 50 Height = 13 Caption = 'Sales Tax:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SalesTax: TLabel Left = 64 Top = 37 Width = 49 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '0.00' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end end object GroupBox1: TGroupBox Left = 280 Top = 104 Width = 121 Height = 77 Caption = 'Quantity && Pricing' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object LabelQuantity: TLabel Left = 8 Top = 24 Width = 42 Height = 13 Caption = '&Quantity:' FocusControl = Quantity Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object QuantityPricingButton: TButton Left = 8 Top = 47 Width = 105 Height = 25 Caption = 'Qu&antity Pricing' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = QuantityPricingButtonClick end object Quantity: TMPWEdit Left = 92 Top = 21 Width = 21 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False MaxLength = 2 TabOrder = 1 Text = '1' OnChange = QuantityChange ValidChars = '1234567890' end end object OrderNotebook: TNotebook Left = 0 Top = 0 Width = 277 Height = 185 PageIndex = 1 TabOrder = 2 object TPage Left = 0 Top = 0 Caption = 'Modules' object FrameSelectItems: TGroupBox Left = 4 Top = 8 Width = 269 Height = 173 Caption = 'Select One or More Items' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object ModuleDesc: TLabel Left = 8 Top = 96 Width = 253 Height = 57 AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object QuantityNum: TLabel Left = 222 Top = 0 Width = 31 Height = 13 Alignment = taRightJustify Caption = 'Qty 1' end object AlreadyBought: TLabel Left = 8 Top = 155 Width = 252 Height = 13 Caption = '(*) indicates an item that you already bought' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object Asterisk: TLabel Left = 12 Top = 155 Width = 6 Height = 13 Caption = '*' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object PriceBox: TMPGPriceBox Left = 8 Top = 19 Width = 253 Height = 71 TabOrder = 0 IsPreview = False OnChange = PriceBoxChange ShowWasBought = True ShowCheckBox = True OnSelect = PriceBoxSelect TrapTab = ttNone end end end object TPage Left = 0 Top = 0 Caption = 'Payment' object GroupBox4: TGroupBox Left = 4 Top = 8 Width = 269 Height = 173 Caption = 'Payment Details' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object LabelPassword: TLabel Left = 8 Top = 24 Width = 57 Height = 13 AutoSize = False Caption = '&Password:' FocusControl = Password Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelCardNumber: TLabel Left = 8 Top = 151 Width = 57 Height = 13 AutoSize = False Caption = '&Number:' FocusControl = CardNumber Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelCardHolder: TLabel Left = 8 Top = 129 Width = 57 Height = 13 AutoSize = False Caption = 'Car&dholder:' FocusControl = CardHolder Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelPayType: TLabel Left = 8 Top = 107 Width = 57 Height = 13 AutoSize = False Caption = 'Pay &Type:' FocusControl = PayType Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelCardExpires: TLabel Left = 203 Top = 151 Width = 24 Height = 13 AutoSize = False Caption = '&Exp:' FocusControl = CardExpires Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 68 Top = 44 Width = 190 Height = 13 Caption = '(make up a 6 to 32 character long code)' Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object PayType: TComboBox Left = 66 Top = 103 Width = 195 Height = 21 Style = csDropDownList Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 1 OnChange = PayTypeChange end object CardHolder: TMPWEdit Left = 66 Top = 125 Width = 195 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False MaxLength = 32 TabOrder = 2 end object CardNumber: TMPWEdit Left = 66 Top = 147 Width = 129 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False MaxLength = 19 TabOrder = 3 ValidChars = '1234567890 ' end object CardExpires: TMPWEdit Left = 228 Top = 147 Width = 33 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False MaxLength = 4 TabOrder = 4 ValidChars = '1234567890' end object Password: TMPWEdit Left = 66 Top = 20 Width = 195 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False MaxLength = 32 TabOrder = 0 CharCase = ecUpperCase end end end end end end end object HelpButton: TButton Left = 158 Top = 228 Width = 47 Height = 25 Caption = '&Help' TabOrder = 2 OnClick = HelpButtonClick end object CancelButton: TButton Left = 261 Top = 228 Width = 48 Height = 25 Caption = '&Cancel' Enabled = False TabOrder = 4 OnClick = CancelButtonClick end object BackButton: TButton Left = 312 Top = 228 Width = 53 Height = 25 Caption = '<- &Back' TabOrder = 5 OnClick = BackButtonClick end object NextButton: TButton Left = 368 Top = 228 Width = 52 Height = 25 Caption = '&Next ->' Enabled = False TabOrder = 1 OnClick = NextButtonClick end object OptionsButton: TMPGMenuButton Left = 208 Top = 228 Width = 50 Height = 25 Caption = '&Options' PopupMenu = OptionsPopup TabOrder = 3 end object EditMenu: TPopupMenu OnPopup = EditMenuPopup Left = 384 Top = 4 object EditUndo: TMenuItem Caption = '&Undo' ShortCut = 0 OnClick = EditUndoClick end object EditBar1: TMenuItem Caption = '-' ShortCut = 0 end object EditCut: TMenuItem Caption = 'Cu&t' ShortCut = 0 OnClick = EditCutClick end object EditCopy: TMenuItem Caption = '&Copy' ShortCut = 0 OnClick = EditCopyClick end object EditPaste: TMenuItem Caption = '&Paste' ShortCut = 0 OnClick = EditPasteClick end object EditDelete: TMenuItem Caption = '&Delete' ShortCut = 0 OnClick = EditDeleteClick end object EditBar2: TMenuItem Caption = '-' ShortCut = 0 end object EditSelectAll: TMenuItem Caption = 'Select &All' ShortCut = 0 OnClick = EditSelectAllClick end end object OptionsPopup: TPopupMenu Left = 356 Top = 4 object OptionsPopupPrePaid: TMenuItem Caption = '&Pre-Paid Registration...' ShortCut = 0 OnClick = OptionsPopupPrePaidClick end object OptionsPopupManual: TMenuItem Caption = '&Manual/Re-Registration...' ShortCut = 0 OnClick = OptionsPopupManualClick end object OptionsPopupPrint: TMenuItem Caption = '&Print License Agreement...' ShortCut = 0 OnClick = OptionsPopupPrintClick end object OptionsPopupBar: TMenuItem Caption = '-' ShortCut = 0 end object OptionsPopupAbout: TMenuItem Caption = '&About Reg-O-Matic...' ShortCut = 0 OnClick = OptionsPopupAboutClick end end object Timer: TTimer Enabled = False Interval = 500 OnTimer = TimerTimer Left = 328 Top = 4 end end