home *** CD-ROM | disk | FTP | other *** search
- object Form9: TForm9
- Left = 260
- Top = 208
- AutoScroll = False
- Caption = 'Time Stamping Program'
- ClientHeight = 293
- ClientWidth = 447
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 16
- object Image1: TImage
- Left = 1
- Top = 1
- Width = 68
- Height = 67
- Picture.Data = {<image000.bmp>}
- end
- object Memo1: TMemo
- Left = 106
- Top = 7
- Width = 335
- Height = 282
- Alignment = taCenter
- Color = clMenu
- Enabled = False
- Font.Color = clNavy
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Lines.Strings = (
- 'This "try before you buy" program is time '
- 'stamped on your initial running of the program. '
- ' At the end of thirty days you will start receiving '
- 'regular reminders that the program is not '
- 'registered and if you continue to use the '
- 'program it needs to be registered. Registration '
- 'brings many benefits including the ability to '
- 'print your menu and shopping list and getting '
- 'rid of the nuisance screens about registration.'
- 'Registration also ensures that you will be '
- 'notified of major enhancements to the program '
- 'and that those upgrades will be FREE to '
- 'registered users who download the upgrade '
- 'and only $5 for those needing a diskette. '
- 'Continuing from this point indicates your '
- 'acceptance of these terms.'
- ''
- '')
- ParentFont = False
- TabOrder = 0
- end
- object BitBtn1: TBitBtn
- Left = 6
- Top = 207
- Width = 89
- Height = 33
- Caption = '&Proceed'
- TabOrder = 1
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 6
- Top = 247
- Width = 89
- Height = 33
- Caption = '&Cancel'
- TabOrder = 2
- OnClick = BitBtn2Click
- Kind = bkCancel
- end
- object Memo2: TMemo
- Left = 0
- Top = 93
- Width = 104
- Height = 108
- Alignment = taCenter
- Color = clBlue
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- Lines.Strings = (
- 'Henning '
- 'Associates'
- '1710 Allied St. #36'
- 'Charlottesville, '
- 'VA 22903'
- '800-823-6896')
- ParentFont = False
- TabOrder = 3
- end
- end
-