Chip Hitware 6 B/CHIP_HITWARE6_B.iso/biuro/CreditCardMath/_SETUP.1/ccm3220.exe/0/RCDATA/TORDERFORM1/TORDERFORM1.txt

Text File | 1998-05-02 | 19KB | 883 lines

object OrderForm1: TOrderForm1
  Left = 132
  Top = 131
  BorderStyle = bsDialog
  Caption = 'Zilch Order Form'
  ClientHeight = 453
  ClientWidth = 632
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  KeyPreview = True
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  TextHeight = 14
  object lblName: TLabel
    Left = 23
    Top = 11
    Width = 33
    Height = 13
    Caption = 'Name'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = lblNameClick
  end
  object Label2: TLabel
    Left = 23
    Top = 59
    Width = 53
    Height = 13
    Caption = 'Address2'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label2Click
  end
  object Label3: TLabel
    Left = 23
    Top = 35
    Width = 53
    Height = 13
    Caption = 'Address1'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label3Click
  end
  object Label4: TLabel
    Left = 23
    Top = 83
    Width = 22
    Height = 13
    Caption = 'City'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label4Click
  end
  object Label1: TLabel
    Left = 376
    Top = 83
    Width = 31
    Height = 13
    Caption = 'State'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label1Click
  end
  object Label5: TLabel
    Left = 471
    Top = 83
    Width = 19
    Height = 13
    Caption = 'Zip'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label5Click
  end
  object Label6: TLabel
    Left = 23
    Top = 107
    Width = 44
    Height = 13
    Caption = 'Country'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label6Click
  end
  object Label7: TLabel
    Left = 23
    Top = 132
    Width = 37
    Height = 13
    Caption = 'Phone'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label7Click
  end
  object Label8: TLabel
    Left = 21
    Top = 157
    Width = 48
    Height = 13
    Caption = 'Quantity'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = Label8Click
  end
  object Panel1: TPanel
    Left = 17
    Top = 188
    Width = 328
    Height = 150
    BevelInner = bvRaised
    BorderWidth = 2
    BorderStyle = bsSingle
    Color = clSilver
    TabOrder = 14
    object Label9: TLabel
      Left = 20
      Top = 8
      Width = 287
      Height = 32
      Caption = 'Practical Applications'
      Font.Color = clBlack
      Font.Height = -27
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label10: TLabel
      Left = 26
      Top = 42
      Width = 274
      Height = 41
      Alignment = taCenter
      AutoSize = False
      Caption = 'To order by phone call [phone] Mon-Sat 8am-5pm EST'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object Label11: TLabel
      Left = 11
      Top = 87
      Width = 302
      Height = 50
      Alignment = taCenter
      AutoSize = False
      Caption =
        'We accept Visa, Mastercard and American Express. Credit card ord' +
        'ers are shipped the next day ! Overnight delivery available for ' +
        'an additional fee.'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object Label12: TLabel
      Left = 234
      Top = 102
      Width = 48
      Height = 15
      Alignment = taCenter
      Caption = 'next day'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
      Transparent = True
    end
  end
  object Name: TEdit
    Left = 83
    Top = 8
    Width = 523
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Address2: TEdit
    Left = 83
    Top = 56
    Width = 523
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object Address1: TEdit
    Left = 83
    Top = 32
    Width = 523
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object City: TEdit
    Left = 83
    Top = 80
    Width = 288
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
  end
  object ZipCode: TEdit
    Left = 496
    Top = 80
    Width = 110
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
  end
  object Phone: TEdit
    Left = 83
    Top = 129
    Width = 134
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
  end
  object EditQty: TEdit
    Left = 83
    Top = 155
    Width = 39
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    Text = '1'
    OnExit = EditQtyExit
    OnKeyPress = EditQtyKeyPress
  end
  object State: TComboBox
    Left = 409
    Top = 81
    Width = 56
    Height = 21
    DropDownCount = 10
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemHeight = 13
    Items.Strings = (
      ''
      'AK'
      'AL'
      'AR'
      'AZ'
      'CA'
      'CO'
      'CT'
      'DC'
      'DE'
      'FL'
      'GA'
      'HI'
      'IA'
      'ID'
      'IL'
      'IN'
      'KS'
      'KY'
      'LA'
      'MA'
      'MD'
      'ME'
      'MI'
      'MN'
      'MO'
      'MS'
      'MT'
      'NC'
      'ND'
      'NE'
      'NH'
      'NJ'
      'NM'
      'NV'
      'NY'
      'OH'
      'OK'
      'OR'
      'PA'
      'RI'
      'SC'
      'SD'
      'TN'
      'TX'
      'UT'
      'VA'
      'VT'
      'WA'
      'WI'
      'WV'
      'WY')
    MaxLength = 2
    ParentFont = False
    Sorted = True
    TabOrder = 4
    OnChange = StateChange
    OnExit = StateExit
    OnKeyPress = StateKeyPress
  end
  object Country: TComboBox
    Left = 83
    Top = 104
    Width = 210
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemHeight = 13
    Items.Strings = (
      'USA'
      'United States'
      'Canada'
      'Algeria'
      'American Samoa'
      'Argentina'
      'Austria'
      'Australia'
      'Belgium'
      'Belize'
      'Bolivia'
      'Brazil'
      'Chile'
      'Columbia'
      'Costa Rica'
      'Czechoslovakia'
      'Denmark'
      'El Salvador'
      'Ethiopia'
      'Finland'
      'France'
      'Germany'
      'Greece'
      'Guam'
      'Haiti'
      'Hong Kong'
      'Hungary'
      'Iceland'
      'India'
      'Indonesia'
      'Ireland'
      'Isreal'
      'Italy'
      'Japan'
      'Kenya'
      'Kuwait'
      'Liberia'
      'Mexico'
      'Netherlands'
      'New Zealand'
      'Norway'
      'Panama'
      'Poland'
      'Portugal'
      'Spain'
      'Sweden'
      'Switzerland'
      'Venezuela'
      'United Kingdom')
    ParentFont = False
    TabOrder = 6
    OnChange = CountryChange
    OnExit = CountryExit
  end
  object Panel2: TPanel
    Left = 370
    Top = 112
    Width = 240
    Height = 219
    BevelInner = bvLowered
    ParentColor = True
    TabOrder = 9
    object Label17: TLabel
      Left = 5
      Top = 89
      Width = 80
      Height = 13
      Caption = 'Software Cost'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label18: TLabel
      Left = 5
      Top = 107
      Width = 51
      Height = 13
      Caption = 'Discount'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label19: TLabel
      Left = 5
      Top = 125
      Width = 48
      Height = 13
      Caption = 'Subtotal'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label20: TLabel
      Left = 5
      Top = 152
      Width = 88
      Height = 13
      Caption = 'Sales Tax (MD)'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label21: TLabel
      Left = 5
      Top = 170
      Width = 115
      Height = 13
      Caption = 'Shipping && Handling'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label22: TLabel
      Left = 5
      Top = 196
      Width = 103
      Height = 13
      Caption = 'Total Amount Due'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object PCost: TPanel
      Left = 134
      Top = 86
      Width = 99
      Height = 18
      Alignment = taRightJustify
      BevelInner = bvLowered
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 0
    end
    object PDiscount: TPanel
      Left = 134
      Top = 104
      Width = 99
      Height = 18
      Alignment = taRightJustify
      BevelInner = bvLowered
      Caption = 'PDiscount'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 1
    end
    object PSubtotal: TPanel
      Left = 134
      Top = 122
      Width = 99
      Height = 18
      Alignment = taRightJustify
      BevelInner = bvLowered
      Caption = 'PSubtotal'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 2
    end
    object PTax: TPanel
      Left = 134
      Top = 149
      Width = 99
      Height = 18
      Alignment = taRightJustify
      BevelInner = bvLowered
      Caption = 'PTax'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 3
    end
    object PShipping: TPanel
      Left = 134
      Top = 167
      Width = 99
      Height = 18
      Alignment = taRightJustify
      BevelInner = bvLowered
      Caption = 'PShipping'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 4
    end
    object PTotal: TPanel
      Left = 134
      Top = 193
      Width = 99
      Height = 18
      Alignment = taRightJustify
      BevelInner = bvLowered
      Caption = 'PTotal'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 5
    end
    object Panel10: TPanel
      Left = 0
      Top = 58
      Width = 240
      Height = 23
      BevelInner = bvLowered
      Caption = 'Invoice Information'
      Color = clGray
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 240
      Height = 23
      BevelInner = bvLowered
      Caption = 'Quantity Discounts'
      Color = clGray
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
    end
    object Panel4: TPanel
      Left = 1
      Top = 22
      Width = 118
      Height = 19
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = '2 to 4         10%'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 8
    end
    object Panel6: TPanel
      Left = 121
      Top = 22
      Width = 118
      Height = 19
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = '25 to 49      20%'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 9
    end
    object Panel5: TPanel
      Left = 1
      Top = 40
      Width = 118
      Height = 19
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = '5 to 24       15%'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 10
    end
    object Panel7: TPanel
      Left = 121
      Top = 40
      Width = 118
      Height = 19
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = '50 +            25%'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = True
      ParentFont = False
      TabOrder = 11
    end
  end
  object BitBtn1: TBitBtn
    Left = 18
    Top = 372
    Width = 71
    Height = 33
    Caption = 'Done'
    TabOrder = 10
    OnClick = BitBtn1Click
    Kind = bkNo
  end
  object BitBtn2: TBitBtn
    Left = 106
    Top = 372
    Width = 71
    Height = 33
    Caption = 'Print'
    TabOrder = 11
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0003377777777777777308888888888888807F333333333333370FFFFFFF1F2F
      1FF07FFFFFFFFFFFFFF70FFFFFFFFFFFFFF077777777777777770F4444444444
      44F07F333333333333F70F888888888888F07F333333333337370FFFFFFFFFFF
      FFF07FFFFFFFFFFFFFF7300000000000000337777777777777733330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object PrintShadow: TPanel
    Left = 210
    Top = 180
    Width = 215
    Height = 97
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 12
    Visible = False
  end
  object PrintStatus: TPanel
    Left = 207
    Top = 176
    Width = 215
    Height = 97
    BevelOuter = bvNone
    BorderWidth = 4
    BorderStyle = bsSingle
    Color = clWhite
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 13
    Visible = False
    object lblPrintStatus: TLabel
      Left = 18
      Top = 30
      Width = 177
      Height = 22
      Alignment = taCenter
      AutoSize = False
      Caption = 'Printing Order Form'
    end
    object Label25: TLabel
      Left = 18
      Top = 62
      Width = 177
      Height = 22
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Thank You !'
    end
    object PrintStatusTitle: TPanel
      Left = 3
      Top = 3
      Width = 209
      Height = 22
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Caption = 'Print Status'
      Color = clActiveCaption
      Ctl3D = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
    end
  end
  object Panel8: TPanel
    Left = 370
    Top = 344
    Width = 240
    Height = 98
    BevelInner = bvRaised
    BorderWidth = 2
    BorderStyle = bsSingle
    Color = clSilver
    TabOrder = 15
    object Label14: TLabel
      Left = 17
      Top = 9
      Width = 204
      Height = 16
      Alignment = taCenter
      Caption = 'Please make checks payable to:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label16: TLabel
      Left = 266
      Top = 110
      Width = 48
      Height = 15
      Alignment = taCenter
      Caption = 'next day'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
      Transparent = True
    end
    object Label13: TLabel
      Left = 68
      Top = 31
      Width = 101
      Height = 16
      Alignment = taCenter
      Caption = 'Michael J. Riley'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label15: TLabel
      Left = 43
      Top = 49
      Width = 153
      Height = 16
      Alignment = taCenter
      Caption = '11321D Snow Owl Place'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label23: TLabel
      Left = 55
      Top = 67
      Width = 117
      Height = 16
      Alignment = taCenter
      Caption = 'Waldorf, MD 20603'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object PrintDialog1: TPrintDialog
    Options = [poWarning]
    Left = 186
    Top = 374
  end
end