pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

OnGuard: Rework sample projects.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8721 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-20 11:17:45 +00:00
parent a1792b0941
commit d6279b614d
103 changed files with 2214 additions and 1689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
components/onguard/examples/codegen/codegen.lpi
View File

@ -1,13 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
@ -19,9 +19,16 @@
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="2">
<Item1>
@ -37,8 +44,7 @@
<Filename Value="codegen.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="CodeGen"/>
<IsVisibleTab Value="True"/>
<CursorPos X="27" Y="9"/>
<CursorPos X="31" Y="19"/>
<UsageCount Value="28"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -50,6 +56,7 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="CodeGenU"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="40" Y="18"/>
<UsageCount Value="28"/>
@ -61,7 +68,7 @@
<ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="7"/>
<EditorIndex Value="6"/>
<TopLine Value="38"/>
<CursorPos X="32" Y="50"/>
<UsageCount Value="12"/>
@ -110,14 +117,14 @@
<ComponentName Value="CodeGenerateFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="6"/>
<EditorIndex Value="5"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit9>
<Unit10>
<Filename Value="..\..\source\onguard.pas"/>
<EditorIndex Value="5"/>
<EditorIndex Value="4"/>
<TopLine Value="913"/>
<CursorPos X="6" Y="940"/>
<UsageCount Value="11"/>
@ -143,7 +150,7 @@
</Unit12>
<Unit13>
<Filename Value="..\..\source\ogutil.pas"/>
<EditorIndex Value="4"/>
<EditorIndex Value="3"/>
<TopLine Value="1247"/>
<CursorPos X="6" Y="1271"/>
<UsageCount Value="10"/>
@ -191,7 +198,7 @@
</Unit19>
<Unit20>
<Filename Value="..\..\source\idesn.pas"/>
<EditorIndex Value="8"/>
<EditorIndex Value="7"/>
<TopLine Value="137"/>
<CursorPos X="6" Y="155"/>
<UsageCount Value="11"/>
@ -213,7 +220,7 @@
</Unit22>
<Unit23>
<Filename Value="..\..\source\ogfirst.pas"/>
<EditorIndex Value="2"/>
<EditorIndex Value="8"/>
<TopLine Value="133"/>
<CursorPos X="9" Y="152"/>
<UsageCount Value="10"/>
@ -221,7 +228,7 @@
</Unit23>
<Unit24>
<Filename Value="..\..\source\ogproexe.pas"/>
<EditorIndex Value="3"/>
<EditorIndex Value="2"/>
<TopLine Value="644"/>
<CursorPos X="9" Y="663"/>
<UsageCount Value="10"/>

80
components/onguard/examples/exdmod/exdmod.lpi
View File

@ -73,8 +73,8 @@
<UnitName Value="Exdmodu2"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="20"/>
<CursorPos X="37" Y="38"/>
<TopLine Value="21"/>
<CursorPos X="52" Y="38"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -160,123 +160,123 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" TopLine="489"/>
<Caret Line="509" TopLine="488"/>
</Position1>
<Position2>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="509" TopLine="488"/>
<Caret Line="510" TopLine="489"/>
</Position2>
<Position3>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" TopLine="489"/>
<Caret Line="512" TopLine="491"/>
</Position3>
<Position4>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="512" TopLine="491"/>
<Caret Line="515" TopLine="494"/>
</Position4>
<Position5>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="515" TopLine="494"/>
<Caret Line="516" TopLine="495"/>
</Position5>
<Position6>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="516" TopLine="495"/>
<Caret Line="522" TopLine="495"/>
</Position6>
<Position7>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="522" TopLine="495"/>
<Caret Line="517" TopLine="496"/>
</Position7>
<Position8>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="517" TopLine="496"/>
<Caret Line="516" TopLine="495"/>
</Position8>
<Position9>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="516" TopLine="495"/>
<Caret Line="522" TopLine="495"/>
</Position9>
<Position10>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="522" TopLine="495"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="176" TopLine="155"/>
</Position10>
<Position11>
<Filename Value="exdmodu1.pas"/>
<Caret Line="176" TopLine="155"/>
<Caret Line="177" TopLine="156"/>
</Position11>
<Position12>
<Filename Value="exdmodu1.pas"/>
<Caret Line="177" TopLine="156"/>
<Caret Line="179" TopLine="158"/>
</Position12>
<Position13>
<Filename Value="exdmodu1.pas"/>
<Caret Line="179" TopLine="158"/>
<Caret Line="167" Column="37" TopLine="160"/>
</Position13>
<Position14>
<Filename Value="exdmodu1.pas"/>
<Caret Line="167" Column="37" TopLine="160"/>
<Caret Line="182" TopLine="161"/>
</Position14>
<Position15>
<Filename Value="exdmodu1.pas"/>
<Caret Line="182" TopLine="161"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1179" TopLine="1158"/>
</Position15>
<Position16>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1179" TopLine="1158"/>
<Caret Line="1180" TopLine="1159"/>
</Position16>
<Position17>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1180" TopLine="1159"/>
<Caret Line="1181" TopLine="1160"/>
</Position17>
<Position18>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1181" TopLine="1160"/>
</Position18>
<Position19>
<Filename Value="exdmodu1.pas"/>
<Caret Line="184" TopLine="163"/>
</Position18>
<Position19>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2085" TopLine="2064"/>
</Position19>
<Position20>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2085" TopLine="2064"/>
<Caret Line="2086" TopLine="2065"/>
</Position20>
<Position21>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2086" TopLine="2065"/>
<Caret Line="2087" Column="40" TopLine="2066"/>
</Position21>
<Position22>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2087" Column="40" TopLine="2066"/>
<Caret Line="2088" TopLine="2067"/>
</Position22>
<Position23>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2088" TopLine="2067"/>
</Position23>
<Position24>
<Filename Value="exdmodu1.pas"/>
<Caret Line="188" TopLine="137"/>
</Position24>
<Position25>
</Position23>
<Position24>
<Filename Value="exdmodu2.pas"/>
<Caret Line="24" Column="51" TopLine="20"/>
</Position24>
<Position25>
<Filename Value="exdmodu1.pas"/>
<Caret Line="211" Column="75" TopLine="206"/>
</Position25>
<Position26>
<Filename Value="exdmodu1.pas"/>
<Caret Line="211" Column="75" TopLine="206"/>
<Caret Line="176" TopLine="156"/>
</Position26>
<Position27>
<Filename Value="exdmodu1.pas"/>
<Caret Line="176" TopLine="156"/>
<Caret Line="175" TopLine="155"/>
</Position27>
<Position28>
<Filename Value="exdmodu1.pas"/>
<Caret Line="175" TopLine="155"/>
<Caret Line="178" Column="27" TopLine="156"/>
</Position28>
<Position29>
<Filename Value="exdmodu1.pas"/>
<Caret Line="178" Column="27" TopLine="156"/>
<Caret Line="45" Column="14" TopLine="24"/>
</Position29>
<Position30>
<Filename Value="exdmodu1.pas"/>
<Caret Line="45" Column="14" TopLine="24"/>
<Filename Value="exdmodu2.pas"/>
<Caret Line="37" Column="52" TopLine="20"/>
</Position30>
</JumpHistory>
</ProjectOptions>

36
components/onguard/examples/exdmod/exdmodu2.lfm
View File

@ -87,11 +87,12 @@ object SNEntryDlg: TSNEntryDlg
object OKBtn: TBitBtn
AnchorSideTop.Control = CancelBtn
AnchorSideRight.Control = Bevel1
Left = 26
Height = 33
Top = 128
Width = 89
Left = 69
Height = 26
Top = 143
Width = 46
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Bottom = 8
Kind = bkOK
ModalResult = 1
@ -100,12 +101,13 @@ object SNEntryDlg: TSNEntryDlg
object CancelBtn: TBitBtn
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeText
AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom
Left = 131
Height = 33
Top = 128
Width = 89
Height = 26
Top = 143
Width = 46
AutoSize = True
BorderSpacing.Top = 12
BorderSpacing.Bottom = 8
Kind = bkCancel
@ -131,9 +133,23 @@ object SNEntryDlg: TSNEntryDlg
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
Left = 115
Height = 37
Top = 125
Height = 28
Top = 136
Width = 16
Shape = bsSpacer
end
object Bevel2: TBevel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = CodeText
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CodeText
AnchorSideRight.Side = asrBottom
Left = 8
Height = 3
Top = 128
Width = 228
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
Shape = bsTopLine
end
end

35
components/onguard/examples/exdmod/exdmodu2.lrs
View File

@ -28,19 +28,24 @@ LazarusResources.Add('TSNEntryDlg','FORMDATA',[
+'rBottom'#4'Left'#2'='#6'Height'#2#23#3'Top'#2']'#5'Width'#3#175#0#17'Border'
+'Spacing.Top'#2#8#19'BorderSpacing.Right'#2#8#8'TabOrder'#2#2#0#0#7'TBitBtn'
+#5'OKBtn'#21'AnchorSideTop.Control'#7#9'CancelBtn'#23'AnchorSideRight.Contro'
+'l'#7#6'Bevel1'#4'Left'#2#26#6'Height'#2'!'#3'Top'#3#128#0#5'Width'#2'Y'#7'A'
+'nchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#4'b'
+'kOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#22'Anc'
+'horSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'AnchorSideTop.Control'#7#8'CodeText'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#3#131#0#6'Height'#2'!'#3'Top'#3#128#0#5'Width'#2'Y'#17'BorderSpacing.'
+'Top'#2#12#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#8'bkCancel'#7'OnClick'#7#14
+'CancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#22'AnchorSideLeft'
+'.Control'#7#6'Label4'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
+'op.Control'#7#6'Label3'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'='#6
+'Height'#2#23#3'Top'#2#31#5'Width'#2'y'#18'BorderSpacing.Left'#2#8#17'Border'
+'Spacing.Top'#2#8#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#0#0#0#6'TBevel'#6
+'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'a'
+'srCenter'#4'Left'#2's'#6'Height'#2'%'#3'Top'#2'}'#5'Width'#2#16#5'Shape'#7#8
+'bsSpacer'#0#0#0
+'l'#7#6'Bevel1'#4'Left'#2'E'#6'Height'#2#26#3'Top'#3#143#0#5'Width'#2'.'#7'A'
+'nchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Bottom'#2#8
+#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#9'Canc'
+'elBtn'#22'AnchorSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'a'
+'srBottom'#21'AnchorSideTop.Control'#7#6'Bevel2'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#3#131#0#6'Height'#2#26#3'Top'#3#143#0#5'Width'#2'.'#8'Au'
+'toSize'#9#17'BorderSpacing.Top'#2#12#20'BorderSpacing.Bottom'#2#8#4'Kind'#7
+#8'bkCancel'#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9
+'ModString'#22'AnchorSideLeft.Control'#7#6'Label4'#19'AnchorSideLeft.Side'#7
+#9'asrBottom'#21'AnchorSideTop.Control'#7#6'Label3'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#4'Left'#2'='#6'Height'#2#23#3'Top'#2#31#5'Width'#2'y'#18'Borde'
+'rSpacing.Left'#2#8#17'BorderSpacing.Top'#2#8#8'ReadOnly'#9#7'TabStop'#8#8'T'
+'abOrder'#2#0#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'
+#19'AnchorSideLeft.Side'#7#9'asrCenter'#4'Left'#2's'#6'Height'#2#28#3'Top'#3
+#136#0#5'Width'#2#16#5'Shape'#7#8'bsSpacer'#0#0#6'TBevel'#6'Bevel2'#22'Ancho'
+'rSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#8'CodeText'#18'A'
+'nchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#8'CodeText'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#3#3'Top'#3
+#128#0#5'Width'#3#228#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Bor'
+'derSpacing.Top'#2#12#5'Shape'#7#9'bsTopLine'#0#0#0
]);

1
components/onguard/examples/exdmod/exdmodu2.pas
View File

@ -12,6 +12,7 @@ type
TSNEntryDlg = class(TForm)
Bevel1: TBevel;
Bevel2: TBevel;
Label1: TLabel;
Label2: TLabel;
SNText: TEdit;

10
components/onguard/examples/exdtp21/exdtp21.lpi
View File

@ -59,8 +59,8 @@
<UnitName Value="Exdtp21u"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="87"/>
<CursorPos X="52" Y="107"/>
<TopLine Value="88"/>
<CursorPos X="3" Y="108"/>
<UsageCount Value="836"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -74,7 +74,7 @@
<Loaded Value="True"/>
</Unit2>
</Units>
<JumpHistory Count="15" HistoryIndex="14">
<JumpHistory Count="16" HistoryIndex="15">
<Position1>
<Filename Value="exdtp21u.pas"/>
<Caret Line="83" Column="17" TopLine="69"/>
@ -135,6 +135,10 @@
<Filename Value="exdtp21u.pas"/>
<Caret Line="97" Column="49" TopLine="72"/>
</Position15>
<Position16>
<Filename Value="exdtp21u.pas"/>
<Caret Line="106" Column="37" TopLine="87"/>
</Position16>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

34
components/onguard/examples/exdtp21/exdtp21u.lfm
View File

@ -4,16 +4,17 @@ object Form1: TForm1
Top = 279
Width = 228
AutoSize = True
BorderStyle = bsDialog
Caption = 'Form1'
ClientHeight = 155
ClientWidth = 228
OnActivate = FormActivate
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object Label1: TLabel
object lblExpires: TLabel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
Left = 64
Height = 15
@ -25,17 +26,18 @@ object Form1: TForm1
object CloseBtn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 70
Height = 33
Top = 81
Width = 89
Left = 91
Height = 26
Top = 96
Width = 46
AutoSize = True
BorderSpacing.Around = 12
Kind = bkClose
TabOrder = 0
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
@ -48,7 +50,21 @@ object Form1: TForm1
BorderSpacing.Around = 12
Caption = 'If you can edit this, your program was allowed to run'
WordWrap = True
OnDblClick = Memo1DblClick
OnDblClick = InfoDblClick
end
object Bevel1: TBevel
AnchorSideLeft.Control = Info
AnchorSideTop.Control = lblExpires
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3
Top = 81
Width = 204
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
Shape = bsTopLine
end
object OgDateCode1: TOgDateCode
OnChecked = OgDateCode1Checked

44
components/onguard/examples/exdtp21/exdtp21u.lrs
View File

@ -2,23 +2,29 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'b'#1#6'Height'#3#155#0#3'Top'#3#23#1#5'Wi'
+'dth'#3#228#0#8'AutoSize'#9#7'Caption'#6#5'Form1'#12'ClientHeight'#3#155#0#11
+'ClientWidth'#3#228#0#10'OnActivate'#7#12'FormActivate'#8'Position'#7#14'poS'
+'creenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSid'
+'eLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorS'
+'ideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+'@'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2'e'#7'Caption'#6#19'Expires: 00/00/'
+'0000'#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Contro'
+'l'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Contr'
+'ol'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'F'#6'Height'
+#2'!'#3'Top'#2'Q'#5'Width'#2'Y'#20'BorderSpacing.Around'#2#12#4'Kind'#7#7'bk'
+'Close'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3
+'Top'#2#12#5'Width'#3#204#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20
+'BorderSpacing.Around'#2#12#7'Caption'#6'5If you can edit this, your program'
+' was allowed to run'#8'WordWrap'#9#10'OnDblClick'#7#13'Memo1DblClick'#0#0#11
+'TOgDateCode'#11'OgDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetK'
+'ey'#7#17'OgDateCode1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#9'StoreCo'
+'de'#9#4'Left'#3#176#0#3'Top'#2'@'#0#0#0
+'dth'#3#228#0#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#5'For'
+'m1'#12'ClientHeight'#3#155#0#11'ClientWidth'#3#228#0#10'OnActivate'#7#12'Fo'
+'rmActivate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6
+'TLabel'#10'lblExpires'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideL'
+'eft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#4'Info'#18'AnchorSideT'
+'op.Side'#7#9'asrBottom'#4'Left'#2'@'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2
+'e'#7'Caption'#6#19'Expires: 00/00/0000'#11'ParentColor'#8#0#0#7'TBitBtn'#8
+'CloseBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9
+'asrCenter'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2'['#6'Height'#2#26#3'Top'#2'`'#5'Width'#2'.'#8'AutoSize'
+#9#20'BorderSpacing.Around'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6
+'TLabel'#4'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont'
+'rol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.S'
+'ide'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3'Top'#2#12#5'Width'#3#204#0
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12
+#7'Caption'#6'5If you can edit this, your program was allowed to run'#8'Word'
+'Wrap'#9#10'OnDblClick'#7#12'InfoDblClick'#0#0#6'TBevel'#6'Bevel1'#22'Anchor'
+'SideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#10'lblExpires'#18'A'
+'nchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'Info'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#2'Q'
+#5'Width'#3#204#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpa'
+'cing.Top'#2#12#5'Shape'#7#9'bsTopLine'#0#0#11'TOgDateCode'#11'OgDateCode1'#9
+'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetKey'#7#17'OgDateCode1GetKey'#9'O'
+'nGetCode'#7#18'OgDateCode1GetCode'#9'StoreCode'#9#4'Left'#3#176#0#3'Top'#2
+'@'#0#0#0
]);

13
components/onguard/examples/exdtp21/exdtp21u.pas
View File

@ -9,7 +9,7 @@ interface
uses
SysUtils,Classes,Controls,
Forms, Dialogs, StdCtrls, Buttons,LResources, OnGuard,
Forms, Dialogs, StdCtrls, Buttons,LResources, ExtCtrls, OnGuard,
OgUtil,
IniFiles;
@ -22,12 +22,13 @@ type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
OgDateCode1: TOgDateCode;
Label1: TLabel;
lblExpires: TLabel;
procedure FormActivate(Sender: TObject);
procedure Memo1DblClick(Sender: TObject);
procedure InfoDblClick(Sender: TObject);
procedure OgDateCode1GetKey(Sender: TObject; var Key: TKey);
procedure OgDateCode1GetCode(Sender: TObject; var Code: TCode);
procedure OgDateCode1Checked(Sender: TObject; Status: TCodeStatus);
@ -56,7 +57,7 @@ begin
if FExpired then Application.Terminate;
end;
procedure TForm1.Memo1DblClick(Sender: TObject);
procedure TForm1.InfoDblClick(Sender: TObject);
begin
ShowMessage(Inttostr(OgDateCode1.GetInvalidCount));
end;
@ -107,7 +108,7 @@ begin
// Status := ogValidCode; // -- just for testing the form
case Status of
ogValidCode : begin
Label1.Caption := 'Expires: ' + DateToStr(OgDateCode1.GetValue);
lblExpires.Caption := 'Expires: ' + DateToStr(OgDateCode1.GetValue);
Exit;
end;

4
components/onguard/examples/exdtreg/exdtreg.lpi
View File

@ -51,7 +51,6 @@
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="exdtregu.pas"/>
@ -63,11 +62,10 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="27"/>
<CursorPos Y="44"/>
<CursorPos X="23" Y="43"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit1>
<Unit2>
<Filename Value="..\..\source\qonguard3.pas"/>

8
components/onguard/examples/exdtreg/exdtregu.lfm
View File

@ -13,7 +13,7 @@ object Form1: TForm1
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1
AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
@ -95,7 +95,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick
TabOrder = 2
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
@ -113,8 +113,8 @@ object Form1: TForm1
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Memo1
AnchorSideRight.Control = Memo1
AnchorSideLeft.Control = Info
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3

44
components/onguard/examples/exdtreg/exdtregu.lrs
View File

@ -6,8 +6,8 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Date Code Example'
+#12'ClientHeight'#3'5'#1#11'ClientWidth'#3#228#1#8'Position'#7#14'poScreenCe'
+'nter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLef'
+'t.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSide'
+'Top.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#249#0#5'Width'
+'t.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSideT'
+'op.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#249#0#5'Width'
+#2' '#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
+'abel'#6'Label1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.S'
+'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop'
@ -31,24 +31,24 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'trol'#7#8'CloseBtn'#4'Left'#3'+'#1#6'Height'#2#25#3'Top'#3#244#0#5'Width'#2
+'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#4#25'Borde'
+'rSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'Remo'
+'veBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contro'
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Si'
+'de'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2'1'#5'Width'#3#204
+#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2
+#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this form indicates th'
+'e status of the code. An invalid code indicates that the code is either the'
+' incorrect type or that none has been entered. '#13#10#13#10'If the proper '
+'code has not been entered or the ONGUARD.INI file was deleted, the message '
+'will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button'
+' to enter a code (the CODEGEN program can be used to generate the proper "D'
+'ate" code). '#13#10#13#10'The "Remove Code" button can be used to remove th'
+'e entered code from the INI file. Doing so will cause the TOgDateCode compo'
+'nent to report that the code is invalid.'#5'Color'#7#9'clBtnFace'#11'Parent'
+'Color'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7
+#5'Memo1'#23'AnchorSideRight.Control'#7#5'Memo1'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#229#0#5'Width'#3#204#1#7'Anc'
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'bsTopLine'#0#0#11'TOg'
+'DateCode'#11'OgDateCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'Ge'
+'tKey'#9'OnGetCode'#7#7'GetCode'#4'Left'#3#168#0#3'Top'#3#192#0#0#0#0
+'veBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#4'Info'#22'AnchorSideLeft.Control'
+#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2'1'#5'Width'#3#204#1#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7
+'Caption'#12'H'#2#0#0'The label at the bottom of this form indicates the sta'
+'tus of the code. An invalid code indicates that the code is either the inco'
+'rrect type or that none has been entered. '#13#10#13#10'If the proper code '
+'has not been entered or the ONGUARD.INI file was deleted, the message will '
+'say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to e'
+'nter a code (the CODEGEN program can be used to generate the proper "Date" '
+'code). '#13#10#13#10'The "Remove Code" button can be used to remove the ent'
+'ered code from the INI file. Doing so will cause the TOgDateCode component '
+'to report that the code is invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'
+#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#4'Info'
+#23'AnchorSideRight.Control'#7#4'Info'#20'AnchorSideRight.Side'#7#9'asrBotto'
+'m'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#229#0#5'Width'#3#204#1#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'bsTopLine'#0#0#11'TOgDateCode'
+#11'OgDateCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'On'
+'GetCode'#7#7'GetCode'#4'Left'#3#168#0#3'Top'#3#192#0#0#0#0
]);

