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