home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 January / CHIPCD1_98.iso / software / nowosci / crystalf / crftp1.exe / 0 / RCDATA / TNAGFORM / TNAGFORM.txt
Text File  |  1997-11-20  |  3KB  |  132 lines
  1. object NagForm: TNagForm
  2.   Left = 382
  3.   Top = 102
  4.   BorderIcons = []
  5.   BorderStyle = bsDialog
  6.   Caption = 'C.A.S Crystal FTP - Please Register'
  7.   ClientHeight = 234
  8.   ClientWidth = 378
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   FormStyle = fsStayOnTop
  15.   Position = poScreenCenter
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object PageControl1: TPageControl
  19.     Left = 4
  20.     Top = 4
  21.     Width = 369
  22.     Height = 189
  23.     ActivePage = TabSheet1
  24.     TabOrder = 0
  25.     object TabSheet1: TTabSheet
  26.       Caption = 'Registration'
  27.       object RichEdit1: TRichEdit
  28.         Left = 4
  29.         Top = 5
  30.         Width = 353
  31.         Height = 100
  32.         Color = clBtnFace
  33.         Font.Charset = DEFAULT_CHARSET
  34.         Font.Color = clBlack
  35.         Font.Height = -11
  36.         Font.Name = 'Courier New'
  37.         Font.Style = []
  38.         Lines.Strings = (
  39.           'CRYSTAL FTP IS SHAREWARE'
  40.           '------------------------'
  41.           'Crystal FTP is Shareware. You may legally '
  42.           'evaluate it for a period of 30 days.  After '
  43.           'that time, if you continue to use it, you are '
  44.           'required to purchase it.  Registration for '
  45.           'Crystal FTP is currently 29 USD for a single '
  46.           'user license. If you buy more than one copy of '
  47.           'the product, you will get discount.'
  48.           ''
  49.           'For more information on how to register, press '
  50.           'the '#39'Purchase'#39' button below.'
  51.           ''
  52.           'Thank you for your support!')
  53.         ParentFont = False
  54.         ReadOnly = True
  55.         ScrollBars = ssVertical
  56.         TabOrder = 0
  57.       end
  58.       object Panel2: TPanel
  59.         Left = 4
  60.         Top = 112
  61.         Width = 353
  62.         Height = 45
  63.         TabOrder = 1
  64.         object NagLabel: TLabel
  65.           Left = 6
  66.           Top = 8
  67.           Width = 275
  68.           Height = 13
  69.           Caption = 'Trial copy expired! Please purchase if you continue usage.'
  70.         end
  71.         object ProgressBar1: TProgressBar
  72.           Left = 11
  73.           Top = 28
  74.           Width = 332
  75.           Height = 9
  76.           Min = 0
  77.           Max = 30
  78.           Position = 30
  79.           TabOrder = 0
  80.         end
  81.       end
  82.     end
  83.   end
  84.   object Button1: TButton
  85.     Left = 252
  86.     Top = 200
  87.     Width = 116
  88.     Height = 29
  89.     Caption = '&Don'#39't Purchase Now'
  90.     Font.Charset = DEFAULT_CHARSET
  91.     Font.Color = clBlack
  92.     Font.Height = -11
  93.     Font.Name = 'MS Sans Serif'
  94.     Font.Style = []
  95.     ModalResult = 2
  96.     ParentFont = False
  97.     TabOrder = 1
  98.     OnClick = Button1Click
  99.   end
  100.   object Button2: TButton
  101.     Left = 132
  102.     Top = 200
  103.     Width = 116
  104.     Height = 29
  105.     Cancel = True
  106.     Caption = '&Purchase'
  107.     Default = True
  108.     Font.Charset = DEFAULT_CHARSET
  109.     Font.Color = clBlack
  110.     Font.Height = -11
  111.     Font.Name = 'MS Sans Serif'
  112.     Font.Style = []
  113.     ModalResult = 1
  114.     ParentFont = False
  115.     TabOrder = 2
  116.     OnClick = tButton2Click
  117.   end
  118.   object MSOfficeCaption1: TMSOfficeCaption
  119.     AppNameText.Caption = 'Crystal FTP'
  120.     AppNameText.FontKind = fkSystemB
  121.     AppNameText.Visible = True
  122.     CaptionText.Caption = '- Please Register'
  123.     CaptionText.FontKind = fkSystem
  124.     CaptionText.Visible = True
  125.     CompanyText.Caption = 'C.A.S'
  126.     CompanyText.FontKind = fkSystemBI
  127.     CompanyText.Visible = True
  128.     Left = 4
  129.     Top = 204
  130.   end
  131. end
  132.