Computer Buyer 1998 April/DPCB0498.iso/DTP/MyFonts/Setup.exe/MyFonts.exe/0/RCDATA/TFRMORDEREM/TFRMORDEREM.txt

Text File | 1997-12-08 | 15KB | 605 lines

object FrmOrderEM: TFrmOrderEM
  Left = 211
  Top = 116
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biHelp]
  BorderStyle = bsDialog
  Caption = ' Order Notification'
  ClientHeight = 407
  ClientWidth = 455
  Color = 12639424
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 86
    Width = 410
    Height = 39
    Caption =
      'Simply fill out this form and click OK. Your order will be ENCRY' +
      'PTED and placed in the MyFonts folder with the name "YourLastNam' +
      'e.MOF". You can then e-mail this file to us using your favorite ' +
      'mail program. Or, you can click SEND NOW and we'#39'll do the rest.'
    WordWrap = True
  end
  object Bevel1: TBevel
    Left = 24
    Top = 255
    Width = 409
    Height = 96
  end
  object Label2: TLabel
    Left = 26
    Top = 131
    Width = 57
    Height = 13
    Caption = 'First Name:*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 154
    Top = 131
    Width = 20
    Height = 13
    Caption = 'Mid.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 186
    Top = 131
    Width = 58
    Height = 13
    Caption = 'Last Name:*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 348
    Top = 131
    Width = 34
    Height = 13
    Caption = 'Phone:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 26
    Top = 170
    Width = 47
    Height = 13
    Caption = 'Company:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 151
    Top = 170
    Width = 76
    Height = 13
    Caption = 'Street Address:*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 26
    Top = 210
    Width = 176
    Height = 13
    Caption = 'City, State && Zip Code (Postal Code):*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 348
    Top = 210
    Width = 43
    Height = 13
    Caption = 'Country:*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label14: TLabel
    Left = 35
    Top = 306
    Width = 86
    Height = 13
    Caption = 'Visa/MasterCard:*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label15: TLabel
    Left = 153
    Top = 306
    Width = 41
    Height = 13
    Caption = 'Expires:*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label16: TLabel
    Left = 212
    Top = 306
    Width = 94
    Height = 13
    Caption = 'Card Holder Name:*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label17: TLabel
    Left = 152
    Top = 364
    Width = 103
    Height = 35
    AutoSize = False
    Caption = 'These fields are required.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object Label18: TLabel
    Left = 136
    Top = 370
    Width = 14
    Height = 37
    Caption = '*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 10
    Top = 10
    Width = 435
    Height = 69
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Color = clWhite
    TabOrder = 0
    object Label5: TLabel
      Left = 150
      Top = 7
      Width = 118
      Height = 29
      Caption = 'Read this:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Shape2: TShape
      Left = 152
      Top = 35
      Width = 107
      Height = 3
      Pen.Color = clRed
      Pen.Width = 3
    end
    object Label6: TLabel
      Left = 152
      Top = 41
      Width = 260
      Height = 13
      Caption = 'have Internet access, you can register now with E-mail.'
    end
    object Label7: TLabel
      Left = 274
      Top = 27
      Width = 140
      Height = 13
      Caption = 'of these credit cards, and you'
    end
    object Label8: TLabel
      Left = 274
      Top = 13
      Width = 140
      Height = 13
      Caption = 'If you want to order using one'
    end
    object I_CreditCards: TImage
      Left = 12
      Top = 8
      Width = 132
      Height = 49
      AutoSize = True
      Center = True
    end
  end
  object E_NameF: TEdit
    Left = 24
    Top = 146
    Width = 121
    Height = 21
    Color = 16776176
    MaxLength = 20
    TabOrder = 1
    OnKeyPress = E_NameFKeyPress
  end
  object E_NameM: TEdit
    Left = 149
    Top = 146
    Width = 31
    Height = 21
    Color = 16776176
    MaxLength = 2
    TabOrder = 2
    OnKeyPress = E_NameFKeyPress
  end
  object E_NameL: TEdit
    Left = 184
    Top = 146
    Width = 151
    Height = 21
    Color = 16776176
    MaxLength = 30
    TabOrder = 3
    OnExit = E_NameLExit
    OnKeyPress = E_NameFKeyPress
  end
  object E_Phone: TEdit
    Left = 346
    Top = 146
    Width = 87
    Height = 21
    Color = 16776176
    MaxLength = 20
    TabOrder = 4
    OnKeyPress = E_NameFKeyPress
  end
  object E_Company: TEdit
    Left = 24
    Top = 185
    Width = 121
    Height = 21
    Color = 16776176
    MaxLength = 30
    TabOrder = 5
    OnKeyPress = E_NameFKeyPress
  end
  object E_Address1: TEdit
    Left = 149
    Top = 185
    Width = 284
    Height = 21
    Color = 16776176
    MaxLength = 50
    TabOrder = 6
    OnKeyPress = E_NameFKeyPress
  end
  object E_Country: TEdit
    Left = 346
    Top = 225
    Width = 87
    Height = 21
    Color = 16776176
    MaxLength = 20
    TabOrder = 8
    OnKeyPress = E_NameFKeyPress
  end
  object E_Address2: TEdit
    Left = 24
    Top = 225
    Width = 311
    Height = 21
    Color = 16776176
    MaxLength = 50
    TabOrder = 7
    OnKeyPress = E_NameFKeyPress
  end
  object StaticText9: TStaticText
    Left = 30
    Top = 260
    Width = 394
    Height = 17
    Caption =
      'A license file which will unlock your version of MyFonts will be' +
      ' e-mailed back to you'
    TabOrder = 16
  end
  object StaticText10: TStaticText
    Left = 30
    Top = 273
    Width = 105
    Height = 17
    Caption = 'at this e-mail address:'
    TabOrder = 17
  end
  object E_EmailTo: TEdit
    Left = 136
    Top = 276
    Width = 285
    Height = 21
    Color = 15522303
    MaxLength = 30
    TabOrder = 9
    OnKeyPress = E_NameFKeyPress
  end
  object StaticText11: TStaticText
    Left = 44
    Top = 286
    Width = 83
    Height = 17
    Caption = '(enter carefully) *'
    TabOrder = 18
  end
  object E_CardNumber: TEdit
    Left = 32
    Top = 321
    Width = 113
    Height = 21
    Color = 11075583
    MaxLength = 19
    TabOrder = 10
    OnKeyPress = E_NameFKeyPress
  end
  object E_ExpDate: TEdit
    Left = 150
    Top = 321
    Width = 45
    Height = 21
    Color = 11075583
    MaxLength = 5
    TabOrder = 11
    Text = 'MM/YY'
    OnKeyPress = E_NameFKeyPress
  end
  object E_CardHolder: TEdit
    Left = 210
    Top = 321
    Width = 211
    Height = 21
    Color = 11075583
    MaxLength = 52
    TabOrder = 12
    OnKeyPress = E_NameFKeyPress
  end
  object B_OK: TBitBtn
    Left = 358
    Top = 364
    Width = 75
    Height = 30
    Cursor = 50
    Caption = 'OK'
    TabOrder = 15
    OnClick = B_OKClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object B_Cancel: TBitBtn
    Left = 269
    Top = 364
    Width = 75
    Height = 30
    Cursor = 50
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 14
    TabStop = False
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033338833333333333333333F333333333333
      0000333911833333983333333388F333333F3333000033391118333911833333
      38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
      911118111118333338F3338F833338F3000033333911111111833333338F3338
      3333F8330000333333911111183333333338F333333F83330000333333311111
      8333333333338F3333383333000033333339111183333333333338F333833333
      00003333339111118333333333333833338F3333000033333911181118333333
      33338333338F333300003333911183911183333333383338F338F33300003333
      9118333911183333338F33838F338F33000033333913333391113333338FF833
      38F338F300003333333333333919333333388333338FFF830000333333333333
      3333333333333333333888330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object B_SendNow: TBitBtn
    Left = 24
    Top = 364
    Width = 93
    Height = 30
    Cursor = 50
    Caption = '&Send Now'
    TabOrder = 13
    TabStop = False
    OnClick = B_SendNowClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
      33333333333F8888883F33330000324334222222443333388F3833333388F333
      000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
      F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
      223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
      3338888300003AAAAAAA33333333333888888833333333330000333333333333
      333333333333333333FFFFFF000033333333333344444433FFFF333333888888
      00003A444333333A22222438888F333338F3333800003A2243333333A2222438
      F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
      22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
      33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
      3333333333338888883333330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object P_SendNow: TPanel
    Left = 77
    Top = 235
    Width = 409
    Height = 96
    BevelOuter = bvLowered
    BevelWidth = 3
    Color = clTeal
    TabOrder = 19
    Visible = False
    object LB_SendNowComplete: TLabel
      Left = 9
      Top = 37
      Width = 392
      Height = 55
      Alignment = taCenter
      AutoSize = False
      Caption = 'Registration sent message.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
      WordWrap = True
    end
    object G_Email: TGIFImage
      Left = 148
      Top = 44
      Width = 107
      Height = 35
      Center = True
      Visible = False
    end
    object LB_SendProgress: TLabel
      Left = 11
      Top = 10
      Width = 385
      Height = 27
      Alignment = taCenter
      AutoSize = False
      Caption = 'LB_SendProgress'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object B_SendNowFinish: TColorButton
      Left = 12
      Top = 8
      Width = 385
      Height = 25
      Cursor = 50
      BevelSize = 4
      Caption = 'Click to Finish'
      Color = 440799
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TabOrder = 0
      OnClick = B_SendNowFinishClick
    end
  end
  object X: TTomEncryption
    Key = 'Arizona'
    Left = 12
    Top = 410
  end
  object SendMail: SendMail
    SMTP_Port = 25
    Action = None
    OnMailInfo = SendMailMailInfo
    OnMailError = SendMailMailError
    KeepConnectionOpen = False
    WinsockStarted = False
    Version = 'SendMail 1.3.9'
    TimeoutConnect = 0
    TimeoutArp = 0
    OnDone = SendMailDone
    Left = 84
    Top = 410
  end
  object Reg: TRegFile
    Left = 119
    Top = 411
  end
  object CreditCardVerify: TMyCreditCardVerify
    CardType = ccDontCare
    ExpMonth = 10
    ExpYear = 1997
    Valid = ccvInvalid
    Left = 48
    Top = 410
  end
end