2
components/onguard/examples/exdtreg/exdtregu.pas
View File

@ -12,7 +12,7 @@ type
TForm1 = class(TForm)
Bevel1: TBevel;
Memo1: TLabel;
Info: TLabel;
OgDateCode1: TOgDateCode;
CodeBtn: TButton;
CloseBtn: TBitBtn;

2
components/onguard/examples/exdyreg/ONGUARD.INI
View File

@ -1,2 +1,2 @@
[Codes]
DaysCode=089B057D209A4B82B526
DaysCode=247291A99900D64CB826

10
components/onguard/examples/exdyreg/exdyregu.lfm
View File

@ -13,7 +13,7 @@ object Form1: TForm1
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1
AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
@ -95,7 +95,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick
TabOrder = 2
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
@ -113,10 +113,10 @@ object Form1: TForm1
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = Memo1
AnchorSideLeft.Control = Info
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3

20
components/onguard/examples/exdyreg/exdyregu.lrs
View File

@ -6,8 +6,8 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Days Code Example'
+#12'ClientHeight'#3'/'#1#11'ClientWidth'#3#237#1#8'Position'#7#14'poScreenCe'
+'nter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLef'
+'t.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSide'
+'Top.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#246#0#5'Width'
+'t.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSideT'
+'op.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#246#0#5'Width'
+#2' '#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
+'abel'#6'Label1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.S'
+'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop'
@ -31,7 +31,7 @@ LazarusResources.Add('TForm1','FORMDATA',[
+#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'+'#1#6'Height'#2#25#3'T'
+'op'#3#241#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpac'
+'ing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Cod'
+'e'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22
+'e'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#4'Info'#22
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2
@ -46,11 +46,11 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'used to remove the entered code from the INI file. Doing so will cause the '
+'TOgDaysCode component to report that the code is invalid.'#5'Color'#7#9'clB'
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSi'
+'deLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSi'
+'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Memo1'#20'Anchor'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#226#0#5
+'Width'#3#213#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'b'
+'sTopLine'#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#11'CodeChecked'
+#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7#10'Cha'
+'ngeCode'#4'Left'#3#192#0#3'Top'#3#200#0#0#0#0
+'deLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Info'#18'AnchorSide'
+'Top.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'Info'#20'AnchorSid'
+'eRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#226#0#5'Wid'
+'th'#3#213#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'bsTo'
+'pLine'#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#11'CodeChecked'#8
+'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7#10'Chang'
+'eCode'#4'Left'#3#192#0#3'Top'#3#200#0#0#0#0
]);

2
components/onguard/examples/exdyreg/exdyregu.pas
View File

@ -15,7 +15,7 @@ type
Bevel1: TBevel;
CodeBtn: TButton;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

2
components/onguard/examples/exdys30/Days30.INI
View File

@ -1,2 +1,2 @@
[Codes]
DaysCode=1CFD160ECF31269CB526
DaysCode=6B97CD064372AA3EB826

10
components/onguard/examples/exdys30/exdys30.lpi
View File

@ -58,8 +58,8 @@
<UnitName Value="Exdys30u"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="108"/>
<CursorPos Y="108"/>
<TopLine Value="9"/>
<CursorPos X="22" Y="35"/>
<UsageCount Value="212"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -97,7 +97,7 @@
<UsageCount Value="10"/>
</Unit6>
</Units>
<JumpHistory Count="9" HistoryIndex="8">
<JumpHistory Count="10" HistoryIndex="9">
<Position1>
<Filename Value="exdys30u.pas"/>
<Caret Line="130" TopLine="115"/>
@ -134,6 +134,10 @@
<Filename Value="exdys30u.pas"/>
<Caret Line="16" Column="19"/>
</Position9>
<Position10>
<Filename Value="exdys30u.pas"/>
<Caret Line="108" TopLine="108"/>
</Position10>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

38
components/onguard/examples/exdys30/exdys30u.lfm
View File

@ -3,41 +3,43 @@ object Form1: TForm1
Height = 158
Top = 260
Width = 229
BorderStyle = bsDialog
Caption = 'Form1'
ClientHeight = 158
ClientWidth = 229
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object Label1: TLabel
object lblDaysRemaining: TLabel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
Left = 69
Height = 15
Top = 66
Top = 58
Width = 91
Alignment = taCenter
BorderSpacing.Top = 24
BorderSpacing.Top = 16
Caption = 'Days Remaining: '
ParentColor = False
end
object CloseBtn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 70
Height = 33
Top = 105
Width = 89
BorderSpacing.Top = 24
Left = 91
Height = 26
Top = 104
Width = 46
AutoSize = True
BorderSpacing.Top = 12
BorderSpacing.Bottom = 12
Kind = bkClose
TabOrder = 0
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
@ -51,6 +53,20 @@ object Form1: TForm1
Caption = 'If you can edit this, then your program was allowed to run'
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Info
AnchorSideTop.Control = lblDaysRemaining
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3
Top = 89
Width = 205
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 16
Shape = bsTopLine
end
object OgDaysCode1: TOgDaysCode
OnChecked = OgDaysCode1Checked
OnGetKey = OgDaysCode1GetKey

45
components/onguard/examples/exdys30/exdys30u.lrs
View File

@ -2,24 +2,29 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'D'#1#6'Height'#3#158#0#3'Top'#3#4#1#5'Wid'
+'th'#3#229#0#7'Caption'#6#5'Form1'#12'ClientHeight'#3#158#0#11'ClientWidth'#3
+#229#0#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLV'
+'ersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'O'
+'wner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5
+'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'E'#6'Height'#2#15#3
+'Top'#2'B'#5'Width'#2'['#9'Alignment'#7#8'taCenter'#17'BorderSpacing.Top'#2
+#24#7'Caption'#6#16'Days Remaining: '#11'ParentColor'#8#0#0#7'TBitBtn'#8'Clo'
+'seBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'as'
+'rCenter'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'a'
+'srBottom'#4'Left'#2'F'#6'Height'#2'!'#3'Top'#2'i'#5'Width'#2'Y'#17'BorderSp'
+'acing.Top'#2#24#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrd'
+'er'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
+'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'An'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3'Top'#2#12#5
+'Width'#3#205#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci'
+'ng.Around'#2#12#7'Caption'#6':If you can edit this, then your program was a'
+'llowed to run'#8'WordWrap'#9#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecke'
+'d'#7#18'OgDaysCode1Checked'#8'OnGetKey'#7#17'OgDaysCode1GetKey'#9'OnGetCode'
+#7#18'OgDaysCode1GetCode'#12'OnChangeCode'#7#21'OgDaysCode1ChangeCode'#4'Lef'
+'t'#2'('#3'Top'#2'X'#0#0#0
+'th'#3#229#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#5'Form1'#12'ClientHe'
+'ight'#3#158#0#11'ClientWidth'#3#229#0#8'OnCreate'#7#10'FormCreate'#8'Positi'
+'on'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#16'lblDays'
+'Remaining'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9
+'asrCenter'#21'AnchorSideTop.Control'#7#4'Info'#18'AnchorSideTop.Side'#7#9'a'
+'srBottom'#4'Left'#2'E'#6'Height'#2#15#3'Top'#2':'#5'Width'#2'['#9'Alignment'
+#7#8'taCenter'#17'BorderSpacing.Top'#2#16#7'Caption'#6#16'Days Remaining: '
+#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Control'#7#5
+'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6
+'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'['#6'Height'#2#26#3
+'Top'#2'h'#5'Width'#2'.'#8'AutoSize'#9#17'BorderSpacing.Top'#2#12#20'BorderS'
+'pacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#4'In'
+'fo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Own'
+'er'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr'
+'Bottom'#4'Left'#2#12#6'Height'#2#30#3'Top'#2#12#5'Width'#3#205#0#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'
+#6':If you can edit this, then your program was allowed to run'#8'WordWrap'#9
+#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideT'
+'op.Control'#7#16'lblDaysRemaining'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
+'AnchorSideRight.Control'#7#4'Info'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#2#12#6'Height'#2#3#3'Top'#2'Y'#5'Width'#3#205#0#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#16#5'Shape'#7#9'bsTopLine'#0
+#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#18'OgDaysCode1Checked'#8'O'
+'nGetKey'#7#17'OgDaysCode1GetKey'#9'OnGetCode'#7#18'OgDaysCode1GetCode'#12'O'
+'nChangeCode'#7#21'OgDaysCode1ChangeCode'#4'Left'#2'('#3'Top'#2'X'#0#0#0
]);

9
components/onguard/examples/exdys30/exdys30u.pas
View File

@ -13,7 +13,7 @@ interface
uses
SysUtils, Classes, Controls,
Forms, Dialogs, LResources, StdCtrls, Buttons,
Forms, Dialogs, LResources, StdCtrls, Buttons, ExtCtrls,
OnGuard, OgUtil, IniFiles;
const
@ -25,10 +25,11 @@ type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
OgDaysCode1: TOgDaysCode;
Label1: TLabel;
lblDaysRemaining: TLabel;
procedure FormCreate(Sender: TObject);
procedure OgDaysCode1GetKey(Sender: TObject; var Key: TKey);
procedure OgDaysCode1GetCode(Sender: TObject; var Code: TCode);
@ -124,7 +125,7 @@ var
begin
case Status of
ogValidCode : begin
Label1.Caption := 'Days Remaining: '
lblDaysRemaining.Caption := 'Days Remaining: '
+ IntToStr(OgDaysCode1.GetValue);
Exit;
end;

3
components/onguard/examples/exinst/exinst.lpi
View File

@ -59,9 +59,10 @@
<UnitName Value="EXINSTU"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="22" Y="7"/>
<CursorPos X="36" Y="17"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="exinstu.lrs"/>

4
components/onguard/examples/exinst/exinstu.lfm
View File

@ -10,7 +10,7 @@ object FirstInstFrm: TFirstInstFrm
ClientWidth = 320
LCLVersion = '2.3.0.0'
object BitBtn2: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
@ -24,7 +24,7 @@ object FirstInstFrm: TFirstInstFrm
Kind = bkClose
TabOrder = 0
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner

24
components/onguard/examples/exinst/exinstu.lrs
View File

@ -1,17 +1,19 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TFirstInstFrm','FORMDATA',[
'TPF0'#13'TFirstInstFrm'#12'FirstInstFrm'#4'Left'#3'G'#1#6'Height'#3#140#0#3
+'Top'#3#218#0#5'Width'#3'@'#1#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7
+'Caption'#6#23'Single Instance Example'#12'ClientHeight'#3#140#0#11'ClientWi'
+'dth'#3'@'#1#10'LCLVersion'#6#7'2.3.0.0'#0#7'TBitBtn'#7'BitBtn2'#21'AnchorSi'
+'deTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSi'
+'deRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#3#233#0#6'Height'#2#25#3'Top'#2'E'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'a'
+'kRight'#0#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'
+#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contr'
+'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Cont'
+'rol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Heig'
+'ht'#2'-'#3'Top'#2#12#5'Width'#3'('#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
+'ight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6#131'Attempts to execute '
+'this application a second time result in the first instance to be activated'
+' and the second instance terminated.'#8'WordWrap'#9#0#0#0
+'deTop.Control'#7#4'Info'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSid'
+'eRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
+#233#0#6'Height'#2#25#3'Top'#2'E'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akR'
+'ight'#0#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'#7
+#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#4'Info'#22'AnchorSideLeft.Control'
+#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'
+#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2
+'-'#3'Top'#2#12#5'Width'#3'('#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#20'BorderSpacing.Around'#2#12#7'Caption'#6#131'Attempts to execute this app'
+'lication a second time result in the first instance to be activated and the'
+' second instance terminated.'#8'WordWrap'#9#0#0#0
]);

2
components/onguard/examples/exinst/exinstu.pas
View File

@ -12,7 +12,7 @@ type
TFirstInstFrm = class(TForm)
BitBtn2: TBitBtn;
Memo1: TLabel;
Info: TLabel;
private
{ Private declarations }
public

2
components/onguard/examples/exmachid/exmachid.lpi
View File

@ -60,7 +60,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="27"/>
<CursorPos X="26" Y="44"/>
<CursorPos X="41" Y="46"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
components/onguard/examples/exmachid/umachid.lfm
View File

@ -101,7 +101,7 @@ object frmExMachineID: TfrmExMachineID
Left = 138
Height = 23
Top = 72
Width = 98
Width = 122
BorderSpacing.Right = 12
ReadOnly = True
TabOrder = 2

2
components/onguard/examples/exmachid/umachid.lrs
View File

@ -33,7 +33,7 @@ LazarusResources.Add('TfrmExMachineID','FORMDATA',[
+'order'#2#4#7'Caption'#6#8'Generate'#7'OnClick'#7#16'btnGenerateClick'#8'Tab'
+'Order'#2#1#0#0#5'TEdit'#12'edtMachineID'#22'AnchorSideLeft.Control'#7#11'bt'
+'nGenerate'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#3#138#0#6'Height'#2#23#3'Top'#2'H'#5'Width'#2'b'#19'Bord'
+'asrBottom'#4'Left'#3#138#0#6'Height'#2#23#3'Top'#2'H'#5'Width'#2'z'#19'Bord'
+'erSpacing.Right'#2#12#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#6'TBevel'#6'Bevel1'
+#21'AnchorSideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7#9'asrCent'
+'er'#4'Left'#3#128#0#6'Height'#2#9#3'Top'#2'?'#5'Width'#2#16#5'Shape'#7#8'bs'

BIN
components/onguard/examples/exnet/EXNET.NAF
View File

Binary file not shown.

10
components/onguard/examples/exnet/exnet.lpi
View File

@ -58,8 +58,8 @@
<UnitName Value="Exnetu"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="118"/>
<CursorPos X="59" Y="141"/>
<TopLine Value="119"/>
<CursorPos X="59" Y="142"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -83,7 +83,7 @@
<UsageCount Value="10"/>
</Unit4>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="exnetu.pas"/>
<Caret Line="141" Column="59" TopLine="118"/>
@ -92,6 +92,10 @@
<Filename Value="exnetu.pas"/>
<Caret Line="140" Column="59" TopLine="117"/>
</Position2>
<Position3>
<Filename Value="exnetu.pas"/>
<Caret Line="141" Column="59" TopLine="118"/>
</Position3>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

28
components/onguard/examples/exnet/exnetu.lfm
View File

@ -14,12 +14,12 @@ object Form1: TForm1
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1
AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 231
Top = 244
Width = 32
BorderSpacing.Bottom = 12
Caption = 'Status'
@ -68,15 +68,16 @@ object Form1: TForm1
TabOrder = 0
end
object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 403
Height = 25
Top = 226
Top = 239
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Top = 10
BorderSpacing.Bottom = 12
Kind = bkClose
TabOrder = 1
@ -86,7 +87,7 @@ object Form1: TForm1
AnchorSideRight.Control = CloseBtn
Left = 302
Height = 25
Top = 226
Top = 239
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
@ -95,7 +96,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick
TabOrder = 2
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
@ -112,6 +113,19 @@ object Form1: TForm1
ParentColor = False
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Info
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3
Top = 226
Width = 466
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object OgNetCode1: TOgNetCode
OnChecked = CodeChecked
OnGetKey = GetKey

67
components/onguard/examples/exnet/exnetu.lrs
View File

@ -6,12 +6,12 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#20'Network Code Exam'
+'ple'#12'ClientHeight'#3'='#1#11'ClientWidth'#3#234#1#8'OnCreate'#7#10'FormC'
+'reate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLa'
+'bel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Co'
+'ntrol'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'H'
+'eight'#2#15#3'Top'#3#231#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Ca'
+'ption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
+'abel1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9
+'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
+'bel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Con'
+'trol'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'He'
+'ight'#2#15#3'Top'#3#244#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Cap'
+'tion'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'La'
+'bel1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'a'
+'srBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
+'asrCenter'#4'Left'#3#181#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2'H'#18'Bord'
+'erSpacing.Left'#2'P'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11
+'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#22'AnchorSideLeft.Control'#7#6'Labe'
@ -23,29 +23,34 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'Left'#2#12#6'Height'#2#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpacing.Around'
+#2#12#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClic'
+'k'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorS'
+'ideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorS'
+'ideRight.Control'#7#5'Memo1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#3#147#1#6'Height'#2#25#3'Top'#3#226#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7
+'akRight'#0#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2
+#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'An'
+'chorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'.'#1#6'Height'#2#25#3'Top'#3
+#226#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Ri'
+'ght'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'O'
+'nClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'Anch'
+'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'An'
+'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2
+'1'#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Border'
+'Spacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this'
+' form indicates the status of the code. An invalid code indicates that the '
+'code is either the incorrect type or that none has been entered. '#13#10#13
+#10'If the proper code has not been entered or the ONGUARD.INI file was dele'
+'ted, the message will say that the code is invalid.'#13#10#13#10'Use the "E'
+'nter Code" button to enter a code (the CODEGEN program can be used to gener'
+'ate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be'
+' used to remove the entered code from the INI file. Doing so will cause the'
+' TOgNetCode component to report that the code is invalid.'#5'Color'#7#9'clB'
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#10'TOgNetCode'#10'OgNetCode1'#9
+'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCo'
+'de'#8'FileName'#6#9'EXNET.NAF'#4'Left'#3#192#0#3'Top'#3#208#0#0#0#0
+'ideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anchor'
+'SideRight.Control'#7#4'Info'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#3#147#1#6'Height'#2#25#3'Top'#3#239#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7
+'akRight'#0#17'BorderSpacing.Top'#2#10#20'BorderSpacing.Bottom'#2#12#4'Kind'
+#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.C'
+'ontrol'#7#8'CloseBtn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'.'
+#1#6'Height'#2#25#3'Top'#3#239#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRi'
+'ght'#0#19'BorderSpacing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Capt'
+'ion'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6
+'TLabel'#4'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont'
+'rol'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
+'Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6
+'Height'#3#165#0#3'Top'#2'1'#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLef'
+'t'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The la'
+'bel at the bottom of this form indicates the status of the code. An invalid'
+' code indicates that the code is either the incorrect type or that none has'
+' been entered. '#13#10#13#10'If the proper code has not been entered or the'
+' ONGUARD.INI file was deleted, the message will say that the code is invali'
+'d.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN pr'
+'ogram can be used to generate the proper "Usage" code). '#13#10#13#10'The "'
+'Remove Code" button can be used to remove the entered code from the INI fil'
+'e. Doing so will cause the TOgNetCode component to report that the code is '
+'invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBe'
+'vel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Contro'
+'l'#7#4'Info'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr'
+'ol'#7#4'Info'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'
+#2#3#3'Top'#3#226#0#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi'
+'ght'#0#5'Shape'#7#9'bsTopLine'#0#0#10'TOgNetCode'#10'OgNetCode1'#9'OnChecke'
+'d'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#8'Fi'
+'leName'#6#9'EXNET.NAF'#4'Left'#3#192#0#3'Top'#3#208#0#0#0#0
]);

5
components/onguard/examples/exnet/exnetu.pas
View File

@ -5,16 +5,17 @@ interface
uses
SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil, OgNetWrk;
StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil, OgNetWrk;
type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
CodeBtn: TButton;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

2
components/onguard/examples/exprot/exprot.lpi
View File

@ -60,7 +60,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="13"/>
<CursorPos X="72" Y="32"/>
<CursorPos X="41" Y="30"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

8
components/onguard/examples/exprot/exprotu.lfm
View File

@ -36,7 +36,7 @@ object Form1: TForm1
Kind = bkClose
TabOrder = 0
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
@ -51,10 +51,10 @@ object Form1: TForm1
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = Memo1
AnchorSideLeft.Control = Info
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3

14
components/onguard/examples/exprot/exprotu.lrs
View File

@ -12,19 +12,19 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'horSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'An'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3')'#1#6'Height'#2#25#3'Top'#3
+#159#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Ar'
+'ound'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'A'
+'nchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'A'
+'nchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'ound'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#4'Info'#22'An'
+'chorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'An'
+'chorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#2#12#6'Height'#2'x'#3'Top'#2#12#5'Width'#3'h'#1#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6#250'The l'
+'abel at the bottom of this form indicates the status of the EXE file. '#13
+#10#13#10'If the EXE file has not been stamped, use the StampEXE program to '
+'protect it.'#13#10#13#10'The EXE file will need to be stamped after each co'
+'mpile since this re-writes the EXE file.'#8'WordWrap'#9#0#0#6'TBevel'#6'Bev'
+'el1'#22'AnchorSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#5'Me'
+'mo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
+'Memo1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3
+'Top'#3#144#0#5'Width'#3'h'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5
+'el1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Inf'
+'o'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'In'
+'fo'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'To'
+'p'#3#144#0#5'Width'#3'h'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5
+'Shape'#7#9'bsTopLine'#0#0#13'TOgProtectExe'#13'OgProtectExe1'#9'OnChecked'#7
+#20'OgProtectExe1Checked'#4'Left'#3#136#0#3'Top'#2'X'#0#0#0
]);

2
components/onguard/examples/exprot/exprotu.pas
View File

@ -14,7 +14,7 @@ type
TForm1 = class(TForm)
Bevel1: TBevel;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
StatusLbl: TLabel;
OgProtectExe1: TOgProtectExe;
procedure OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);

9
components/onguard/examples/exreg/exreg.lpi
View File

@ -59,7 +59,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="72"/>
<CursorPos X="30" Y="96"/>
<CursorPos X="41" Y="89"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -91,24 +91,21 @@
<TopLine Value="106"/>
<CursorPos X="10" Y="127"/>
<UsageCount Value="10"/>
<LoadedDesigner Value="True"/>
</Unit5>
<Unit6>
<Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/objpas/sysutils/sysinth.inc"/>
<EditorIndex Value="3"/>
<EditorIndex Value="-1"/>
<TopLine Value="75"/>
<CursorPos X="4" Y="93"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/win/sysutils.pp"/>
<UnitName Value="SysUtils"/>
<EditorIndex Value="4"/>
<EditorIndex Value="-1"/>
<TopLine Value="10"/>
<CursorPos X="23" Y="13"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit7>
</Units>
<JumpHistory Count="30" HistoryIndex="29">

10
components/onguard/examples/exrgreg/exrgreg.lpi
View File

