Chip 2001 August/Chip_2001-08_cd2.bin/kancelar/busicard/BCDP2000.EXE/bcdp.exe/0/RCDATA/TOWMAINFORM/TOWMAINFORM.txt

Text File | 2000-10-20 | 38.2 KB | 1,489 lines

object OWMainForm: TOWMainForm
  Left = 229
  Top = 115
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Order Wizard'
  ClientHeight = 425
  ClientWidth = 535
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 535
    Height = 385
    ActivePage = WelcomeSheet
    Align = alTop
    HotTrack = True
    TabOrder = 0
    OnChanging = PageControl1Changing
    object WelcomeSheet: TTabSheet
      Caption = 'Welcome'
      TabVisible = False
      OnHide = WelcomeSheetHide
      object Label18: TLabel
        Left = 138
        Top = 16
        Width = 242
        Height = 24
        Caption = 'Welcome to Order Wizard'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
      end
      object Label27: TLabel
        Left = 63
        Top = 52
        Width = 402
        Height = 45
        Alignment = taCenter
        AutoSize = False
        Caption =
          'The Order Wizard allows you to purchase professionally printed c' +
          'opies of your design over the Internet using your credit card, c' +
          'heck or money order.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label28: TLabel
        Left = 75
        Top = 148
        Width = 420
        Height = 39
        AutoSize = False
        Caption =
          'To use the Order Wizard you must have a connection to the Intern' +
          'et.  If you are not currently connected to the Internet and you ' +
          'connect manually, please establish a connection before proceedin' +
          'g.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label29: TLabel
        Left = 166
        Top = 344
        Width = 214
        Height = 13
        Alignment = taCenter
        Caption = 'To continue click the Next >> button.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Bevel1: TBevel
        Left = 8
        Top = 236
        Width = 511
        Height = 13
        Shape = bsTopLine
      end
      object Image3: TImage
        Left = 24
        Top = 152
        Width = 35
        Height = 37
        AutoSize = True
        Picture.Data = {<image000.bmp>}
      end
      object Bevel3: TBevel
        Left = 8
        Top = 320
        Width = 511
        Height = 13
        Shape = bsTopLine
      end
      object Bevel8: TBevel
        Left = 8
        Top = 100
        Width = 511
        Height = 13
        Shape = bsTopLine
      end
      object GroupBox4: TGroupBox
        Left = 12
        Top = 254
        Width = 501
        Height = 57
        Caption =
          'If you use a proxy server to connect to the Internet fill in the' +
          'se settings, otherwise leave them blank.'
        TabOrder = 0
        object Label42: TLabel
          Left = 16
          Top = 28
          Width = 63
          Height = 13
          Caption = 'Proxy Server:'
        end
        object Label44: TLabel
          Left = 305
          Top = 28
          Width = 51
          Height = 13
          Caption = 'Proxy Port:'
        end
        object ProxyServerEdit: TEdit
          Left = 88
          Top = 24
          Width = 193
          Height = 21
          Hint = 'Enter the name of your proxy server here.'
          TabOrder = 0
        end
        object ProxyPortEdit: TEdit
          Left = 369
          Top = 24
          Width = 49
          Height = 21
          Hint = 'Enter the port number for you proxy server here.'
          TabOrder = 1
        end
      end
    end
    object ProductSheet: TTabSheet
      Caption = 'Products'
      TabVisible = False
      object Label16: TLabel
        Left = 4
        Top = 8
        Width = 481
        Height = 17
        AutoSize = False
        Caption =
          'Use the pages below to choose the items and quantity you wish to' +
          ' order.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object PageControl2: TPageControl
        Left = 0
        Top = 32
        Width = 527
        Height = 302
        ActivePage = Product1Sheet
        Align = alBottom
        TabOrder = 0
        TabPosition = tpBottom
        object Product1Sheet: TTabSheet
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          object Label12: TLabel
            Left = 12
            Top = 188
            Width = 52
            Height = 13
            Caption = 'Quantity:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Product1MinQtyLabel: TLabel
            Left = 124
            Top = 188
            Width = 33
            Height = 13
            Caption = 'MinQty'
          end
          object Product1INShipLabel: TLabel
            Left = 300
            Top = 216
            Width = 189
            Height = 57
            AutoSize = False
            Caption =
              'International shipping charges vary.  International customers wi' +
              'll be contacted with the exact shipping amount before the order ' +
              'is processed.'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            WordWrap = True
          end
          object Product1QtyEdit: TEdit
            Left = 72
            Top = 184
            Width = 37
            Height = 21
            MaxLength = 5
            TabOrder = 2
          end
          object Product1ShipRadioGroup: TRadioGroup
            Left = 296
            Top = 120
            Width = 193
            Height = 93
            Caption = 'Shipment Options'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 5
            TabStop = True
          end
          object GroupBox1: TGroupBox
            Left = 296
            Top = 0
            Width = 193
            Height = 113
            Caption = 'Pricing'
            TabOrder = 4
            object Product1PriceHeaderLabel: TLabel
              Left = 16
              Top = 12
              Width = 3
              Height = 13
            end
            object Product1ScheduleMemo: TMemo
              Left = 16
              Top = 28
              Width = 173
              Height = 77
              TabStop = False
              BorderStyle = bsNone
              Color = clBtnFace
              ReadOnly = True
              ScrollBars = ssVertical
              TabOrder = 0
            end
          end
          object Product1FilePanel: TPanel
            Left = 0
            Top = 212
            Width = 289
            Height = 61
            TabOrder = 3
            object Label1: TLabel
              Left = 13
              Top = 12
              Width = 25
              Height = 13
              Caption = 'File:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
            end
            object Product1FileEdit: TEdit
              Left = 40
              Top = 8
              Width = 209
              Height = 21
              TabStop = False
              Color = clBtnFace
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 0
            end
            object Product1ChooseFileBtn: TBitBtn
              Left = 256
              Top = 6
              Width = 29
              Height = 25
              Caption = '...'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              OnClick = Product1ChooseFileBtnClick
            end
          end
          object Product1OptionsRadioGroup: TRadioGroup
            Left = 8
            Top = 88
            Width = 269
            Height = 85
            Caption = 'Options'
            TabOrder = 1
            TabStop = True
          end
          object Product1DescRichEdit: TRichEdit
            Left = 8
            Top = 4
            Width = 269
            Height = 81
            TabStop = False
            HideScrollBars = False
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 0
          end
        end
        object Product2Sheet: TTabSheet
          object Label40: TLabel
            Left = 12
            Top = 188
            Width = 52
            Height = 13
            Caption = 'Quantity:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Product2MinQtyLabel: TLabel
            Left = 124
            Top = 188
            Width = 33
            Height = 13
            Caption = 'MinQty'
          end
          object Product2INShipLabel: TLabel
            Left = 300
            Top = 216
            Width = 185
            Height = 57
            AutoSize = False
            Caption =
              'International shipping charges vary.  Internatinal customers wil' +
              'l be contacted with the exact shipping amount before the order i' +
              's processed.'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            WordWrap = True
          end
          object Product2QtyEdit: TEdit
            Left = 72
            Top = 184
            Width = 37
            Height = 21
            MaxLength = 5
            TabOrder = 2
          end
          object GroupBox2: TGroupBox
            Left = 296
            Top = 0
            Width = 193
            Height = 113
            Caption = 'Pricing'
            TabOrder = 4
            object Product2PriceHeaderLabel: TLabel
              Left = 16
              Top = 12
              Width = 3
              Height = 13
            end
            object Product2ScheduleMemo: TMemo
              Left = 16
              Top = 28
              Width = 173
              Height = 77
              TabStop = False
              BorderStyle = bsNone
              Color = clBtnFace
              ReadOnly = True
              ScrollBars = ssVertical
              TabOrder = 0
            end
          end
          object Product2ShipRadioGroup: TRadioGroup
            Left = 296
            Top = 120
            Width = 193
            Height = 93
            Caption = 'Shipment Options'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 5
            TabStop = True
          end
          object Product2OptionsRadioGroup: TRadioGroup
            Left = 8
            Top = 88
            Width = 269
            Height = 85
            Caption = 'Options'
            TabOrder = 1
            TabStop = True
          end
          object Product2FilePanel: TPanel
            Left = 0
            Top = 212
            Width = 289
            Height = 61
            TabOrder = 3
            object Label41: TLabel
              Left = 13
              Top = 12
              Width = 25
              Height = 13
              Caption = 'File:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
            end
            object Product2FileEdit: TEdit
              Left = 40
              Top = 8
              Width = 209
              Height = 21
              TabStop = False
              Color = clBtnFace
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 0
            end
            object BitBtn1: TBitBtn
              Left = 256
              Top = 6
              Width = 29
              Height = 25
              Caption = '...'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              OnClick = Product2ChooseFileBtnClick
            end
          end
          object Product2DescRichEdit: TRichEdit
            Left = 8
            Top = 4
            Width = 269
            Height = 81
            TabStop = False
            HideScrollBars = False
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 0
          end
        end
        object Product3Sheet: TTabSheet
          object Label45: TLabel
            Left = 12
            Top = 188
            Width = 52
            Height = 13
            Caption = 'Quantity:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Product3MinQtyLabel: TLabel
            Left = 124
            Top = 188
            Width = 33
            Height = 13
            Caption = 'MinQty'
          end
          object Product3INShipLabel: TLabel
            Left = 300
            Top = 216
            Width = 185
            Height = 57
            AutoSize = False
            Caption =
              'International shipping charges vary.  Internatinal customers wil' +
              'l be contacted with the exact shipping amount before the order i' +
              's processed.'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            WordWrap = True
          end
          object Product3QtyEdit: TEdit
            Left = 72
            Top = 184
            Width = 37
            Height = 21
            MaxLength = 5
            TabOrder = 2
          end
          object GroupBox3: TGroupBox
            Left = 296
            Top = 0
            Width = 193
            Height = 113
            Caption = 'Pricing'
            TabOrder = 4
            object Product3PriceHeaderLabel: TLabel
              Left = 16
              Top = 12
              Width = 3
              Height = 13
            end
            object Product3ScheduleMemo: TMemo
              Left = 16
              Top = 28
              Width = 173
              Height = 77
              TabStop = False
              BorderStyle = bsNone
              Color = clBtnFace
              ReadOnly = True
              ScrollBars = ssVertical
              TabOrder = 0
            end
          end
          object Product3ShipRadioGroup: TRadioGroup
            Left = 296
            Top = 120
            Width = 193
            Height = 93
            Caption = 'Shipment Options'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 5
            TabStop = True
          end
          object Product3OptionsRadioGroup: TRadioGroup
            Left = 8
            Top = 88
            Width = 269
            Height = 85
            Caption = 'Options'
            TabOrder = 1
            TabStop = True
          end
          object Product3FilePanel: TPanel
            Left = 0
            Top = 212
            Width = 289
            Height = 61
            TabOrder = 3
            object Label43: TLabel
              Left = 13
              Top = 12
              Width = 25
              Height = 13
              Caption = 'File:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
            end
            object Product3FileEdit: TEdit
              Left = 40
              Top = 8
              Width = 209
              Height = 21
              TabStop = False
              Color = clBtnFace
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 0
            end
            object Product3ChooseFileBtn: TBitBtn
              Left = 256
              Top = 6
              Width = 29
              Height = 25
              Caption = '...'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              OnClick = Product3ChooseFileBtnClick
            end
          end
          object Product3DescRichEdit: TRichEdit
            Left = 8
            Top = 4
            Width = 269
            Height = 81
            TabStop = False
            HideScrollBars = False
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 0
          end
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 334
        Width = 527
        Height = 41
        Align = alBottom
        TabOrder = 1
        object Label34: TLabel
          Left = 14
          Top = 4
          Width = 499
          Height = 33
          Alignment = taCenter
          AutoSize = False
          Caption =
            'Fields in bold are required fields.  Required fields must be com' +
            'pleted accurately and completely or your order will not be proce' +
            'ssed.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
      end
    end
    object BISheet: TTabSheet
      Caption = '&Billing Information'
      TabVisible = False
      object Label2: TLabel
        Left = 4
        Top = 57
        Width = 37
        Height = 13
        Caption = 'Name:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 4
        Top = 81
        Width = 50
        Height = 13
        Caption = 'Address:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 4
        Top = 129
        Width = 26
        Height = 13
        Caption = 'City:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 276
        Top = 129
        Width = 35
        Height = 13
        Caption = 'State:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 384
        Top = 129
        Width = 23
        Height = 13
        Caption = 'Zip:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 4
        Top = 153
        Width = 56
        Height = 13
        Caption = 'Day Phone:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 4
        Top = 181
        Width = 20
        Height = 13
        Caption = 'Fax:'
      end
      object EveningPhoneEdit: TLabel
        Left = 200
        Top = 153
        Width = 59
        Height = 13
        Caption = 'Eve. Phone:'
      end
      object Label10: TLabel
        Left = 200
        Top = 177
        Width = 39
        Height = 13
        Caption = 'E-mail:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Image1: TImage
        Left = 368
        Top = 264
        Width = 24
        Height = 32
        AutoSize = True
        Picture.Data = {<image001.bmp>}
      end
      object Label33: TLabel
        Left = 400
        Top = 248
        Width = 121
        Height = 77
        AutoSize = False
        Caption =
          'All your information is encrypted and transmitted securely over ' +
          'the Internet to protect your privacy.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label26: TLabel
        Left = 4
        Top = 0
        Width = 496
        Height = 39
        Caption =
          'Enter your billing information below.  The address entered here ' +
          'MUST match the address on your credit card.  You will be able to' +
          ' specify a different shipping address on the next screen if you ' +
          'wish.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Bevel2: TBevel
        Left = 8
        Top = 200
        Width = 510
        Height = 9
        Shape = bsTopLine
      end
      object Bevel4: TBevel
        Left = 4
        Top = 44
        Width = 511
        Height = 13
        Shape = bsTopLine
      end
      object Label37: TLabel
        Left = 356
        Top = 57
        Width = 48
        Height = 13
        Caption = 'Country:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label39: TLabel
        Left = 8
        Top = 260
        Width = 329
        Height = 53
        AutoSize = False
        Caption =
          'As we process your order someone will contact you with instructi' +
          'ons for sending payment.  Please make sure you have filled in a ' +
          'phone number and/or e-mail address above.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object NameEdit: TEdit
        Left = 64
        Top = 53
        Width = 197
        Height = 21
        MaxLength = 49
        TabOrder = 0
      end
      object Addr1Edit: TEdit
        Left = 64
        Top = 77
        Width = 305
        Height = 21
        MaxLength = 49
        TabOrder = 2
      end
      object Addr2Edit: TEdit
        Left = 64
        Top = 101
        Width = 305
        Height = 21
        MaxLength = 49
        TabOrder = 3
      end
      object CityEdit: TEdit
        Left = 64
        Top = 125
        Width = 201
        Height = 21
        MaxLength = 39
        TabOrder = 4
      end
      object StateEdit: TEdit
        Left = 316
        Top = 125
        Width = 57
        Height = 21
        MaxLength = 19
        TabOrder = 5
      end
      object ZipEdit: TEdit
        Left = 416
        Top = 125
        Width = 89
        Height = 21
        MaxLength = 19
        TabOrder = 6
      end
      object DayPhoneEdit: TEdit
        Left = 64
        Top = 149
        Width = 121
        Height = 21
        MaxLength = 19
        TabOrder = 7
      end
      object FaxEdit: TEdit
        Left = 64
        Top = 173
        Width = 121
        Height = 21
        MaxLength = 19
        TabOrder = 9
      end
      object EvePhoneEdit: TEdit
        Left = 264
        Top = 149
        Width = 121
        Height = 21
        MaxLength = 19
        TabOrder = 8
      end
      object EmailEdit: TEdit
        Left = 264
        Top = 173
        Width = 213
        Height = 21
        MaxLength = 99
        TabOrder = 10
      end
      object Panel1: TPanel
        Left = 0
        Top = 338
        Width = 527
        Height = 37
        Align = alBottom
        TabOrder = 13
        object Label25: TLabel
          Left = 22
          Top = 4
          Width = 467
          Height = 29
          Alignment = taCenter
          AutoSize = False
          Caption =
            'Fields in bold are required fields.  Required fields must be com' +
            'pleted accurately and completely or your order will not be proce' +
            'ssed.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
      end
      object CountryEdit: TEdit
        Left = 416
        Top = 53
        Width = 89
        Height = 21
        MaxLength = 29
        TabOrder = 1
        Text = 'USA'
      end
      object CCPanel: TPanel
        Left = 4
        Top = 240
        Width = 357
        Height = 93
        TabOrder = 12
        object Label23: TLabel
          Left = 128
          Top = 16
          Width = 80
          Height = 13
          Caption = 'Credit Card #:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label24: TLabel
          Left = 128
          Top = 48
          Width = 109
          Height = 13
          Caption = 'Exp. Date (mm/yy):'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object CCRadioGroup: TRadioGroup
          Left = 4
          Top = 8
          Width = 117
          Height = 77
          Caption = 'Credit Card Type'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemIndex = 0
          Items.Strings = (
            'Visa'
            'MasterCard'
            'AMEX'
            'Discover')
          ParentFont = False
          TabOrder = 0
        end
        object CCNoEdit: TEdit
          Left = 216
          Top = 12
          Width = 133
          Height = 21
          MaxLength = 29
          TabOrder = 1
        end
        object CCExpDateEdit: TEdit
          Left = 240
          Top = 44
          Width = 65
          Height = 21
          TabOrder = 2
        end
      end
      object PhoneCheck: TCheckBox
        Left = 8
        Top = 216
        Width = 505
        Height = 17
        Caption =
          'I prefer to give my credit card information by phone or pay by c' +
          'heck or money order.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 11
        OnClick = PhoneCheckClick
      end
    end
    object SISheet: TTabSheet
      Caption = '&Shipping Information'
      TabVisible = False
      object Label11: TLabel
        Left = 8
        Top = 71
        Width = 31
        Height = 13
        Caption = 'Name:'
      end
      object Label13: TLabel
        Left = 8
        Top = 107
        Width = 41
        Height = 13
        Caption = 'Address:'
      end
      object Label15: TLabel
        Left = 8
        Top = 170
        Width = 20
        Height = 13
        Caption = 'City:'
      end
      object Label19: TLabel
        Left = 375
        Top = 171
        Width = 18
        Height = 13
        Caption = 'Zip:'
      end
      object Label20: TLabel
        Left = 268
        Top = 171
        Width = 28
        Height = 13
        Caption = 'State:'
      end
      object Label21: TLabel
        Left = 4
        Top = 6
        Width = 478
        Height = 26
        Caption =
          'Enter the shipping address below only if it is different than yo' +
          'ur billing address.  The shipping address is where your order wi' +
          'll be shipped.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label22: TLabel
        Left = 4
        Top = 219
        Width = 208
        Height = 13
        Caption = 'Special Instructions, Comments, Notes, etc.:'
      end
      object Bevel5: TBevel
        Left = 8
        Top = 43
        Width = 511
        Height = 13
        Shape = bsTopLine
      end
      object Label38: TLabel
        Left = 352
        Top = 75
        Width = 39
        Height = 13
        Caption = 'Country:'
      end
      object Bevel6: TBevel
        Left = 8
        Top = 247
        Width = 511
        Height = 13
        Shape = bsTopLine
      end
      object ShipCityEdit: TEdit
        Left = 56
        Top = 167
        Width = 201
        Height = 21
        MaxLength = 39
        TabOrder = 4
      end
      object ShipStateEdit: TEdit
        Left = 304
        Top = 167
        Width = 57
        Height = 21
        MaxLength = 19
        TabOrder = 5
      end
      object ShipAddr2Edit: TEdit
        Left = 56
        Top = 135
        Width = 305
        Height = 21
        MaxLength = 49
        TabOrder = 3
      end
      object ShipAddr1Edit: TEdit
        Left = 56
        Top = 103
        Width = 305
        Height = 21
        MaxLength = 49
        TabOrder = 2
      end
      object ShipNameEdit: TEdit
        Left = 56
        Top = 71
        Width = 197
        Height = 21
        MaxLength = 49
        TabOrder = 0
      end
      object ShipZipEdit: TEdit
        Left = 400
        Top = 167
        Width = 89
        Height = 21
        MaxLength = 19
        TabOrder = 6
      end
      object ShipNotesMemo: TMemo
        Left = 4
        Top = 239
        Width = 513
        Height = 89
        MaxLength = 255
        ScrollBars = ssVertical
        TabOrder = 7
      end
      object ShipCountryEdit: TEdit
        Left = 400
        Top = 71
        Width = 89
        Height = 21
        MaxLength = 29
        TabOrder = 1
        Text = 'USA'
      end
      object Panel3: TPanel
        Left = 0
        Top = 338
        Width = 527
        Height = 37
        Align = alBottom
        TabOrder = 8
        object Label14: TLabel
          Left = 15
          Top = 12
          Width = 497
          Height = 13
          Alignment = taCenter
          Caption =
            'If you do not enter a shipping address your order will be shippe' +
            'd to your billing address.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
      end
    end
    object FinishSheet: TTabSheet
      Caption = 'Finish'
      TabVisible = False
      OnShow = FinishSheetShow
      object Label30: TLabel
        Left = 3
        Top = 8
        Width = 522
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption =
          'Please review the summary below carefully before submitting your' +
          ' order.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label31: TLabel
        Left = 12
        Top = 40
        Width = 487
        Height = 13
        Caption =
          'If there is an error in the summary click the << Back button bel' +
          'ow to correct the error.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label32: TLabel
        Left = 12
        Top = 60
        Width = 509
        Height = 37
        AutoSize = False
        Caption =
          'When you have reviewed the summary carefully and are satisfied c' +
          'lick the Submit Order button to place your order'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label36: TLabel
        Left = 12
        Top = 336
        Width = 312
        Height = 13
        Caption =
          'We will contact you within 2-3 business days to confirm your ord' +
          'er.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Bevel7: TBevel
        Left = 8
        Top = 32
        Width = 511
        Height = 13
        Shape = bsTopLine
      end
      object Label4: TLabel
        Left = 12
        Top = 354
        Width = 465
        Height = 13
        Caption =
          'If you have any questions please click the Help buton below for ' +
          'information on how to contact us.  '
      end
      object SummaryMemo: TMemo
        Left = 12
        Top = 96
        Width = 389
        Height = 229
        TabStop = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object SubmitBtn: TBitBtn
        Left = 412
        Top = 191
        Width = 105
        Height = 45
        Caption = '&Submit Order'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = SubmitBtnClick
      end
    end
    object MsgSheet: TTabSheet
      TabVisible = False
      object MsgRichEdit: TRichEdit
        Left = 4
        Top = 8
        Width = 517
        Height = 361
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object CancelBtn: TBitBtn
    Left = 352
    Top = 395
    Width = 75
    Height = 25
    Cancel = True
    Caption = '&Cancel'
    TabOrder = 3
    OnClick = CancelBtnClick
  end
  object NextBtn: TBitBtn
    Left = 256
    Top = 395
    Width = 75
    Height = 25
    Caption = '&Next >>'
    TabOrder = 2
    OnClick = NextBtnClick
  end
  object BackBtn: TBitBtn
    Left = 180
    Top = 395
    Width = 75
    Height = 25
    Caption = '<< &Back'
    Enabled = False
    TabOrder = 1
    OnClick = BackBtnClick
  end
  object HelpBtn: TBitBtn
    Left = 448
    Top = 395
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 4
    Visible = False
    OnClick = HelpBtnClick
  end
  object OpenDialog: TOpenDialog
    Filter = 'All Files|*.*'
    Title = 'Select File'
    Left = 40
    Top = 395
  end
  object FTP: TNMFTP
    Port = 21
    TimeOut = 60000
    ReportLevel = 0
    UserID = 'anonymous'
    Password = '[e-mail]'
    Vendor = 1
    ParseList = False
    ProxyPort = 0
    Passive = False
    FirewallType = FTUser
    FWAuthenticate = False
    Left = 8
    Top = 395
  end
  object HTTP: TNMHTTP
    Port = 80
    TimeOut = 30000
    ReportLevel = 0
    Body = 'NetMsg.msg'
    Header = 'NetHdr.msg'
    InputFileMode = False
    OutputFileMode = False
    ProxyPort = 0
    Left = 69
    Top = 396
  end
end