Chip Hitware 6 B/CHIP_HITWARE6_B.iso/bonus/ShortKeys/SETUP.EXE/SHORTKEY.EXE/0/RCDATA/TMYORDER/TMYORDER.txt

Text File | 1998-04-06 | 12.9 KB | 706 lines

object MyOrder: TMyOrder
  Left = 10
  Top = 128
  BorderStyle = bsDialog
  Caption = 'Order Entry'
  ClientHeight = 445
  ClientWidth = 632
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Bevel2: TBevel
    Left = 4
    Top = 196
    Width = 269
    Height = 157
    Shape = bsFrame
    Style = bsRaised
  end
  object Bevel1: TBevel
    Left = 4
    Top = 32
    Width = 517
    Height = 161
    Shape = bsFrame
    Style = bsRaised
  end
  object Label1: TLabel
    Left = 12
    Top = 45
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Name'
  end
  object Label2: TLabel
    Left = 12
    Top = 70
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Company'
  end
  object Label3: TLabel
    Left = 408
    Top = 170
    Width = 29
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Fax'
  end
  object Label4: TLabel
    Left = 12
    Top = 170
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Work Phone'
  end
  object Label5: TLabel
    Left = 12
    Top = 145
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Province'
  end
  object Label6: TLabel
    Left = 12
    Top = 120
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'City'
  end
  object Label7: TLabel
    Left = 12
    Top = 95
    Width = 81
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Address'
  end
  object Visa: TImage
    Left = 528
    Top = 4
    Width = 97
    Height = 60
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object MasterCard: TImage
    Left = 528
    Top = 72
    Width = 97
    Height = 60
    Picture.Data = {<image001.bmp>}
    Stretch = True
  end
  object Amex: TImage
    Left = 528
    Top = 140
    Width = 97
    Height = 60
    Picture.Data = {<image002.bmp>}
    Stretch = True
  end
  object Discover: TImage
    Left = 528
    Top = 208
    Width = 97
    Height = 60
    Picture.Data = {<image003.bmp>}
    Stretch = True
  end
  object Label8: TLabel
    Left = 248
    Top = 120
    Width = 45
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'State'
  end
  object Label9: TLabel
    Left = 264
    Top = 145
    Width = 69
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Country'
  end
  object Label10: TLabel
    Left = 204
    Top = 170
    Width = 89
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Home Phone'
  end
  object Zip: TLabel
    Left = 360
    Top = 120
    Width = 37
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Zip'
  end
  object Label11: TLabel
    Left = 8
    Top = 205
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Quantity'
  end
  object Label12: TLabel
    Left = 8
    Top = 230
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Currency'
  end
  object Label13: TLabel
    Left = 8
    Top = 255
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Shipping'
  end
  object Label14: TLabel
    Left = 8
    Top = 280
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Payment'
  end
  object CredCardLab: TLabel
    Left = 8
    Top = 305
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Cred Card'
  end
  object ExpLab: TLabel
    Left = 8
    Top = 328
    Width = 77
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Exp Date'
  end
  object Bevel3: TBevel
    Left = 276
    Top = 196
    Width = 245
    Height = 157
    Shape = bsFrame
    Style = bsRaised
  end
  object Label18: TLabel
    Left = 280
    Top = 204
    Width = 233
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = 'Where did you hear about our product?'
  end
  object Label19: TLabel
    Left = 284
    Top = 252
    Width = 221
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = 'Comments'
  end
  object Label15: TLabel
    Left = 308
    Top = 45
    Width = 45
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'E-Mail'
  end
  object Panel1: TPanel
    Left = 4
    Top = 356
    Width = 517
    Height = 85
    Color = clTeal
    TabOrder = 27
    object Label20: TLabel
      Left = 4
      Top = 4
      Width = 65
      Height = 16
      AutoSize = False
      Caption = 'Remit To:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Company1: TLabel
      Left = 72
      Top = 4
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company1'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Company2: TLabel
      Left = 72
      Top = 20
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company2'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Company3: TLabel
      Left = 72
      Top = 36
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company3'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Company4: TLabel
      Left = 72
      Top = 52
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company4'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Company5: TLabel
      Left = 72
      Top = 68
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Company5'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Price: TLabel
      Left = 368
      Top = 4
      Width = 49
      Height = 16
      AutoSize = False
      Caption = 'Price:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 368
      Top = 20
      Width = 49
      Height = 16
      AutoSize = False
      Caption = 'S&&H:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 368
      Top = 36
      Width = 41
      Height = 16
      AutoSize = False
      Caption = 'Tax:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 368
      Top = 56
      Width = 49
      Height = 20
      AutoSize = False
      Caption = 'Total:'
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object PriceTotal: TLabel
      Left = 420
      Top = 56
      Width = 89
      Height = 20
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object PriceFirst: TLabel
      Left = 420
      Top = 4
      Width = 93
      Height = 16
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object PriceShipping: TLabel
      Left = 420
      Top = 20
      Width = 93
      Height = 16
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object PriceTax: TLabel
      Left = 420
      Top = 36
      Width = 93
      Height = 16
      AutoSize = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object Name: TEdit
    Left = 100
    Top = 40
    Width = 205
    Height = 23
    MaxLength = 60
    TabOrder = 0
  end
  object Company: TEdit
    Left = 100
    Top = 65
    Width = 413
    Height = 23
    MaxLength = 70
    TabOrder = 2
  end
  object Fax: TEdit
    Left = 444
    Top = 165
    Width = 69
    Height = 23
    MaxLength = 20
    TabOrder = 11
  end
  object WorkPhone: TEdit
    Left = 100
    Top = 165
    Width = 101
    Height = 23
    MaxLength = 20
    TabOrder = 9
  end
  object Province: TEdit
    Left = 100
    Top = 140
    Width = 157
    Height = 23
    MaxLength = 30
    TabOrder = 7
  end
  object City: TEdit
    Left = 100
    Top = 115
    Width = 141
    Height = 23
    MaxLength = 30
    TabOrder = 4
  end
  object AddressLine: TEdit
    Left = 100
    Top = 90
    Width = 413
    Height = 23
    MaxLength = 70
    TabOrder = 3
  end
  object HomePhone: TEdit
    Left = 300
    Top = 165
    Width = 101
    Height = 23
    MaxLength = 20
    TabOrder = 10
  end
  object Country: TEdit
    Left = 348
    Top = 140
    Width = 165
    Height = 23
    MaxLength = 40
    TabOrder = 8
  end
  object State: TComboBox
    Left = 300
    Top = 115
    Width = 53
    Height = 23
    Style = csDropDownList
    DropDownCount = 15
    ItemHeight = 15
    TabOrder = 5
    OnChange = StateChange
  end
  object ZipCode: TEdit
    Left = 404
    Top = 115
    Width = 109
    Height = 23
    MaxLength = 12
    TabOrder = 6
  end
  object Quantity: TEdit
    Left = 92
    Top = 200
    Width = 41
    Height = 23
    MaxLength = 4
    TabOrder = 12
    OnExit = QuantityExit
  end
  object Currency: TComboBox
    Left = 92
    Top = 225
    Width = 173
    Height = 23
    Style = csDropDownList
    ItemHeight = 15
    TabOrder = 13
    OnChange = CurrencyChange
  end
  object Shipping: TComboBox
    Left = 92
    Top = 250
    Width = 173
    Height = 23
    Style = csDropDownList
    ItemHeight = 15
    TabOrder = 14
    OnChange = ShippingChange
  end
  object Payment: TComboBox
    Left = 92
    Top = 275
    Width = 173
    Height = 23
    Style = csDropDownList
    ItemHeight = 15
    TabOrder = 15
    OnChange = PaymentChange
  end
  object CredCard1: TEdit
    Left = 92
    Top = 300
    Width = 41
    Height = 23
    MaxLength = 4
    TabOrder = 16
  end
  object CredCard2: TEdit
    Left = 136
    Top = 300
    Width = 41
    Height = 23
    MaxLength = 4
    TabOrder = 17
  end
  object CredCard3: TEdit
    Left = 180
    Top = 300
    Width = 41
    Height = 23
    MaxLength = 4
    TabOrder = 18
  end
  object CredCard4: TEdit
    Left = 224
    Top = 300
    Width = 41
    Height = 23
    MaxLength = 4
    TabOrder = 19
  end
  object ExpDate1: TEdit
    Left = 92
    Top = 325
    Width = 29
    Height = 23
    MaxLength = 2
    TabOrder = 20
  end
  object ExpDate2: TEdit
    Left = 128
    Top = 325
    Width = 29
    Height = 23
    MaxLength = 2
    TabOrder = 21
  end
  object NameOfSource: TEdit
    Left = 280
    Top = 224
    Width = 233
    Height = 23
    MaxLength = 60
    TabOrder = 22
  end
  object Comments: TMemo
    Left = 280
    Top = 272
    Width = 233
    Height = 77
    Lines.Strings = (
      'Comments')
    MaxLength = 2000
    TabOrder = 23
  end
  object PrintButton: TButton
    Left = 524
    Top = 276
    Width = 105
    Height = 65
    Caption = '&Print'
    Font.Color = clBlack
    Font.Height = -18
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 24
    OnClick = PrintButtonClick
  end
  object OtherButton: TButton
    Left = 524
    Top = 348
    Width = 105
    Height = 45
    Caption = '&Other Products'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 25
    OnClick = OtherButtonClick
  end
  object ExitButton: TButton
    Left = 523
    Top = 400
    Width = 105
    Height = 37
    Caption = 'E&xit'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 26
    OnClick = ExitButtonClick
  end
  object panel2: TPanel
    Left = 4
    Top = 0
    Width = 517
    Height = 29
    Caption = 'Click here to order via our web site at www.wintools.com'
    Color = clRed
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 28
    OnClick = panel2Click
  end
  object EMail: TEdit
    Left = 360
    Top = 40
    Width = 153
    Height = 23
    MaxLength = 60
    TabOrder = 1
  end
  object MyPrintDialog: TPrintDialog
    Left = 524
    Top = 324
  end
end