[ActiveLock-Development] CVS: activelock/examples/example1 frmMain.frm,1.2,1.3 ALTestApp.exe,1.1,1.2
Brought to you by:
ialkan
Menu
▾
▴
[ActiveLock-Development] CVS: activelock/examples/example1 frmMain.frm,1.2,1.3 ALTestApp.exe,1.1,1.2 frmMain.frx,1.2,1.3
|
From: Thanh H. T. <th...@us...> - 2003-09-22 04:03:56
|
Update of /cvsroot/activelock/activelock/examples/example1
In directory sc8-pr-cvs1:/tmp/cvs-serv20218
Modified Files:
frmMain.frm ALTestApp.exe frmMain.frx
Log Message:
- Removed Admin tab
- set an icon for the EXE
Index: frmMain.frm
===================================================================
RCS file: /cvsroot/activelock/activelock/examples/example1/frmMain.frm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- frmMain.frm 22 Sep 2003 03:05:00 -0000 1.2
+++ frmMain.frm 22 Sep 2003 04:03:52 -0000 1.3
@@ -8,6 +8,7 @@
ClientLeft = 45
ClientTop = 330
ClientWidth = 8025
+ Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
@@ -18,7 +19,7 @@
Align = 2 'Align Bottom
Height = 255
Left = 0
- TabIndex = 41
+ TabIndex = 0
Top = 6360
Width = 8025
_ExtentX = 14155
@@ -37,102 +38,94 @@
Begin TabDlg.SSTab SSTab1
Height = 6255
Left = 0
- TabIndex = 0
+ TabIndex = 3
Top = 0
Width = 7935
_ExtentX = 13996
_ExtentY = 11033
_Version = 393216
- Tab = 1
+ Tabs = 2
+ TabsPerRow = 2
TabHeight = 520
- TabCaption(0) = "Admin"
- TabPicture(0) = "frmMain.frx":0000
- Tab(0).ControlEnabled= 0 'False
- Tab(0).Control(0)= "Label1"
- Tab(0).Control(1)= "Label9"
- Tab(0).Control(2)= "Label10"
- Tab(0).Control(3)= "Label14"
- Tab(0).Control(4)= "Label15"
- Tab(0).Control(5)= "txtName"
- Tab(0).Control(6)= "txtVersion"
- Tab(0).Control(7)= "txtSoftwareCodePub"
- Tab(0).Control(8)= "txtChecksum"
- Tab(0).Control(9)= "Text1"
- Tab(0).ControlCount= 10
- TabCaption(1) = "Registration"
- TabPicture(1) = "frmMain.frx":001C
- Tab(1).ControlEnabled= -1 'True
- Tab(1).Control(0)= "fraReg"
- Tab(1).Control(0).Enabled= 0 'False
- Tab(1).Control(1)= "fraRegStatus"
- Tab(1).Control(1).Enabled= 0 'False
- Tab(1).ControlCount= 2
- TabCaption(2) = "Sample App"
- TabPicture(2) = "frmMain.frx":0038
- Tab(2).ControlEnabled= 0 'False
- Tab(2).Control(0)= "fraTicker"
- Tab(2).Control(1)= "fraViewport"
- Tab(2).Control(2)= "Frame1"
- Tab(2).ControlCount= 3
- Begin VB.TextBox Text1
- BackColor = &H80000011&
- Height = 1455
- Left = -74880
- MultiLine = -1 'True
- TabIndex = 42
- Text = "frmMain.frx":0054
- Top = 4680
- Width = 7695
- End
- Begin VB.TextBox txtChecksum
- BackColor = &H80000011&
- Height = 285
- Left = -73680
- Locked = -1 'True
- TabIndex = 40
- Top = 600
- Width = 5055
- End
- Begin VB.TextBox txtSoftwareCodePub
- BackColor = &H80000011&
- Height = 285
- Left = -73680
- Locked = -1 'True
- TabIndex = 29
- Top = 1560
- Width = 5055
+ TabCaption(0) = "Registration"
+ TabPicture(0) = "frmMain.frx":0CCA
+ Tab(0).ControlEnabled= -1 'True
+ Tab(0).Control(0)= "fraRegStatus"
+ Tab(0).Control(0).Enabled= 0 'False
+ Tab(0).Control(1)= "fraReg"
+ Tab(0).Control(1).Enabled= 0 'False
+ Tab(0).ControlCount= 2
+ TabCaption(1) = "Sample App"
+ TabPicture(1) = "frmMain.frx":0CE6
+ Tab(1).ControlEnabled= 0 'False
+ Tab(1).Control(0)= "Frame1"
+ Tab(1).Control(1)= "fraTicker"
+ Tab(1).Control(2)= "fraViewport"
+ Tab(1).ControlCount= 3
+ Begin VB.Frame fraViewport
+ BorderStyle = 0 'None
+ Height = 400
+ Left = -74950
+ TabIndex = 35
+ Top = 5510
+ Width = 7850
+ Begin ALTestApp.atViewPort atViewPort1
+ Height = 375
+ Left = 0
+ Top = 0
+ Width = 7845
+ _ExtentX = 13838
+ _ExtentY = 661
+ TickerScaleHeight= 21
+ TickerScaleWidth= 519
+ TickerFontBold = -1 'True
+ TickerFontSize = 11.25
+ TickerFlash = 0 'False
+ TickerPlaySound = 0 'False
+ TickerScrollX = 473
+ BalloonTipIcon = 0
+ BalloonTipText = "No Messages"
+ End
End
- Begin VB.TextBox txtVersion
- BackColor = &H80000011&
- Height = 285
- Left = -73680
- Locked = -1 'True
+ Begin VB.Frame fraTicker
+ Caption = "Message"
+ Height = 1890
+ Left = -74880
TabIndex = 32
- Top = 1320
- Width = 5055
- End
- Begin VB.TextBox txtName
- BackColor = &H80000011&
- Height = 285
- Left = -73680
- Locked = -1 'True
- TabIndex = 30
- Top = 1080
- Width = 5055
+ Top = 420
+ Width = 7575
+ Begin VB.TextBox txtTicker
+ Height = 1200
+ Left = 30
+ MultiLine = -1 'True
+ ScrollBars = 2 'Vertical
+ TabIndex = 34
+ Text = "frmMain.frx":0D02
+ Top = 240
+ Width = 7425
+ End
+ Begin VB.CommandButton cmdTest
+ Caption = "&Update Ticker"
+ Height = 315
+ Left = 5730
+ TabIndex = 33
+ Top = 1475
+ Width = 1710
+ End
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 2775
- Left = -74895
- TabIndex = 17
- Top = 2520
+ Left = -74865
+ TabIndex = 20
+ Top = 2580
Width = 6615
Begin VB.OptionButton optForm
Caption = "System Tray"
Height = 225
Index = 1
Left = 2040
- TabIndex = 26
+ TabIndex = 29
Top = 1245
Width = 1395
End
@@ -141,18 +134,18 @@
Height = 225
Index = 0
Left = 2040
- TabIndex = 25
+ TabIndex = 28
Top = 960
Value = -1 'True
Width = 1395
End
Begin VB.ComboBox cboSpeed
Height = 315
- ItemData = "frmMain.frx":01CA
+ ItemData = "frmMain.frx":0D74
Left = 2070
- List = "frmMain.frx":01DD
+ List = "frmMain.frx":0D87
Style = 2 'Dropdown List
- TabIndex = 24
+ TabIndex = 27
Top = 270
Width = 1635
End
@@ -160,7 +153,7 @@
Caption = "Black Out Ticker"
Height = 420
Left = 0
- TabIndex = 20
+ TabIndex = 26
Top = 645
Width = 1590
End
@@ -168,7 +161,7 @@
Caption = "Play Sound On New Message"
Height = 495
Left = 0
- TabIndex = 22
+ TabIndex = 25
Top = 1590
Width = 1470
End
@@ -176,7 +169,7 @@
Caption = "Pause Ticker"
Height = 315
Left = 0
- TabIndex = 19
+ TabIndex = 24
Top = 300
Width = 1365
End
@@ -184,7 +177,7 @@
Caption = "Flash Ticker On New Message"
Height = 495
Left = 0
- TabIndex = 21
+ TabIndex = 23
Top = 1080
Width = 1470
End
@@ -192,7 +185,7 @@
Caption = "Scroll Ticker"
Height = 225
Left = 15
- TabIndex = 18
+ TabIndex = 22
Top = 0
Value = 1 'Checked
Width = 1275
@@ -201,7 +194,7 @@
Caption = "Enable Balloon Tooltip"
Height = 495
Left = 15
- TabIndex = 23
+ TabIndex = 21
Top = 2115
Width = 1755
End
@@ -209,7 +202,7 @@
Caption = "Ticker Host:"
Height = 255
Left = 2055
- TabIndex = 28
+ TabIndex = 31
Top = 705
Width = 990
End
@@ -217,131 +210,22 @@
Caption = "Scroll Speed:"
Height = 255
Left = 2070
- TabIndex = 27
+ TabIndex = 30
Top = 15
Width = 1245
End
End
- Begin VB.Frame fraViewport
- Height = 400
- Left = -75000
- TabIndex = 15
- Top = 5790
- Width = 7850
- Begin ALTestApp.atViewPort atViewPort1
- Height = 375
- Left = 0
- Top = 0
- Width = 7850
- _ExtentX = 13838
- _ExtentY = 661
- TickerScaleHeight= 21
- TickerScaleWidth= 519
- TickerFontBold = -1 'True
- TickerFontSize = 11.25
- TickerFlash = 0 'False
- TickerPlaySound = 0 'False
- TickerScrollX = 473
- BalloonTipIcon = 0
- BalloonTipText = "No Messages"
- End
- End
- Begin VB.Frame fraTicker
- Caption = "Message"
- Height = 1890
- Left = -74895
- TabIndex = 13
- Top = 480
- Width = 7575
- Begin VB.TextBox txtTicker
- Height = 1200
- Left = 30
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 14
- Text = "frmMain.frx":0207
- Top = 240
- Width = 7425
- End
- Begin VB.CommandButton cmdTest
- Caption = "&Update Ticker"
- Height = 315
- Left = 5730
- TabIndex = 16
- Top = 1475
- Width = 1710
- End
- End
- Begin VB.Frame fraRegStatus
- Caption = "Status"
- Height = 2175
- Left = 120
- TabIndex = 6
- Top = 480
- Width = 7695
- Begin VB.TextBox txtExpiration
- BackColor = &H80000013&
- Height = 285
- Left = 1560
- Locked = -1 'True
- TabIndex = 12
- Top = 720
- Width = 4335
- End
- Begin VB.TextBox txtUsedDays
- BackColor = &H80000013&
- Height = 285
- Left = 1560
- Locked = -1 'True
- TabIndex = 10
- Top = 480
- Width = 4335
- End
- Begin VB.TextBox txtRegStatus
- BackColor = &H80000013&
- Height = 285
- Left = 1560
- Locked = -1 'True
- TabIndex = 8
- Top = 240
- Width = 4335
- End
- Begin VB.Label Label8
- Caption = "Expiry Date:"
- Height = 255
- Left = 120
- TabIndex = 11
- Top = 720
- Width = 975
- End
- Begin VB.Label Label7
- Caption = "Days Used:"
- Height = 255
- Left = 120
- TabIndex = 9
- Top = 480
- Width = 975
- End
- Begin VB.Label Label6
- Caption = "Registered:"
- Height = 255
- Left = 120
- TabIndex = 7
- Top = 240
- Width = 975
- End
- End
Begin VB.Frame fraReg
Caption = "Register"
- Height = 2895
+ Height = 3255
Left = 120
- TabIndex = 2
- Top = 3240
+ TabIndex = 11
+ Top = 2580
Width = 7695
Begin VB.TextBox txtUser
Height = 285
Left = 1320
- TabIndex = 37
+ TabIndex = 16
Text = "Thanh Tran"
Top = 240
Width = 5055
@@ -350,7 +234,7 @@
Caption = "&Generate"
Height = 255
Left = 6480
- TabIndex = 36
+ TabIndex = 15
Top = 600
Width = 1095
End
@@ -359,7 +243,7 @@
Height = 285
Left = 1320
Locked = -1 'True
- TabIndex = 34
+ TabIndex = 14
Top = 600
Width = 5055
End
@@ -368,14 +252,14 @@
Enabled = 0 'False
Height = 255
Left = 6480
- TabIndex = 5
+ TabIndex = 13
Top = 960
Width = 1095
End
Begin VB.TextBox txtLibKeyIn
Height = 285
Left = 1320
- TabIndex = 4
+ TabIndex = 12
Top = 960
Width = 5055
End
@@ -383,7 +267,7 @@
Caption = "User Name:"
Height = 255
Left = 120
- TabIndex = 38
+ TabIndex = 19
Top = 240
Width = 1335
End
@@ -391,7 +275,7 @@
Caption = "Request Code:"
Height = 255
Left = 120
- TabIndex = 35
+ TabIndex = 18
Top = 600
Width = 1335
End
@@ -399,50 +283,105 @@
Caption = "Liberation Key:"
Height = 255
Left = 120
- TabIndex = 3
+ TabIndex = 17
Top = 960
Width = 1335
End
End
- Begin VB.Label Label15
- Caption = "Instructions:"
- Height = 495
- Left = -74880
- TabIndex = 43
- Top = 4440
- Width = 1935
- End
- Begin VB.Label Label14
- Caption = "ActiveLock's Checksum:"
- Height = 375
- Left = -74880
- TabIndex = 39
- Top = 480
- Width = 1215
- End
- Begin VB.Label Label10
- Caption = " Version:"
- Height = 255
- Left = -74880
- TabIndex = 33
- Top = 1320
- Width = 1335
- End
- Begin VB.Label Label9
- Caption = "Software Name:"
- Height = 255
- Left = -74880
- TabIndex = 31
- Top = 1080
- Width = 1335
- End
- Begin VB.Label Label1
- Caption = " Code:"
- Height = 255
- Left = -74880
- TabIndex = 1
- Top = 1560
- Width = 1335
+ Begin VB.Frame fraRegStatus
+ Caption = "Status"
+ Height = 2055
+ Left = 120
+ TabIndex = 4
+ Top = 420
+ Width = 7695
+ Begin VB.TextBox txtVersion
+ BackColor = &H80000013&
+ Height = 285
+ Left = 1560
+ Locked = -1 'True
+ TabIndex = 2
+ Text = "1.0"
+ Top = 480
+ Width = 4335
+ End
+ Begin VB.TextBox txtName
+ BackColor = &H80000013&
+ Height = 285
+ Left = 1560
+ Locked = -1 'True
+ TabIndex = 1
+ Text = "TestApp"
+ Top = 240
+ Width = 4335
+ End
+ Begin VB.TextBox txtExpiration
+ BackColor = &H80000013&
+ Height = 285
+ Left = 1560
+ Locked = -1 'True
+ TabIndex = 7
+ Top = 1320
+ Width = 4335
+ End
+ Begin VB.TextBox txtUsedDays
+ BackColor = &H80000013&
+ Height = 285
+ Left = 1560
+ Locked = -1 'True
+ TabIndex = 6
+ Top = 1080
+ Width = 4335
+ End
+ Begin VB.TextBox txtRegStatus
+ BackColor = &H80000013&
+ Height = 285
+ Left = 1560
+ Locked = -1 'True
+ TabIndex = 5
+ Top = 840
+ Width = 4335
+ End
+ Begin VB.Label Label2
+ Caption = "App Version:"
+ Height = 255
+ Left = 120
+ TabIndex = 37
+ Top = 480
+ Width = 975
+ End
+ Begin VB.Label Label1
+ Caption = "App Name:"
+ Height = 255
+ Left = 120
+ TabIndex = 36
+ Top = 240
+ Width = 975
+ End
+ Begin VB.Label Label8
+ Caption = "Expiry Date:"
+ Height = 255
+ Left = 120
+ TabIndex = 10
+ Top = 1320
+ Width = 975
+ End
+ Begin VB.Label Label7
+ Caption = "Days Used:"
+ Height = 255
+ Left = 120
+ TabIndex = 9
+ Top = 1080
+ Width = 975
+ End
+ Begin VB.Label Label6
+ Caption = "Registered:"
+ Height = 255
+ Left = 120
+ TabIndex = 8
+ Top = 840
+ Width = 975
+ End
End
End
End
@@ -526,7 +465,12 @@
FunctionalitiesEnabled = False ' Disable functionalities by default
' Initialize AL
Set MyActiveLock = ActiveLock2.NewInstance()
- MyActiveLock.LockType = lockHD
+ With MyActiveLock
+ .SoftwareName = "TestApp"
+ .SoftwareVersion = "1.0"
+ .SoftwareCode = PUB_KEY
+ .LockType = lockHD
+ End With
' Verify AL's authenticity
' VerifyActiveLockdll requires a public-creatable object to be passed in so that it can
@@ -553,10 +497,8 @@
.TickerPlaySound = chkSound
.TickerScroll = chkScroll
End With
- txtName = "TestApp" 'App.EXEName
txtVersion = App.Major & "." & App.Minor & "." & App.Revision
cboSpeed = cboSpeed.List(2)
- txtSoftwareCodePub = modMain.PUB_KEY
'These MUST to be set BEFORE you generate the reg code
'or the app will fail to register properly on the next run
@@ -703,10 +645,6 @@
Private Sub txtName_Change()
MyActiveLock.SoftwareName = txtName
-End Sub
-
-Private Sub txtSoftwareCodePub_Change()
- MyActiveLock.SoftwareCode = txtSoftwareCodePub
End Sub
Private Sub txtVersion_Change()
Index: ALTestApp.exe
===================================================================
RCS file: /cvsroot/activelock/activelock/examples/example1/ALTestApp.exe,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
Binary files /tmp/cvsaYBhe3 and /tmp/cvs0uhHoV differ
Index: frmMain.frx
===================================================================
RCS file: /cvsroot/activelock/activelock/examples/example1/frmMain.frx,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
Binary files /tmp/cvsTEYbC6 and /tmp/cvs0LSh02 differ
|