@ -57,14 +57,14 @@
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="80"/>
<CursorPos X="59" Y="108"/>
<TopLine Value="81"/>
<CursorPos X="59" Y="109"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="exrgregu.pas"/>
<Caret Line="108" Column="59" TopLine="80"/>
@ -73,6 +73,10 @@
<Filename Value="exrgregu.pas"/>
<Caret Line="107" Column="59" TopLine="79"/>
</Position2>
<Position3>
<Filename Value="exrgregu.pas"/>
<Caret Line="108" Column="59" TopLine="80"/>
</Position3>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

35
components/onguard/examples/exrgreg/exrgregu.lfm
View File

@ -13,12 +13,12 @@ object Form1: TForm1
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1
AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 246
Top = 261
Width = 32
BorderSpacing.Bottom = 12
Caption = 'Status'
@ -67,38 +67,36 @@ object Form1: TForm1
TabOrder = 0
end
object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 406
Height = 25
Top = 241
Top = 256
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Kind = bkClose
TabOrder = 1
end
object RemoveBtn: TButton
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideTop.Control = CloseBtn
AnchorSideRight.Control = CloseBtn
Left = 305
Height = 25
Top = 241
Top = 256
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
BorderSpacing.Right = 4
BorderSpacing.Bottom = 12
BorderSpacing.InnerBorder = 4
Caption = 'Remove Code'
OnClick = RemoveBtnClick
TabOrder = 2
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
@ -115,11 +113,24 @@ object Form1: TForm1
ParentColor = False
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Info
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3
Top = 241
Width = 469
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object OgRegistrationCode1: TOgRegistrationCode
OnChecked = CodeChecked
OnGetKey = GetKey
OnGetCode = GetCode
Left = 128
Top = 208
Left = 152
Top = 224
end
end

91
components/onguard/examples/exrgreg/exrgregu.lrs
View File

@ -6,48 +6,51 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25'Registration Code'
+' Example'#12'ClientHeight'#3'4'#1#11'ClientWidth'#3#237#1#8'Position'#7#14
+'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'Anc'
+'horSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#246
+#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Caption'#6#6'Status'#5'Colo'
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.'
+'Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
+'op.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#181
+#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2'H'#18'BorderSpacing.Left'#2'P'#7'Ca'
+'ption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLa'
+'bel'#7'CodeLbl'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLeft.Si'
+'de'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.'
+'Side'#7#9'asrCenter'#4'Left'#3#21#1#6'Height'#2#15#3'Top'#2#17#5'Width'#2'`'
+#18'BorderSpacing.Left'#2#24#7'Caption'#6#16'0000000000000000'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#22'AnchorSideLeft.Contr'
+'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2
+#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpacing.Around'#2#12#25'BorderSpacing'
+'.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12'CodeBtnClick'
+#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#5'Me'
+'mo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#150#1#6'Height'#2
+#25#3'Top'#3#241#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Bord'
+'erSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8
+'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#5'Mem'
+'o1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#8'C'
+'loseBtn'#4'Left'#3'1'#1#6'Height'#2#25#3'Top'#3#241#0#5'Width'#2'a'#7'Ancho'
+'rs'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#12#19'BorderSpacing.Ri'
+'ght'#2#4#20'BorderSpacing.Bottom'#2#12#25'BorderSpacing.InnerBorder'#2#4#7
+'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0
+#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop'
+'.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideR'
+'ight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
+#12#6'Height'#3#180#0#3'Top'#2'1'#5'Width'#3#213#1#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#12'Q'#2#0#0'T'
+'he label at the bottom of this form indicates the status of the code. An in'
+'valid code indicates that the code is either the incorrect type or that non'
+'e has been entered. '#13#10#13#10'If the proper code has not been entered o'
+'r the ONGUARD.INI file was deleted, the message will say that the code is i'
+'nvalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEG'
+'EN program can be used to generate the proper "Usage" code). '#13#10#13#10
+'The "Remove Code" button can be used to remove the entered code from the IN'
+'I file. Doing so will cause the TOgRegistrationCode component to report tha'
+'t the code is invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWra'
+'p'#9#0#0#19'TOgRegistrationCode'#19'OgRegistrationCode1'#9'OnChecked'#7#11
+'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#4'Left'#3#128
+#0#3'Top'#3#208#0#0#0#0
+'horSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'A'
+'nchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#5#1#5
+'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Caption'#6#6'Status'#5'Color'#7
+#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Contr'
+'ol'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Co'
+'ntrol'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#181#0#6
+'Height'#2#15#3'Top'#2#17#5'Width'#2'H'#18'BorderSpacing.Left'#2'P'#7'Captio'
+'n'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'
+#7'CodeLbl'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLeft.Side'#7
+#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7
+#9'asrCenter'#4'Left'#3#21#1#6'Height'#2#15#3'Top'#2#17#5'Width'#2'`'#18'Bor'
+'derSpacing.Left'#2#24#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'
+#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2#25#3'T'
+'op'#2#12#5'Width'#2'Y'#20'BorderSpacing.Around'#2#12#25'BorderSpacing.Inner'
+'Border'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12'CodeBtnClick'#8'Tab'
+'Order'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#6'Bevel1'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#150#1#6'Height'#2#25#3'To'
+'p'#3#0#1#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing'
+'.Top'#2#12#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kin'
+'d'#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTo'
+'p.Control'#7#8'CloseBtn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3
+'1'#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akR'
+'ight'#0#19'BorderSpacing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Cap'
+'tion'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0
+#6'TLabel'#4'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
+'ntrol'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRigh'
+'t.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6
+'Height'#3#180#0#3'Top'#2'1'#5'Width'#3#213#1#7'Anchors'#11#5'akTop'#6'akLef'
+'t'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#12'Q'#2#0#0'The la'
+'bel at the bottom of this form indicates the status of the code. An invalid'
+' code indicates that the code is either the incorrect type or that none has'
+' been entered. '#13#10#13#10'If the proper code has not been entered or the'
+' ONGUARD.INI file was deleted, the message will say that the code is invali'
+'d.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN pr'
+'ogram can be used to generate the proper "Usage" code). '#13#10#13#10'The "'
+'Remove Code" button can be used to remove the entered code from the INI fil'
+'e. Doing so will cause the TOgRegistrationCode component to report that the'
+' code is invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWrap'#9#0
+#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop'
+'.Control'#7#4'Info'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRigh'
+'t.Control'#7#4'Info'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6
+'Height'#2#3#3'Top'#3#241#0#5'Width'#3#213#1#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#0#5'Shape'#7#9'bsTopLine'#0#0#19'TOgRegistrationCode'#19'OgRegis'
+'trationCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGe'
+'tCode'#7#7'GetCode'#4'Left'#3#152#0#3'Top'#3#224#0#0#0#0
]);

5
components/onguard/examples/exrgreg/exrgregu.pas
View File

@ -6,16 +6,17 @@ interface
uses
SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources,OnGuard, IniFiles, OgUtil;
StdCtrls, Buttons,LResources, ExtCtrls,OnGuard, IniFiles, OgUtil;
type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
CodeBtn: TButton;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

17
components/onguard/examples/exrgstr/exrgstr.lpi
View File

@ -31,11 +31,14 @@
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
@ -56,14 +59,14 @@
<UnitName Value="Exrgstru"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="65"/>
<CursorPos Y="92"/>
<TopLine Value="66"/>
<CursorPos X="3" Y="94"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="8" HistoryIndex="7">
<JumpHistory Count="9" HistoryIndex="8">
<Position1>
<Filename Value="exrgstru.pas"/>
<Caret Line="109" Column="77" TopLine="92"/>
@ -95,6 +98,10 @@
<Filename Value="exrgstru.pas"/>
<Caret Line="113" Column="42" TopLine="96"/>
</Position8>
<Position9>
<Filename Value="exrgstru.pas"/>
<Caret Line="81" Column="29" TopLine="65"/>
</Position9>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

28
components/onguard/examples/exrgstr/exrgstru.lfm
View File

@ -3,6 +3,7 @@ object Form1: TForm1
Height = 192
Top = 218
Width = 262
BorderStyle = bsDialog
Caption = 'Form1'
ClientHeight = 192
ClientWidth = 262
@ -43,17 +44,32 @@ object Form1: TForm1
object CloseBtn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 87
Height = 33
Top = 130
Width = 89
BorderSpacing.Top = 12
Left = 108
Height = 26
Top = 143
Width = 46
AutoSize = True
BorderSpacing.Top = 10
BorderSpacing.Bottom = 12
Kind = bkClose
TabOrder = 1
end
object Bevel1: TBevel
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3
Top = 130
Width = 238
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
Shape = bsTopLine
end
object OgRegistrationCode1: TOgRegistrationCode
OnChecked = OgRegistrationCode1Checked
OnGetKey = OgRegistrationCode1GetKey

46
components/onguard/examples/exrgstr/exrgstru.lrs
View File

@ -2,24 +2,30 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'-'#1#6'Height'#3#192#0#3'Top'#3#218#0#5'W'
+'idth'#3#6#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3#192#0#11'ClientWidth'#3
+#6#1#10'Font.Color'#7#7'clBlack'#8'Position'#7#14'poScreenCenter'#10'LCLVers'
+'ion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owne'
+'r'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Mem'
+'o1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'_'#6'Height'#2#15#3'Top'
+#2'g'#5'Width'#2'H'#9'Alignment'#7#8'taCenter'#17'BorderSpacing.Top'#2#6#7'C'
+'aption'#6#14'Registered to:'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#22'Anc'
+'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'Anc'
+'horSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#2#12#6'Height'#2'O'#3'Top'#2#12#5'Width'#3#238#0#7'Anchors'#11#5'akTo'
+'p'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#13'Lines.Strings'#1
+#6':If you can edit this, then your program was allowed to run'#0#10'ScrollB'
+'ars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorS'
+'ideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'Ancho'
+'rSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#2'W'#6'Height'#2'!'#3'Top'#3#130#0#5'Width'#2'Y'#17'BorderSpacing.Top'#2#12
+#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#19'T'
+'OgRegistrationCode'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistratio'
+'nCode1Checked'#8'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26
+'OgRegistrationCode1GetCode'#4'Left'#2'h'#3'Top'#2'('#0#0#0
+'idth'#3#6#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#5'Form1'#12'ClientHe'
+'ight'#3#192#0#11'ClientWidth'#3#6#1#10'Font.Color'#7#7'clBlack'#8'Position'
+#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'A'
+'nchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21
+'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
+'eft'#2'_'#6'Height'#2#15#3'Top'#2'g'#5'Width'#2'H'#9'Alignment'#7#8'taCente'
+'r'#17'BorderSpacing.Top'#2#6#7'Caption'#6#14'Registered to:'#11'ParentColor'
+#8#0#0#5'TMemo'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSide'
+'Top.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSid'
+'eRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2'O'#3'Top'#2#12#5'Width'
+#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Arou'
+'nd'#2#12#13'Lines.Strings'#1#6':If you can edit this, then your program was'
+' allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TB'
+'itBtn'#8'CloseBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.'
+'Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop'
+'.Side'#7#9'asrBottom'#4'Left'#2'l'#6'Height'#2#26#3'Top'#3#143#0#5'Width'#2
+'.'#8'AutoSize'#9#17'BorderSpacing.Top'#2#10#20'BorderSpacing.Bottom'#2#12#4
+'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLef'
+'t.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTo'
+'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Memo1'#20'AnchorSide'
+'Right.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#130#0#5'Widt'
+'h'#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.T'
+'op'#2#12#5'Shape'#7#9'bsTopLine'#0#0#19'TOgRegistrationCode'#19'OgRegistrat'
+'ionCode1'#9'OnChecked'#7#26'OgRegistrationCode1Checked'#8'OnGetKey'#7#25'Og'
+'RegistrationCode1GetKey'#9'OnGetCode'#7#26'OgRegistrationCode1GetCode'#4'Le'
+'ft'#2'h'#3'Top'#2'('#0#0#0
]);

14
components/onguard/examples/exselapi/exselap1.lfm
View File

@ -1,11 +1,11 @@
object Form1: TForm1
Left = 406
Height = 266
Height = 293
Top = 322
Width = 357
AutoSize = True
Caption = 'ExSelAPI: '
ClientHeight = 266
ClientHeight = 293
ClientWidth = 357
Menu = MainMenu1
OnCreate = FormCreate
@ -13,11 +13,11 @@ object Form1: TForm1
object ModifyBtn: TButton
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
Left = 122
Height = 25
Top = 182
Top = 242
Width = 113
BorderSpacing.Bottom = 16
BorderSpacing.InnerBorder = 4
@ -25,18 +25,18 @@ object Form1: TForm1
OnClick = ModifyBtnClick
TabOrder = 0
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 150
Height = 210
Top = 16
Width = 325
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 16
Caption = 'This example uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) to implement a limited use "demo" application which allows only the required features. The program can be run 3 times and then a special code st be obtained to register the program and to enable various features. A machine modifier is used to prevent the application from being copied and run on another machine. To obtain the release code you need to run the companion example EXSLCODE. The release codes will be stored in a data file called EXSELECT.DAT'
Caption = 'This example uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) to implement a limited use "demo" application which allows only the required features.'#13#10#13#10'The program can be run 3 times and then a special code st be obtained to register the program and to enable various features. '#13#10#13#10'A machine modifier is used to prevent the application from being copied and run on another machine. '#13#10#13#10'To obtain the release code you need to run the companion example EXSLCODE. The release codes will be stored in a data file called EXSELECT.DAT'
Color = clAqua
ParentColor = False
WordWrap = True

52
components/onguard/examples/exselapi/exselap1.lrs
View File

@ -1,33 +1,33 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#150#1#6'Height'#3#10#1#3'Top'#3'B'#1#5'Wi'
+'dth'#3'e'#1#8'AutoSize'#9#7'Caption'#6#10'ExSelAPI: '#12'ClientHeight'#3#10
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#150#1#6'Height'#3'%'#1#3'Top'#3'B'#1#5'Wi'
+'dth'#3'e'#1#8'AutoSize'#9#7'Caption'#6#10'ExSelAPI: '#12'ClientHeight'#3'%'
+#1#11'ClientWidth'#3'e'#1#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'
+#10'LCLVersion'#6#7'2.3.0.0'#0#7'TButton'#9'ModifyBtn'#22'AnchorSideLeft.Con'
+'trol'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Co'
+'ntrol'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'z'#6'Heig'
+'ht'#2#25#3'Top'#3#182#0#5'Width'#2'q'#20'BorderSpacing.Bottom'#2#16#25'Bord'
+'erSpacing.InnerBorder'#2#4#7'Caption'#6#15'Modify Features'#7'OnClick'#7#14
+'ModifyBtnClick'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Co'
+'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.C'
+'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#16#6'H'
+'eight'#3#150#0#3'Top'#2#16#5'Width'#3'E'#1#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#0#20'BorderSpacing.Around'#2#16#7'Caption'#12#30#2#0#0'This exam'
+'ple uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) '
+'to implement a limited use "demo" application which allows only the require'
+'d features. The program can be run 3 times and then a special code st be ob'
+'tained to register the program and to enable various features. A machine m'
+'odifier is used to prevent the application from being copied and run on ano'
+'ther machine. To obtain the release code you need to run the companion exa'
+'mple EXSLCODE. The release codes will be stored in a data file called EXSE'
+'LECT.DAT'#5'Color'#7#6'clAqua'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'TMainM'
+'enu'#9'MainMenu1'#4'Left'#2' '#3'Top'#3#168#0#0#9'TMenuItem'#12'FeaturesMen'
+'u'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesRequired'#7'Caption'#6
+#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'FeaturesHelp'#7'Caption'#6#4'H'
+'elp'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamples'#7'Caption'#6#8'Exam'
+'ples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDatabase'#7'Caption'#6#8'Dat'
+'abase'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7'Caption'#6#3'Fax'#7
+'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Caption'#6#7'Goodies'#7'E'
+'nabled'#8#0#0#0#0#0
+'ntrol'#7#4'Info'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'z'#6'Heigh'
+'t'#2#25#3'Top'#3#242#0#5'Width'#2'q'#20'BorderSpacing.Bottom'#2#16#25'Borde'
+'rSpacing.InnerBorder'#2#4#7'Caption'#6#15'Modify Features'#7'OnClick'#7#14
+'ModifyBtnClick'#8'TabOrder'#2#0#0#0#6'TLabel'#4'Info'#22'AnchorSideLeft.Con'
+'trol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Co'
+'ntrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#16#6'He'
+'ight'#3#210#0#3'Top'#2#16#5'Width'#3'E'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#20'BorderSpacing.Around'#2#16#7'Caption'#12'&'#2#0#0'This exampl'
+'e uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) to'
+' implement a limited use "demo" application which allows only the required '
+'features.'#13#10#13#10'The program can be run 3 times and then a special co'
+'de st be obtained to register the program and to enable various features. '
+#13#10#13#10'A machine modifier is used to prevent the application from bein'
+'g copied and run on another machine. '#13#10#13#10'To obtain the release co'
+'de you need to run the companion example EXSLCODE. The release codes will b'
+'e stored in a data file called EXSELECT.DAT'#5'Color'#7#6'clAqua'#11'Parent'
+'Color'#8#8'WordWrap'#9#0#0#9'TMainMenu'#9'MainMenu1'#4'Left'#2' '#3'Top'#3
+#168#0#0#9'TMenuItem'#12'FeaturesMenu'#7'Caption'#6#8'Features'#0#9'TMenuIte'
+'m'#16'FeaturesRequired'#7'Caption'#6#8'Required'#7'Checked'#9#0#0#9'TMenuIt'
+'em'#12'FeaturesHelp'#7'Caption'#6#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16
+'FeaturesExamples'#7'Caption'#6#8'Examples'#7'Enabled'#8#0#0#9'TMenuItem'#16
+'FeaturesDatabase'#7'Caption'#6#8'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11
+'FeaturesFax'#7'Caption'#6#3'Fax'#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesG'
+'oodies'#7'Caption'#6#7'Goodies'#7'Enabled'#8#0#0#0#0#0
]);

2
components/onguard/examples/exselapi/exselap1.pas
View File

@ -29,7 +29,7 @@ type
{ TForm1 }
TForm1 = class(TForm)
Memo1: TLabel;
Info: TLabel;
ModifyBtn: TButton;
MainMenu1: TMainMenu;
FeaturesMenu: TMenuItem;

2
components/onguard/examples/exselapi/exselapi.lpi
View File

@ -60,7 +60,7 @@
<UnitName Value="Exselap1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="50"/>
<CursorPos X="57" Y="68"/>
<CursorPos X="24" Y="71"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

14
components/onguard/examples/exselect/exselec1.lfm
View File

@ -15,11 +15,11 @@ object Form1: TForm1
object ModifyBtn: TButton
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
Left = 128
Height = 25
Top = 182
Top = 227
Width = 113
BorderSpacing.Bottom = 16
BorderSpacing.InnerBorder = 4
@ -28,25 +28,25 @@ object Form1: TForm1
OnClick = ModifyBtnClick
TabOrder = 0
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 150
Height = 195
Top = 16
Width = 337
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 16
Caption = ' This example uses the TOgUsageCode and the TOgSpecialCode components to implement a limited use "demo" application which allows only the required features. The program can be run 3 times and then a special code must be obtained to register the program and to enable various features. A machine modifier is used to prevent the application from being copied and run on another machine. To obtain the release release code you need to run the companion example EXSLCODE. The release codes will be stored in a data file called EXSELECT.DAT'
Caption = 'This example uses the TOgUsageCode and the TOgSpecialCode components to implement a limited use "demo" application which allows only the required features. '#13#10#13#10'The program can be run 3 times and then a special code must be obtained to register the program and to enable various features. '#13#10#13#10'A machine modifier is used to prevent the application from being copied and run on another machine. To obtain the release release code you need to run the companion example EXSLCODE. The release codes will be stored in a data file called EXSELECT.DAT'
Color = clAqua
ParentColor = False
WordWrap = True
end
object MainMenu1: TMainMenu
Left = 32
Top = 168
Left = 40
Top = 200
object FeaturesMenu: TMenuItem
Caption = 'Features'
object FeaturesRequired: TMenuItem

60
components/onguard/examples/exselect/exselec1.lrs
View File

