home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 February
/
PCWorld_1999-02_cd.bin
/
temacd
/
DataArm
/
_SETUP.1
/
mpw32.dll
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
< prev
Wrap
Text File
|
1998-05-25
|
34KB
|
1,279 lines
object MainForm: TMainForm
Left = 294
Top = 121
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'MainForm'
ClientHeight = 259
ClientWidth = 428
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Position = poScreenCenter
OnClose = FormClose
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = QuantityPricingButtonClick
end
object Quantity: TMPWEdit
Left = 88
Top = 21
Width = 25
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
MaxLength = 4
TabOrder = 1
Text = '1'
OnChange = QuantityChange
ValidChars = '1234567890'
end
end
object OrderNotebook: TNotebook
Left = 0
Top = 0
Width = 277
Height = 185
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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.Charset = DEFAULT_CHARSET
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'
OnClick = EditUndoClick
end
object EditBar1: TMenuItem
Caption = '-'
end
object EditCut: TMenuItem
Caption = 'Cu&t'
OnClick = EditCutClick
end
object EditCopy: TMenuItem
Caption = '&Copy'
OnClick = EditCopyClick
end
object EditPaste: TMenuItem
Caption = '&Paste'
OnClick = EditPasteClick
end
object EditDelete: TMenuItem
Caption = '&Delete'
OnClick = EditDeleteClick
end
object EditBar2: TMenuItem
Caption = '-'
end
object EditSelectAll: TMenuItem
Caption = 'Select &All'
OnClick = EditSelectAllClick
end
end
object OptionsPopup: TPopupMenu
Left = 356
Top = 4
object OptionsPopupPrePaid: TMenuItem
Caption = '&Pre-Paid Registration...'
OnClick = OptionsPopupPrePaidClick
end
object OptionsPopupManual: TMenuItem
Caption = '&Manual/Re-Registration...'
OnClick = OptionsPopupManualClick
end
object OptionsPopupPrint: TMenuItem
Caption = '&Print License Agreement...'
OnClick = OptionsPopupPrintClick
end
object OptionsPopupBar: TMenuItem
Caption = '-'
end
object OptionsPopupAbout: TMenuItem
Caption = '&About Reg-O-Matic...'
OnClick = OptionsPopupAboutClick
end
end
object Timer: TTimer
Enabled = False
Interval = 500
OnTimer = TimerTimer
Left = 328
Top = 4
end
end
