home *** CD-ROM | disk | FTP | other *** search
- 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: <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 = '<Registration Name>'
- end
- object lblRegEmail: TLabel
- Left = 18
- Top = 184
- Width = 101
- Height = 13
- Caption = '<Registration Email>'
- 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: <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 = {<image000.ico>}
- 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
-