@ -6,36 +6,36 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'ize'#9#7'Caption'#6#10'ExSelect: '#12'ClientHeight'#3#18#1#11'ClientWidth'#3
+'q'#1#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#7
+'2.3.0.0'#0#7'TButton'#9'ModifyBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19
+'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Memo1'#18
+'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#4'Info'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#128#0#6'Height'#2#25#3'Top'#3
+#182#0#5'Width'#2'q'#20'BorderSpacing.Bottom'#2#16#25'BorderSpacing.InnerBor'
+#227#0#5'Width'#2'q'#20'BorderSpacing.Bottom'#2#16#25'BorderSpacing.InnerBor'
+'der'#2#4#7'Caption'#6#15'Modify Features'#7'Enabled'#8#7'OnClick'#7#14'Modi'
+'fyBtnClick'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contro'
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Contr'
+'ol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#16#6'Heigh'
+'t'#3#150#0#3'Top'#2#16#5'Width'#3'Q'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'kRight'#0#20'BorderSpacing.Around'#2#16#7'Caption'#12#31#2#0#0' This exam'
+'ple uses the TOgUsageCode and the TOgSpecialCode components to implement a'
+' limited use "demo" application which allows only the required features. T'
+'he program can be run 3 times and then a special code must be obtained to '
+'register the program and to enable various features. A machine modifier is'
+' used to prevent the application from being copied and run on another machi'
+'ne. To obtain the release release code you need to run the companion examp'
+'le EXSLCODE. The release codes will be stored in a data file called EXSELE'
+'CT.DAT'#5'Color'#7#6'clAqua'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'TMainMen'
+'u'#9'MainMenu1'#4'Left'#2' '#3'Top'#3#168#0#0#9'TMenuItem'#12'FeaturesMenu'
+#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesRequired'#7'Caption'#6#8
+'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'FeaturesHelp'#7'Caption'#6#4'Hel'
+'p'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamples'#7'Caption'#6#8'Exampl'
+'es'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDatabase'#7'Caption'#6#8'Datab'
+'ase'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7'Caption'#6#3'Fax'#7'En'
+'abled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Caption'#6#7'Goodies'#7'Ena'
+'bled'#8#0#0#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'AutoCheck'#8#9'OnChecke'
+'d'#7#19'OgUsageCode1Checked'#8'OnGetKey'#7#18'OgUsageCode1GetKey'#9'OnGetCo'
+'de'#7#19'OgUsageCode1GetCode'#12'AutoDecrease'#8#12'OnChangeCode'#7#22'OgUs'
+'ageCode1ChangeCode'#4'Left'#3#168#0#3'Top'#2'0'#0#0#14'TOgSpecialCode'#14'O'
+'gSpecialCode1'#9'AutoCheck'#8#9'OnChecked'#7#21'OgSpecialCode1Checked'#8'On'
+'GetKey'#7#20'OgSpecialCode1GetKey'#9'OnGetCode'#7#21'OgSpecialCode1GetCode'
+#13'OnGetModifier'#7#25'OgSpecialCode1GetModifier'#4'Left'#3#168#0#3'Top'#2
+#16#0#0#0
+'fyBtnClick'#8'TabOrder'#2#0#0#0#6'TLabel'#4'Info'#22'AnchorSideLeft.Control'
+#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'
+#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#3
+#195#0#3'Top'#2#16#5'Width'#3'Q'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#0#20'BorderSpacing.Around'#2#16#7'Caption'#12'!'#2#0#0'This example uses'
+' the TOgUsageCode and the TOgSpecialCode components to implement a limited '
+'use "demo" application which allows only the required features. '#13#10#13
+#10'The program can be run 3 times and then a special code must be obtained'
+' to register the program and to enable various features. '#13#10#13#10'A ma'
+'chine modifier is used to prevent the application from being copied and run'
+' on another machine. To obtain the release release code you need to run th'
+'e companion example EXSLCODE. The release codes will be stored in a data fi'
+'le called EXSELECT.DAT'#5'Color'#7#6'clAqua'#11'ParentColor'#8#8'WordWrap'#9
+#0#0#9'TMainMenu'#9'MainMenu1'#4'Left'#2'('#3'Top'#3#200#0#0#9'TMenuItem'#12
+'FeaturesMenu'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesRequired'#7
+'Caption'#6#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'FeaturesHelp'#7'Cap'
+'tion'#6#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamples'#7'Captio'
+'n'#6#8'Examples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDatabase'#7'Capti'
+'on'#6#8'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7'Caption'#6
+#3'Fax'#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Caption'#6#7'Goo'
+'dies'#7'Enabled'#8#0#0#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'AutoCheck'#8
+#9'OnChecked'#7#19'OgUsageCode1Checked'#8'OnGetKey'#7#18'OgUsageCode1GetKey'
+#9'OnGetCode'#7#19'OgUsageCode1GetCode'#12'AutoDecrease'#8#12'OnChangeCode'#7
+#22'OgUsageCode1ChangeCode'#4'Left'#3#168#0#3'Top'#2'0'#0#0#14'TOgSpecialCod'
+'e'#14'OgSpecialCode1'#9'AutoCheck'#8#9'OnChecked'#7#21'OgSpecialCode1Checke'
+'d'#8'OnGetKey'#7#20'OgSpecialCode1GetKey'#9'OnGetCode'#7#21'OgSpecialCode1G'
+'etCode'#13'OnGetModifier'#7#25'OgSpecialCode1GetModifier'#4'Left'#3#168#0#3
+'Top'#2#16#0#0#0
]);

2
components/onguard/examples/exselect/exselec1.pas
View File

@ -29,7 +29,7 @@ type
{ TForm1 }
TForm1 = class(TForm)
Memo1: TLabel;
Info: TLabel;
ModifyBtn: TButton;
MainMenu1: TMainMenu;
FeaturesMenu: TMenuItem;

2
components/onguard/examples/exselect/exselect.lpi
View File

@ -59,7 +59,7 @@
<UnitName Value="Exselec1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="290"/>
<CursorPos X="22" Y="300"/>
<CursorPos X="49" Y="310"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

23
components/onguard/examples/exslcode/exslcod1.lfm
View File

@ -26,14 +26,15 @@ object Form1: TForm1
end
object GenBtn: TButton
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
Left = 16
Left = 85
Height = 25
Top = 161
Width = 96
BorderSpacing.Top = 16
BorderSpacing.Bottom = 16
BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4
Caption = 'Generate Code'
OnClick = GenBtnClick
@ -45,12 +46,12 @@ object Form1: TForm1
AnchorSideTop.Control = Owner
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 100
Left = 92
Height = 23
Top = 16
Width = 150
Width = 158
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 24
BorderSpacing.Left = 16
BorderSpacing.Top = 16
MaxLength = 8
TabOrder = 0
@ -147,18 +148,16 @@ object Form1: TForm1
end
end
object CodeDisplay: TEdit
AnchorSideLeft.Control = GenBtn
AnchorSideLeft.Side = asrBottom
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GenBtn
AnchorSideTop.Side = asrCenter
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 124
Left = 16
Height = 23
Top = 162
Width = 126
Top = 194
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Bottom = 16
Color = clAqua
TabOrder = 3

88
components/onguard/examples/exslcode/exslcod1.lrs
View File

@ -9,48 +9,48 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'ideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'MachineID'#18
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#15#3'Top'#2#20#5
+'Width'#2'<'#7'Caption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'ParentColor'
+#8#0#0#7'TButton'#6'GenBtn'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'Anc'
+'horSideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2#16#6'Height'#2#25#3'Top'#3#161#0#5'Width'#2'`'#17'BorderSpacing.Top'
+#2#16#20'BorderSpacing.Bottom'#2#16#25'BorderSpacing.InnerBorder'#2#4#7'Capt'
+'ion'#6#13'Generate Code'#7'OnClick'#7#11'GenBtnClick'#8'TabOrder'#2#1#0#0#5
+'TEdit'#9'MachineID'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLef'
+'t.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRi'
+'ght.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#2'd'#6'Height'#2#23#3'Top'#2#16#5'Width'#3#150#0#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#24#17'BorderSpacing.Top'#2#16#9
+'MaxLength'#2#8#8'TabOrder'#2#0#0#0#9'TGroupBox'#9'GroupBox1'#22'AnchorSideL'
+'eft.Control'#7#5'Owner'#4'Left'#2#16#6'Height'#2'Y'#3'Top'#2'8'#5'Width'#3
+#234#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#16#19'BorderSpacing.Right'#2#16
+#7'Caption'#6#8'Features'#12'ClientHeight'#2'E'#11'ClientWidth'#3#230#0#8'Ta'
+'bOrder'#2#2#0#9'TCheckBox'#7'ReqFeat'#22'AnchorSideLeft.Control'#7#9'GroupB'
+'ox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#4'Left'#2' '#6'Height'#2#19#3
+'Top'#2#0#5'Width'#2'A'#18'BorderSpacing.Left'#2' '#7'Caption'#6#8'Required'
+#7'Checked'#9#7'Enabled'#8#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCh'
+'eckBox'#8'HelpFeat'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSide'
+'Top.Control'#7#7'ReqFeat'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2' '
+#6'Height'#2#19#3'Top'#2#19#5'Width'#2'+'#18'BorderSpacing.Left'#2' '#7'Capt'
+'ion'#6#4'Help'#8'TabOrder'#2#1#0#0#9'TCheckBox'#12'ExamplesFeat'#22'AnchorS'
+'ideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#8'HelpFeat'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2' '#6'Height'#2#19#3'Top'#2'&'#5
+'Width'#2'D'#18'BorderSpacing.Left'#2' '#20'BorderSpacing.Bottom'#2#12#7'Cap'
+'tion'#6#8'Examples'#8'TabOrder'#2#2#0#0#9'TCheckBox'#6'DBFeat'#22'AnchorSid'
+'eLeft.Control'#7#12'ExamplesFeat'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'AnchorSideTop.Control'#7#7'ReqFeat'#4'Left'#3#132#0#6'Height'#2#19#3'Top'#2
+#0#5'Width'#2'B'#18'BorderSpacing.Left'#2' '#19'BorderSpacing.Right'#2' '#7
+'Caption'#6#8'Database'#8'TabOrder'#2#3#0#0#9'TCheckBox'#7'FaxFeat'#22'Ancho'
+'rSideLeft.Control'#7#12'ExamplesFeat'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#21'AnchorSideTop.Control'#7#8'HelpFeat'#4'Left'#3#132#0#6'Height'#2#19#3'To'
+'p'#2#19#5'Width'#2'$'#18'BorderSpacing.Left'#2' '#7'Caption'#6#3'Fax'#8'Tab'
+'Order'#2#4#0#0#9'TCheckBox'#11'GoodiesFeat'#22'AnchorSideLeft.Control'#7#12
+'ExamplesFeat'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contr'
+'ol'#7#12'ExamplesFeat'#4'Left'#3#132#0#6'Height'#2#19#3'Top'#2'&'#5'Width'#2
+'='#18'BorderSpacing.Left'#2' '#19'BorderSpacing.Right'#2' '#7'Caption'#6#7
+'Goodies'#8'TabOrder'#2#5#0#0#0#5'TEdit'#11'CodeDisplay'#22'AnchorSideLeft.C'
+'ontrol'#7#6'GenBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop'
+'.Control'#7#6'GenBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRi'
+'ght.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#2'|'#6'Height'#2#23#3'Top'#3#162#0#5'Width'#2'~'#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#12#20'BorderSpacing.Bottom'#2
+#16#5'Color'#7#6'clAqua'#8'TabOrder'#2#3#0#0#0
+#8#0#0#7'TButton'#6'GenBtn'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#19'Anc'
+'horSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#9'GroupBox1'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'U'#6'Height'#2#25#3'Top'#3#161
+#0#5'Width'#2'`'#17'BorderSpacing.Top'#2#16#20'BorderSpacing.Bottom'#2#8#25
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7
+#11'GenBtnClick'#8'TabOrder'#2#1#0#0#5'TEdit'#9'MachineID'#22'AnchorSideLeft'
+'.Control'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
+'op.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'Anchor'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#2'\'#6'Height'#2#23#3'Top'#2#16#5'Wi'
+'dth'#3#158#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing'
+'.Left'#2#16#17'BorderSpacing.Top'#2#16#9'MaxLength'#2#8#8'TabOrder'#2#0#0#0
+#9'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Control'#7#5'Owner'#4'Left'#2#16
+#6'Height'#2'Y'#3'Top'#2'8'#5'Width'#3#234#0#8'AutoSize'#9#18'BorderSpacing.'
+'Left'#2#16#19'BorderSpacing.Right'#2#16#7'Caption'#6#8'Features'#12'ClientH'
+'eight'#2'E'#11'ClientWidth'#3#230#0#8'TabOrder'#2#2#0#9'TCheckBox'#7'ReqFea'
+'t'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9
+'GroupBox1'#4'Left'#2' '#6'Height'#2#19#3'Top'#2#0#5'Width'#2'A'#18'BorderSp'
+'acing.Left'#2' '#7'Caption'#6#8'Required'#7'Checked'#9#7'Enabled'#8#5'State'
+#7#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCheckBox'#8'HelpFeat'#22'AnchorSideLe'
+'ft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#7'ReqFeat'#18'Anchor'
+'SideTop.Side'#7#9'asrBottom'#4'Left'#2' '#6'Height'#2#19#3'Top'#2#19#5'Widt'
+'h'#2'+'#18'BorderSpacing.Left'#2' '#7'Caption'#6#4'Help'#8'TabOrder'#2#1#0#0
+#9'TCheckBox'#12'ExamplesFeat'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21
+'AnchorSideTop.Control'#7#8'HelpFeat'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2' '#6'Height'#2#19#3'Top'#2'&'#5'Width'#2'D'#18'BorderSpacing.Left'#2
+' '#20'BorderSpacing.Bottom'#2#12#7'Caption'#6#8'Examples'#8'TabOrder'#2#2#0
+#0#9'TCheckBox'#6'DBFeat'#22'AnchorSideLeft.Control'#7#12'ExamplesFeat'#19'A'
+'nchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'ReqFeat'#4
+'Left'#3#132#0#6'Height'#2#19#3'Top'#2#0#5'Width'#2'B'#18'BorderSpacing.Left'
+#2' '#19'BorderSpacing.Right'#2' '#7'Caption'#6#8'Database'#8'TabOrder'#2#3#0
+#0#9'TCheckBox'#7'FaxFeat'#22'AnchorSideLeft.Control'#7#12'ExamplesFeat'#19
+'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#8'HelpFeat'
+#4'Left'#3#132#0#6'Height'#2#19#3'Top'#2#19#5'Width'#2'$'#18'BorderSpacing.L'
+'eft'#2' '#7'Caption'#6#3'Fax'#8'TabOrder'#2#4#0#0#9'TCheckBox'#11'GoodiesFe'
+'at'#22'AnchorSideLeft.Control'#7#12'ExamplesFeat'#19'AnchorSideLeft.Side'#7
+#9'asrBottom'#21'AnchorSideTop.Control'#7#12'ExamplesFeat'#4'Left'#3#132#0#6
+'Height'#2#19#3'Top'#2'&'#5'Width'#2'='#18'BorderSpacing.Left'#2' '#19'Borde'
+'rSpacing.Right'#2' '#7'Caption'#6#7'Goodies'#8'TabOrder'#2#5#0#0#0#5'TEdit'
+#11'CodeDisplay'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.'
+'Control'#7#6'GenBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRig'
+'ht.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
+#16#6'Height'#2#23#3'Top'#3#194#0#5'Width'#3#234#0#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#0#20'BorderSpacing.Bottom'#2#16#5'Color'#7#6'clAqua'#8'T'
+'abOrder'#2#3#0#0#0
]);

2
components/onguard/examples/exslcode/exslcode.lpi
View File

@ -60,7 +60,7 @@
<UnitName Value="Exslcod1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="32"/>
<CursorPos X="34" Y="68"/>
<CursorPos X="11" Y="53"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

10
components/onguard/examples/exsnreg/exsnreg.lpi
View File

@ -60,14 +60,14 @@
<UnitName Value="Exsnregu"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="88"/>
<CursorPos X="24" Y="102"/>
<TopLine Value="89"/>
<CursorPos X="33" Y="106"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="exsnregu.pas"/>
<Caret Line="102" Column="24" TopLine="88"/>
@ -76,6 +76,10 @@
<Filename Value="exsnregu.pas"/>
<Caret Line="101" Column="24" TopLine="87"/>
</Position2>
<Position3>
<Filename Value="exsnregu.pas"/>
<Caret Line="105" Column="33" TopLine="88"/>
</Position3>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

28
components/onguard/examples/exsnreg/exsnregu.lfm
View File

@ -18,7 +18,7 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 234
Top = 245
Width = 32
BorderSpacing.Left = 8
Caption = 'Status'
@ -67,15 +67,16 @@ object Form1: TForm1
TabOrder = 0
end
object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 412
Height = 25
Top = 229
Top = 240
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Kind = bkClose
@ -86,7 +87,7 @@ object Form1: TForm1
AnchorSideRight.Control = CloseBtn
Left = 311
Height = 25
Top = 229
Top = 240
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
@ -95,7 +96,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick
TabOrder = 2
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
@ -112,11 +113,24 @@ object Form1: TForm1
ParentColor = False
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Info
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 8
Height = 3
Top = 229
Width = 479
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object OgSerialNumberCode1: TOgSerialNumberCode
OnChecked = CodeChecked
OnGetKey = GetKey
OnGetCode = GetCode
Left = 160
Top = 208
Left = 168
Top = 216
end
end

59
components/onguard/examples/exsnreg/exsnregu.lrs
View File

@ -7,7 +7,7 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'e Example'#12'ClientHeight'#3'0'#1#11'ClientWidth'#3#239#1#8'Position'#7#14
+'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'Anc'
+'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#234#0
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#245#0
+#5'Width'#2' '#18'BorderSpacing.Left'#2#8#7'Caption'#6#6'Status'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'
+#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contro'
@ -22,30 +22,35 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'er'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#8#6'Height'#2#25#3'Top'#2
+#8#5'Width'#2'Y'#20'BorderSpacing.Around'#2#8#25'BorderSpacing.InnerBorder'#2
+#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0
+#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSi'
+'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Anchor'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#3#156#1#6'Height'#2#25#3'Top'#3#229#0
+#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2
+#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'T'
+'Button'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'AnchorSideR'
+'ight.Control'#7#8'CloseBtn'#4'Left'#3'7'#1#6'Height'#2#25#3'Top'#3#229#0#5
+'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#4
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7
+#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft'
+'.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTo'
+'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide'
+'Right.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3#180#0#3'Top'#2')'#5'Widt'
+'h'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.A'
+'round'#2#8#7'Caption'#12'Q'#2#0#0'The label at the bottom of this form indi'
+'cates the status of the code. An invalid code indicates that the code is ei'
+'ther the incorrect type or that none has been entered. '#13#10#13#10'If the'
+' proper code has not been entered or the ONGUARD.INI file was deleted, the '
+'message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code'
+'" button to enter a code (the CODEGEN program can be used to generate the p'
+'roper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to '
+'remove the entered code from the INI file. Doing so will cause the TOgSeria'
+'lNumberCode component to report that the code is invalid.'#5'Color'#7#9'clB'
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#19'TOgSerialNumberCode'#19'OgSe'
+'rialNumberCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'O'
+'nGetCode'#7#7'GetCode'#4'Left'#3#160#0#3'Top'#3#208#0#0#0#0
+#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorS'
+'ideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Ancho'
+'rSideRight.Side'#7#9'asrBottom'#4'Left'#3#156#1#6'Height'#2#25#3'Top'#3#240
+#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2
+#8#19'BorderSpacing.Right'#2#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#7'bkCl'
+'ose'#8'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7
+#8'CloseBtn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'7'#1#6'Heig'
+'ht'#2#25#3'Top'#3#240#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19
+'BorderSpacing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11
+'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#4
+'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'C'
+'odeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3#180
+#0#3'Top'#2')'#5'Width'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#20'BorderSpacing.Around'#2#8#7'Caption'#12'Q'#2#0#0'The label at the bottom'
+' of this form indicates the status of the code. An invalid code indicates t'
+'hat the code is either the incorrect type or that none has been entered. '
+#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file'
+' was deleted, the message will say that the code is invalid.'#13#10#13#10'U'
+'se the "Enter Code" button to enter a code (the CODEGEN program can be used'
+' to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" butt'
+'on can be used to remove the entered code from the INI file. Doing so will '
+'cause the TOgSerialNumberCode component to report that the code is invalid.'
+#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bev'
+'el1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Inf'
+'o'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'In'
+'fo'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#3#3'Top'
+#3#229#0#5'Width'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Sh'
+'ape'#7#9'bsTopLine'#0#0#19'TOgSerialNumberCode'#19'OgSerialNumberCode1'#9'O'
+'nChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCod'
+'e'#4'Left'#3#168#0#3'Top'#3#216#0#0#0#0
]);

5
components/onguard/examples/exsnreg/exsnregu.pas
View File

@ -5,16 +5,17 @@ interface
uses
SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil;
StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
CodeBtn: TButton;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

2
components/onguard/examples/exspname/exspname.lpi
View File

@ -56,7 +56,7 @@
<UnitName Value="ExSpNamu"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="73" Y="24"/>
<CursorPos X="27" Y="17"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

35
components/onguard/examples/exspreg/exspreg.lpi
View File

@ -58,13 +58,14 @@
<UnitName Value="Exspregu"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="39" Y="22"/>
<TopLine Value="52"/>
<CursorPos X="32" Y="72"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<JumpHistory Count="10" HistoryIndex="9">
<Position1>
<Filename Value="exspregu.pas"/>
<Caret Line="22" Column="39"/>
@ -73,6 +74,36 @@
<Filename Value="exspregu.pas"/>
<Caret Line="21" Column="39"/>
</Position2>
<Position3>
<Filename Value="exspregu.pas"/>
<Caret Line="19" Column="59"/>
</Position3>
<Position4>
<Filename Value="exspregu.pas"/>
</Position4>
<Position5>
<Filename Value="exspregu.pas"/>
<Caret Line="22" Column="12"/>
</Position5>
<Position6>
<Filename Value="exspregu.pas"/>
<Caret Line="82" Column="12" TopLine="52"/>
</Position6>
<Position7>
<Filename Value="exspregu.pas"/>
<Caret Line="103" Column="16" TopLine="73"/>
</Position7>
<Position8>
<Filename Value="exspregu.pas"/>
<Caret Line="109" Column="33" TopLine="109"/>
</Position8>
<Position9>
<Filename Value="exspregu.pas"/>
</Position9>
<Position10>
<Filename Value="exspregu.pas"/>
<Caret Line="22" Column="12"/>
</Position10>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

27
components/onguard/examples/exspreg/exspregu.lfm
View File

@ -14,12 +14,12 @@ object Form1: TForm1
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1
AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 249
Top = 260
Width = 32
Caption = 'Status'
Color = clNone
@ -68,15 +68,15 @@ object Form1: TForm1
TabOrder = 0
end
object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 367
Height = 25
Top = 244
Top = 255
Width = 75
Anchors = [akTop]
Anchors = [akTop, akRight]
BorderSpacing.Around = 8
Kind = bkClose
TabOrder = 1
@ -86,7 +86,7 @@ object Form1: TForm1
AnchorSideRight.Control = CloseBtn
Left = 262
Height = 25
Top = 244
Top = 255
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 4
@ -94,7 +94,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick
TabOrder = 2
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
@ -111,6 +111,19 @@ object Form1: TForm1
ParentColor = False
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Info
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 8
Height = 3
Top = 244
Width = 434
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object OgSpecialCode1: TOgSpecialCode
OnChecked = CodeChecked
OnGetKey = GetKey

87
components/onguard/examples/exspreg/exspregu.lrs
View File

