home *** CD-ROM | disk | FTP | other *** search
- 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
-