object AboutBox: TAboutBox Left = 508 Top = 202 ActiveControl = spdClose BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'About FontLister' ClientHeight = 298 ClientWidth = 405 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True Position = poScreenCenter ShowHint = True OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object spdClose: TCorelButton Left = 320 Top = 267 Width = 75 Height = 23 Hint = 'Close About|' Cancel = True Caption = '&Close' Default = True TabOrder = 4 OnClick = spdCloseClick end object pnlAboutPanel2: TPanel Left = 72 Top = 10 Width = 323 Height = 249 BevelOuter = bvNone TabOrder = 3 object lblName: TLabel Left = 8 Top = 35 Width = 46 Height = 13 Caption = 'Full &Name' FocusControl = ediName end object lblEmail: TLabel Left = 8 Top = 83 Width = 70 Height = 13 Caption = '&E-mail Address' FocusControl = ediEmail end object lblNameStatus: TLabel Left = 217 Top = 57 Width = 68 Height = 13 Caption = 'lblNameStatus' end object lblEmailStatus: TLabel Left = 217 Top = 107 Width = 65 Height = 13 Caption = 'lblEmailStatus' end object Bevel2: TBevel Left = 8 Top = 134 Width = 309 Height = 6 Shape = bsTopLine end object pnlRegisterInfo: TPanel Left = 0 Top = 149 Width = 323 Height = 100 Align = alBottom BevelOuter = bvNone BorderWidth = 8 Caption = 'pnlRegisterInfo' Enabled = False FullRepaint = False TabOrder = 0 object memRegisterInfo: TMemo Left = 8 Top = 8 Width = 307 Height = 84 TabStop = False Align = alClient BorderStyle = bsNone Color = clBtnFace Ctl3D = False Lines.Strings = ( 'Please do *not* share these informations with others.') ParentCtl3D = False TabOrder = 0 WordWrap = False end end object pnlFullName: TPanel Left = 8 Top = 53 Width = 200 Height = 19 BevelOuter = bvLowered Caption = 'pnlFullName' Color = clWindow TabOrder = 1 object ediName: TEdit Left = 3 Top = 2 Width = 195 Height = 15 Hint = 'Type in your Full Name from the'#13#10'Registration Mail in this field' + #39'.' BorderStyle = bsNone TabOrder = 0 Text = 'Your Name' OnDragDrop = ediNameDragDrop OnDragOver = ediNameDragOver end end object pnlEMail: TPanel Left = 8 Top = 101 Width = 200 Height = 19 BevelOuter = bvLowered Caption = 'pnlEMail' Color = clWindow TabOrder = 2 object ediEmail: TEdit Left = 3 Top = 2 Width = 195 Height = 15 Hint = 'Type in your Email address from'#13#10'the Registration Mail in this f' + 'ield.' BorderStyle = bsNone TabOrder = 0 Text = 'name@domain.com' OnDragDrop = ediEmailDragDrop OnDragOver = ediNameDragOver end end object pnlRegistration: TPanel Left = 0 Top = 0 Width = 323 Height = 25 Align = alTop BevelOuter = bvLowered Caption = 'Registration Sheet' Color = clHighlight Font.Charset = DEFAULT_CHARSET Font.Color = clHighlightText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end end object pnlAboutInformation: TPanel Left = 72 Top = 10 Width = 323 Height = 249 BevelOuter = bvNone TabOrder = 2 object lblProgramName: TLabel Left = 8 Top = 8 Width = 184 Height = 13 Alignment = taCenter Caption = 'FontLister 3.x for Windows 95/98/NT4' end object lblAuthor: TLabel Left = 8 Top = 26 Width = 100 Height = 13 Alignment = taCenter Caption = 'Author: Peter Theill, ' end object lblDate: TLabel Left = 8 Top = 44 Width = 108 Height = 13 Caption = 'Release date: ' end object Bevel1: TBevel Left = 8 Top = 204 Width = 309 Height = 6 Shape = bsTopLine end object lblRegName: TLabel Left = 18 Top = 167 Width = 104 Height = 13 Caption = '' end object lblRegEmail: TLabel Left = 18 Top = 184 Width = 101 Height = 13 Caption = '' end object lblLicensed: TLabel Left = 8 Top = 149 Width = 127 Height = 13 Caption = 'This product is licensed to:' end object urlHomepage: TURLLabel Left = 18 Top = 229 Width = 119 Height = 13 Hint = 'Visits the FontLister homepage on the .net' Caption = 'http://www.theill.com/fl/' ParentShowHint = False ShowHint = True URL = 'http://www.theill.com/fl/' HiFont.Charset = DEFAULT_CHARSET HiFont.Color = clRed HiFont.Height = -11 HiFont.Name = 'MS Sans Serif' HiFont.Style = [fsUnderline] end object lblHomepage: TLabel Left = 8 Top = 211 Width = 101 Height = 13 Caption = 'FontLister homepage' end object urlMail: TURLLabel Left = 107 Top = 26 Width = 98 Height = 13 Hint = 'Sends an email to Peter Theill' Caption = 'fontlister@theill.com' ParentShowHint = False ShowHint = True URL = 'mailto:fontlister@theill.com' HiFont.Charset = DEFAULT_CHARSET HiFont.Color = clRed HiFont.Height = -11 HiFont.Name = 'MS Sans Serif' HiFont.Style = [fsUnderline] end object lblInstalledDate: TLabel Left = 215 Top = 44 Width = 99 Height = 13 Alignment = taRightJustify Caption = 'Install date: ' end object Bevel3: TBevel Left = 8 Top = 140 Width = 309 Height = 6 Shape = bsTopLine Visible = False end object pnlInformation: TPanel Left = 8 Top = 62 Width = 309 Height = 72 BevelOuter = bvNone Caption = 'pnlInformation' FullRepaint = False TabOrder = 0 object memInformation: TMemo Left = 0 Top = 0 Width = 309 Height = 72 TabStop = False Align = alClient BorderStyle = bsNone Color = clBtnFace Ctl3D = False Lines.Strings = ( 'You'#39're obligated to register this program, if you'#39're using it fo' + 'r more than 30 days after installation (cf. "Install Date"). If ' + 'you'#39're using it after this period you'#39're breaking the law. Pleas' + 'e register your copy of FontLister today, it'#39's only $5. A regist' + 'ration gives you the right to use all future 3.x updates of Font' + 'Lister. Check the FontLister homepage (URL shown below) for more' + ' information on how to register.' 'If you'#39've bought FontLister through ideaMarket you are entitled ' + 'to a free registration, though. Just send me your purchase data ' + '(ID, date, name and email) and I'#39'll send you a new registration.' 'If you don'#39't want to use your credit-card on the Internet, you c' + 'an send me a $-bill (please don'#39't send any cheques) at this addr' + 'ess:' '' ' ConquerWare' ' Attn: Peter Theill' ' Kalundborgvej 173' ' 4300 Holbaek' ' Denmark' '' 'Please remember to include your email-address and name you want ' + 'to register.') ParentCtl3D = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 WantReturns = False WordWrap = False end end end object pnlAboutLeft: TPanel Left = 10 Top = 10 Width = 52 Height = 257 BevelInner = bvLowered BevelOuter = bvNone Color = clAppWorkSpace FullRepaint = False TabOrder = 0 object imgAboutIcon: TImage Left = 10 Top = 10 Width = 32 Height = 32 Hint = 'The FontLister Icon' AutoSize = True Picture.Data = {} OnMouseDown = imgAboutIconMouseDown end end object pnlNetButtons: TPanel Left = 10 Top = 267 Width = 52 Height = 25 BevelInner = bvLowered BevelOuter = bvNone Caption = ' ' TabOrder = 1 object tbbMail: TSpeedButton Left = 26 Top = 1 Width = 25 Height = 23 Hint = 'Sends an email to Peter Theill' Caption = 'mailto:fontlister@theill.com' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333300000000033333338FFFFFFF033333338F88888F033333338FFFFFFF0000 00038F88888F077777038FFFFFFF0FFFF7038F88F00004FFF7038FFFF8FF8FFF F7038FFFF8F844F117038888888FFFF11703333877777777770333338FFFFFFF F033333338FFFFFF03333333338FFFF033333333333888833333} Margin = 4 Transparent = False OnClick = tbbInternetButtons end object tbbHome: TSpeedButton Left = 1 Top = 1 Width = 25 Height = 23 Hint = 'Visits the FontLister homepage on the .net' Caption = 'http://www.theill.com/fl/' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEE000000 000E0000008FF3B0F70E8777778FF3B0F70E8FFFFF8FF333F70E8FFFFF8FFFFF F70E8F77778FFFFFF70E8FFFF000000000008F777737B3B3B30E8FFFFFF37B3B 30EE8F77777737B301EE8FFFFFFFF37091EE8F777FFFFF0091EE8FFFFFFF0000 EEEE8FFFFFFF7F8EEEEE8FFFFFFF78EEEEEE888888888EEEEEEE} Margin = 4 Transparent = False OnClick = tbbInternetButtons end end object timRegister: TTimer Enabled = False Interval = 4000 OnTimer = timRegisterTimer Left = 360 Top = 16 end end