@ -6,46 +6,51 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6'&Special Registratio'
+'n Data Code Example'#12'ClientHeight'#3'/'#1#11'ClientWidth'#3#194#1#20'Con'
+'straints.MinWidth'#3#194#1#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6
+#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#5'Memo1'#21
+#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#4'Info'#21
+'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
+'Left'#2#8#6'Height'#2#15#3'Top'#3#249#0#5'Width'#2' '#7'Caption'#6#6'Status'
+#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#21'AnchorSid'
+'eTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorS'
+'ideRight.Control'#7#7'CodeLbl'#4'Left'#3#10#1#6'Height'#2#15#3'Top'#2#13#5
+'Width'#2'H'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#8
+#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6
+'TLabel'#7'CodeLbl'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.'
+'Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi'
+'ght.Side'#7#9'asrBottom'#4'Left'#3'Z'#1#6'Height'#2#15#3'Top'#2#13#5'Width'
+#2'`'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#8#7'Capt'
+'ion'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TB'
+'utton'#7'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
+'ntrol'#7#5'Owner'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#20'Bo'
+'rderSpacing.Around'#2#8#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'E'
+'nter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'C'
+'loseBtn'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'as'
+'rBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#3'o'#1#6'Height'#2#25#3'Top'#3#244#0#5'Width'#2'K'#7'Anc'
+'hors'#11#5'akTop'#0#20'BorderSpacing.Around'#2#8#4'Kind'#7#7'bkClose'#8'Tab'
+'Order'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseB'
+'tn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3#6#1#6'Height'#2#25#3
+'Top'#3#244#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpa'
+'cing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBt'
+'nClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7
+#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2#8#6'Height'#3#195#0#3'Top'#2')'#5'Width'#3#178#1#7'A'
+'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#8#7'C'
+'aption'#12'N'#2#0#0'The label at the bottom of this form indicates the stat'
+'us of the code. An invalid code indicates that the code is either the incor'
+'rect type or that none has been entered. '#13#10#13#10'If the proper code h'
+'as not been entered or the ONGUARD.INI file was deleted, the message will s'
+'ay that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to en'
+'ter a code (the CODEGEN program can be used to generate the proper "Special'
+'" code). '#13#10#13#10'The "Remove Code" button can be used to remove the e'
+'ntered code from the INI file. Doing so will cause the TOgSpecialCode compo'
+'nent to report that the code is invalid.'#5'Color'#7#9'clBtnFace'#11'Parent'
+'Color'#8#8'WordWrap'#9#0#0#14'TOgSpecialCode'#14'OgSpecialCode1'#9'OnChecke'
+'d'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#4'Le'
+'ft'#3#168#0#3'Top'#3#136#0#0#0#0
+'Left'#2#8#6'Height'#2#15#3'Top'#3#4#1#5'Width'#2' '#7'Caption'#6#6'Status'#5
+'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#21'AnchorSideT'
+'op.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSid'
+'eRight.Control'#7#7'CodeLbl'#4'Left'#3#10#1#6'Height'#2#15#3'Top'#2#13#5'Wi'
+'dth'#2'H'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#8#7
+'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T'
+'Label'#7'CodeLbl'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.S'
+'ide'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRig'
+'ht.Side'#7#9'asrBottom'#4'Left'#3'Z'#1#6'Height'#2#15#3'Top'#2#13#5'Width'#2
+'`'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#8#7'Captio'
+'n'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TBut'
+'ton'#7'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont'
+'rol'#7#5'Owner'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#20'Bord'
+'erSpacing.Around'#2#8#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Ent'
+'er Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'Clo'
+'seBtn'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asr'
+'Bottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#3'o'#1#6'Height'#2#25#3'Top'#3#255#0#5'Width'#2'K'#7'Anc'
+'hors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Around'#2#8#4'Kind'#7#7'bkC'
+'lose'#8'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'
+#7#8'CloseBtn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3#6#1#6'Hei'
+'ght'#2#25#3'Top'#3#255#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7
+#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#4'Info'#22'AnchorSideLeft.'
+'Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop'
+'.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideR'
+'ight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3#195#0#3'Top'#2')'#5'Width'
+#3#178#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Arou'
+'nd'#2#8#7'Caption'#12'N'#2#0#0'The label at the bottom of this form indicat'
+'es the status of the code. An invalid code indicates that the code is eithe'
+'r the incorrect type or that none has been entered. '#13#10#13#10'If the pr'
+'oper code has not been entered or the ONGUARD.INI file was deleted, the mes'
+'sage will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" b'
+'utton to enter a code (the CODEGEN program can be used to generate the prop'
+'er "Special" code). '#13#10#13#10'The "Remove Code" button can be used to r'
+'emove the entered code from the INI file. Doing so will cause the TOgSpecia'
+'lCode component to report that the code is invalid.'#5'Color'#7#9'clBtnFace'
+#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.C'
+'ontrol'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Info'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'Info'#20'AnchorSideRight.Sid'
+'e'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#3#3'Top'#3#244#0#5'Width'#3#178#1
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'bsTopLine'#0#0#14
+'TOgSpecialCode'#14'OgSpecialCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKe'
+'y'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#4'Left'#3#168#0#3'Top'#3#136#0#0#0
+#0
]);

5
components/onguard/examples/exspreg/exspregu.pas
View File

@ -6,16 +6,17 @@ interface
uses
SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil;
StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
CodeBtn: TButton;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

83
components/onguard/examples/exsrnm1/exsrnm1.lpi
View File

@ -57,10 +57,9 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exsrnmu1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="164"/>
<CursorPos X="48" Y="181"/>
<TopLine Value="107"/>
<CursorPos X="23" Y="126"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -72,8 +71,9 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exsrnmu2"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<CursorPos X="16" Y="23"/>
<CursorPos X="16" Y="24"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -82,123 +82,123 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="143" TopLine="126"/>
<Caret Line="122" TopLine="105"/>
</Position1>
<Position2>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="122" TopLine="105"/>
<Caret Line="161" TopLine="144"/>
</Position2>
<Position3>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="161" TopLine="144"/>
<Caret Line="122" TopLine="105"/>
</Position3>
<Position4>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="122" TopLine="105"/>
<Caret Line="120" TopLine="103"/>
</Position4>
<Position5>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="120" TopLine="103"/>
<Caret Line="163" TopLine="146"/>
</Position5>
<Position6>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="163" TopLine="146"/>
<Caret Line="120" TopLine="103"/>
</Position6>
<Position7>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="120" TopLine="103"/>
<Caret Line="86" TopLine="69"/>
</Position7>
<Position8>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="86" TopLine="69"/>
<Caret Line="97" TopLine="80"/>
</Position8>
<Position9>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="97" TopLine="80"/>
<Caret Line="101" TopLine="84"/>
</Position9>
<Position10>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="101" TopLine="84"/>
<Caret Line="102" TopLine="85"/>
</Position10>
<Position11>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="102" TopLine="85"/>
<Caret Line="104" TopLine="87"/>
</Position11>
<Position12>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="104" TopLine="87"/>
<Caret Line="105" TopLine="88"/>
</Position12>
<Position13>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="105" TopLine="88"/>
<Caret Line="108" TopLine="91"/>
</Position13>
<Position14>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="108" TopLine="91"/>
</Position14>
<Position15>
<Filename Value="exsrnmu2.pas"/>
<Caret Line="35" Column="3"/>
</Position14>
<Position15>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="86" TopLine="73"/>
</Position15>
<Position16>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="86" TopLine="73"/>
<Caret Line="97" TopLine="73"/>
</Position16>
<Position17>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="97" TopLine="73"/>
<Caret Line="101" TopLine="73"/>
</Position17>
<Position18>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="101" TopLine="73"/>
<Caret Line="102" TopLine="73"/>
</Position18>
<Position19>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="102" TopLine="73"/>
<Caret Line="104" TopLine="74"/>
</Position19>
<Position20>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="104" TopLine="74"/>
<Caret Line="105" TopLine="75"/>
</Position20>
<Position21>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="105" TopLine="75"/>
<Caret Line="108" TopLine="78"/>
</Position21>
<Position22>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="108" TopLine="78"/>
<Caret Line="102" TopLine="78"/>
</Position22>
<Position23>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="102" TopLine="78"/>
<Caret Line="110" TopLine="80"/>
</Position23>
<Position24>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="110" TopLine="80"/>
<Caret Line="111" TopLine="82"/>
</Position24>
<Position25>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="111" TopLine="82"/>
<Caret Line="84" TopLine="76"/>
</Position25>
<Position26>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="84" TopLine="76"/>
<Caret Line="176" TopLine="151"/>
</Position26>
<Position27>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="176" TopLine="151"/>
<Caret Line="179" TopLine="151"/>
</Position27>
<Position28>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="179" TopLine="151"/>
<Caret Line="86" TopLine="68"/>
</Position28>
<Position29>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="86" TopLine="68"/>
<Caret Line="78" Column="16" TopLine="68"/>
</Position29>
<Position30>
<Filename Value="exsrnmu1.pas"/>
<Caret Line="78" Column="16" TopLine="68"/>
<Filename Value="exsrnmu2.pas"/>
<Caret Line="23" Column="16"/>
</Position30>
</JumpHistory>
</ProjectOptions>
@ -230,15 +230,6 @@
</Linking>
</CompilerOptions>
<Debugging>
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="exsrnmu1.pas"/>
<Line Value="121"/>
</Item1>
</BreakPoints>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>

10
components/onguard/examples/exsrnm1/exsrnmu1.lfm
View File

@ -6,6 +6,8 @@ object Form1: TForm1
HorzScrollBar.Page = 239
VertScrollBar.Page = 185
ActiveControl = Memo1
AutoSize = True
BorderStyle = bsDialog
Caption = 'Serial Number Example'
ClientHeight = 186
ClientWidth = 240
@ -44,11 +46,13 @@ object Form1: TForm1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 76
Height = 33
Left = 97
Height = 26
Top = 112
Width = 89
Width = 46
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Bottom = 8
Kind = bkClose
TabOrder = 1
end

37
components/onguard/examples/exsrnm1/exsrnmu1.lrs
View File

@ -3,22 +3,23 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#157#1#6'Height'#3#186#0#3'Top'#3#202#1#5
+'Width'#3#240#0#18'HorzScrollBar.Page'#3#239#0#18'VertScrollBar.Page'#3#185#0
+#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial Number Example'#12'Clie'
+'ntHeight'#3#186#0#11'ClientWidth'#3#240#0#8'Position'#7#14'poScreenCenter'
+#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'
+#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#15#3'Top'#2'['#5'Width'#2','#9'Alignment'
+#7#8'taCenter'#18'BorderSpacing.Left'#2#6#7'Caption'#6#10'Serial #: '#5'Colo'
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#22'AnchorSideLeft.Co'
+'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'
+#2'O'#3'Top'#2#6#5'Width'#3#223#0#20'BorderSpacing.Around'#2#6#13'Lines.Stri'
+'ngs'#1#6':If you can edit this, then your program was allowed to run'#0#10
+'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22
+'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21
+'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2'L'#6'Height'#2'!'#3'Top'#2'p'#5'Width'#2'Y'#17'BorderSpacing.Top'#2
+#6#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#19'TOgSerialNumberCode'#19'OgSer'
+'ialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8'OnGetKey'#7
+#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberCode1GetCode'
+#4'Left'#3#128#0#3'Top'#2#16#0#0#0
+#13'ActiveControl'#7#5'Memo1'#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7
+'Caption'#6#21'Serial Number Example'#12'ClientHeight'#3#186#0#11'ClientWidt'
+'h'#3#240#0#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6
+'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
+'ntrol'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heigh'
+'t'#2#15#3'Top'#2'['#5'Width'#2','#9'Alignment'#7#8'taCenter'#18'BorderSpaci'
+'ng.Left'#2#6#7'Caption'#6#10'Serial #: '#5'Color'#7#6'clNone'#11'ParentColo'
+'r'#8#0#0#5'TMemo'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorS'
+'ideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2'O'#3'Top'#2#6#5'Width'#3
+#223#0#20'BorderSpacing.Around'#2#6#13'Lines.Strings'#1#6':If you can edit t'
+'his, then your program was allowed to run'#0#10'ScrollBars'#7#10'ssVertical'
+#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Control'#7#5'O'
+'wner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6
+'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'a'#6'Height'#2#26#3
+'Top'#2'p'#5'Width'#2'.'#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#20'BorderSp'
+'acing.Bottom'#2#8#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#19'TOgSerialNumb'
+'erCode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checke'
+'d'#8'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNu'
+'mberCode1GetCode'#4'Left'#3#128#0#3'Top'#2#16#0#0#0
]);

45
components/onguard/examples/exsrnm1/exsrnmu2.lfm
View File

@ -66,20 +66,27 @@ object SNEntryDlg: TSNEntryDlg
object CodeText: TEdit
AnchorSideLeft.Control = Label2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SNText
AnchorSideTop.Side = asrBottom
Left = 44
Height = 23
Top = 62
Width = 185
BorderSpacing.Left = 8
BorderSpacing.Top = 8
TabOrder = 1
end
object OKBtn: TBitBtn
AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel1
Left = 28
Height = 33
Top = 94
Width = 89
Left = 71
Height = 26
Top = 104
Width = 46
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 8
Kind = bkOK
ModalResult = 1
TabOrder = 2
@ -87,10 +94,14 @@ object SNEntryDlg: TSNEntryDlg
object CancelBtn: TBitBtn
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom
Left = 129
Height = 33
Top = 94
Width = 89
Height = 26
Top = 104
Width = 46
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Kind = bkCancel
@ -101,9 +112,25 @@ object SNEntryDlg: TSNEntryDlg
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
Left = 117
Height = 32
Top = 89
Height = 24
Top = 104
Width = 12
Shape = bsSpacer
end
object Bevel2: TBevel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeText
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 3
Top = 93
Width = 231
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Shape = bsTopLine
end
end

32
components/onguard/examples/exsrnm1/exsrnmu2.lrs
View File

@ -22,15 +22,25 @@ LazarusResources.Add('TSNEntryDlg','FORMDATA',[
+'ext'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2','#6'Height'#2#23#3
+'Top'#2#31#5'Width'#3#185#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8
+'TabOrder'#2#0#0#0#5'TEdit'#8'CodeText'#22'AnchorSideLeft.Control'#7#6'Label'
+'2'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2','#6'Height'#2#23#3'Top'
+#2'>'#5'Width'#3#185#0#18'BorderSpacing.Left'#2#8#8'TabOrder'#2#1#0#0#7'TBit'
+'Btn'#5'OKBtn'#23'AnchorSideRight.Control'#7#6'Bevel1'#4'Left'#2#28#6'Height'
+#2'!'#3'Top'#2'^'#5'Width'#2'Y'#7'Anchors'#11#5'akTop'#7'akRight'#0#4'Kind'#7
+#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'#2#2#0#0#7'TBitBtn'#9'CancelBtn'#22
+'AnchorSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4
+'Left'#3#129#0#6'Height'#2'!'#3'Top'#2'^'#5'Width'#2'Y'#19'BorderSpacing.Rig'
+'ht'#2#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#8'bkCancel'#7'OnClick'#7#14
+'CancelBtnClick'#8'TabOrder'#2#3#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.C'
+'ontrol'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#4'Left'#2'u'#6'He'
+'ight'#2' '#3'Top'#2'Y'#5'Width'#2#12#5'Shape'#7#8'bsSpacer'#0#0#0
+'2'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#6'SNT'
+'ext'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2','#6'Height'#2#23#3'To'
+'p'#2'>'#5'Width'#3#185#0#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2
+#8#8'TabOrder'#2#1#0#0#7'TBitBtn'#5'OKBtn'#21'AnchorSideTop.Control'#7#6'Bev'
+'el2'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#6
+'Bevel1'#4'Left'#2'G'#6'Height'#2#26#3'Top'#2'h'#5'Width'#2'.'#7'Anchors'#11
+#5'akTop'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#8#4'Kind'#7#4'b'
+'kOK'#11'ModalResult'#2#1#8'TabOrder'#2#2#0#0#7'TBitBtn'#9'CancelBtn'#22'Anc'
+'horSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'AnchorSideTop.Control'#7#6'Bevel2'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#3#129#0#6'Height'#2#26#3'Top'#2'h'#5'Width'#2'.'#8'AutoSize'#9#17'Bor'
+'derSpacing.Top'#2#8#19'BorderSpacing.Right'#2#8#20'BorderSpacing.Bottom'#2#8
+#4'Kind'#7#8'bkCancel'#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#3#0#0#6
+'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.S'
+'ide'#7#9'asrCenter'#4'Left'#2'u'#6'Height'#2#24#3'Top'#2'h'#5'Width'#2#12#5
+'Shape'#7#8'bsSpacer'#0#0#6'TBevel'#6'Bevel2'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#8'CodeText'#18'AnchorSideTop.Side'#7#9'a'
+'srBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2#8#6'Height'#2#3#3'Top'#2']'#5'Width'#3#231#0#7'Ancho'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#8#17'Border'
+'Spacing.Top'#2#8#19'BorderSpacing.Right'#2#8#5'Shape'#7#9'bsTopLine'#0#0#0
]);

1
components/onguard/examples/exsrnm1/exsrnmu2.pas
View File

@ -13,6 +13,7 @@ type
TSNEntryDlg = class(TForm)
Bevel1: TBevel;
Bevel2: TBevel;
Label1: TLabel;
Label2: TLabel;
SNText: TEdit;

2
components/onguard/examples/exusg1/Usage1.ini
View File

@ -1,2 +1,2 @@
[Codes]
Uses=B6203E9DBF2E46BDB526
Uses=B6203E9DBF2E46BDB826

2
components/onguard/examples/exusg1/exusg1.lpi
View File

@ -57,7 +57,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="72"/>
<CursorPos X="25" Y="90"/>
<CursorPos X="53" Y="90"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

8
components/onguard/examples/exusg1/exusg1u.lfm
View File

@ -5,6 +5,7 @@ object Form1: TForm1
Width = 218
ActiveControl = Memo1
AutoSize = True
BorderStyle = bsDialog
Caption = 'Usage Code Example'
ClientHeight = 155
ClientWidth = 218
@ -41,10 +42,11 @@ object Form1: TForm1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 65
Height = 33
Left = 86
Height = 26
Top = 92
Width = 89
Width = 46
AutoSize = True
BorderSpacing.Around = 6
Kind = bkClose
TabOrder = 1

37
components/onguard/examples/exusg1/exusg1u.lrs
View File

@ -2,22 +2,23 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'o'#1#6'Height'#3#155#0#3'Top'#3'!'#1#5'Wi'
+'dth'#3#218#0#13'ActiveControl'#7#5'Memo1'#8'AutoSize'#9#7'Caption'#6#18'Usa'
+'ge Code Example'#12'ClientHeight'#3#155#0#11'ClientWidth'#3#218#0#8'Positio'
+'n'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22
+'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21
+'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
+'eft'#2'A'#6'Height'#2#15#3'Top'#2'G'#5'Width'#2'Y'#7'Caption'#6#17'Availabl'
+'e Runs: 0'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#22'AnchorSideLeft.Contro'
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2
+';'#3'Top'#2#6#5'Width'#3#197#0#20'BorderSpacing.Around'#2#6#13'Lines.String'
+'s'#1#6'5If you can edit this, your program was allowed to run'#0#10'ScrollB'
+'ars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorS'
+'ideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'Ancho'
+'rSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#2'A'#6'Height'#2'!'#3'Top'#2'\'#5'Width'#2'Y'#20'BorderSpacing.Around'#2#6#4
+'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9
+'OnChecked'#7#19'OgUsageCode1Checked'#8'OnGetKey'#7#18'OgUsageCode1GetKey'#9
+'OnGetCode'#7#19'OgUsageCode1GetCode'#12'OnChangeCode'#7#22'OgUsageCode1Chan'
+'geCode'#4'Left'#2'X'#3'Top'#3#160#0#0#0#0
+'dth'#3#218#0#13'ActiveControl'#7#5'Memo1'#8'AutoSize'#9#11'BorderStyle'#7#8
+'bsDialog'#7'Caption'#6#18'Usage Code Example'#12'ClientHeight'#3#155#0#11'C'
+'lientWidth'#3#218#0#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3'
+'.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#19'Anchor'
+'SideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Memo1'#18'Ancho'
+'rSideTop.Side'#7#9'asrBottom'#4'Left'#2'A'#6'Height'#2#15#3'Top'#2'G'#5'Wid'
+'th'#2'Y'#7'Caption'#6#17'Available Runs: 0'#11'ParentColor'#8#0#0#5'TMemo'#5
+'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
+'Owner'#4'Left'#2#6#6'Height'#2';'#3'Top'#2#6#5'Width'#3#197#0#20'BorderSpac'
+'ing.Around'#2#6#13'Lines.Strings'#1#6'5If you can edit this, your program w'
+'as allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7
+'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLef'
+'t.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideT'
+'op.Side'#7#9'asrBottom'#4'Left'#2'V'#6'Height'#2#26#3'Top'#2'\'#5'Width'#2
+'.'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#4'Kind'#7#7'bkClose'#8'TabOrd'
+'er'#2#1#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'OnChecked'#7#19'OgUsageCode'
+'1Checked'#8'OnGetKey'#7#18'OgUsageCode1GetKey'#9'OnGetCode'#7#19'OgUsageCod'
+'e1GetCode'#12'OnChangeCode'#7#22'OgUsageCode1ChangeCode'#4'Left'#2'X'#3'Top'
+#3#160#0#0#0#0
]);

2
components/onguard/examples/exusg1/exusg1u.pas
View File

@ -87,6 +87,8 @@ var
S : string;
Code : TCode;
begin
// Status := ogValidCode; // For testing the form.
case Status of
ogValidCode : begin
Label1.Caption := 'Available Runs: '

2
components/onguard/examples/exusg2/Usage2.ini
View File

@ -1,2 +1,2 @@
[Codes]
Uses=C48C080E8F925770B526
Uses=C48C080E8F925770B826

5
components/onguard/examples/exusg2/exusg2.lpi
View File

@ -56,11 +56,10 @@
<UnitName Value="Exusg2u"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="112"/>
<CursorPos Y="94"/>
<TopLine Value="78"/>
<CursorPos X="54" Y="94"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="3" HistoryIndex="2">

8
components/onguard/examples/exusg2/exusg2u.lfm
View File

@ -7,6 +7,7 @@ object Form1: TForm1
VertScrollBar.Page = 154
ActiveControl = Memo1
AutoSize = True
BorderStyle = bsDialog
Caption = 'Usage Code Example'
ClientHeight = 155
ClientWidth = 218
@ -44,10 +45,11 @@ object Form1: TForm1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 65
Height = 33
Left = 86
Height = 26
Top = 92
Width = 89
Width = 46
AutoSize = True
BorderSpacing.Around = 6
Kind = bkClose
TabOrder = 1

