home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DEMOS / VB4 / FORM1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-13  |  2.8 KB  |  106 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "Register Demo"
  6.    ClientHeight    =   3855
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1770
  9.    ClientWidth     =   7380
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   4545
  21.    Left            =   1035
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   3855
  24.    ScaleWidth      =   7380
  25.    Top             =   1140
  26.    Width           =   7500
  27.    Begin VB.Menu System 
  28.       Caption         =   "System"
  29.       Begin VB.Menu RegisterItem 
  30.          Caption         =   "Register now!"
  31.       End
  32.       Begin VB.Menu Exit 
  33.          Caption         =   "Exit"
  34.       End
  35.    End
  36.    Begin VB.Menu Remove 
  37.       Caption         =   "Remove"
  38.       Begin VB.Menu LockItem 
  39.          Caption         =   "Locks"
  40.       End
  41.       Begin VB.Menu Registration 
  42.          Caption         =   "Registration"
  43.       End
  44.    End
  45.    Begin VB.Menu Help 
  46.       Caption         =   "Help"
  47.       Begin VB.Menu About 
  48.          Caption         =   "About..."
  49.          Shortcut        =   {F1}
  50.       End
  51.    End
  52. Attribute VB_Name = "Form1"
  53. Attribute VB_Creatable = False
  54. Attribute VB_Exposed = False
  55. Option Explicit
  56. Private Sub About_Click()
  57.     Load Form2
  58.     Form2.Show 1
  59. End Sub
  60. Private Sub Exit_Click()
  61.     Unload Me
  62. End Sub
  63. Private Sub Form_Load()
  64.     Select Case (Locks)
  65.         Case 0
  66.             Me.Caption = cRegVer
  67.             RegisterItem.Enabled = False
  68.         Case 1
  69.             Me.Caption = "DEMO Unregistered Version. You have " + CStr(Cnt) + " more times to try it out"
  70.         Case 2
  71.             Me.Caption = "DEMO Unregistered Version. You have " + CStr(Cnt) + " more days to try it out"
  72.    End Select
  73. End Sub
  74. Private Sub LockItem_Click()
  75. Dim i As Integer
  76.    If RTIsCountLock(cPrg) Then
  77.       i = RTDelCountLock(cPrg)
  78.    ElseIf RTIsDateLock(cPrg) Then
  79.       i = RTDelDateLock(cPrg)
  80.    End If
  81. End Sub
  82. Private Sub Locks_Click(Index As Integer)
  83. Dim i As Integer
  84.    If RTIsCountLock(cPrg) Then
  85.       i = RTDelCountLock(cPrg)
  86.    ElseIf RTIsDateLock(cPrg) Then
  87.       i = RTDelDateLock(cPrg)
  88.    End If
  89. End Sub
  90. Private Sub Register_Click(Index As Integer)
  91.    If Register() Then
  92.         Me.Caption = cRegVer
  93.         RegisterItem.Enabled = False
  94.    End If
  95. End Sub
  96. Private Sub RegisterItem_Click()
  97.     If Register() Then
  98.         Me.Caption = cRegVer
  99.         RegisterItem.Enabled = False
  100.     End If
  101. End Sub
  102. Private Sub Registration_Click()
  103. Dim i As Integer
  104.     i = RTDelReg(cPrg)
  105. End Sub
  106.