37
components/onguard/examples/exusg2/exusg2u.lrs
View File

@ -3,22 +3,23 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'K'#1#6'Height'#3#155#0#3'Top'#3#225#0#5'W'
+'idth'#3#218#0#18'HorzScrollBar.Page'#3#217#0#18'VertScrollBar.Page'#3#154#0
+#13'ActiveControl'#7#5'Memo1'#8'AutoSize'#9#7'Caption'#6#18'Usage Code Examp'
+'le'#12'ClientHeight'#3#155#0#11'ClientWidth'#3#218#0#8'Position'#7#14'poScr'
+'eenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideL'
+'eft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSid'
+'eTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'A'
+#6'Height'#2#15#3'Top'#2'G'#5'Width'#2'Y'#7'Caption'#6#17'Available Runs: 0'
+#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#22'AnchorSideL'
+'eft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6
+'Height'#2';'#3'Top'#2#6#5'Width'#3#197#0#20'BorderSpacing.Around'#2#6#13'Li'
+'nes.Strings'#1#6'5If you can edit this, your program was allowed to run'#0
+#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'
+#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'
+#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#4'Left'#2'A'#6'Height'#2'!'#3'Top'#2'\'#5'Width'#2'Y'#20'BorderSpacing.Arou'
+'nd'#2#6#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#12'TOgUsageCode'#12'OgUsag'
+'eCode2'#9'OnChecked'#7#19'OgUsageCode2Checked'#8'OnGetKey'#7#18'OgUsageCode'
+'2GetKey'#9'OnGetCode'#7#19'OgUsageCode2GetCode'#12'OnChangeCode'#7#22'OgUsa'
+'geCode2ChangeCode'#4'Left'#2'X'#3'Top'#3#160#0#0#0#0
+#13'ActiveControl'#7#5'Memo1'#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7
+'Caption'#6#18'Usage Code Example'#12'ClientHeight'#3#155#0#11'ClientWidth'#3
+#218#0#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLab'
+'el'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'
+#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#4'Left'#2'A'#6'Height'#2#15#3'Top'#2'G'#5'Width'#2'Y'#7'Captio'
+'n'#6#17'Available Runs: 0'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TMe'
+'mo'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+#7#5'Owner'#4'Left'#2#6#6'Height'#2';'#3'Top'#2#6#5'Width'#3#197#0#20'Border'
+'Spacing.Around'#2#6#13'Lines.Strings'#1#6'5If you can edit this, your progr'
+'am was allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0
+#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideL'
+'eft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSid'
+'eTop.Side'#7#9'asrBottom'#4'Left'#2'V'#6'Height'#2#26#3'Top'#2'\'#5'Width'#2
+'.'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#4'Kind'#7#7'bkClose'#8'TabOrd'
+'er'#2#1#0#0#12'TOgUsageCode'#12'OgUsageCode2'#9'OnChecked'#7#19'OgUsageCode'
+'2Checked'#8'OnGetKey'#7#18'OgUsageCode2GetKey'#9'OnGetCode'#7#19'OgUsageCod'
+'e2GetCode'#12'OnChangeCode'#7#22'OgUsageCode2ChangeCode'#4'Left'#2'X'#3'Top'
+#3#160#0#0#0#0
]);

2
components/onguard/examples/exusg2/exusg2u.pas
View File

@ -91,6 +91,8 @@ var
S : string;
Code : TCode;
begin
// Status := ogValidCode; // for testing the form
case Status of
ogValidCode : begin
Label1.Caption := 'Available Runs: '

2
components/onguard/examples/exusreg/ONGUARD.INI
View File

@ -1,2 +1,2 @@
[Codes]
UsageCode=7FFC19D80E5A776AB526
UsageCode=443FD9A805DFF808B826

8
components/onguard/examples/exusreg/exusreg.lpi
View File

@ -56,17 +56,21 @@
<UnitName Value="ExUSRegU"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="108" Y="27"/>
<CursorPos X="43" Y="20"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="1">
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="exusregu.pas"/>
<Caret Line="13" Column="36"/>
</Position1>
<Position2>
<Filename Value="exusregu.pas"/>
<Caret Line="19" Column="43"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

29
components/onguard/examples/exusreg/exusregu.lfm
View File

@ -13,12 +13,12 @@ object Form1: TForm1
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1
AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 223
Top = 238
Width = 32
Caption = 'Status'
Color = clNone
@ -67,13 +67,13 @@ object Form1: TForm1
TabOrder = 0
end
object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 409
Height = 25
Top = 218
Top = 233
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
@ -87,7 +87,7 @@ object Form1: TForm1
AnchorSideRight.Control = CloseBtn
Left = 304
Height = 25
Top = 218
Top = 233
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
@ -96,7 +96,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick
TabOrder = 2
end
object Memo1: TLabel
object Info: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
@ -107,13 +107,26 @@ object Form1: TForm1
Top = 41
Width = 476
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Around = 8
Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgUsageCode component to report that the code is invalid.'
Color = clBtnFace
ParentColor = False
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Info
AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom
Left = 8
Height = 3
Top = 218
Width = 476
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
Shape = bsTopLine
end
object OgUsageCode1: TOgUsageCode
OnChecked = CodeChecked
OnGetKey = GetKey

51
components/onguard/examples/exusreg/exusregu.lrs
View File

@ -6,9 +6,9 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#18'Usage Code Exampl'
+'e'#12'ClientHeight'#3':'#1#11'ClientWidth'#3#236#1#8'Position'#7#14'poScree'
+'nCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSide'
+'Left.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorS'
+'ideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#223#0#5'Wid'
+'th'#2' '#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6
+'Left.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSi'
+'deTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#238#0#5'Widt'
+'h'#2' '#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6
+'TLabel'#6'Label1'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.S'
+'ide'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#7'CodeLbl'#4'Left'#3'0'#1
+#6'Height'#2#15#3'Top'#2#13#5'Width'#2'H'#7'Anchors'#11#5'akTop'#7'akRight'#0
@ -22,31 +22,36 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#8#6'Height'#2#25#3'To'
+'p'#2#8#5'Width'#2'Y'#20'BorderSpacing.Around'#2#8#25'BorderSpacing.InnerBor'
+'der'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrd'
+'er'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#5'Memo1'#18
+'er'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#6'Bevel1'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#153#1#6'Height'#2#25#3'Top'#3
+#218#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.To'
+#233#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.To'
+'p'#2#12#19'BorderSpacing.Right'#2#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#7
+'bkClose'#8'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Contr'
+'ol'#7#8'CloseBtn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'0'#1#6
+'Height'#2#25#3'Top'#3#218#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'
+'Height'#2#25#3'Top'#3#233#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'
+#0#19'BorderSpacing.Right'#2#8#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
+#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabe'
+'l'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr'
+'ol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'
+#3#165#0#3'Top'#2')'#5'Width'#3#220#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
+'ight'#0#18'BorderSpacing.Left'#2#8#19'BorderSpacing.Right'#2#8#7'Caption'#12
+'J'#2#0#0'The label at the bottom of this form indicates the status of the c'
+'ode. An invalid code indicates that the code is either the incorrect type o'
+'r that none has been entered. '#13#10#13#10'If the proper code has not been'
+' entered or the ONGUARD.INI file was deleted, the message will say that the'
+' code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code '
+'(the CODEGEN program can be used to generate the proper "Usage" code). '#13
+#10#13#10'The "Remove Code" button can be used to remove the entered code fr'
+'om the INI file. Doing so will cause the TOgUsageCode component to report t'
+'hat the code is invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordW'
+'rap'#9#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'OnChecked'#7#11'CodeChecked'
+#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7#10'Cha'
+'ngeCode'#4'Left'#3#184#0#3'Top'#3#184#0#0#0#0
+'l'#4'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
+#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
+#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3
+#165#0#3'Top'#2')'#5'Width'#3#220#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+'ht'#0#20'BorderSpacing.Around'#2#8#7'Caption'#12'J'#2#0#0'The label at the '
+'bottom of this form indicates the status of the code. An invalid code indic'
+'ates that the code is either the incorrect type or that none has been enter'
+'ed. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.IN'
+'I file was deleted, the message will say that the code is invalid.'#13#10#13
+#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be '
+'used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" '
+'button can be used to remove the entered code from the INI file. Doing so w'
+'ill cause the TOgUsageCode component to report that the code is invalid.'#5
+'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel'
+'1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Info'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'Info'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#3#3'Top'#3
+#218#0#5'Width'#3#220#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Bor'
+'derSpacing.Top'#2#12#5'Shape'#7#9'bsTopLine'#0#0#12'TOgUsageCode'#12'OgUsag'
+'eCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'
+#7#7'GetCode'#12'OnChangeCode'#7#10'ChangeCode'#4'Left'#3#184#0#3'Top'#3#184
+#0#0#0#0
]);

5
components/onguard/examples/exusreg/exusregu.pas
View File

@ -6,16 +6,17 @@ interface
uses
SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil;
StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
CodeBtn: TButton;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

12
components/onguard/examples/fixnaf/fixnaf.lpi
View File

@ -42,7 +42,8 @@
<Filename Value="fixnaf.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="FixNAF"/>
<CursorPos X="34" Y="17"/>
<IsVisibleTab Value="True"/>
<CursorPos X="3" Y="7"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -54,9 +55,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FIXNAF1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="11" Y="8"/>
<CursorPos X="39" Y="21"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -110,7 +110,7 @@
<UsageCount Value="10"/>
</Unit8>
</Units>
<JumpHistory Count="3" HistoryIndex="2">
<JumpHistory Count="4" HistoryIndex="3">
<Position1>
<Filename Value="fixnaf.lpr"/>
<Caret Line="8" Column="37"/>
@ -123,6 +123,10 @@
<Filename Value="fixnaf1.pas"/>
<Caret Line="18" Column="28"/>
</Position3>
<Position4>
<Filename Value="fixnaf1.pas"/>
<Caret Line="21" Column="39"/>
</Position4>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

12
components/onguard/examples/nafmgr/nafmgr.lpi
View File

@ -45,7 +45,8 @@
<Filename Value="nafmgr.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="NAFMgr"/>
<CursorPos X="8" Y="16"/>
<IsVisibleTab Value="True"/>
<CursorPos X="3" Y="8"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -57,9 +58,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="NAFMGR1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="41" Y="19"/>
<CursorPos X="45" Y="17"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -71,7 +71,7 @@
<UsageCount Value="10"/>
</Unit2>
</Units>
<JumpHistory Count="3" HistoryIndex="2">
<JumpHistory Count="4" HistoryIndex="3">
<Position1>
<Filename Value="nafmgr1.pas"/>
<Caret Line="70" TopLine="53"/>
@ -84,6 +84,10 @@
<Filename Value="nafmgr1.pas"/>
<Caret Line="19" Column="14"/>
</Position3>
<Position4>
<Filename Value="nafmgr1.pas"/>
<Caret Line="17" Column="45"/>
</Position4>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

163
components/onguard/examples/regdemo/rcg.lpi
View File

@ -1,26 +1,38 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<Item1>
@ -28,15 +40,16 @@
<MinVersion Major="1" Valid="True"/>
</Item1>
</RequiredPackages>
<Units Count="6">
<Units Count="11">
<Unit0>
<Filename Value="rcg.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="54" Y="12"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="21"/>
<UnitName Value="RCG"/>
<EditorIndex Value="1"/>
<CursorPos X="54" Y="14"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="rcg_main.pas"/>
@ -45,11 +58,13 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="rcg_Main"/>
<CursorPos X="59" Y="74"/>
<TopLine Value="74"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<UsageCount Value="20"/>
<TopLine Value="91"/>
<CursorPos X="29" Y="123"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="frm_readme.pas"/>
@ -58,43 +73,124 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Readme"/>
<CursorPos X="90" Y="13"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<CursorPos X="59" Y="19"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="30" Y="1300"/>
<TopLine Value="1299"/>
<EditorIndex Value="4"/>
<TopLine Value="34"/>
<CursorPos X="25" Y="57"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="../../source/qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/>
<UnitName Value="qonguard3"/>
<CursorPos X="23" Y="131"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="7"/>
<TopLine Value="125"/>
<CursorPos X="23" Y="131"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit4>
<Unit5>
<Filename Value="../../source/qonguard3.lfm"/>
<CursorPos X="29" Y="78"/>
<TopLine Value="76"/>
<CursorPos X="29" Y="78"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit5>
<Unit6>
<Filename Value="../../source/qonguard1.pas"/>
<ComponentName Value="KeyGenerateFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="5"/>
<CursorPos X="46" Y="26"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit6>
<Unit7>
<Filename Value="../../source/qonguard2.pas"/>
<ComponentName Value="CodeGenerateFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="6"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit7>
<Unit8>
<Filename Value="../../source/qonguard4.pas"/>
<ComponentName Value="EditProductFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="8"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit8>
<Unit9>
<Filename Value="../../source/qonguard6.pas"/>
<ComponentName Value="ModifierFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="9"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit9>
<Unit10>
<Filename Value="../../source/ogconst.pas"/>
<EditorIndex Value="3"/>
<TopLine Value="25"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit10>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="7" HistoryIndex="6">
<Position1>
<Filename Value="rcg_main.pas"/>
<Caret Line="74" Column="59" TopLine="74"/>
</Position1>
<Position2>
<Filename Value="rcg_main.pas"/>
<Caret Line="76" Column="34" TopLine="61"/>
</Position2>
<Position3>
<Filename Value="rcg_main.pas"/>
<Caret Line="116" TopLine="21"/>
</Position3>
<Position4>
<Filename Value="rcg_main.pas"/>
<Caret Line="94" Column="25" TopLine="76"/>
</Position4>
<Position5>
<Filename Value="rcg_main.pas"/>
<Caret Line="97" Column="33" TopLine="76"/>
</Position5>
<Position6>
<Filename Value="rcg_main.pas"/>
<Caret Line="104" Column="16" TopLine="86"/>
</Position6>
<Position7>
<Filename Value="rcg_main.pas"/>
<Caret Line="119" Column="9" TopLine="103"/>
</Position7>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -107,7 +203,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -115,9 +211,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

2
components/onguard/examples/regdemo/rcg.lpr
View File

@ -9,6 +9,8 @@ uses
frm_Readme in 'frm_Readme.pas' {frmReadme}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TrcgMain, rcgMain);

167
components/onguard/examples/regdemo/rcg_main.lfm
View File

@ -6,102 +6,162 @@ object rcgMain: TrcgMain
HorzScrollBar.Page = 362
VertScrollBar.Page = 321
ActiveControl = edtAppKey
AutoSize = True
BorderStyle = bsDialog
Caption = 'Release Code Generator'
Font.Height = -13
Font.Name = 'Arial'
ClientHeight = 322
ClientWidth = 363
ShowHint = True
LCLVersion = '2.3.0.0'
object lblAppKey: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 13
Top = 7
Width = 99
Height = 15
Top = 8
Width = 83
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = '&Application Key'
Color = clNone
FocusControl = edtAppKey
ParentColor = False
end
object lblSerialNumber: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtExpires
AnchorSideTop.Side = asrBottom
Left = 8
Height = 13
Top = 156
Width = 89
Height = 15
Top = 161
Width = 75
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = '&Serial Number'
Color = clNone
FocusControl = edtSerialNumber
ParentColor = False
end
object lblReleaseCode: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 8
Height = 13
Top = 222
Width = 80
Height = 15
Top = 224
Width = 70
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Release Code'
Color = clNone
ParentColor = False
end
object Bevel1: TBevel
AnchorSideLeft.Control = edtSerialNumber
AnchorSideTop.Control = edtSerialNumber
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtSerialNumber
AnchorSideRight.Side = asrBottom
Left = 8
Height = 5
Top = 211
Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 10
Shape = bsTopLine
end
object edtAppKey: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblAppKey
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = spdAppKey
Left = 8
Height = 24
Top = 24
Width = 329
Top = 25
Width = 295
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 4
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
OnChange = edtAppKeyChange
ParentFont = False
ReadOnly = True
TabStop = False
TabOrder = 0
end
object chkMachMod: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtAppKey
AnchorSideTop.Side = asrBottom
Left = 8
Height = 22
Top = 56
Width = 179
Height = 19
Top = 57
Width = 155
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Apply a &Machine Modifier'
OnClick = chkMachModClick
TabOrder = 2
end
object edtMachineMod: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = chkMachMod
AnchorSideTop.Side = asrBottom
Left = 8
Height = 24
Top = 74
Height = 23
Top = 78
Width = 329
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 8
Enabled = False
MaxLength = 10
OnChange = edtAppKeyChange
TabOrder = 3
end
object edtSerialNumber: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblSerialNumber
AnchorSideTop.Side = asrBottom
Left = 8
Height = 24
Top = 173
Height = 23
Top = 178
Width = 329
BorderSpacing.Left = 8
BorderSpacing.Top = 2
MaxLength = 10
OnChange = edtAppKeyChange
TabOrder = 6
end
object edtReleaseCode: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblReleaseCode
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = spdReleaseCode
Left = 8
Height = 24
Top = 238
Width = 329
Height = 23
Top = 241
Width = 299
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 4
ReadOnly = True
TabStop = False
TabOrder = 7
end
object btnExit: TButton
AnchorSideTop.Control = btnReadme
AnchorSideRight.Control = edtMachineMod
AnchorSideRight.Side = asrBottom
Left = 262
Height = 25
Top = 273
Top = 276
Width = 75
Anchors = [akTop, akLeft, akRight]
BorderSpacing.InnerBorder = 4
Caption = 'Exit'
Default = True
@ -109,28 +169,43 @@ object rcgMain: TrcgMain
TabOrder = 9
end
object chkExpires: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtMachineMod
AnchorSideTop.Side = asrBottom
Left = 8
Height = 22
Top = 104
Width = 158
Height = 19
Top = 109
Width = 129
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = '&Release code expires '
OnClick = chkExpiresClick
TabOrder = 4
end
object edtExpires: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = chkExpires
AnchorSideTop.Side = asrBottom
Left = 8
Height = 24
Top = 125
Height = 23
Top = 130
Width = 329
BorderSpacing.Left = 8
BorderSpacing.Top = 2
Enabled = False
OnChange = edtAppKeyChange
TabOrder = 5
end
object spdAppKey: TBitBtn
Left = 310
Height = 21
Top = 26
Width = 25
AnchorSideTop.Control = edtAppKey
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edtMachineMod
AnchorSideRight.Side = asrBottom
Left = 307
Height = 26
Top = 24
Width = 30
Anchors = [akTop, akRight]
Glyph.Data = {
26040000424D2604000000000000360000002800000012000000120000000100
180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF
@ -167,15 +242,19 @@ object rcgMain: TrcgMain
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD5D5D519667800
556B62737CFFFFFF0000
}
NumGlyphs = 0
OnClick = spdAppKeyClick
Spacing = 0
TabOrder = 1
end
object spdReleaseCode: TBitBtn
AnchorSideTop.Control = edtReleaseCode
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edtMachineMod
Left = 311
Height = 21
Top = 240
Width = 25
Height = 26
Top = 239
Width = 30
Anchors = [akTop]
Glyph.Data = {
26040000424D2604000000000000360000002800000012000000120000000100
180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF
@ -212,22 +291,28 @@ object rcgMain: TrcgMain
FF9F9F9F5A35336F423E6F423E3E2523DFDFDFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF0000
}
NumGlyphs = 0
OnClick = spdReleaseCodeClick
Spacing = 0
TabOrder = 8
end
object btnReadme: TButton
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtReleaseCode
AnchorSideTop.Side = asrBottom
Left = 8
Height = 25
Top = 273
Top = 276
Width = 75
BorderSpacing.Left = 8
BorderSpacing.Top = 12
BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4
Caption = 'Readme...'
OnClick = btnReadmeClick
TabOrder = 10
end
object OgMakeKeys1: TOgMakeKeys
left = 144
top = 272
Left = 152
Top = 248
end
end

239
components/onguard/examples/regdemo/rcg_main.lrs
View File

@ -1,104 +1,142 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TrcgMain','FORMDATA',[
'TPF0'#8'TrcgMain'#7'rcgMain'#4'Left'#3'b'#1#6'Height'#3'B'#1#3'Top'#3#246#0#5
+'Width'#3'k'#1#18'HorzScrollBar.Page'#3'j'#1#18'VertScrollBar.Page'#3'A'#1#13
+'ActiveControl'#7#9'edtAppKey'#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#22
+'Release Code Generator'#11'Font.Height'#2#243#9'Font.Name'#6#5'Arial'#8'Sho'
+'wHint'#9#0#6'TLabel'#9'lblAppKey'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#7#5'W'
+'idth'#2'c'#7'Caption'#6#16'&Application Key'#5'Color'#7#6'clNone'#12'FocusC'
+'ontrol'#7#9'edtAppKey'#11'ParentColor'#8#0#0#6'TLabel'#15'lblSerialNumber'#4
+'Left'#2#8#6'Height'#2#13#3'Top'#3#156#0#5'Width'#2'Y'#7'Caption'#6#14'&Seri'
+'al Number'#5'Color'#7#6'clNone'#12'FocusControl'#7#15'edtSerialNumber'#11'P'
+'arentColor'#8#0#0#6'TLabel'#14'lblReleaseCode'#4'Left'#2#8#6'Height'#2#13#3
+'Top'#3#222#0#5'Width'#2'P'#7'Caption'#6#12'Release Code'#5'Color'#7#6'clNon'
+'e'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#8#6'Height'#2#5#3'To'
+'p'#3#211#0#5'Width'#3'I'#1#5'Shape'#7#9'bsTopLine'#0#0#5'TEdit'#9'edtAppKey'
+#4'Left'#2#8#6'Height'#2#24#3'Top'#2#24#5'Width'#3'I'#1#10'Font.Color'#7#5'c'
+'lRed'#11'Font.Height'#2#243#9'Font.Name'#6#13'MS Sans Serif'#8'OnChange'#7
+#15'edtAppKeyChange'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#0#0#0#9'TCheck'
+'Box'#10'chkMachMod'#4'Left'#2#8#6'Height'#2#22#3'Top'#2'8'#5'Width'#3#179#0
+#7'Caption'#6#25'Apply a &Machine Modifier'#7'OnClick'#7#15'chkMachModClick'
+#8'TabOrder'#2#2#0#0#5'TEdit'#13'edtMachineMod'#4'Left'#2#8#6'Height'#2#24#3
+'Top'#2'J'#5'Width'#3'I'#1#7'Enabled'#8#9'MaxLength'#2#10#8'OnChange'#7#15'e'
+'dtAppKeyChange'#8'TabOrder'#2#3#0#0#5'TEdit'#15'edtSerialNumber'#4'Left'#2#8
+#6'Height'#2#24#3'Top'#3#173#0#5'Width'#3'I'#1#9'MaxLength'#2#10#8'OnChange'
+#7#15'edtAppKeyChange'#8'TabOrder'#2#6#0#0#5'TEdit'#14'edtReleaseCode'#4'Lef'
+'t'#2#8#6'Height'#2#24#3'Top'#3#238#0#5'Width'#3'I'#1#8'ReadOnly'#9#7'TabSto'
+'p'#8#8'TabOrder'#2#7#0#0#7'TButton'#7'btnExit'#4'Left'#3#6#1#6'Height'#2#25
+#3'Top'#3#17#1#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#4
+'Exit'#7'Default'#9#7'OnClick'#7#12'btnExitClick'#8'TabOrder'#2#9#0#0#9'TChe'
+'ckBox'#10'chkExpires'#4'Left'#2#8#6'Height'#2#22#3'Top'#2'h'#5'Width'#3#158
+#0#7'Caption'#6#22'&Release code expires '#7'OnClick'#7#15'chkExpiresClick'#8
+'TabOrder'#2#4#0#0#5'TEdit'#10'edtExpires'#4'Left'#2#8#6'Height'#2#24#3'Top'
+#2'}'#5'Width'#3'I'#1#7'Enabled'#8#8'OnChange'#7#15'edtAppKeyChange'#8'TabOr'
+'der'#2#5#0#0#7'TBitBtn'#9'spdAppKey'#4'Left'#3'6'#1#6'Height'#2#21#3'Top'#2
+#26#5'Width'#2#25#10'Glyph.Data'#10'*'#4#0#0'&'#4#0#0'BM&'#4#0#0#0#0#0#0'6'#0
+#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+'ActiveControl'#7#9'edtAppKey'#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7
+'Caption'#6#22'Release Code Generator'#12'ClientHeight'#3'B'#1#11'ClientWidt'
+'h'#3'k'#1#8'ShowHint'#9#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'lblAppKey'
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4
+'Left'#2#8#6'Height'#2#15#3'Top'#2#8#5'Width'#2'S'#18'BorderSpacing.Left'#2#8
+#17'BorderSpacing.Top'#2#8#7'Caption'#6#16'&Application Key'#5'Color'#7#6'cl'
+'None'#12'FocusControl'#7#9'edtAppKey'#11'ParentColor'#8#0#0#6'TLabel'#15'lb'
+'lSerialNumber'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contr'
+'ol'#7#10'edtExpires'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'He'
+'ight'#2#15#3'Top'#3#161#0#5'Width'#2'K'#18'BorderSpacing.Left'#2#8#17'Borde'
+'rSpacing.Top'#2#8#7'Caption'#6#14'&Serial Number'#5'Color'#7#6'clNone'#12'F'
+'ocusControl'#7#15'edtSerialNumber'#11'ParentColor'#8#0#0#6'TLabel'#14'lblRe'
+'leaseCode'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
+#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#15#3
+'Top'#3#224#0#5'Width'#2'F'#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'
+#2#8#7'Caption'#6#12'Release Code'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#15'edtSerialNumber'#21'Anc'
+'horSideTop.Control'#7#15'edtSerialNumber'#18'AnchorSideTop.Side'#7#9'asrBot'
+'tom'#23'AnchorSideRight.Control'#7#15'edtSerialNumber'#20'AnchorSideRight.S'
+'ide'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#5#3'Top'#3#211#0#5'Width'#3'I'#1
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#10#5
+'Shape'#7#9'bsTopLine'#0#0#5'TEdit'#9'edtAppKey'#22'AnchorSideLeft.Control'#7
+#5'Owner'#21'AnchorSideTop.Control'#7#9'lblAppKey'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#23'AnchorSideRight.Control'#7#9'spdAppKey'#4'Left'#2#8#6'Height'
+#2#24#3'Top'#2#25#5'Width'#3''''#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#0#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#2#19'BorderSpacing.'
+'Right'#2#4#10'Font.Color'#7#5'clRed'#11'Font.Height'#2#243#9'Font.Name'#6#13
+'MS Sans Serif'#8'OnChange'#7#15'edtAppKeyChange'#10'ParentFont'#8#8'ReadOnl'
+'y'#9#7'TabStop'#8#8'TabOrder'#2#0#0#0#9'TCheckBox'#10'chkMachMod'#22'Anchor'
+'SideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'edtAppKey'#18'An'
+'chorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#19#3'Top'#2'9'#5'W'
+'idth'#3#155#0#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#8#7'Captio'
+'n'#6#25'Apply a &Machine Modifier'#7'OnClick'#7#15'chkMachModClick'#8'TabOr'
+'der'#2#2#0#0#5'TEdit'#13'edtMachineMod'#22'AnchorSideLeft.Control'#7#5'Owne'
+'r'#21'AnchorSideTop.Control'#7#10'chkMachMod'#18'AnchorSideTop.Side'#7#9'as'
+'rBottom'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'N'#5'Width'#3'I'#1#18'BorderSp'
+'acing.Left'#2#8#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#8#7'Ena'
+'bled'#8#9'MaxLength'#2#10#8'OnChange'#7#15'edtAppKeyChange'#8'TabOrder'#2#3
+#0#0#5'TEdit'#15'edtSerialNumber'#22'AnchorSideLeft.Control'#7#5'Owner'#21'A'
+'nchorSideTop.Control'#7#15'lblSerialNumber'#18'AnchorSideTop.Side'#7#9'asrB'
+'ottom'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#178#0#5'Width'#3'I'#1#18'BorderS'
+'pacing.Left'#2#8#17'BorderSpacing.Top'#2#2#9'MaxLength'#2#10#8'OnChange'#7
+#15'edtAppKeyChange'#8'TabOrder'#2#6#0#0#5'TEdit'#14'edtReleaseCode'#22'Anch'
+'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#14'lblReleaseCod'
+'e'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#14's'
+'pdReleaseCode'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#241#0#5'Width'#3'+'#1#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#8#17'B'
+'orderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#4#8'ReadOnly'#9#7'TabStop'#8
+#8'TabOrder'#2#7#0#0#7'TButton'#7'btnExit'#21'AnchorSideTop.Control'#7#9'btn'
+'Readme'#23'AnchorSideRight.Control'#7#13'edtMachineMod'#20'AnchorSideRight.'
+'Side'#7#9'asrBottom'#4'Left'#3#6#1#6'Height'#2#25#3'Top'#3#20#1#5'Width'#2
+'K'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#25'BorderSpacing.InnerBord'
+'er'#2#4#7'Caption'#6#4'Exit'#7'Default'#9#7'OnClick'#7#12'btnExitClick'#8'T'
+'abOrder'#2#9#0#0#9'TCheckBox'#10'chkExpires'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#13'edtMachineMod'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#19#3'Top'#2'm'#5'Width'#3#129#0#18'B'
+'orderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#8#7'Caption'#6#22'&Release c'
+'ode expires '#7'OnClick'#7#15'chkExpiresClick'#8'TabOrder'#2#4#0#0#5'TEdit'
+#10'edtExpires'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contr'
+'ol'#7#10'chkExpires'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'He'
+'ight'#2#23#3'Top'#3#130#0#5'Width'#3'I'#1#18'BorderSpacing.Left'#2#8#17'Bor'
+'derSpacing.Top'#2#2#7'Enabled'#8#8'OnChange'#7#15'edtAppKeyChange'#8'TabOrd'
,'er'#2#5#0#0#7'TBitBtn'#9'spdAppKey'#21'AnchorSideTop.Control'#7#9'edtAppKey'
+#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#13'edtM'
+'achineMod'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3'3'#1#6'Height'
+#2#26#3'Top'#2#24#5'Width'#2#30#7'Anchors'#11#5'akTop'#7'akRight'#0#10'Glyph'
+'.Data'#10'*'#4#0#0'&'#4#0#0'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18
+#0#0#0#1#0#24#0#0#0#0#0#240#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#0#0#255#255#255#171#171#171#238#238#238#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#255#255#255#171#171
+#171#238#238#238#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0
+#255#255#255#23'%4^em'#242#242#242#229#229#229#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#0#0#255#255#255#23'%4^em'#242
+#242#242#229#229#229#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#255#255#255'0>M8T`'
+#196#196#196',06'#170#170#170#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#0#0#255#255#255'0>M8T`'#196#196#196',06'#170#170#170
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#0#0#255#255#255#162#162#162#0#141#176'2^j'#0#27'9'#139
+#139#139#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#255
+#255#255#162#162#162#0#141#176'2^j'#0#27'9'#139#139#139#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#0#0#191#191#191'III'#0'Bn'#0'u'#170#12')I'#202#202#202#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#0#0#191#191#191'III'#0'Bn'#0
+'u'#170#12')I'#202#202#202#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#0#0#0'^s'#0'u'#158#0'(B'#0
+'-O'#22'(:'#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#0#0#0'^s'#0'u'#158#0'(B'#0'-O'#22'(:'#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#0#0#168#177#179':s'#129#0'|'#160#0'r'#157#14'1E'#162#162#162
+#204#204#204#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#221#221#221#162#162#162#179#179#179#255#255#255#255#255#255#0#0#255
+#255#255#238#238#238#170#181#183'8o}'#0#129#166#0'_'#139#20'8U'#172#173#175
+#242#242#242#255#255#255#255#255#255#255#255#255#255#255#255'0N^'#0'k'#137#8
+'Vv'#140#145#150#255#255#255#0#0#255#255#255#255#255#255#255#255#255#242#242
+#242#172#177#179#20'{'#151#0'>j'#0'W~8Xg'#170#175#178#212#212#212#255#255#255
+#170#170#170#6'8S'#151#156#159'K'#129#143#18'Uh'#234#234#234#0#0#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#204#204#204#162#162#162'#hx'
+#4#140#181#0'\'#130#8'3R'#168#170#172'2O_:Tb'#238#238#238#208#208#208#0'p'
+#139#139#139#139#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255
,#255#255#255#255#255#255#255#255#255#255#160#160#160'%v'#139#0'u'#170#0'3['#0
+'Ku\ej'#255#255#255#208#208#208#0'A\'#139#139#139#0#0#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#168#177
+#179':s'#129#0'|'#160#0'r'#157#14'1E'#162#162#162#204#204#204#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#221#221#221#162#162
+#162#179#179#179#255#255#255#255#255#255#0#0#255#255#255#238#238#238#170#181
+#183'8o}'#0#129#166#0'_'#139#20'8U'#172#173#175#242#242#242#255#255#255#255
+#255#255#255#255#255#255#255#255'0N^'#0'k'#137#8'Vv'#140#145#150#255#255#255
+#0#0#255#255#255#255#255#255#255#255#255#242#242#242#172#177#179#20'{'#151#0
+'>j'#0'W~8Xg'#170#175#178#212#212#212#255#255#255#170#170#170#6'8S'#151#156
+#159'K'#129#143#18'Uh'#234#234#234#0#0#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#204#204#204#162#162#162'#hx'#4#140#181#0'\'#130#8'3'
+'R'#168#170#172'2O_:Tb'#238#238#238#208#208#208#0'p'#139#139#139#139#0#0#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#229#229#229'sss4r'#128#0#129#167'\jn'#255#255#255'E`j'#0'P'#139#139
+#139#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#242#242#242
+#0'^s\os'#255#255#255'x'#143#149#0'd'#141#139#139#139#0#0#255#255#255#255#255
+#255#255#255#255#160#160#160'%v'#139#0'u'#170#0'3['#0'Ku\ej'#255#255#255#208
+#208#208#0'A\'#139#139#139#0#0#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#229#229#229
+'sss4r'#128#0#129#167'\jn'#255#255#255'E`j'#0'P'#127#139#139#139#0#0#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255'q'#131#134#16'p'#134#217#217
+#217#208#208#208#0'7U'#139#139#139#0#0#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#242#242#242#0'^s\os'#255#255
+#255'x'#143#149#0'd'#141#139#139#139#0#0#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#160#160#160#4'c|'#183#185#186#208#208#208#0
+'7U'#139#139#139#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255'q'#131#134#16'p'#134#217#217#217#208#208#208
+#0'7U'#139#139#139#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255'#Sc'#25'}'#151'Lak'#14'/F'#212#212#212#0#0#255#255
+#255#255#255#255#160#160#160#4'c|'#183#185#186#208#208#208#0'7U'#139#139#139
+#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#213
+#213#213#25'fx'#0'Ukbs|'#255#255#255#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#14'sp'
+'dAppKeyClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'#14'spdReleaseCode'#4'Left'#3'7'
+#1#6'Height'#2#21#3'Top'#3#240#0#5'Width'#2#25#10'Glyph.Data'#10'*'#4#0#0'&'
+#4#0#0'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0
+#0#240#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255
+#255#255'#Sc'#25'}'#151'Lak'#14'/F'#212#212#212#0#0#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#234#234#234#134#140#141#0'Wo'#23'7]fmfpwp'#147#149
+#147#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#185#185#185'"Q^<U\/'#128
+#151#1'e'#239#27'?qeke'#137#142#137#0#0#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#213#213#213#25'fx'#0
+'Ukbs|'#255#255#255#0#0#7'OnClick'#7#14'spdAppKeyClick'#7'Spacing'#2#0#8'Tab'
+'Order'#2#1#0#0#7'TBitBtn'#14'spdReleaseCode'#21'AnchorSideTop.Control'#7#14
+'edtReleaseCode'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Co'
+'ntrol'#7#13'edtMachineMod'#4'Left'#3'7'#1#6'Height'#2#26#3'Top'#3#239#0#5'W'
+'idth'#2#30#7'Anchors'#11#5'akTop'#0#10'Glyph.Data'#10'*'#4#0#0'&'#4#0#0'BM&'
+#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#175#175#175#8#137#172#15#177#221'H[`'#4'2v'#0'I'#182#150#151#150#239
+#240#239#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#249
+#249#249#239#239#239#239#239#239#239#239#239#239#239#239#168#168#168'6DH'#21
+#167#207#14#177#222#1#13#20#0#21'5'#175#175#175#255#255#255#0#0#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#159#159#159'H/,_`b`G*(?B?'
+'%]mMSU'#19#170#211#0'Y'#206#0#9#23#175#175#175#255#255#255#0#0#255#255#255
+#255#255#255#234#234#234#134#140#141#0'Wo'#23'7]fmfpwp'#147#149#147#0#0#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#185#185#185'"Q^<U\/'#128#151#1'e'
,#239#27'?qeke'#137#142#137#0#0#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#175#175#175#8#137#172#15#177#221'H[`'#4'2v'#0'I'#182#150#151#150#239#240#239
+#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#249#249#249
+#239#239#239#239#239#239#239#239#239#239#239#239#168#168#168'6DH'#21#167#207
+#14#177#222#1#13#20#0#21'5'#175#175#175#255#255#255#0#0#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#159#159#159'H/,'#127'_`'#127'b`G*(?'
+'B?%]mMSU'#19#170#211#0'Y'#206#0#9#23#175#175#175#255#255#255#0#0#255#255#255
+#225#225#225#142#139#139''' '#31'JDAHLH'#144'_Z'#255#191#193#255#196#192#143
+'TQ?B?'#17'{'#152'"'#147#178'MSU'#4'P'#190#0'I'#182']a]'#231#232#231#0#0#255
+#255#255#175#175#175'\B=>-)'#130']W'' '#30'lGC'#191#143#144#191#147#144'k?</'
@ -115,21 +153,24 @@ LazarusResources.Add('TrcgMain','FORMDATA',[
+'r\Z'#241#210#213#243#206#211'yyy/\Z'#182'ojZLK'#219#220#219#239#240#239#0#0
+'oB>'#212#132'}'#235#142#135#255#151#144#255#151#144#195#129'~E(''\/.lA>Q;8'
+#235#190#195#255#223#227#255#213#218#255#185#180#255#151#144'o\Z'#255#255#255
+#255#255#255#0#0'7!'#31'KH`>:'#135'PL'#255#151#144#255#151#144#222#151#151
+'cgcg'#255#186#189#255#200#207#231#186#192'npqsNKWNM'#255#255#255#255
+#255#255#0#0#239#239#239#164#164#164#161'_[xHD'#234#141#134#218#129'{'#237
+#141#134#255#175#175#255#200#207#213#153#155#189#144#149#252#197#204#152'vyG'
+'*('#224#224#224#243#243#243#255#255#255#255#255#255#0#0#255#255#255#175#175
+#175'e<9'#235#139#133#181'rlF98'#207'zu'#255#152#145#255#175#175#143'pt'#151
+#148#148#183#147#151#248#194#201'G8:'#239#239#239#255#255#255#255#255#255#255
+#255#255#0#0#255#255#255#230#230#230#148'qn'#216#128'z'#143'~'#154#154#154
+#207'zu'#255#151#144#255#151#144#143']\'#223#223#223#183#180#180'sce'#175#175
+#175#250#250#250#255#255#255#255#255#255#255#255#255#0#0#255#255#255#255#255
+#255#234#234#234#150#150#150#255#255#255#159#159#159'Z53oB>oB>>%#'#223#223
+#223#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#19'spdReleaseCodeClick'#8'Tab'
+'Order'#2#8#0#0#7'TButton'#9'btnReadme'#4'Left'#2#8#6'Height'#2#25#3'Top'#3
,#17#1#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'Readme.'
+'..'#7'OnClick'#7#14'btnReadmeClick'#8'TabOrder'#2#10#0#0#11'TOgMakeKeys'#11
+'OgMakeKeys1'#4'left'#3#144#0#3'top'#3#16#1#0#0#0
+#255#255#255#0#0'7!'#31#127'KH`>:'#135'PL'#255#151#144#255#151#144#222#151
+#151#127'cg'#127'cg'#255#186#189#255#200#207#231#186#192#127'np'#127'qs'#127
+'NKWNM'#255#255#255#255#255#255#0#0#239#239#239#164#164#164#161'_[xHD'#234
+#141#134#218#129'{'#237#141#134#255#175#175#255#200#207#213#153#155#189#144
+#149#252#197#204#152'vyG*('#224#224#224#243#243#243#255#255#255#255#255#255#0
+#0#255#255#255#175#175#175'e<9'#235#139#133#181'rlF98'#207'zu'#255#152#145
+#255#175#175#143'pt'#151#148#148#183#147#151#248#194#201'G8:'#239#239#239#255
+#255#255#255#255#255#255#255#255#0#0#255#255#255#230#230#230#148'qn'#216#128
+'z'#143#127'~'#154#154#154#207'zu'#255#151#144#255#151#144#143']\'#223#223
+#223#183#180#180'sce'#175#175#175#250#250#250#255#255#255#255#255#255#255#255
+#255#0#0#255#255#255#255#255#255#234#234#234#150#150#150#255#255#255#159#159
+#159'Z53oB>oB>>%#'#223#223#223#255#255#255#255#255#255#255#255#255#255#255
+#255#255#255#255#255#255#255#255#255#255#0#0#7'OnClick'#7#19'spdReleaseCodeC'
+'lick'#7'Spacing'#2#0#8'TabOrder'#2#8#0#0#7'TButton'#9'btnReadme'#22'AnchorS'
+'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#14'edtReleaseCode'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#25#3'Top'#3#20
+#1#5'Width'#2'K'#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#12#20'Bo'
+'rderSpacing.Bottom'#2#8#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'Re'
+'adme...'#7'OnClick'#7#14'btnReadmeClick'#8'TabOrder'#2#10#0#0#11'TOgMakeKey'
+'s'#11'OgMakeKeys1'#4'Left'#3#152#0#3'Top'#3#248#0#0#0#0
]);

26
components/onguard/examples/regdemo/rcg_main.pas
View File

@ -94,34 +94,36 @@ var
ReleaseCode : TCode;
CodeString : string;
begin
ReleaseCode := Default(TCode);
edtReleaseCode.Text := '';
// Get the key that will be used to generate the ReleaseCode
Key := ApplicationKey;
if chkMachMod.Checked then
try
Modifier := StrToInt(edtMachineMod.Text);
ApplyModifierToKeyPrim(Modifier, Key, sizeof(Key));
except
begin
if TryStrToInt(edtMachineMod.Text, Modifier) then
ApplyModifierToKeyPrim(Modifier, Key, sizeof(Key))
else
begin
MessageDlg('Invalid Machine Modifier. Please check your entry and try again.', mtError, [mbOK], 0);
exit;
end;
end;
// Get the expiration date
if chkExpires.Checked then
try
Expires := StrToDate(edtExpires.Text);
except
begin
if not TryStrToDate(edtExpires.Text, Expires) then
begin
MessageDlg('Invalid Expiration Date. Please check your entry and try again.', mtError, [mbOK], 0);
exit;
end
else
end;
end else
Expires := 0;
// Get the serial number
try
SerialNum := StrToInt(edtSerialNumber.Text);
except
if not TryStrToInt(edtSerialNumber.Text, SerialNum) then
begin
MessageDlg('Invalid Serial Number. Please check your entry and try again.', mtError, [mbOK], 0);
exit;
end;

2
components/onguard/examples/stampexe/stampexe.lpi
View File

@ -58,7 +58,7 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="STAMPEX1"/>
<IsVisibleTab Value="True"/>
<CursorPos X="36" Y="27"/>
<CursorPos X="49" Y="20"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

23
components/onguard/source/qogabout0.lfm
View File

@ -9,7 +9,6 @@ object OgAboutForm: TOgAboutForm
Caption = 'About TurboPower OnGuard'
ClientHeight = 363
ClientWidth = 434
Color = clForm
OnCreate = FormCreate
OnMouseMove = FormMouseMove
Position = poScreenCenter
@ -34,7 +33,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 147
Left = 153
Height = 21
Top = 4
Width = 68
@ -49,7 +48,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = l1
AnchorSideTop.Side = asrBottom
Left = 147
Left = 153
Height = 15
Top = 25
Width = 62
@ -62,7 +61,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = l4
AnchorSideTop.Side = asrBottom
Left = 147
Left = 153
Height = 15
Top = 71
Width = 118
@ -95,7 +94,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblVersion
AnchorSideTop.Side = asrBottom
Left = 147
Left = 153
Height = 15
Top = 48
Width = 201
@ -106,12 +105,12 @@ object OgAboutForm: TOgAboutForm
object l4: TLabel
AnchorSideLeft.Control = l3
AnchorSideLeft.Side = asrBottom
Left = 356
Left = 362
Height = 15
Top = 48
Width = 50
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Right = 16
Caption = '(MPL 1.1)'
ParentColor = False
end
@ -145,7 +144,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = WebLbl1
AnchorSideTop.Side = asrBottom
Left = 147
Left = 153
Height = 15
Top = 147
Width = 106
@ -166,7 +165,7 @@ object OgAboutForm: TOgAboutForm
Top = 162
Width = 256
BorderSpacing.Left = 12
BorderSpacing.Right = 8
BorderSpacing.Right = 16
Caption = 'https://sourceforge.net/forum/?group_id=71010'
Font.Color = clNavy
ParentColor = False
@ -179,7 +178,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = WebLbl
AnchorSideTop.Side = asrBottom
Left = 147
Left = 153
Height = 15
Top = 109
Width = 71
@ -215,6 +214,7 @@ object OgAboutForm: TOgAboutForm
Top = 4
Width = 139
AutoSize = True
BorderSpacing.Right = 6
BorderSpacing.Around = 4
BevelOuter = bvLowered
ClientHeight = 251
@ -1372,12 +1372,13 @@ object OgAboutForm: TOgAboutForm
Top = 301
Width = 75
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 2
BorderSpacing.Right = 16
BorderSpacing.Bottom = 16
BorderSpacing.InnerBorder = 4
Cancel = True
Caption = 'OK'
Constraints.MinWidth = 75
Default = True
ModalResult = 2
OnClick = btnOKClick

1088
components/onguard/source/qogabout0.lrs
View File

File diff suppressed because it is too large Load Diff

22
components/onguard/source/qonguard2.lfm
View File

@ -380,17 +380,18 @@ object CodeGenerateFrm: TCodeGenerateFrm
Caption = '&Key used to encode'
ClientHeight = 219
ClientWidth = 536
ParentBackground = False
TabOrder = 3
object GenerateKeySb: TSpeedButton
AnchorSideTop.Control = BlockKeyEd
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ModStringEd
AnchorSideRight.Side = asrBottom
Left = 498
Height = 23
Left = 495
Height = 24
Hint = 'Generate key'
Top = 180
Width = 23
Top = 179
Width = 26
Anchors = [akTop, akRight]
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
@ -548,7 +549,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
Left = 16
Height = 23
Top = 180
Width = 478
Width = 475
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Right = 4
@ -573,17 +574,18 @@ object CodeGenerateFrm: TCodeGenerateFrm
Caption = 'Generate Code'
ClientHeight = 47
ClientWidth = 536
ParentBackground = False
TabOrder = 4
object RegCodeCopySb: TSpeedButton
AnchorSideTop.Control = GenerateBtn
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 497
Height = 23
Left = 494
Height = 24
Hint = 'Copy code to clipboard'
Top = 7
Width = 23
Top = 6
Width = 26
Anchors = [akTop, akRight]
BorderSpacing.Right = 16
Glyph.Data = {
@ -627,7 +629,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
Left = 97
Height = 23
Top = 7
Width = 396
Width = 393
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Right = 4

210
components/onguard/source/qonguard2.lrs
View File

@ -108,109 +108,109 @@ LazarusResources.Add('TCodeGenerateFrm','FORMDATA',[
+#23'AnchorSideRight.Control'#7#8'CodesNbk'#20'AnchorSideRight.Side'#7#9'asrB'
+'ottom'#4'Left'#2#6#6'Height'#3#239#0#3'Top'#3#142#0#5'Width'#3#28#2#7'Ancho'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6#19'&Key u'
+'sed to encode'#12'ClientHeight'#3#219#0#11'ClientWidth'#3#24#2#8'TabOrder'#2
+#3#0#12'TSpeedButton'#13'GenerateKeySb'#21'AnchorSideTop.Control'#7#10'Block'
+'KeyEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7
+#11'ModStringEd'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#242#1#6'H'
+'eight'#2#23#4'Hint'#6#12'Generate key'#3'Top'#3#180#0#5'Width'#2#23#7'Ancho'
+'rs'#11#5'akTop'#7'akRight'#0#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0
+#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0
+#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0
+#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136
+#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136
+#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0
+#136#136#136#136#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0
+#0#0#136#128#0#0#136#8#136#128#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0
+#136#0#137#128#0#0#0#0#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152
+#144#8#136#136#136#128#0#0#0#136#128#0#0#136#136#136#136#128#0#0#0#136#136#0
+#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136
+#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#7'OnClick'#7#18'GenerateKeySb'
+'Click'#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21
+'AnchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.Side'#7#9'asrBott'
,'om'#4'Left'#2#16#6'Height'#2#15#3'Top'#2'o'#5'Width'#2'0'#18'BorderSpacing.'
+'Left'#2#16#17'BorderSpacing.Top'#2#16#7'Caption'#6#9'Modifier:'#11'ParentCo'
+'lor'#8#0#0#6'TLabel'#6'Label5'#22'AnchorSideLeft.Control'#7#6'Label1'#21'An'
+'chorSideTop.Control'#7#10'ModifierEd'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#4'Left'#2#16#6'Height'#2#15#3'Top'#3#163#0#5'Width'#2#22#17'BorderSpacing.T'
+'op'#2#12#7'Caption'#6#4'Key:'#11'ParentColor'#8#0#0#9'TCheckBox'#12'NoModif'
+'ierCb'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7
+#9'GroupBox1'#4'Left'#2#16#6'Height'#2#19#3'Top'#2#6#5'Width'#2'R'#18'Border'
+'Spacing.Left'#2#16#17'BorderSpacing.Top'#2#6#7'Caption'#6#11'No modifier'#7
+'Checked'#9#7'OnClick'#7#13'ModifierClick'#5'State'#7#9'cbChecked'#8'TabOrde'
+'r'#2#0#0#0#9'TCheckBox'#17'MachineModifierCb'#22'AnchorSideLeft.Control'#7
+#12'NoModifierCb'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Co'
+'ntrol'#7#12'NoModifierCb'#4'Left'#3#146#0#6'Height'#2#19#3'Top'#2#6#5'Width'
+#2'p'#18'BorderSpacing.Left'#2'0'#7'Caption'#6#16'Machine modifier'#7'OnClic'
+'k'#7#13'ModifierClick'#8'TabOrder'#2#1#0#0#9'TCheckBox'#16'UniqueModifierCb'
+#22'AnchorSideLeft.Control'#7#17'MachineModifierCb'#19'AnchorSideLeft.Side'#7
+#9'asrBottom'#21'AnchorSideTop.Control'#7#12'NoModifierCb'#4'Left'#3'2'#1#6
+'Height'#2#19#3'Top'#2#6#5'Width'#2'h'#18'BorderSpacing.Left'#2'0'#7'Caption'
+#6#15'Unique modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#2#0#0#9
+'TCheckBox'#14'DateModifierCb'#22'AnchorSideLeft.Control'#7#12'NoModifierCb'
+#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'AnchorSideTop.Side'#7#9'asrCent'
+'er'#4'Left'#2#16#6'Height'#2#19#3'Top'#2''''#5'Width'#2'Z'#7'Caption'#6#13
+'Date modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#3#0#0#9'TCheckB'
+'ox'#16'StringModifierCb'#22'AnchorSideLeft.Control'#7#12'NoModifierCb'#21'A'
+'nchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.Side'#7#9'asrCente'
+'r'#4'Left'#2#16#6'Height'#2#19#3'Top'#2'J'#5'Width'#2'a'#7'Caption'#6#15'St'
+'ring Modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9
+'ModDateEd'#22'AnchorSideLeft.Control'#7#17'MachineModifierCb'#21'AnchorSide'
+'Top.Control'#7#17'MachineModifierCb'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#3#146#0#6'Height'#2#23#3'Top'#2'%'#5'Width'#2'b'#17'BorderSpacing.Top'
+#2#12#8'OnChange'#7#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8
+'TabOrder'#2#6#0#0#5'TEdit'#11'ModStringEd'#22'AnchorSideLeft.Control'#7#9'M'
+'odDateEd'#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.'
+'Side'#7#9'asrBottom'#4'Left'#3#146#0#6'Height'#2#23#3'Top'#2'H'#5'Width'#3
+'w'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#17'BorderS'
+'pacing.Top'#2#12#19'BorderSpacing.Right'#2#15#8'OnChange'#7#13'ModifierClic'
+'k'#8'TabOrder'#2#8#0#0#5'TEdit'#10'ModifierEd'#22'AnchorSideLeft.Control'#7
+#6'Label1'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#128#0#5'Width'#3#169#0#17'B'
+'orderSpacing.Top'#2#2#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7
+#18'ModifierEdKeyPress'#8'TabOrder'#2#5#0#0#5'TEdit'#10'BlockKeyEd'#22'Ancho'
+'rSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#6'Label5'#18'Anc'
+'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'GenerateKe'
+'ySb'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#180#0#5'Width'#3#222#1#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#2#19'BorderSpaci'
+'ng.Right'#2#4#20'BorderSpacing.Bottom'#2#16#8'OnChange'#7#11'InfoChanged'#8
+'TabOrder'#2#7#0#0#0#9'TGroupBox'#9'GroupBox2'#22'AnchorSideLeft.Control'#7#9
+'GroupBox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.'
+'Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'C'#3'Top'#3#131#1#5'Width'#3#28
+#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpac'
+'ing.Top'#2#6#7'Caption'#6#13'Generate Code'#12'ClientHeight'#2'/'#11'Client'
+'Width'#3#24#2#8'TabOrder'#2#4#0#12'TSpeedButton'#13'RegCodeCopySb'#21'Ancho'
+'rSideTop.Control'#7#11'GenerateBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23
+'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.Side'#7#9'asrBot'
+'tom'#4'Left'#3#241#1#6'Height'#2#23#4'Hint'#6#22'Copy code to clipboard'#3
+'Top'#2#7#5'Width'#2#23#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing'
+'.Right'#2#16#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0
+'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128
+#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0
+#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128
+#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0
,#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0#244
+#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0#244
+#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15'DD'
+#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'#136
+#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136#128#0
+#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+#136#128#0#0#0#7'OnClick'#7#18'RegCodeCopySbClick'#0#0#7'TButton'#11'Generat'
+'eBtn'#22'AnchorSideLeft.Control'#7#9'GroupBox2'#21'AnchorSideTop.Control'#7
+#9'GroupBox2'#4'Left'#2#8#6'Height'#2#25#4'Hint'#6#13'Generate code'#3'Top'#2
+#6#5'Width'#2'M'#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#6#20'Bor'
+'derSpacing.Bottom'#2#16#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'&G'
+'enerate'#7'Default'#9#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrder'#2#0#0#0
+#5'TEdit'#9'RegCodeEd'#22'AnchorSideLeft.Control'#7#11'GenerateBtn'#19'Ancho'
+'rSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#11'GenerateBtn'
+#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#13'RegC'
+'odeCopySb'#4'Left'#2'a'#6'Height'#2#23#3'Top'#2#7#5'Width'#3#140#1#7'Anchor'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#12#19'Border'
+'Spacing.Right'#2#4#20'BorderSpacing.Bottom'#2#16#8'OnChange'#7#11'InfoChang'
+'ed'#8'TabOrder'#2#1#0#0#0#0
+'sed to encode'#12'ClientHeight'#3#219#0#11'ClientWidth'#3#24#2#16'ParentBac'
+'kground'#8#8'TabOrder'#2#3#0#12'TSpeedButton'#13'GenerateKeySb'#21'AnchorSi'
+'deTop.Control'#7#10'BlockKeyEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'An'
+'chorSideRight.Control'#7#11'ModStringEd'#20'AnchorSideRight.Side'#7#9'asrBo'
+'ttom'#4'Left'#3#239#1#6'Height'#2#24#4'Hint'#6#12'Generate key'#3'Top'#3#179
+#0#5'Width'#2#26#7'Anchors'#11#5'akTop'#7'akRight'#0#10'Glyph.Data'#10'F'#1#0
+#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0
+#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0
+#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0
+#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255
+#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#0#8#136
+#136#136#136#128#0#0#0#136#128#0#0#136#8#136#128#128#0#0#0#136#0#152#144#8#8
+#0#128#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#137#128#0#0#0#0#128#0
+#0#0#136#0#152#144#8#136#136#136#128#0#0#0#136#128#0#0#136#136#136#136#128#0
+#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#7'OnClick'#7#18
+'GenerateKeySbClick'#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#9
+'GroupBox1'#21'AnchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.Sid'
,'e'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#15#3'Top'#2'o'#5'Width'#2'0'#18
+'BorderSpacing.Left'#2#16#17'BorderSpacing.Top'#2#16#7'Caption'#6#9'Modifier'
+':'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#22'AnchorSideLeft.Control'#7#6
+'Label1'#21'AnchorSideTop.Control'#7#10'ModifierEd'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#4'Left'#2#16#6'Height'#2#15#3'Top'#3#163#0#5'Width'#2#22#17'Bo'
+'rderSpacing.Top'#2#12#7'Caption'#6#4'Key:'#11'ParentColor'#8#0#0#9'TCheckBo'
+'x'#12'NoModifierCb'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSide'
+'Top.Control'#7#9'GroupBox1'#4'Left'#2#16#6'Height'#2#19#3'Top'#2#6#5'Width'
+#2'R'#18'BorderSpacing.Left'#2#16#17'BorderSpacing.Top'#2#6#7'Caption'#6#11
+'No modifier'#7'Checked'#9#7'OnClick'#7#13'ModifierClick'#5'State'#7#9'cbChe'
+'cked'#8'TabOrder'#2#0#0#0#9'TCheckBox'#17'MachineModifierCb'#22'AnchorSideL'
+'eft.Control'#7#12'NoModifierCb'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'A'
+'nchorSideTop.Control'#7#12'NoModifierCb'#4'Left'#3#146#0#6'Height'#2#19#3'T'
+'op'#2#6#5'Width'#2'p'#18'BorderSpacing.Left'#2'0'#7'Caption'#6#16'Machine m'
+'odifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#1#0#0#9'TCheckBox'#16
+'UniqueModifierCb'#22'AnchorSideLeft.Control'#7#17'MachineModifierCb'#19'Anc'
+'horSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#12'NoModifierC'
+'b'#4'Left'#3'2'#1#6'Height'#2#19#3'Top'#2#6#5'Width'#2'h'#18'BorderSpacing.'
+'Left'#2'0'#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13'ModifierClick'#8
+'TabOrder'#2#2#0#0#9'TCheckBox'#14'DateModifierCb'#22'AnchorSideLeft.Control'
+#7#12'NoModifierCb'#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'AnchorSideTo'
+'p.Side'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#19#3'Top'#2''''#5'Width'#2
+'Z'#7'Caption'#6#13'Date modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'
+#2#3#0#0#9'TCheckBox'#16'StringModifierCb'#22'AnchorSideLeft.Control'#7#12'N'
+'oModifierCb'#21'AnchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.S'
+'ide'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#19#3'Top'#2'J'#5'Width'#2'a'#7
+'Caption'#6#15'String Modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2
+#4#0#0#5'TEdit'#9'ModDateEd'#22'AnchorSideLeft.Control'#7#17'MachineModifier'
+'Cb'#21'AnchorSideTop.Control'#7#17'MachineModifierCb'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#4'Left'#3#146#0#6'Height'#2#23#3'Top'#2'%'#5'Width'#2'b'#17
+'BorderSpacing.Top'#2#12#8'OnChange'#7#13'ModifierClick'#10'OnKeyPress'#7#14
+'DateEdKeyPress'#8'TabOrder'#2#6#0#0#5'TEdit'#11'ModStringEd'#22'AnchorSideL'
+'eft.Control'#7#9'ModDateEd'#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'Anc'
+'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#146#0#6'Height'#2#23#3'To'
+'p'#2'H'#5'Width'#3'w'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'Aut'
+'oSize'#8#17'BorderSpacing.Top'#2#12#19'BorderSpacing.Right'#2#15#8'OnChange'
+#7#13'ModifierClick'#8'TabOrder'#2#8#0#0#5'TEdit'#10'ModifierEd'#22'AnchorSi'
+'deLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#6'Label1'#18'Anchor'
+'SideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#128#0#5'W'
+'idth'#3#169#0#17'BorderSpacing.Top'#2#2#8'OnChange'#7#17'ParametersChanged'
+#10'OnKeyPress'#7#18'ModifierEdKeyPress'#8'TabOrder'#2#5#0#0#5'TEdit'#10'Blo'
+'ckKeyEd'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7
+#6'Label5'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
+#7#13'GenerateKeySb'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#180#0#5'Width'#3
+#219#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2
+#2#19'BorderSpacing.Right'#2#4#20'BorderSpacing.Bottom'#2#16#8'OnChange'#7#11
+'InfoChanged'#8'TabOrder'#2#7#0#0#0#9'TGroupBox'#9'GroupBox2'#22'AnchorSideL'
+'eft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#18'Anc'
+'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'C'#3'Top'#3
+#131#1#5'Width'#3#28#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoS'
+'ize'#9#17'BorderSpacing.Top'#2#6#7'Caption'#6#13'Generate Code'#12'ClientHe'
+'ight'#2'/'#11'ClientWidth'#3#24#2#16'ParentBackground'#8#8'TabOrder'#2#4#0
+#12'TSpeedButton'#13'RegCodeCopySb'#21'AnchorSideTop.Control'#7#11'GenerateB'
+'tn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#9'G'
+'roupBox2'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#238#1#6'Height'
+#2#24#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#6#5'Width'#2#26#7'Anchor'
+'s'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#16#10'Glyph.Data'#10
+'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0
+#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0
+#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192
+#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255
+#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
,#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0#0#0#136#136#136#132#255#255
+#255#244#128#0#0#0#136#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4#255#255
+#255#244#128#0#0#0#128#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4#255#255
+#255#244#128#0#0#0#128#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4#255#255
+'OH'#128#0#0#0#128#255#255#244#255#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136
+#128#0#0#0#128#255#255#15#8#136#136#136#128#0#0#0#128#255#255#0#136#136#136
+#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#7'OnClick'#7#18
+'RegCodeCopySbClick'#0#0#7'TButton'#11'GenerateBtn'#22'AnchorSideLeft.Contro'
+'l'#7#9'GroupBox2'#21'AnchorSideTop.Control'#7#9'GroupBox2'#4'Left'#2#8#6'He'
+'ight'#2#25#4'Hint'#6#13'Generate code'#3'Top'#2#6#5'Width'#2'M'#18'BorderSp'
+'acing.Left'#2#8#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Bottom'#2#16#25
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'&Generate'#7'Default'#9#7'OnC'
+'lick'#7#16'GenerateBtnClick'#8'TabOrder'#2#0#0#0#5'TEdit'#9'RegCodeEd'#22'A'
+'nchorSideLeft.Control'#7#11'GenerateBtn'#19'AnchorSideLeft.Side'#7#9'asrBot'
+'tom'#21'AnchorSideTop.Control'#7#11'GenerateBtn'#18'AnchorSideTop.Side'#7#9
+'asrCenter'#23'AnchorSideRight.Control'#7#13'RegCodeCopySb'#4'Left'#2'a'#6'H'
+'eight'#2#23#3'Top'#2#7#5'Width'#3#137#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#18'BorderSpacing.Left'#2#12#19'BorderSpacing.Right'#2#4#20'Borde'
+'rSpacing.Bottom'#2#16#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#1#0#0#0#0
]);

40
components/onguard/source/qonguard3.lfm
View File

@ -65,11 +65,11 @@ object KeyMaintFrm: TKeyMaintFrm
TabOrder = 2
object OpenFileSb: TSpeedButton
AnchorSideRight.Control = OpenBtn
Left = 329
Height = 23
Left = 326
Height = 24
Hint = 'Find key maintenance file'
Top = 6
Width = 23
Width = 26
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
Glyph.Data = {
@ -139,7 +139,7 @@ object KeyMaintFrm: TKeyMaintFrm
Left = 8
Height = 23
Top = 8
Width = 313
Width = 310
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
TabOrder = 1
@ -244,11 +244,11 @@ object KeyMaintFrm: TKeyMaintFrm
AnchorSideTop.Control = BlockKeyEd
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = KeyPasteSb
Left = 396
Height = 23
Left = 390
Height = 24
Hint = 'Copy key to clipboard'
Top = 8
Width = 23
Top = 7
Width = 26
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
Glyph.Data = {
@ -271,11 +271,11 @@ object KeyMaintFrm: TKeyMaintFrm
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 423
Height = 23
Left = 420
Height = 24
Hint = 'Paste from clipboard'
Top = 8
Width = 23
Top = 7
Width = 26
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Glyph.Data = {
@ -296,11 +296,11 @@ object KeyMaintFrm: TKeyMaintFrm
object CopyByteKeySb: TSpeedButton
AnchorSideLeft.Control = CopyBlockKeySb
AnchorSideTop.Control = BytesKeyEd
Left = 396
Height = 23
Left = 390
Height = 24
Hint = 'Copy key to clipboard'
Top = 43
Width = 23
Width = 26
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000
@ -319,11 +319,11 @@ object KeyMaintFrm: TKeyMaintFrm
object SpeedButton1: TSpeedButton
AnchorSideLeft.Control = KeyPasteSb
AnchorSideTop.Control = BytesKeyEd
Left = 423
Height = 23
Left = 420
Height = 24
Hint = 'Paste from clipboard'
Top = 43
Width = 23
Width = 26
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000
@ -346,7 +346,7 @@ object KeyMaintFrm: TKeyMaintFrm
Left = 8
Height = 23
Top = 8
Width = 384
Width = 378
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
@ -362,7 +362,7 @@ object KeyMaintFrm: TKeyMaintFrm
Left = 8
Height = 23
Top = 43
Width = 384
Width = 378
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
BorderSpacing.Bottom = 8

Some files were not shown because too many files have changed in this diff Show More