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

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

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

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

@ -87,11 +87,12 @@ object SNEntryDlg: TSNEntryDlg
object OKBtn: TBitBtn object OKBtn: TBitBtn
AnchorSideTop.Control = CancelBtn AnchorSideTop.Control = CancelBtn
AnchorSideRight.Control = Bevel1 AnchorSideRight.Control = Bevel1
Left = 26 Left = 69
Height = 33 Height = 26
Top = 128 Top = 143
Width = 89 Width = 46
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Kind = bkOK Kind = bkOK
ModalResult = 1 ModalResult = 1
@ -100,12 +101,13 @@ object SNEntryDlg: TSNEntryDlg
object CancelBtn: TBitBtn object CancelBtn: TBitBtn
AnchorSideLeft.Control = Bevel1 AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeText AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 131 Left = 131
Height = 33 Height = 26
Top = 128 Top = 143
Width = 89 Width = 46
AutoSize = True
BorderSpacing.Top = 12 BorderSpacing.Top = 12
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Kind = bkCancel Kind = bkCancel
@ -131,9 +133,23 @@ object SNEntryDlg: TSNEntryDlg
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 115 Left = 115
Height = 37 Height = 28
Top = 125 Top = 136
Width = 16 Width = 16
Shape = bsSpacer Shape = bsSpacer
end 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 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' +'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' +'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' +#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' +'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#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#4'b' +'nchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Bottom'#2#8
+'kOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#22'Anc' +#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#9'Canc'
+'horSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21 +'elBtn'#22'AnchorSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'a'
+'AnchorSideTop.Control'#7#8'CodeText'#18'AnchorSideTop.Side'#7#9'asrBottom'#4 +'srBottom'#21'AnchorSideTop.Control'#7#6'Bevel2'#18'AnchorSideTop.Side'#7#9
+'Left'#3#131#0#6'Height'#2'!'#3'Top'#3#128#0#5'Width'#2'Y'#17'BorderSpacing.' +'asrBottom'#4'Left'#3#131#0#6'Height'#2#26#3'Top'#3#143#0#5'Width'#2'.'#8'Au'
+'Top'#2#12#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#8'bkCancel'#7'OnClick'#7#14 +'toSize'#9#17'BorderSpacing.Top'#2#12#20'BorderSpacing.Bottom'#2#8#4'Kind'#7
+'CancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#22'AnchorSideLeft' +#8'bkCancel'#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9
+'.Control'#7#6'Label4'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT' +'ModString'#22'AnchorSideLeft.Control'#7#6'Label4'#19'AnchorSideLeft.Side'#7
+'op.Control'#7#6'Label3'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'='#6 +#9'asrBottom'#21'AnchorSideTop.Control'#7#6'Label3'#18'AnchorSideTop.Side'#7
+'Height'#2#23#3'Top'#2#31#5'Width'#2'y'#18'BorderSpacing.Left'#2#8#17'Border' +#9'asrBottom'#4'Left'#2'='#6'Height'#2#23#3'Top'#2#31#5'Width'#2'y'#18'Borde'
+'Spacing.Top'#2#8#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#0#0#0#6'TBevel'#6 +'rSpacing.Left'#2#8#17'BorderSpacing.Top'#2#8#8'ReadOnly'#9#7'TabStop'#8#8'T'
+'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'a' +'abOrder'#2#0#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'
+'srCenter'#4'Left'#2's'#6'Height'#2'%'#3'Top'#2'}'#5'Width'#2#16#5'Shape'#7#8 +#19'AnchorSideLeft.Side'#7#9'asrCenter'#4'Left'#2's'#6'Height'#2#28#3'Top'#3
+'bsSpacer'#0#0#0 +#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) TSNEntryDlg = class(TForm)
Bevel1: TBevel; Bevel1: TBevel;
Bevel2: TBevel;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
SNText: TEdit; SNText: TEdit;

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

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

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

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

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

@ -2,23 +2,29 @@
LazarusResources.Add('TForm1','FORMDATA',[ 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' '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 +'dth'#3#228#0#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#5'For'
+'ClientWidth'#3#228#0#10'OnActivate'#7#12'FormActivate'#8'Position'#7#14'poS' +'m1'#12'ClientHeight'#3#155#0#11'ClientWidth'#3#228#0#10'OnActivate'#7#12'Fo'
+'creenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSid' +'rmActivate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6
+'eLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorS' +'TLabel'#10'lblExpires'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideL'
+'ideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2 +'eft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#4'Info'#18'AnchorSideT'
+'@'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2'e'#7'Caption'#6#19'Expires: 00/00/' +'op.Side'#7#9'asrBottom'#4'Left'#2'@'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2
+'0000'#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Contro' +'e'#7'Caption'#6#19'Expires: 00/00/0000'#11'ParentColor'#8#0#0#7'TBitBtn'#8
+'l'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Contr' +'CloseBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9
+'ol'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'F'#6'Height' +'asrCenter'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9
+#2'!'#3'Top'#2'Q'#5'Width'#2'Y'#20'BorderSpacing.Around'#2#12#4'Kind'#7#7'bk' +'asrBottom'#4'Left'#2'['#6'Height'#2#26#3'Top'#2'`'#5'Width'#2'.'#8'AutoSize'
+'Close'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5 +#9#20'BorderSpacing.Around'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5 +'TLabel'#4'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont'
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3 +'rol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.S'
+'Top'#2#12#5'Width'#3#204#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20 +'ide'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3'Top'#2#12#5'Width'#3#204#0
+'BorderSpacing.Around'#2#12#7'Caption'#6'5If you can edit this, your program' +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12
+' was allowed to run'#8'WordWrap'#9#10'OnDblClick'#7#13'Memo1DblClick'#0#0#11 +#7'Caption'#6'5If you can edit this, your program was allowed to run'#8'Word'
+'TOgDateCode'#11'OgDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetK' +'Wrap'#9#10'OnDblClick'#7#12'InfoDblClick'#0#0#6'TBevel'#6'Bevel1'#22'Anchor'
+'ey'#7#17'OgDateCode1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#9'StoreCo' +'SideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#10'lblExpires'#18'A'
+'de'#9#4'Left'#3#176#0#3'Top'#2'@'#0#0#0 +'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 uses
SysUtils,Classes,Controls, SysUtils,Classes,Controls,
Forms, Dialogs, StdCtrls, Buttons,LResources, OnGuard, Forms, Dialogs, StdCtrls, Buttons,LResources, ExtCtrls, OnGuard,
OgUtil, OgUtil,
IniFiles; IniFiles;
@ -22,12 +22,13 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Bevel1: TBevel;
CloseBtn: TBitBtn; CloseBtn: TBitBtn;
Memo1: TLabel; Info: TLabel;
OgDateCode1: TOgDateCode; OgDateCode1: TOgDateCode;
Label1: TLabel; lblExpires: TLabel;
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure Memo1DblClick(Sender: TObject); procedure InfoDblClick(Sender: TObject);
procedure OgDateCode1GetKey(Sender: TObject; var Key: TKey); procedure OgDateCode1GetKey(Sender: TObject; var Key: TKey);
procedure OgDateCode1GetCode(Sender: TObject; var Code: TCode); procedure OgDateCode1GetCode(Sender: TObject; var Code: TCode);
procedure OgDateCode1Checked(Sender: TObject; Status: TCodeStatus); procedure OgDateCode1Checked(Sender: TObject; Status: TCodeStatus);
@ -56,7 +57,7 @@ begin
if FExpired then Application.Terminate; if FExpired then Application.Terminate;
end; end;
procedure TForm1.Memo1DblClick(Sender: TObject); procedure TForm1.InfoDblClick(Sender: TObject);
begin begin
ShowMessage(Inttostr(OgDateCode1.GetInvalidCount)); ShowMessage(Inttostr(OgDateCode1.GetInvalidCount));
end; end;
@ -107,7 +108,7 @@ begin
// Status := ogValidCode; // -- just for testing the form // Status := ogValidCode; // -- just for testing the form
case Status of case Status of
ogValidCode : begin ogValidCode : begin
Label1.Caption := 'Expires: ' + DateToStr(OgDateCode1.GetValue); lblExpires.Caption := 'Expires: ' + DateToStr(OgDateCode1.GetValue);
Exit; Exit;
end; end;

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

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

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

@ -13,7 +13,7 @@ object Form1: TForm1
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0' LCLVersion = '2.3.0.0'
object StatusLbl: TLabel object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1 AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
@ -95,7 +95,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick OnClick = RemoveBtnClick
TabOrder = 2 TabOrder = 2
end end
object Memo1: TLabel object Info: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -113,8 +113,8 @@ object Form1: TForm1
WordWrap = True WordWrap = True
end end
object Bevel1: TBevel object Bevel1: TBevel
AnchorSideLeft.Control = Memo1 AnchorSideLeft.Control = Info
AnchorSideRight.Control = Memo1 AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 12 Left = 12
Height = 3 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' +'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' +#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' +'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' +'t.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSideT'
+'Top.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#249#0#5'Width' +'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' +#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' +'abel'#6'Label1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.S'
+'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop' +'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 +'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' +'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' +'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' +'veBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#4'Info'#22'AnchorSideLeft.Control'
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side' +#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
+#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Si' +'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+'de'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2'1'#5'Width'#3#204 +#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2'1'#5'Width'#3#204#1#7
+#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2 +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7
+#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this form indicates th' +'Caption'#12'H'#2#0#0'The label at the bottom of this form indicates the sta'
+'e status of the code. An invalid code indicates that the code is either the' +'tus of the code. An invalid code indicates that the code is either the inco'
+' incorrect type or that none has been entered. '#13#10#13#10'If the proper ' +'rrect type or that none has been entered. '#13#10#13#10'If the proper code '
+'code has not been entered or the ONGUARD.INI file was deleted, the message ' +'has not been entered or the ONGUARD.INI file was deleted, the message will '
+'will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button' +'say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to e'
+' to enter a code (the CODEGEN program can be used to generate the proper "D' +'nter a code (the CODEGEN program can be used to generate the proper "Date" '
+'ate" code). '#13#10#13#10'The "Remove Code" button can be used to remove th' +'code). '#13#10#13#10'The "Remove Code" button can be used to remove the ent'
+'e entered code from the INI file. Doing so will cause the TOgDateCode compo' +'ered code from the INI file. Doing so will cause the TOgDateCode component '
+'nent to report that the code is invalid.'#5'Color'#7#9'clBtnFace'#11'Parent' +'to report that the code is invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'
+'Color'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7 +#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#4'Info'
+#5'Memo1'#23'AnchorSideRight.Control'#7#5'Memo1'#20'AnchorSideRight.Side'#7#9 +#23'AnchorSideRight.Control'#7#4'Info'#20'AnchorSideRight.Side'#7#9'asrBotto'
+'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#229#0#5'Width'#3#204#1#7'Anc' +'m'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#229#0#5'Width'#3#204#1#7'Anchors'#11
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'bsTopLine'#0#0#11'TOg' +#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'bsTopLine'#0#0#11'TOgDateCode'
+'DateCode'#11'OgDateCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'Ge' +#11'OgDateCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'On'
+'tKey'#9'OnGetCode'#7#7'GetCode'#4'Left'#3#168#0#3'Top'#3#192#0#0#0#0 +'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) TForm1 = class(TForm)
Bevel1: TBevel; Bevel1: TBevel;
Memo1: TLabel; Info: TLabel;
OgDateCode1: TOgDateCode; OgDateCode1: TOgDateCode;
CodeBtn: TButton; CodeBtn: TButton;
CloseBtn: TBitBtn; CloseBtn: TBitBtn;

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

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

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

@ -13,7 +13,7 @@ object Form1: TForm1
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0' LCLVersion = '2.3.0.0'
object StatusLbl: TLabel object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1 AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
@ -95,7 +95,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick OnClick = RemoveBtnClick
TabOrder = 2 TabOrder = 2
end end
object Memo1: TLabel object Info: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -113,10 +113,10 @@ object Form1: TForm1
WordWrap = True WordWrap = True
end end
object Bevel1: TBevel object Bevel1: TBevel
AnchorSideLeft.Control = Memo1 AnchorSideLeft.Control = Info
AnchorSideTop.Control = Memo1 AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1 AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 12 Left = 12
Height = 3 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' +'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' +#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' +'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' +'t.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSideT'
+'Top.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#246#0#5'Width' +'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' +#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' +'abel'#6'Label1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.S'
+'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop' +'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' +#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' +'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' +'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 +'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20 +'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 +'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 ' +'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' +'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' +'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' +'deLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Info'#18'AnchorSide'
+'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Memo1'#20'Anchor' +'Top.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'Info'#20'AnchorSid'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#226#0#5 +'eRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#226#0#5'Wid'
+'Width'#3#213#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'b' +'th'#3#213#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'bsTo'
+'sTopLine'#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#11'CodeChecked' +'pLine'#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#11'CodeChecked'#8
+#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7#10'Cha' +'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7#10'Chang'
+'ngeCode'#4'Left'#3#192#0#3'Top'#3#200#0#0#0#0 +'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; Bevel1: TBevel;
CodeBtn: TButton; CodeBtn: TButton;
CloseBtn: TBitBtn; CloseBtn: TBitBtn;
Memo1: TLabel; Info: TLabel;
StatusLbl: TLabel; StatusLbl: TLabel;
Label1: TLabel; Label1: TLabel;
CodeLbl: TLabel; CodeLbl: TLabel;

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

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

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

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

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

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

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

@ -2,24 +2,29 @@
LazarusResources.Add('TForm1','FORMDATA',[ 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' '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 +'th'#3#229#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#5'Form1'#12'ClientHe'
+#229#0#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLV' +'ight'#3#158#0#11'ClientWidth'#3#229#0#8'OnCreate'#7#10'FormCreate'#8'Positi'
+'ersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'O' +'on'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#16'lblDays'
+'wner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5 +'Remaining'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9
+'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'E'#6'Height'#2#15#3 +'asrCenter'#21'AnchorSideTop.Control'#7#4'Info'#18'AnchorSideTop.Side'#7#9'a'
+'Top'#2'B'#5'Width'#2'['#9'Alignment'#7#8'taCenter'#17'BorderSpacing.Top'#2 +'srBottom'#4'Left'#2'E'#6'Height'#2#15#3'Top'#2':'#5'Width'#2'['#9'Alignment'
+#24#7'Caption'#6#16'Days Remaining: '#11'ParentColor'#8#0#0#7'TBitBtn'#8'Clo' +#7#8'taCenter'#17'BorderSpacing.Top'#2#16#7'Caption'#6#16'Days Remaining: '
+'seBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'as' +#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Control'#7#5
+'rCenter'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'a' +'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6
+'srBottom'#4'Left'#2'F'#6'Height'#2'!'#3'Top'#2'i'#5'Width'#2'Y'#17'BorderSp' +'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'['#6'Height'#2#26#3
+'acing.Top'#2#24#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrd' +'Top'#2'h'#5'Width'#2'.'#8'AutoSize'#9#17'BorderSpacing.Top'#2#12#20'BorderS'
+'er'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc' +'pacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#4'In'
+'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'An' +'fo'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Own'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3'Top'#2#12#5 +'er'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr'
+'Width'#3#205#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci' +'Bottom'#4'Left'#2#12#6'Height'#2#30#3'Top'#2#12#5'Width'#3#205#0#7'Anchors'
+'ng.Around'#2#12#7'Caption'#6':If you can edit this, then your program was a' +#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'
+'llowed to run'#8'WordWrap'#9#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecke' +#6':If you can edit this, then your program was allowed to run'#8'WordWrap'#9
+'d'#7#18'OgDaysCode1Checked'#8'OnGetKey'#7#17'OgDaysCode1GetKey'#9'OnGetCode' +#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideT'
+#7#18'OgDaysCode1GetCode'#12'OnChangeCode'#7#21'OgDaysCode1ChangeCode'#4'Lef' +'op.Control'#7#16'lblDaysRemaining'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
+'t'#2'('#3'Top'#2'X'#0#0#0 +'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 uses
SysUtils, Classes, Controls, SysUtils, Classes, Controls,
Forms, Dialogs, LResources, StdCtrls, Buttons, Forms, Dialogs, LResources, StdCtrls, Buttons, ExtCtrls,
OnGuard, OgUtil, IniFiles; OnGuard, OgUtil, IniFiles;
const const
@ -25,10 +25,11 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Bevel1: TBevel;
CloseBtn: TBitBtn; CloseBtn: TBitBtn;
Memo1: TLabel; Info: TLabel;
OgDaysCode1: TOgDaysCode; OgDaysCode1: TOgDaysCode;
Label1: TLabel; lblDaysRemaining: TLabel;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure OgDaysCode1GetKey(Sender: TObject; var Key: TKey); procedure OgDaysCode1GetKey(Sender: TObject; var Key: TKey);
procedure OgDaysCode1GetCode(Sender: TObject; var Code: TCode); procedure OgDaysCode1GetCode(Sender: TObject; var Code: TCode);
@ -124,7 +125,7 @@ var
begin begin
case Status of case Status of
ogValidCode : begin ogValidCode : begin
Label1.Caption := 'Days Remaining: ' lblDaysRemaining.Caption := 'Days Remaining: '
+ IntToStr(OgDaysCode1.GetValue); + IntToStr(OgDaysCode1.GetValue);
Exit; Exit;
end; end;

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

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

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

@ -10,7 +10,7 @@ object FirstInstFrm: TFirstInstFrm
ClientWidth = 320 ClientWidth = 320
LCLVersion = '2.3.0.0' LCLVersion = '2.3.0.0'
object BitBtn2: TBitBtn object BitBtn2: TBitBtn
AnchorSideTop.Control = Memo1 AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -24,7 +24,7 @@ object FirstInstFrm: TFirstInstFrm
Kind = bkClose Kind = bkClose
TabOrder = 0 TabOrder = 0
end end
object Memo1: TLabel object Info: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.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',[ LazarusResources.Add('TFirstInstFrm','FORMDATA',[
'TPF0'#13'TFirstInstFrm'#12'FirstInstFrm'#4'Left'#3'G'#1#6'Height'#3#140#0#3 '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 +'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' +'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' +'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' +'deTop.Control'#7#4'Info'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSid'
+'deRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left' +'eRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
+#3#233#0#6'Height'#2#25#3'Top'#2'E'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'a' +#233#0#6'Height'#2#25#3'Top'#2'E'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akR'
+'kRight'#0#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind' +'ight'#0#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'#7
+#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contr' +#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#4'Info'#22'AnchorSideLeft.Control'
+'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Cont' +#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'
+'rol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Heig' +#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2
+'ht'#2'-'#3'Top'#2#12#5'Width'#3'('#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR' +'-'#3'Top'#2#12#5'Width'#3'('#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+'ight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6#131'Attempts to execute ' +#20'BorderSpacing.Around'#2#12#7'Caption'#6#131'Attempts to execute this app'
+'this application a second time result in the first instance to be activated' +'lication a second time result in the first instance to be activated and the'
+' and the second instance terminated.'#8'WordWrap'#9#0#0#0 +' 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) TFirstInstFrm = class(TForm)
BitBtn2: TBitBtn; BitBtn2: TBitBtn;
Memo1: TLabel; Info: TLabel;
private private
{ Private declarations } { Private declarations }
public public

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

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

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

@ -101,7 +101,7 @@ object frmExMachineID: TfrmExMachineID
Left = 138 Left = 138
Height = 23 Height = 23
Top = 72 Top = 72
Width = 98 Width = 122
BorderSpacing.Right = 12 BorderSpacing.Right = 12
ReadOnly = True ReadOnly = True
TabOrder = 2 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#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' +'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 +'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' +'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' +#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' +'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"/> <UnitName Value="Exnetu"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="118"/> <TopLine Value="119"/>
<CursorPos X="59" Y="141"/> <CursorPos X="59" Y="142"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -83,7 +83,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
</Units> </Units>
<JumpHistory Count="2" HistoryIndex="1"> <JumpHistory Count="3" HistoryIndex="2">
<Position1> <Position1>
<Filename Value="exnetu.pas"/> <Filename Value="exnetu.pas"/>
<Caret Line="141" Column="59" TopLine="118"/> <Caret Line="141" Column="59" TopLine="118"/>
@ -92,6 +92,10 @@
<Filename Value="exnetu.pas"/> <Filename Value="exnetu.pas"/>
<Caret Line="140" Column="59" TopLine="117"/> <Caret Line="140" Column="59" TopLine="117"/>
</Position2> </Position2>
<Position3>
<Filename Value="exnetu.pas"/>
<Caret Line="141" Column="59" TopLine="118"/>
</Position3>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

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

@ -14,12 +14,12 @@ object Form1: TForm1
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0' LCLVersion = '2.3.0.0'
object StatusLbl: TLabel object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1 AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 15 Height = 15
Top = 231 Top = 244
Width = 32 Width = 32
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
Caption = 'Status' Caption = 'Status'
@ -68,15 +68,16 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
end end
object CloseBtn: TBitBtn object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1 AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1 AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 403 Left = 403
Height = 25 Height = 25
Top = 226 Top = 239
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 10
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
Kind = bkClose Kind = bkClose
TabOrder = 1 TabOrder = 1
@ -86,7 +87,7 @@ object Form1: TForm1
AnchorSideRight.Control = CloseBtn AnchorSideRight.Control = CloseBtn
Left = 302 Left = 302
Height = 25 Height = 25
Top = 226 Top = 239
Width = 97 Width = 97
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 4 BorderSpacing.Right = 4
@ -95,7 +96,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick OnClick = RemoveBtnClick
TabOrder = 2 TabOrder = 2
end end
object Memo1: TLabel object Info: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -112,6 +113,19 @@ object Form1: TForm1
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end 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 object OgNetCode1: TOgNetCode
OnChecked = CodeChecked OnChecked = CodeChecked
OnGetKey = GetKey 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' +'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' +'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' +'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' +'bel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Con'
+'ntrol'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'H' +'trol'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'He'
+'eight'#2#15#3'Top'#3#231#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Ca' +'ight'#2#15#3'Top'#3#244#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Cap'
+'ption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'L' +'tion'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'La'
+'abel1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9 +'bel1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'a'
+'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9 +'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' +'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 +'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' +'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' +'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' +#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' +'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' +'ideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anchor'
+'ideRight.Control'#7#5'Memo1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left' +'SideRight.Control'#7#4'Info'#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 +#3#147#1#6'Height'#2#25#3'Top'#3#239#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 +'akRight'#0#17'BorderSpacing.Top'#2#10#20'BorderSpacing.Bottom'#2#12#4'Kind'
+#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'An' +#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.C'
+'chorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'.'#1#6'Height'#2#25#3'Top'#3 +'ontrol'#7#8'CloseBtn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'.'
+#226#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Ri' +#1#6'Height'#2#25#3'Top'#3#239#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRi'
+'ght'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'O' +'ght'#0#19'BorderSpacing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Capt'
+'nClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'Anch' +'ion'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6
+'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'An' +'TLabel'#4'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont'
+'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20 +'rol'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2 +'Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6
+'1'#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Border' +'Height'#3#165#0#3'Top'#2'1'#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLef'
+'Spacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this' +'t'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The la'
+' form indicates the status of the code. An invalid code indicates that the ' +'bel at the bottom of this form indicates the status of the code. An invalid'
+'code is either the incorrect type or that none has been entered. '#13#10#13 +' code indicates that the code is either the incorrect type or that none has'
+#10'If the proper code has not been entered or the ONGUARD.INI file was dele' +' been entered. '#13#10#13#10'If the proper code has not been entered or the'
+'ted, the message will say that the code is invalid.'#13#10#13#10'Use the "E' +' ONGUARD.INI file was deleted, the message will say that the code is invali'
+'nter Code" button to enter a code (the CODEGEN program can be used to gener' +'d.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN pr'
+'ate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be' +'ogram can be used to generate the proper "Usage" code). '#13#10#13#10'The "'
+' used to remove the entered code from the INI file. Doing so will cause the' +'Remove Code" button can be used to remove the entered code from the INI fil'
+' TOgNetCode component to report that the code is invalid.'#5'Color'#7#9'clB' +'e. Doing so will cause the TOgNetCode component to report that the code is '
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#10'TOgNetCode'#10'OgNetCode1'#9 +'invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBe'
+'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCo' +'vel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Contro'
+'de'#8'FileName'#6#9'EXNET.NAF'#4'Left'#3#192#0#3'Top'#3#208#0#0#0#0 +'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 uses
SysUtils, Classes,Controls, Forms, Dialogs, SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil, OgNetWrk; StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil, OgNetWrk;
type type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Bevel1: TBevel;
CodeBtn: TButton; CodeBtn: TButton;
CloseBtn: TBitBtn; CloseBtn: TBitBtn;
Memo1: TLabel; Info: TLabel;
StatusLbl: TLabel; StatusLbl: TLabel;
Label1: TLabel; Label1: TLabel;
CodeLbl: TLabel; CodeLbl: TLabel;

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

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

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

@ -36,7 +36,7 @@ object Form1: TForm1
Kind = bkClose Kind = bkClose
TabOrder = 0 TabOrder = 0
end end
object Memo1: TLabel object Info: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
@ -51,10 +51,10 @@ object Form1: TForm1
WordWrap = True WordWrap = True
end end
object Bevel1: TBevel object Bevel1: TBevel
AnchorSideLeft.Control = Memo1 AnchorSideLeft.Control = Info
AnchorSideTop.Control = Memo1 AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1 AnchorSideRight.Control = Info
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 12 Left = 12
Height = 3 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' +'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 +'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' +#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' +'ound'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#4'Info'#22'An'
+'nchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'A' +'chorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'An'
+'nchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4 +'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' +'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' +#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 +'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 ' +#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' +'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' +'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' +'el1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Inf'
+'mo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5 +'o'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'In'
+'Memo1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3 +'fo'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'To'
+'Top'#3#144#0#5'Width'#3'h'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5 +'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 +'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 +#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) TForm1 = class(TForm)
Bevel1: TBevel; Bevel1: TBevel;
CloseBtn: TBitBtn; CloseBtn: TBitBtn;
Memo1: TLabel; Info: TLabel;
StatusLbl: TLabel; StatusLbl: TLabel;
OgProtectExe1: TOgProtectExe; OgProtectExe1: TOgProtectExe;
procedure OgProtectExe1Checked(Sender: TObject; Status: TExeStatus); procedure OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);

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

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

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

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

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

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

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

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

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

@ -3,6 +3,7 @@ object Form1: TForm1
Height = 192 Height = 192
Top = 218 Top = 218
Width = 262 Width = 262
BorderStyle = bsDialog
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 192 ClientHeight = 192
ClientWidth = 262 ClientWidth = 262
@ -43,17 +44,32 @@ object Form1: TForm1
object CloseBtn: TBitBtn object CloseBtn: TBitBtn
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 87 Left = 108
Height = 33 Height = 26
Top = 130 Top = 143
Width = 89 Width = 46
BorderSpacing.Top = 12 AutoSize = True
BorderSpacing.Top = 10
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
Kind = bkClose Kind = bkClose
TabOrder = 1 TabOrder = 1
end 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 object OgRegistrationCode1: TOgRegistrationCode
OnChecked = OgRegistrationCode1Checked OnChecked = OgRegistrationCode1Checked
OnGetKey = OgRegistrationCode1GetKey OnGetKey = OgRegistrationCode1GetKey

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

@ -2,24 +2,30 @@
LazarusResources.Add('TForm1','FORMDATA',[ 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' '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 +'idth'#3#6#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#5'Form1'#12'ClientHe'
+#6#1#10'Font.Color'#7#7'clBlack'#8'Position'#7#14'poScreenCenter'#10'LCLVers' +'ight'#3#192#0#11'ClientWidth'#3#6#1#10'Font.Color'#7#7'clBlack'#8'Position'
+'ion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owne' +#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'A'
+'r'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Mem' +'nchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21
+'o1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'_'#6'Height'#2#15#3'Top' +'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
+#2'g'#5'Width'#2'H'#9'Alignment'#7#8'taCenter'#17'BorderSpacing.Top'#2#6#7'C' +'eft'#2'_'#6'Height'#2#15#3'Top'#2'g'#5'Width'#2'H'#9'Alignment'#7#8'taCente'
+'aption'#6#14'Registered to:'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#22'Anc' +'r'#17'BorderSpacing.Top'#2#6#7'Caption'#6#14'Registered to:'#11'ParentColor'
+'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'Anc' +#8#0#0#5'TMemo'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSide'
+'horSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4 +'Top.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSid'
+'Left'#2#12#6'Height'#2'O'#3'Top'#2#12#5'Width'#3#238#0#7'Anchors'#11#5'akTo' +'eRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2'O'#3'Top'#2#12#5'Width'
+'p'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#13'Lines.Strings'#1 +#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Arou'
+#6':If you can edit this, then your program was allowed to run'#0#10'ScrollB' +'nd'#2#12#13'Lines.Strings'#1#6':If you can edit this, then your program was'
+'ars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorS' +' allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TB'
+'ideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'Ancho' +'itBtn'#8'CloseBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.'
+'rSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left' +'Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop'
+#2'W'#6'Height'#2'!'#3'Top'#3#130#0#5'Width'#2'Y'#17'BorderSpacing.Top'#2#12 +'.Side'#7#9'asrBottom'#4'Left'#2'l'#6'Height'#2#26#3'Top'#3#143#0#5'Width'#2
+#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#19'T' +'.'#8'AutoSize'#9#17'BorderSpacing.Top'#2#10#20'BorderSpacing.Bottom'#2#12#4
+'OgRegistrationCode'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistratio' +'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLef'
+'nCode1Checked'#8'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26 +'t.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTo'
+'OgRegistrationCode1GetCode'#4'Left'#2'h'#3'Top'#2'('#0#0#0 +'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 object Form1: TForm1
Left = 406 Left = 406
Height = 266 Height = 293
Top = 322 Top = 322
Width = 357 Width = 357
AutoSize = True AutoSize = True
Caption = 'ExSelAPI: ' Caption = 'ExSelAPI: '
ClientHeight = 266 ClientHeight = 293
ClientWidth = 357 ClientWidth = 357
Menu = MainMenu1 Menu = MainMenu1
OnCreate = FormCreate OnCreate = FormCreate
@ -13,11 +13,11 @@ object Form1: TForm1
object ModifyBtn: TButton object ModifyBtn: TButton
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1 AnchorSideTop.Control = Info
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 122 Left = 122
Height = 25 Height = 25
Top = 182 Top = 242
Width = 113 Width = 113
BorderSpacing.Bottom = 16 BorderSpacing.Bottom = 16
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
@ -25,18 +25,18 @@ object Form1: TForm1
OnClick = ModifyBtnClick OnClick = ModifyBtnClick
TabOrder = 0 TabOrder = 0
end end
object Memo1: TLabel object Info: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 16 Left = 16
Height = 150 Height = 210
Top = 16 Top = 16
Width = 325 Width = 325
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 16 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 Color = clAqua
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -18,7 +18,7 @@ object Form1: TForm1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 8 Left = 8
Height = 15 Height = 15
Top = 234 Top = 245
Width = 32 Width = 32
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Caption = 'Status' Caption = 'Status'
@ -67,15 +67,16 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
end end
object CloseBtn: TBitBtn object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1 AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 412 Left = 412
Height = 25 Height = 25
Top = 229 Top = 240
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Kind = bkClose Kind = bkClose
@ -86,7 +87,7 @@ object Form1: TForm1
AnchorSideRight.Control = CloseBtn AnchorSideRight.Control = CloseBtn
Left = 311 Left = 311
Height = 25 Height = 25
Top = 229 Top = 240
Width = 97 Width = 97
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 4 BorderSpacing.Right = 4
@ -95,7 +96,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick OnClick = RemoveBtnClick
TabOrder = 2 TabOrder = 2
end end
object Memo1: TLabel object Info: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -112,11 +113,24 @@ object Form1: TForm1
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end 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 object OgSerialNumberCode1: TOgSerialNumberCode
OnChecked = CodeChecked OnChecked = CodeChecked
OnGetKey = GetKey OnGetKey = GetKey
OnGetCode = GetCode OnGetCode = GetCode
Left = 160 Left = 168
Top = 208 Top = 216
end end
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 +'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' +'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 +'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 +#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' +'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' +#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 +'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 +#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 +#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' +#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorS'
+'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Anchor' +'ideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Ancho'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#3#156#1#6'Height'#2#25#3'Top'#3#229#0 +'rSideRight.Side'#7#9'asrBottom'#4'Left'#3#156#1#6'Height'#2#25#3'Top'#3#240
+#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2 +#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2
+#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'T' +#8#19'BorderSpacing.Right'#2#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#7'bkCl'
+'Button'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'AnchorSideR' +'ose'#8'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7
+'ight.Control'#7#8'CloseBtn'#4'Left'#3'7'#1#6'Height'#2#25#3'Top'#3#229#0#5 +#8'CloseBtn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'7'#1#6'Heig'
+'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#4 +'ht'#2#25#3'Top'#3#240#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7 +'BorderSpacing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11
+#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft' +'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#4
+'.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTo' +'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'C'
+'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide' +'odeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+'Right.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3#180#0#3'Top'#2')'#5'Widt' +#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3#180
+'h'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.A' +#0#3'Top'#2')'#5'Width'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+'round'#2#8#7'Caption'#12'Q'#2#0#0'The label at the bottom of this form indi' +#20'BorderSpacing.Around'#2#8#7'Caption'#12'Q'#2#0#0'The label at the bottom'
+'cates the status of the code. An invalid code indicates that the code is ei' +' of this form indicates the status of the code. An invalid code indicates t'
+'ther the incorrect type or that none has been entered. '#13#10#13#10'If the' +'hat the code is either the incorrect type or that none has been entered. '
+' proper code has not been entered or the ONGUARD.INI file was deleted, the ' +#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file'
+'message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code' +' was deleted, the message will say that the code is invalid.'#13#10#13#10'U'
+'" button to enter a code (the CODEGEN program can be used to generate the p' +'se the "Enter Code" button to enter a code (the CODEGEN program can be used'
+'roper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to ' +' to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" butt'
+'remove the entered code from the INI file. Doing so will cause the TOgSeria' +'on can be used to remove the entered code from the INI file. Doing so will '
+'lNumberCode component to report that the code is invalid.'#5'Color'#7#9'clB' +'cause the TOgSerialNumberCode component to report that the code is invalid.'
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#19'TOgSerialNumberCode'#19'OgSe' +#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bev'
+'rialNumberCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'O' +'el1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Inf'
+'nGetCode'#7#7'GetCode'#4'Left'#3#160#0#3'Top'#3#208#0#0#0#0 +'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 uses
SysUtils, Classes,Controls, Forms, Dialogs, SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil; StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
type type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Bevel1: TBevel;
CodeBtn: TButton; CodeBtn: TButton;
CloseBtn: TBitBtn; CloseBtn: TBitBtn;
Memo1: TLabel; Info: TLabel;
StatusLbl: TLabel; StatusLbl: TLabel;
Label1: TLabel; Label1: TLabel;
CodeLbl: TLabel; CodeLbl: TLabel;

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

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

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

@ -58,13 +58,14 @@
<UnitName Value="Exspregu"/> <UnitName Value="Exspregu"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<CursorPos X="39" Y="22"/> <TopLine Value="52"/>
<CursorPos X="32" Y="72"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
<JumpHistory Count="2" HistoryIndex="1"> <JumpHistory Count="10" HistoryIndex="9">
<Position1> <Position1>
<Filename Value="exspregu.pas"/> <Filename Value="exspregu.pas"/>
<Caret Line="22" Column="39"/> <Caret Line="22" Column="39"/>
@ -73,6 +74,36 @@
<Filename Value="exspregu.pas"/> <Filename Value="exspregu.pas"/>
<Caret Line="21" Column="39"/> <Caret Line="21" Column="39"/>
</Position2> </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> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

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

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

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

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

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

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

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

@ -3,22 +3,23 @@
LazarusResources.Add('TForm1','FORMDATA',[ 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 '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 +'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' +#13'ActiveControl'#7#5'Memo1'#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7
+'ntHeight'#3#186#0#11'ClientWidth'#3#240#0#8'Position'#7#14'poScreenCenter' +'Caption'#6#21'Serial Number Example'#12'ClientHeight'#3#186#0#11'ClientWidt'
+#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control' +'h'#3#240#0#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6
+#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9 +'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
+'asrBottom'#4'Left'#2#6#6'Height'#2#15#3'Top'#2'['#5'Width'#2','#9'Alignment' +'ntrol'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heigh'
+#7#8'taCenter'#18'BorderSpacing.Left'#2#6#7'Caption'#6#10'Serial #: '#5'Colo' +'t'#2#15#3'Top'#2'['#5'Width'#2','#9'Alignment'#7#8'taCenter'#18'BorderSpaci'
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#22'AnchorSideLeft.Co' +'ng.Left'#2#6#7'Caption'#6#10'Serial #: '#5'Color'#7#6'clNone'#11'ParentColo'
+'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height' +'r'#8#0#0#5'TMemo'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorS'
+#2'O'#3'Top'#2#6#5'Width'#3#223#0#20'BorderSpacing.Around'#2#6#13'Lines.Stri' +'ideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2'O'#3'Top'#2#6#5'Width'#3
+'ngs'#1#6':If you can edit this, then your program was allowed to run'#0#10 +#223#0#20'BorderSpacing.Around'#2#6#13'Lines.Strings'#1#6':If you can edit t'
+'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22 +'his, then your program was allowed to run'#0#10'ScrollBars'#7#10'ssVertical'
+'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21 +#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Control'#7#5'O'
+'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4 +'wner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#6
+'Left'#2'L'#6'Height'#2'!'#3'Top'#2'p'#5'Width'#2'Y'#17'BorderSpacing.Top'#2 +'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'a'#6'Height'#2#26#3
+#6#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#19'TOgSerialNumberCode'#19'OgSer' +'Top'#2'p'#5'Width'#2'.'#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#20'BorderSp'
+'ialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8'OnGetKey'#7 +'acing.Bottom'#2#8#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#19'TOgSerialNumb'
+#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberCode1GetCode' +'erCode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checke'
+#4'Left'#3#128#0#3'Top'#2#16#0#0#0 +'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 object CodeText: TEdit
AnchorSideLeft.Control = Label2 AnchorSideLeft.Control = Label2
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SNText
AnchorSideTop.Side = asrBottom
Left = 44 Left = 44
Height = 23 Height = 23
Top = 62 Top = 62
Width = 185 Width = 185
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8
TabOrder = 1 TabOrder = 1
end end
object OKBtn: TBitBtn object OKBtn: TBitBtn
AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel1 AnchorSideRight.Control = Bevel1
Left = 28 Left = 71
Height = 33 Height = 26
Top = 94 Top = 104
Width = 89 Width = 46
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 8
Kind = bkOK Kind = bkOK
ModalResult = 1 ModalResult = 1
TabOrder = 2 TabOrder = 2
@ -87,10 +94,14 @@ object SNEntryDlg: TSNEntryDlg
object CancelBtn: TBitBtn object CancelBtn: TBitBtn
AnchorSideLeft.Control = Bevel1 AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom
Left = 129 Left = 129
Height = 33 Height = 26
Top = 94 Top = 104
Width = 89 Width = 46
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Kind = bkCancel Kind = bkCancel
@ -101,9 +112,25 @@ object SNEntryDlg: TSNEntryDlg
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 117 Left = 117
Height = 32 Height = 24
Top = 89 Top = 104
Width = 12 Width = 12
Shape = bsSpacer Shape = bsSpacer
end 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 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 +'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 +'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' +'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'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#6'SNT'
+#2'>'#5'Width'#3#185#0#18'BorderSpacing.Left'#2#8#8'TabOrder'#2#1#0#0#7'TBit' +'ext'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2','#6'Height'#2#23#3'To'
+'Btn'#5'OKBtn'#23'AnchorSideRight.Control'#7#6'Bevel1'#4'Left'#2#28#6'Height' +'p'#2'>'#5'Width'#3#185#0#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2
+#2'!'#3'Top'#2'^'#5'Width'#2'Y'#7'Anchors'#11#5'akTop'#7'akRight'#0#4'Kind'#7 +#8#8'TabOrder'#2#1#0#0#7'TBitBtn'#5'OKBtn'#21'AnchorSideTop.Control'#7#6'Bev'
+#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'#2#2#0#0#7'TBitBtn'#9'CancelBtn'#22 +'el2'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#6
+'AnchorSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4 +'Bevel1'#4'Left'#2'G'#6'Height'#2#26#3'Top'#2'h'#5'Width'#2'.'#7'Anchors'#11
+'Left'#3#129#0#6'Height'#2'!'#3'Top'#2'^'#5'Width'#2'Y'#19'BorderSpacing.Rig' +#5'akTop'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#8#4'Kind'#7#4'b'
+'ht'#2#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#8'bkCancel'#7'OnClick'#7#14 +'kOK'#11'ModalResult'#2#1#8'TabOrder'#2#2#0#0#7'TBitBtn'#9'CancelBtn'#22'Anc'
+'CancelBtnClick'#8'TabOrder'#2#3#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.C' +'horSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'ontrol'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#4'Left'#2'u'#6'He' +'AnchorSideTop.Control'#7#6'Bevel2'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'ight'#2' '#3'Top'#2'Y'#5'Width'#2#12#5'Shape'#7#8'bsSpacer'#0#0#0 +'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) TSNEntryDlg = class(TForm)
Bevel1: TBevel; Bevel1: TBevel;
Bevel2: TBevel;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
SNText: TEdit; SNText: TEdit;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -13,12 +13,12 @@ object Form1: TForm1
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0' LCLVersion = '2.3.0.0'
object StatusLbl: TLabel object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1 AnchorSideLeft.Control = Info
AnchorSideTop.Control = CloseBtn AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 8 Left = 8
Height = 15 Height = 15
Top = 223 Top = 238
Width = 32 Width = 32
Caption = 'Status' Caption = 'Status'
Color = clNone Color = clNone
@ -67,13 +67,13 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
end end
object CloseBtn: TBitBtn object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1 AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 409 Left = 409
Height = 25 Height = 25
Top = 218 Top = 233
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 12 BorderSpacing.Top = 12
@ -87,7 +87,7 @@ object Form1: TForm1
AnchorSideRight.Control = CloseBtn AnchorSideRight.Control = CloseBtn
Left = 304 Left = 304
Height = 25 Height = 25
Top = 218 Top = 233
Width = 97 Width = 97
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
@ -96,7 +96,7 @@ object Form1: TForm1
OnClick = RemoveBtnClick OnClick = RemoveBtnClick
TabOrder = 2 TabOrder = 2
end end
object Memo1: TLabel object Info: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -107,13 +107,26 @@ object Form1: TForm1
Top = 41 Top = 41
Width = 476 Width = 476
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8 BorderSpacing.Around = 8
BorderSpacing.Right = 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.' 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 Color = clBtnFace
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end 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 object OgUsageCode1: TOgUsageCode
OnChecked = CodeChecked OnChecked = CodeChecked
OnGetKey = GetKey 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' +'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' +'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' +'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' +'Left.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSi'
+'ideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#223#0#5'Wid' +'deTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#238#0#5'Widt'
+'th'#2' '#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6 +'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' +'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 +'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 +#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' +'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' +'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' +'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 +'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 +'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 +'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' +'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 +'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 +#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' +#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' +'l'#4'Info'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
+#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Contr' +#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
+'ol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height' +#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3
+#3#165#0#3'Top'#2')'#5'Width'#3#220#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR' +#165#0#3'Top'#2')'#5'Width'#3#220#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+'ight'#0#18'BorderSpacing.Left'#2#8#19'BorderSpacing.Right'#2#8#7'Caption'#12 +'ht'#0#20'BorderSpacing.Around'#2#8#7'Caption'#12'J'#2#0#0'The label at the '
+'J'#2#0#0'The label at the bottom of this form indicates the status of the c' +'bottom of this form indicates the status of the code. An invalid code indic'
+'ode. An invalid code indicates that the code is either the incorrect type o' +'ates that the code is either the incorrect type or that none has been enter'
+'r that none has been entered. '#13#10#13#10'If the proper code has not been' +'ed. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.IN'
+' entered or the ONGUARD.INI file was deleted, the message will say that the' +'I file was deleted, the message will say that the code is invalid.'#13#10#13
+' code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code ' +#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be '
+'(the CODEGEN program can be used to generate the proper "Usage" code). '#13 +'used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" '
+#10#13#10'The "Remove Code" button can be used to remove the entered code fr' +'button can be used to remove the entered code from the INI file. Doing so w'
+'om the INI file. Doing so will cause the TOgUsageCode component to report t' +'ill cause the TOgUsageCode component to report that the code is invalid.'#5
+'hat the code is invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordW' +'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel'
+'rap'#9#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'OnChecked'#7#11'CodeChecked' +'1'#22'AnchorSideLeft.Control'#7#4'Info'#21'AnchorSideTop.Control'#7#4'Info'
+#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7#10'Cha' +#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'Info'
+'ngeCode'#4'Left'#3#184#0#3'Top'#3#184#0#0#0#0 +#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 uses
SysUtils, Classes,Controls, Forms, Dialogs, SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil; StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
type type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Bevel1: TBevel;
CodeBtn: TButton; CodeBtn: TButton;
CloseBtn: TBitBtn; CloseBtn: TBitBtn;
Memo1: TLabel; Info: TLabel;
StatusLbl: TLabel; StatusLbl: TLabel;
Label1: TLabel; Label1: TLabel;
CodeLbl: TLabel; CodeLbl: TLabel;

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

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

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

@ -45,7 +45,8 @@
<Filename Value="nafmgr.lpr"/> <Filename Value="nafmgr.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="NAFMgr"/> <UnitName Value="NAFMgr"/>
<CursorPos X="8" Y="16"/> <IsVisibleTab Value="True"/>
<CursorPos X="3" Y="8"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -57,9 +58,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="NAFMGR1"/> <UnitName Value="NAFMGR1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<CursorPos X="41" Y="19"/> <CursorPos X="45" Y="17"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -71,7 +71,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit2> </Unit2>
</Units> </Units>
<JumpHistory Count="3" HistoryIndex="2"> <JumpHistory Count="4" HistoryIndex="3">
<Position1> <Position1>
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<Caret Line="70" TopLine="53"/> <Caret Line="70" TopLine="53"/>
@ -84,6 +84,10 @@
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<Caret Line="19" Column="14"/> <Caret Line="19" Column="14"/>
</Position3> </Position3>
<Position4>
<Filename Value="nafmgr1.pas"/>
<Caret Line="17" Column="45"/>
</Position4>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <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> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="7"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<MainUnit Value="0"/> <UseXPManifest Value="True"/>
<TargetFileExt Value=".exe"/> <XPManifest>
<ActiveEditorIndexAtStart Value="1"/> <DpiAware Value="True"/>
</XPManifest>
</General> </General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <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> </PublishOptions>
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </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> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
<Item1> <Item1>
@ -28,15 +40,16 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="6"> <Units Count="11">
<Unit0> <Unit0>
<Filename Value="rcg.lpr"/> <Filename Value="rcg.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="54" Y="12"/> <UnitName Value="RCG"/>
<TopLine Value="1"/> <EditorIndex Value="1"/>
<EditorIndex Value="0"/> <CursorPos X="54" Y="14"/>
<UsageCount Value="21"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="rcg_main.pas"/> <Filename Value="rcg_main.pas"/>
@ -45,11 +58,13 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="rcg_Main"/> <UnitName Value="rcg_Main"/>
<CursorPos X="59" Y="74"/> <IsVisibleTab Value="True"/>
<TopLine Value="74"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="20"/> <TopLine Value="91"/>
<CursorPos X="29" Y="123"/>
<UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="frm_readme.pas"/> <Filename Value="frm_readme.pas"/>
@ -58,43 +73,124 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Readme"/> <UnitName Value="frm_Readme"/>
<CursorPos X="90" Y="13"/> <CursorPos X="59" Y="19"/>
<TopLine Value="1"/> <UsageCount Value="21"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../source/onguard.pas"/> <Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/> <EditorIndex Value="4"/>
<CursorPos X="30" Y="1300"/> <TopLine Value="34"/>
<TopLine Value="1299"/> <CursorPos X="25" Y="57"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../source/qonguard3.pas"/> <Filename Value="../../source/qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/> <ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<UnitName Value="qonguard3"/> <ResourceBaseClass Value="Form"/>
<CursorPos X="23" Y="131"/> <EditorIndex Value="7"/>
<TopLine Value="125"/> <TopLine Value="125"/>
<CursorPos X="23" Y="131"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../source/qonguard3.lfm"/> <Filename Value="../../source/qonguard3.lfm"/>
<CursorPos X="29" Y="78"/>
<TopLine Value="76"/> <TopLine Value="76"/>
<CursorPos X="29" Y="78"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit5> </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> </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> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<CodeGeneration> <CodeGeneration>
@ -107,7 +203,7 @@
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <DebugInfoType Value="dsDwarf3"/>
</Debugging> </Debugging>
<Options> <Options>
<Win32> <Win32>
@ -115,9 +211,6 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="2"> <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; frm_Readme in 'frm_Readme.pas' {frmReadme}, tponguard;
{$R *.res}
begin begin
Application.Initialize; Application.Initialize;
Application.CreateForm(TrcgMain, rcgMain); Application.CreateForm(TrcgMain, rcgMain);

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

@ -6,102 +6,162 @@ object rcgMain: TrcgMain
HorzScrollBar.Page = 362 HorzScrollBar.Page = 362
VertScrollBar.Page = 321 VertScrollBar.Page = 321
ActiveControl = edtAppKey ActiveControl = edtAppKey
AutoSize = True
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Release Code Generator' Caption = 'Release Code Generator'
Font.Height = -13 ClientHeight = 322
Font.Name = 'Arial' ClientWidth = 363
ShowHint = True ShowHint = True
LCLVersion = '2.3.0.0'
object lblAppKey: TLabel object lblAppKey: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8 Left = 8
Height = 13 Height = 15
Top = 7 Top = 8
Width = 99 Width = 83
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = '&Application Key' Caption = '&Application Key'
Color = clNone Color = clNone
FocusControl = edtAppKey FocusControl = edtAppKey
ParentColor = False ParentColor = False
end end
object lblSerialNumber: TLabel object lblSerialNumber: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtExpires
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 13 Height = 15
Top = 156 Top = 161
Width = 89 Width = 75
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = '&Serial Number' Caption = '&Serial Number'
Color = clNone Color = clNone
FocusControl = edtSerialNumber FocusControl = edtSerialNumber
ParentColor = False ParentColor = False
end end
object lblReleaseCode: TLabel object lblReleaseCode: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 13 Height = 15
Top = 222 Top = 224
Width = 80 Width = 70
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Release Code' Caption = 'Release Code'
Color = clNone Color = clNone
ParentColor = False ParentColor = False
end end
object Bevel1: TBevel object Bevel1: TBevel
AnchorSideLeft.Control = edtSerialNumber
AnchorSideTop.Control = edtSerialNumber
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtSerialNumber
AnchorSideRight.Side = asrBottom
Left = 8 Left = 8
Height = 5 Height = 5
Top = 211 Top = 211
Width = 329 Width = 329
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 10
Shape = bsTopLine Shape = bsTopLine
end end
object edtAppKey: TEdit object edtAppKey: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblAppKey
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = spdAppKey
Left = 8 Left = 8
Height = 24 Height = 24
Top = 24 Top = 25
Width = 329 Width = 295
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 4
Font.Color = clRed Font.Color = clRed
Font.Height = -13 Font.Height = -13
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnChange = edtAppKeyChange OnChange = edtAppKeyChange
ParentFont = False
ReadOnly = True ReadOnly = True
TabStop = False TabStop = False
TabOrder = 0 TabOrder = 0
end end
object chkMachMod: TCheckBox object chkMachMod: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtAppKey
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 22 Height = 19
Top = 56 Top = 57
Width = 179 Width = 155
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Apply a &Machine Modifier' Caption = 'Apply a &Machine Modifier'
OnClick = chkMachModClick OnClick = chkMachModClick
TabOrder = 2 TabOrder = 2
end end
object edtMachineMod: TEdit object edtMachineMod: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = chkMachMod
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 24 Height = 23
Top = 74 Top = 78
Width = 329 Width = 329
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 8
Enabled = False Enabled = False
MaxLength = 10 MaxLength = 10
OnChange = edtAppKeyChange OnChange = edtAppKeyChange
TabOrder = 3 TabOrder = 3
end end
object edtSerialNumber: TEdit object edtSerialNumber: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblSerialNumber
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 24 Height = 23
Top = 173 Top = 178
Width = 329 Width = 329
BorderSpacing.Left = 8
BorderSpacing.Top = 2
MaxLength = 10 MaxLength = 10
OnChange = edtAppKeyChange OnChange = edtAppKeyChange
TabOrder = 6 TabOrder = 6
end end
object edtReleaseCode: TEdit object edtReleaseCode: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblReleaseCode
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = spdReleaseCode
Left = 8 Left = 8
Height = 24 Height = 23
Top = 238 Top = 241
Width = 329 Width = 299
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 4
ReadOnly = True ReadOnly = True
TabStop = False TabStop = False
TabOrder = 7 TabOrder = 7
end end
object btnExit: TButton object btnExit: TButton
AnchorSideTop.Control = btnReadme
AnchorSideRight.Control = edtMachineMod
AnchorSideRight.Side = asrBottom
Left = 262 Left = 262
Height = 25 Height = 25
Top = 273 Top = 276
Width = 75 Width = 75
Anchors = [akTop, akLeft, akRight]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Exit' Caption = 'Exit'
Default = True Default = True
@ -109,28 +169,43 @@ object rcgMain: TrcgMain
TabOrder = 9 TabOrder = 9
end end
object chkExpires: TCheckBox object chkExpires: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtMachineMod
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 22 Height = 19
Top = 104 Top = 109
Width = 158 Width = 129
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = '&Release code expires ' Caption = '&Release code expires '
OnClick = chkExpiresClick OnClick = chkExpiresClick
TabOrder = 4 TabOrder = 4
end end
object edtExpires: TEdit object edtExpires: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = chkExpires
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 24 Height = 23
Top = 125 Top = 130
Width = 329 Width = 329
BorderSpacing.Left = 8
BorderSpacing.Top = 2
Enabled = False Enabled = False
OnChange = edtAppKeyChange OnChange = edtAppKeyChange
TabOrder = 5 TabOrder = 5
end end
object spdAppKey: TBitBtn object spdAppKey: TBitBtn
Left = 310 AnchorSideTop.Control = edtAppKey
Height = 21 AnchorSideTop.Side = asrCenter
Top = 26 AnchorSideRight.Control = edtMachineMod
Width = 25 AnchorSideRight.Side = asrBottom
Left = 307
Height = 26
Top = 24
Width = 30
Anchors = [akTop, akRight]
Glyph.Data = { Glyph.Data = {
26040000424D2604000000000000360000002800000012000000120000000100 26040000424D2604000000000000360000002800000012000000120000000100
180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF 180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF
@ -167,15 +242,19 @@ object rcgMain: TrcgMain
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD5D5D519667800 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD5D5D519667800
556B62737CFFFFFF0000 556B62737CFFFFFF0000
} }
NumGlyphs = 0
OnClick = spdAppKeyClick OnClick = spdAppKeyClick
Spacing = 0
TabOrder = 1 TabOrder = 1
end end
object spdReleaseCode: TBitBtn object spdReleaseCode: TBitBtn
AnchorSideTop.Control = edtReleaseCode
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edtMachineMod
Left = 311 Left = 311
Height = 21 Height = 26
Top = 240 Top = 239
Width = 25 Width = 30
Anchors = [akTop]
Glyph.Data = { Glyph.Data = {
26040000424D2604000000000000360000002800000012000000120000000100 26040000424D2604000000000000360000002800000012000000120000000100
180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF 180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF
@ -212,22 +291,28 @@ object rcgMain: TrcgMain
FF9F9F9F5A35336F423E6F423E3E2523DFDFDFFFFFFFFFFFFFFFFFFFFFFFFFFF FF9F9F9F5A35336F423E6F423E3E2523DFDFDFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF0000 FFFFFFFFFFFFFFFF0000
} }
NumGlyphs = 0
OnClick = spdReleaseCodeClick OnClick = spdReleaseCodeClick
Spacing = 0
TabOrder = 8 TabOrder = 8
end end
object btnReadme: TButton object btnReadme: TButton
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtReleaseCode
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 25 Height = 25
Top = 273 Top = 276
Width = 75 Width = 75
BorderSpacing.Left = 8
BorderSpacing.Top = 12
BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Readme...' Caption = 'Readme...'
OnClick = btnReadmeClick OnClick = btnReadmeClick
TabOrder = 10 TabOrder = 10
end end
object OgMakeKeys1: TOgMakeKeys object OgMakeKeys1: TOgMakeKeys
left = 144 Left = 152
top = 272 Top = 248
end end
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',[ 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 '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 +'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 +'ActiveControl'#7#9'edtAppKey'#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7
+'Release Code Generator'#11'Font.Height'#2#243#9'Font.Name'#6#5'Arial'#8'Sho' +'Caption'#6#22'Release Code Generator'#12'ClientHeight'#3'B'#1#11'ClientWidt'
+'wHint'#9#0#6'TLabel'#9'lblAppKey'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#7#5'W' +'h'#3'k'#1#8'ShowHint'#9#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'lblAppKey'
+'idth'#2'c'#7'Caption'#6#16'&Application Key'#5'Color'#7#6'clNone'#12'FocusC' +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4
+'ontrol'#7#9'edtAppKey'#11'ParentColor'#8#0#0#6'TLabel'#15'lblSerialNumber'#4 +'Left'#2#8#6'Height'#2#15#3'Top'#2#8#5'Width'#2'S'#18'BorderSpacing.Left'#2#8
+'Left'#2#8#6'Height'#2#13#3'Top'#3#156#0#5'Width'#2'Y'#7'Caption'#6#14'&Seri' +#17'BorderSpacing.Top'#2#8#7'Caption'#6#16'&Application Key'#5'Color'#7#6'cl'
+'al Number'#5'Color'#7#6'clNone'#12'FocusControl'#7#15'edtSerialNumber'#11'P' +'None'#12'FocusControl'#7#9'edtAppKey'#11'ParentColor'#8#0#0#6'TLabel'#15'lb'
+'arentColor'#8#0#0#6'TLabel'#14'lblReleaseCode'#4'Left'#2#8#6'Height'#2#13#3 +'lSerialNumber'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contr'
+'Top'#3#222#0#5'Width'#2'P'#7'Caption'#6#12'Release Code'#5'Color'#7#6'clNon' +'ol'#7#10'edtExpires'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'He'
+'e'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#8#6'Height'#2#5#3'To' +'ight'#2#15#3'Top'#3#161#0#5'Width'#2'K'#18'BorderSpacing.Left'#2#8#17'Borde'
+'p'#3#211#0#5'Width'#3'I'#1#5'Shape'#7#9'bsTopLine'#0#0#5'TEdit'#9'edtAppKey' +'rSpacing.Top'#2#8#7'Caption'#6#14'&Serial Number'#5'Color'#7#6'clNone'#12'F'
+#4'Left'#2#8#6'Height'#2#24#3'Top'#2#24#5'Width'#3'I'#1#10'Font.Color'#7#5'c' +'ocusControl'#7#15'edtSerialNumber'#11'ParentColor'#8#0#0#6'TLabel'#14'lblRe'
+'lRed'#11'Font.Height'#2#243#9'Font.Name'#6#13'MS Sans Serif'#8'OnChange'#7 +'leaseCode'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
+#15'edtAppKeyChange'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#0#0#0#9'TCheck' +#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#15#3
+'Box'#10'chkMachMod'#4'Left'#2#8#6'Height'#2#22#3'Top'#2'8'#5'Width'#3#179#0 +'Top'#3#224#0#5'Width'#2'F'#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'
+#7'Caption'#6#25'Apply a &Machine Modifier'#7'OnClick'#7#15'chkMachModClick' +#2#8#7'Caption'#6#12'Release Code'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+#8'TabOrder'#2#2#0#0#5'TEdit'#13'edtMachineMod'#4'Left'#2#8#6'Height'#2#24#3 +#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7#15'edtSerialNumber'#21'Anc'
+'Top'#2'J'#5'Width'#3'I'#1#7'Enabled'#8#9'MaxLength'#2#10#8'OnChange'#7#15'e' +'horSideTop.Control'#7#15'edtSerialNumber'#18'AnchorSideTop.Side'#7#9'asrBot'
+'dtAppKeyChange'#8'TabOrder'#2#3#0#0#5'TEdit'#15'edtSerialNumber'#4'Left'#2#8 +'tom'#23'AnchorSideRight.Control'#7#15'edtSerialNumber'#20'AnchorSideRight.S'
+#6'Height'#2#24#3'Top'#3#173#0#5'Width'#3'I'#1#9'MaxLength'#2#10#8'OnChange' +'ide'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#5#3'Top'#3#211#0#5'Width'#3'I'#1
+#7#15'edtAppKeyChange'#8'TabOrder'#2#6#0#0#5'TEdit'#14'edtReleaseCode'#4'Lef' +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#10#5
+'t'#2#8#6'Height'#2#24#3'Top'#3#238#0#5'Width'#3'I'#1#8'ReadOnly'#9#7'TabSto' +'Shape'#7#9'bsTopLine'#0#0#5'TEdit'#9'edtAppKey'#22'AnchorSideLeft.Control'#7
+'p'#8#8'TabOrder'#2#7#0#0#7'TButton'#7'btnExit'#4'Left'#3#6#1#6'Height'#2#25 +#5'Owner'#21'AnchorSideTop.Control'#7#9'lblAppKey'#18'AnchorSideTop.Side'#7#9
+#3'Top'#3#17#1#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#4 +'asrBottom'#23'AnchorSideRight.Control'#7#9'spdAppKey'#4'Left'#2#8#6'Height'
+'Exit'#7'Default'#9#7'OnClick'#7#12'btnExitClick'#8'TabOrder'#2#9#0#0#9'TChe' +#2#24#3'Top'#2#25#5'Width'#3''''#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'ckBox'#10'chkExpires'#4'Left'#2#8#6'Height'#2#22#3'Top'#2'h'#5'Width'#3#158 +'t'#0#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#2#19'BorderSpacing.'
+#0#7'Caption'#6#22'&Release code expires '#7'OnClick'#7#15'chkExpiresClick'#8 +'Right'#2#4#10'Font.Color'#7#5'clRed'#11'Font.Height'#2#243#9'Font.Name'#6#13
+'TabOrder'#2#4#0#0#5'TEdit'#10'edtExpires'#4'Left'#2#8#6'Height'#2#24#3'Top' +'MS Sans Serif'#8'OnChange'#7#15'edtAppKeyChange'#10'ParentFont'#8#8'ReadOnl'
+#2'}'#5'Width'#3'I'#1#7'Enabled'#8#8'OnChange'#7#15'edtAppKeyChange'#8'TabOr' +'y'#9#7'TabStop'#8#8'TabOrder'#2#0#0#0#9'TCheckBox'#10'chkMachMod'#22'Anchor'
+'der'#2#5#0#0#7'TBitBtn'#9'spdAppKey'#4'Left'#3'6'#1#6'Height'#2#21#3'Top'#2 +'SideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'edtAppKey'#18'An'
+#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 +'chorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#19#3'Top'#2'9'#5'W'
+#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 +'idth'#3#155#0#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#8#7'Captio'
+#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +'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#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#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0 +#255#255#255#255#255#255#255#255#255#255#255#0#0#255#255#255#23'%4^em'#242
+#255#255#255#23'%4^em'#242#242#242#229#229#229#255#255#255#255#255#255#255 +#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#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`' +#255#255#255#255#255#255#0#0#255#255#255'0>M8T`'#196#196#196',06'#170#170#170
+#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#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 +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#255
+#139#139#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#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#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#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 +#255#255#255#255#255#0#0#0'^s'#0'u'#158#0'(B'#0'-O'#22'(:'#255#255#255#255
+'-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#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#168#177#179':s'#129#0'|'#160#0'r'#157#14'1E'#162#162#162 +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#168#177
+#204#204#204#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +#179':s'#129#0'|'#160#0'r'#157#14'1E'#162#162#162#204#204#204#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#255#255#255#255#255#255#255#255#255#255#255#255#221#221#221#162#162
+#255#255#238#238#238#170#181#183'8o}'#0#129#166#0'_'#139#20'8U'#172#173#175 +#162#179#179#179#255#255#255#255#255#255#0#0#255#255#255#238#238#238#170#181
+#242#242#242#255#255#255#255#255#255#255#255#255#255#255#255'0N^'#0'k'#137#8 +#183'8o}'#0#129#166#0'_'#139#20'8U'#172#173#175#242#242#242#255#255#255#255
+'Vv'#140#145#150#255#255#255#0#0#255#255#255#255#255#255#255#255#255#242#242 +#255#255#255#255#255#255#255#255'0N^'#0'k'#137#8'Vv'#140#145#150#255#255#255
+#242#172#177#179#20'{'#151#0'>j'#0'W~8Xg'#170#175#178#212#212#212#255#255#255 +#0#0#255#255#255#255#255#255#255#255#255#242#242#242#172#177#179#20'{'#151#0
+#170#170#170#6'8S'#151#156#159'K'#129#143#18'Uh'#234#234#234#0#0#255#255#255 +'>j'#0'W~8Xg'#170#175#178#212#212#212#255#255#255#170#170#170#6'8S'#151#156
+#255#255#255#255#255#255#255#255#255#255#255#255#204#204#204#162#162#162'#hx' +#159'K'#129#143#18'Uh'#234#234#234#0#0#255#255#255#255#255#255#255#255#255
+#4#140#181#0'\'#130#8'3R'#168#170#172'2O_:Tb'#238#238#238#208#208#208#0'p' +#255#255#255#255#255#255#204#204#204#162#162#162'#hx'#4#140#181#0'\'#130#8'3'
+#139#139#139#139#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +'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#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#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 +#255#255#255#255#160#160#160'%v'#139#0'u'#170#0'3['#0'Ku\ej'#255#255#255#208
+#139#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +#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#242#242#242 +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#229#229#229
+#0'^s\os'#255#255#255'x'#143#149#0'd'#141#139#139#139#0#0#255#255#255#255#255 +'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#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 +#255#255#255#255#255#255#255#255#255#255#255#255#242#242#242#0'^s\os'#255#255
+#217#208#208#208#0'7U'#139#139#139#0#0#255#255#255#255#255#255#255#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#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 +#255#255#255#255#255#255#255#255'q'#131#134#16'p'#134#217#217#217#208#208#208
+'7U'#139#139#139#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +#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#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#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#213 +#255#255'#Sc'#25'}'#151'Lak'#14'/F'#212#212#212#0#0#255#255#255#255#255#255
+#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#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#234#234#234#134#140#141#0'Wo'#23'7]fmfpwp'#147#149 +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#213#213#213#25'fx'#0
+#147#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +'Ukbs|'#255#255#255#0#0#7'OnClick'#7#14'spdAppKeyClick'#7'Spacing'#2#0#8'Tab'
+#255#255#255#255#255#255#255#255#255#255#255#255#255#185#185#185'"Q^<U\/'#128 +'Order'#2#1#0#0#7'TBitBtn'#14'spdReleaseCode'#21'AnchorSideTop.Control'#7#14
+#151#1'e'#239#27'?qeke'#137#142#137#0#0#255#255#255#255#255#255#255#255#255 +'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#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 +#255#255#255#234#234#234#134#140#141#0'Wo'#23'7]fmfpwp'#147#149#147#0#0#255
+#240#239#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#249 +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+#249#249#239#239#239#239#239#239#239#239#239#239#239#239#168#168#168'6DH'#21 +#255#255#255#255#255#255#255#255#255#255#185#185#185'"Q^<U\/'#128#151#1'e'
+#167#207#14#177#222#1#13#20#0#21'5'#175#175#175#255#255#255#0#0#255#255#255 ,#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#159#159#159'H/,_`b`G*(?B?' +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
+'%]mMSU'#19#170#211#0'Y'#206#0#9#23#175#175#175#255#255#255#0#0#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 +#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 +'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?</' +#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 +'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' +'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 +#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 +#255#255#255#0#0'7!'#31#127'KH`>:'#135'PL'#255#151#144#255#151#144#222#151
+'cgcg'#255#186#189#255#200#207#231#186#192'npqsNKWNM'#255#255#255#255 +#151#127'cg'#127'cg'#255#186#189#255#200#207#231#186#192#127'np'#127'qs'#127
+#255#255#0#0#239#239#239#164#164#164#161'_[xHD'#234#141#134#218#129'{'#237 +'NKWNM'#255#255#255#255#255#255#0#0#239#239#239#164#164#164#161'_[xHD'#234
+#141#134#255#175#175#255#200#207#213#153#155#189#144#149#252#197#204#152'vyG' +#141#134#218#129'{'#237#141#134#255#175#175#255#200#207#213#153#155#189#144
+'*('#224#224#224#243#243#243#255#255#255#255#255#255#0#0#255#255#255#175#175 +#149#252#197#204#152'vyG*('#224#224#224#243#243#243#255#255#255#255#255#255#0
+#175'e<9'#235#139#133#181'rlF98'#207'zu'#255#152#145#255#175#175#143'pt'#151 +#0#255#255#255#175#175#175'e<9'#235#139#133#181'rlF98'#207'zu'#255#152#145
+#148#148#183#147#151#248#194#201'G8:'#239#239#239#255#255#255#255#255#255#255 +#255#175#175#143'pt'#151#148#148#183#147#151#248#194#201'G8:'#239#239#239#255
+#255#255#0#0#255#255#255#230#230#230#148'qn'#216#128'z'#143'~'#154#154#154 +#255#255#255#255#255#255#255#255#0#0#255#255#255#230#230#230#148'qn'#216#128
+#207'zu'#255#151#144#255#151#144#143']\'#223#223#223#183#180#180'sce'#175#175 +'z'#143#127'~'#154#154#154#207'zu'#255#151#144#255#151#144#143']\'#223#223
+#175#250#250#250#255#255#255#255#255#255#255#255#255#0#0#255#255#255#255#255 +#223#183#180#180'sce'#175#175#175#250#250#250#255#255#255#255#255#255#255#255
+#255#234#234#234#150#150#150#255#255#255#159#159#159'Z53oB>oB>>%#'#223#223 +#255#0#0#255#255#255#255#255#255#234#234#234#150#150#150#255#255#255#159#159
+#223#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255 +#159'Z53oB>oB>>%#'#223#223#223#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' +#255#255#255#255#255#255#255#255#255#255#0#0#7'OnClick'#7#19'spdReleaseCodeC'
+'Order'#2#8#0#0#7'TButton'#9'btnReadme'#4'Left'#2#8#6'Height'#2#25#3'Top'#3 +'lick'#7'Spacing'#2#0#8'TabOrder'#2#8#0#0#7'TButton'#9'btnReadme'#22'AnchorS'
,#17#1#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'Readme.' +'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#14'edtReleaseCode'
+'..'#7'OnClick'#7#14'btnReadmeClick'#8'TabOrder'#2#10#0#0#11'TOgMakeKeys'#11 +#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#25#3'Top'#3#20
+'OgMakeKeys1'#4'left'#3#144#0#3'top'#3#16#1#0#0#0 +#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; ReleaseCode : TCode;
CodeString : string; CodeString : string;
begin begin
ReleaseCode := Default(TCode);
edtReleaseCode.Text := ''; edtReleaseCode.Text := '';
// Get the key that will be used to generate the ReleaseCode // Get the key that will be used to generate the ReleaseCode
Key := ApplicationKey; Key := ApplicationKey;
if chkMachMod.Checked then if chkMachMod.Checked then
try begin
Modifier := StrToInt(edtMachineMod.Text); if TryStrToInt(edtMachineMod.Text, Modifier) then
ApplyModifierToKeyPrim(Modifier, Key, sizeof(Key)); ApplyModifierToKeyPrim(Modifier, Key, sizeof(Key))
except else
begin
MessageDlg('Invalid Machine Modifier. Please check your entry and try again.', mtError, [mbOK], 0); MessageDlg('Invalid Machine Modifier. Please check your entry and try again.', mtError, [mbOK], 0);
exit; exit;
end; end;
end;
// Get the expiration date // Get the expiration date
if chkExpires.Checked then if chkExpires.Checked then
try begin
Expires := StrToDate(edtExpires.Text); if not TryStrToDate(edtExpires.Text, Expires) then
except begin
MessageDlg('Invalid Expiration Date. Please check your entry and try again.', mtError, [mbOK], 0); MessageDlg('Invalid Expiration Date. Please check your entry and try again.', mtError, [mbOK], 0);
exit; exit;
end end;
else end else
Expires := 0; Expires := 0;
// Get the serial number // Get the serial number
try if not TryStrToInt(edtSerialNumber.Text, SerialNum) then
SerialNum := StrToInt(edtSerialNumber.Text); begin
except
MessageDlg('Invalid Serial Number. Please check your entry and try again.', mtError, [mbOK], 0); MessageDlg('Invalid Serial Number. Please check your entry and try again.', mtError, [mbOK], 0);
exit; exit;
end; end;

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

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

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

@ -9,7 +9,6 @@ object OgAboutForm: TOgAboutForm
Caption = 'About TurboPower OnGuard' Caption = 'About TurboPower OnGuard'
ClientHeight = 363 ClientHeight = 363
ClientWidth = 434 ClientWidth = 434
Color = clForm
OnCreate = FormCreate OnCreate = FormCreate
OnMouseMove = FormMouseMove OnMouseMove = FormMouseMove
Position = poScreenCenter Position = poScreenCenter
@ -34,7 +33,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 147 Left = 153
Height = 21 Height = 21
Top = 4 Top = 4
Width = 68 Width = 68
@ -49,7 +48,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = l1 AnchorSideTop.Control = l1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 147 Left = 153
Height = 15 Height = 15
Top = 25 Top = 25
Width = 62 Width = 62
@ -62,7 +61,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = l4 AnchorSideTop.Control = l4
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 147 Left = 153
Height = 15 Height = 15
Top = 71 Top = 71
Width = 118 Width = 118
@ -95,7 +94,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblVersion AnchorSideTop.Control = lblVersion
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 147 Left = 153
Height = 15 Height = 15
Top = 48 Top = 48
Width = 201 Width = 201
@ -106,12 +105,12 @@ object OgAboutForm: TOgAboutForm
object l4: TLabel object l4: TLabel
AnchorSideLeft.Control = l3 AnchorSideLeft.Control = l3
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 356 Left = 362
Height = 15 Height = 15
Top = 48 Top = 48
Width = 50 Width = 50
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 16
Caption = '(MPL 1.1)' Caption = '(MPL 1.1)'
ParentColor = False ParentColor = False
end end
@ -145,7 +144,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = WebLbl1 AnchorSideTop.Control = WebLbl1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 147 Left = 153
Height = 15 Height = 15
Top = 147 Top = 147
Width = 106 Width = 106
@ -166,7 +165,7 @@ object OgAboutForm: TOgAboutForm
Top = 162 Top = 162
Width = 256 Width = 256
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Right = 8 BorderSpacing.Right = 16
Caption = 'https://sourceforge.net/forum/?group_id=71010' Caption = 'https://sourceforge.net/forum/?group_id=71010'
Font.Color = clNavy Font.Color = clNavy
ParentColor = False ParentColor = False
@ -179,7 +178,7 @@ object OgAboutForm: TOgAboutForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = WebLbl AnchorSideTop.Control = WebLbl
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 147 Left = 153
Height = 15 Height = 15
Top = 109 Top = 109
Width = 71 Width = 71
@ -215,6 +214,7 @@ object OgAboutForm: TOgAboutForm
Top = 4 Top = 4
Width = 139 Width = 139
AutoSize = True AutoSize = True
BorderSpacing.Right = 6
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 251 ClientHeight = 251
@ -1372,12 +1372,13 @@ object OgAboutForm: TOgAboutForm
Top = 301 Top = 301
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 16 BorderSpacing.Right = 16
BorderSpacing.Bottom = 16 BorderSpacing.Bottom = 16
BorderSpacing.InnerBorder = 4
Cancel = True Cancel = True
Caption = 'OK' Caption = 'OK'
Constraints.MinWidth = 75
Default = True Default = True
ModalResult = 2 ModalResult = 2
OnClick = btnOKClick 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' Caption = '&Key used to encode'
ClientHeight = 219 ClientHeight = 219
ClientWidth = 536 ClientWidth = 536
ParentBackground = False
TabOrder = 3 TabOrder = 3
object GenerateKeySb: TSpeedButton object GenerateKeySb: TSpeedButton
AnchorSideTop.Control = BlockKeyEd AnchorSideTop.Control = BlockKeyEd
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ModStringEd AnchorSideRight.Control = ModStringEd
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 498 Left = 495
Height = 23 Height = 24
Hint = 'Generate key' Hint = 'Generate key'
Top = 180 Top = 179
Width = 23 Width = 26
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Glyph.Data = { Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100 42010000424D4201000000000000760000002800000011000000110000000100
@ -548,7 +549,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
Left = 16 Left = 16
Height = 23 Height = 23
Top = 180 Top = 180
Width = 478 Width = 475
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 4 BorderSpacing.Right = 4
@ -573,17 +574,18 @@ object CodeGenerateFrm: TCodeGenerateFrm
Caption = 'Generate Code' Caption = 'Generate Code'
ClientHeight = 47 ClientHeight = 47
ClientWidth = 536 ClientWidth = 536
ParentBackground = False
TabOrder = 4 TabOrder = 4
object RegCodeCopySb: TSpeedButton object RegCodeCopySb: TSpeedButton
AnchorSideTop.Control = GenerateBtn AnchorSideTop.Control = GenerateBtn
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = GroupBox2 AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 497 Left = 494
Height = 23 Height = 24
Hint = 'Copy code to clipboard' Hint = 'Copy code to clipboard'
Top = 7 Top = 6
Width = 23 Width = 26
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 16 BorderSpacing.Right = 16
Glyph.Data = { Glyph.Data = {
@ -627,7 +629,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
Left = 97 Left = 97
Height = 23 Height = 23
Top = 7 Top = 7
Width = 396 Width = 393
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Right = 4 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' +#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' +'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' +'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 +'sed to encode'#12'ClientHeight'#3#219#0#11'ClientWidth'#3#24#2#16'ParentBac'
+#3#0#12'TSpeedButton'#13'GenerateKeySb'#21'AnchorSideTop.Control'#7#10'Block' +'kground'#8#8'TabOrder'#2#3#0#12'TSpeedButton'#13'GenerateKeySb'#21'AnchorSi'
+'KeyEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7 +'deTop.Control'#7#10'BlockKeyEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'An'
+#11'ModStringEd'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#242#1#6'H' +'chorSideRight.Control'#7#11'ModStringEd'#20'AnchorSideRight.Side'#7#9'asrBo'
+'eight'#2#23#4'Hint'#6#12'Generate key'#3'Top'#3#180#0#5'Width'#2#23#7'Ancho' +'ttom'#4'Left'#3#239#1#6'Height'#2#24#4'Hint'#6#12'Generate key'#3'Top'#3#179
+'rs'#11#5'akTop'#7'akRight'#0#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0 +#0#5'Width'#2#26#7'Anchors'#11#5'akTop'#7'akRight'#0#10'Glyph.Data'#10'F'#1#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'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#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 +#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
+#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 +#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
+#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136 +#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
+#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136 +#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
+#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0 +#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#136#136#136#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0 +#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#0#8#136
+#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#136#136#128#0#0#0#136#128#0#0#136#8#136#128#128#0#0#0#136#0#152#144#8#8
+#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 +#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
+#144#8#136#136#136#128#0#0#0#136#128#0#0#136#136#136#136#128#0#0#0#136#136#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
+#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136 +#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
+#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0 +#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#7'OnClick'#7#18'GenerateKeySb' +#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#7'OnClick'#7#18
+'Click'#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21 +'GenerateKeySbClick'#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#9
+'AnchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.Side'#7#9'asrBott' +'GroupBox1'#21'AnchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.Sid'
,'om'#4'Left'#2#16#6'Height'#2#15#3'Top'#2'o'#5'Width'#2'0'#18'BorderSpacing.' ,'e'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#15#3'Top'#2'o'#5'Width'#2'0'#18
+'Left'#2#16#17'BorderSpacing.Top'#2#16#7'Caption'#6#9'Modifier:'#11'ParentCo' +'BorderSpacing.Left'#2#16#17'BorderSpacing.Top'#2#16#7'Caption'#6#9'Modifier'
+'lor'#8#0#0#6'TLabel'#6'Label5'#22'AnchorSideLeft.Control'#7#6'Label1'#21'An' +':'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#22'AnchorSideLeft.Control'#7#6
+'chorSideTop.Control'#7#10'ModifierEd'#18'AnchorSideTop.Side'#7#9'asrBottom' +'Label1'#21'AnchorSideTop.Control'#7#10'ModifierEd'#18'AnchorSideTop.Side'#7
+#4'Left'#2#16#6'Height'#2#15#3'Top'#3#163#0#5'Width'#2#22#17'BorderSpacing.T' +#9'asrBottom'#4'Left'#2#16#6'Height'#2#15#3'Top'#3#163#0#5'Width'#2#22#17'Bo'
+'op'#2#12#7'Caption'#6#4'Key:'#11'ParentColor'#8#0#0#9'TCheckBox'#12'NoModif' +'rderSpacing.Top'#2#12#7'Caption'#6#4'Key:'#11'ParentColor'#8#0#0#9'TCheckBo'
+'ierCb'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7 +'x'#12'NoModifierCb'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSide'
+#9'GroupBox1'#4'Left'#2#16#6'Height'#2#19#3'Top'#2#6#5'Width'#2'R'#18'Border' +'Top.Control'#7#9'GroupBox1'#4'Left'#2#16#6'Height'#2#19#3'Top'#2#6#5'Width'
+'Spacing.Left'#2#16#17'BorderSpacing.Top'#2#6#7'Caption'#6#11'No modifier'#7 +#2'R'#18'BorderSpacing.Left'#2#16#17'BorderSpacing.Top'#2#6#7'Caption'#6#11
+'Checked'#9#7'OnClick'#7#13'ModifierClick'#5'State'#7#9'cbChecked'#8'TabOrde' +'No modifier'#7'Checked'#9#7'OnClick'#7#13'ModifierClick'#5'State'#7#9'cbChe'
+'r'#2#0#0#0#9'TCheckBox'#17'MachineModifierCb'#22'AnchorSideLeft.Control'#7 +'cked'#8'TabOrder'#2#0#0#0#9'TCheckBox'#17'MachineModifierCb'#22'AnchorSideL'
+#12'NoModifierCb'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Co' +'eft.Control'#7#12'NoModifierCb'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'A'
+'ntrol'#7#12'NoModifierCb'#4'Left'#3#146#0#6'Height'#2#19#3'Top'#2#6#5'Width' +'nchorSideTop.Control'#7#12'NoModifierCb'#4'Left'#3#146#0#6'Height'#2#19#3'T'
+#2'p'#18'BorderSpacing.Left'#2'0'#7'Caption'#6#16'Machine modifier'#7'OnClic' +'op'#2#6#5'Width'#2'p'#18'BorderSpacing.Left'#2'0'#7'Caption'#6#16'Machine m'
+'k'#7#13'ModifierClick'#8'TabOrder'#2#1#0#0#9'TCheckBox'#16'UniqueModifierCb' +'odifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#1#0#0#9'TCheckBox'#16
+#22'AnchorSideLeft.Control'#7#17'MachineModifierCb'#19'AnchorSideLeft.Side'#7 +'UniqueModifierCb'#22'AnchorSideLeft.Control'#7#17'MachineModifierCb'#19'Anc'
+#9'asrBottom'#21'AnchorSideTop.Control'#7#12'NoModifierCb'#4'Left'#3'2'#1#6 +'horSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#12'NoModifierC'
+'Height'#2#19#3'Top'#2#6#5'Width'#2'h'#18'BorderSpacing.Left'#2'0'#7'Caption' +'b'#4'Left'#3'2'#1#6'Height'#2#19#3'Top'#2#6#5'Width'#2'h'#18'BorderSpacing.'
+#6#15'Unique modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#2#0#0#9 +'Left'#2'0'#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13'ModifierClick'#8
+'TCheckBox'#14'DateModifierCb'#22'AnchorSideLeft.Control'#7#12'NoModifierCb' +'TabOrder'#2#2#0#0#9'TCheckBox'#14'DateModifierCb'#22'AnchorSideLeft.Control'
+#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'AnchorSideTop.Side'#7#9'asrCent' +#7#12'NoModifierCb'#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'AnchorSideTo'
+'er'#4'Left'#2#16#6'Height'#2#19#3'Top'#2''''#5'Width'#2'Z'#7'Caption'#6#13 +'p.Side'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#19#3'Top'#2''''#5'Width'#2
+'Date modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#3#0#0#9'TCheckB' +'Z'#7'Caption'#6#13'Date modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'
+'ox'#16'StringModifierCb'#22'AnchorSideLeft.Control'#7#12'NoModifierCb'#21'A' +#2#3#0#0#9'TCheckBox'#16'StringModifierCb'#22'AnchorSideLeft.Control'#7#12'N'
+'nchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.Side'#7#9'asrCente' +'oModifierCb'#21'AnchorSideTop.Control'#7#11'ModStringEd'#18'AnchorSideTop.S'
+'r'#4'Left'#2#16#6'Height'#2#19#3'Top'#2'J'#5'Width'#2'a'#7'Caption'#6#15'St' +'ide'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#19#3'Top'#2'J'#5'Width'#2'a'#7
+'ring Modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9 +'Caption'#6#15'String Modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2
+'ModDateEd'#22'AnchorSideLeft.Control'#7#17'MachineModifierCb'#21'AnchorSide' +#4#0#0#5'TEdit'#9'ModDateEd'#22'AnchorSideLeft.Control'#7#17'MachineModifier'
+'Top.Control'#7#17'MachineModifierCb'#18'AnchorSideTop.Side'#7#9'asrBottom'#4 +'Cb'#21'AnchorSideTop.Control'#7#17'MachineModifierCb'#18'AnchorSideTop.Side'
+'Left'#3#146#0#6'Height'#2#23#3'Top'#2'%'#5'Width'#2'b'#17'BorderSpacing.Top' +#7#9'asrBottom'#4'Left'#3#146#0#6'Height'#2#23#3'Top'#2'%'#5'Width'#2'b'#17
+#2#12#8'OnChange'#7#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8 +'BorderSpacing.Top'#2#12#8'OnChange'#7#13'ModifierClick'#10'OnKeyPress'#7#14
+'TabOrder'#2#6#0#0#5'TEdit'#11'ModStringEd'#22'AnchorSideLeft.Control'#7#9'M' +'DateEdKeyPress'#8'TabOrder'#2#6#0#0#5'TEdit'#11'ModStringEd'#22'AnchorSideL'
+'odDateEd'#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'AnchorSideTop.Side'#7 +'eft.Control'#7#9'ModDateEd'#21'AnchorSideTop.Control'#7#9'ModDateEd'#18'Anc'
+#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.' +'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'
+'Side'#7#9'asrBottom'#4'Left'#3#146#0#6'Height'#2#23#3'Top'#2'H'#5'Width'#3 +#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#146#0#6'Height'#2#23#3'To'
+'w'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#17'BorderS' +'p'#2'H'#5'Width'#3'w'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'Aut'
+'pacing.Top'#2#12#19'BorderSpacing.Right'#2#15#8'OnChange'#7#13'ModifierClic' +'oSize'#8#17'BorderSpacing.Top'#2#12#19'BorderSpacing.Right'#2#15#8'OnChange'
+'k'#8'TabOrder'#2#8#0#0#5'TEdit'#10'ModifierEd'#22'AnchorSideLeft.Control'#7 +#7#13'ModifierClick'#8'TabOrder'#2#8#0#0#5'TEdit'#10'ModifierEd'#22'AnchorSi'
+#6'Label1'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9 +'deLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#6'Label1'#18'Anchor'
+'asrBottom'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#128#0#5'Width'#3#169#0#17'B' +'SideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#128#0#5'W'
+'orderSpacing.Top'#2#2#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7 +'idth'#3#169#0#17'BorderSpacing.Top'#2#2#8'OnChange'#7#17'ParametersChanged'
+#18'ModifierEdKeyPress'#8'TabOrder'#2#5#0#0#5'TEdit'#10'BlockKeyEd'#22'Ancho' +#10'OnKeyPress'#7#18'ModifierEdKeyPress'#8'TabOrder'#2#5#0#0#5'TEdit'#10'Blo'
+'rSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7#6'Label5'#18'Anc' +'ckKeyEd'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'#7
+'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'GenerateKe' +#6'Label5'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'
+'ySb'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#180#0#5'Width'#3#222#1#7'Anchors' +#7#13'GenerateKeySb'#4'Left'#2#16#6'Height'#2#23#3'Top'#3#180#0#5'Width'#3
+#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#2#19'BorderSpaci' +#219#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2
+'ng.Right'#2#4#20'BorderSpacing.Bottom'#2#16#8'OnChange'#7#11'InfoChanged'#8 +#2#19'BorderSpacing.Right'#2#4#20'BorderSpacing.Bottom'#2#16#8'OnChange'#7#11
+'TabOrder'#2#7#0#0#0#9'TGroupBox'#9'GroupBox2'#22'AnchorSideLeft.Control'#7#9 +'InfoChanged'#8'TabOrder'#2#7#0#0#0#9'TGroupBox'#9'GroupBox2'#22'AnchorSideL'
+'GroupBox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7 +'eft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#18'Anc'
+#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.' +'horSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox1'
+'Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'C'#3'Top'#3#131#1#5'Width'#3#28 +#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'C'#3'Top'#3
+#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpac' +#131#1#5'Width'#3#28#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoS'
+'ing.Top'#2#6#7'Caption'#6#13'Generate Code'#12'ClientHeight'#2'/'#11'Client' +'ize'#9#17'BorderSpacing.Top'#2#6#7'Caption'#6#13'Generate Code'#12'ClientHe'
+'Width'#3#24#2#8'TabOrder'#2#4#0#12'TSpeedButton'#13'RegCodeCopySb'#21'Ancho' +'ight'#2'/'#11'ClientWidth'#3#24#2#16'ParentBackground'#8#8'TabOrder'#2#4#0
+'rSideTop.Control'#7#11'GenerateBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23 +#12'TSpeedButton'#13'RegCodeCopySb'#21'AnchorSideTop.Control'#7#11'GenerateB'
+'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.Side'#7#9'asrBot' +'tn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#9'G'
+'tom'#4'Left'#3#241#1#6'Height'#2#23#4'Hint'#6#22'Copy code to clipboard'#3 +'roupBox2'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#238#1#6'Height'
+'Top'#2#7#5'Width'#2#23#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing' +#2#24#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#6#5'Width'#2#26#7'Anchor'
+'.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 +'s'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#16#10'Glyph.Data'#10
+'('#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 +'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
+#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 +#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#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#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
+#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128 +#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
+#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0 +#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
,#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0#244 ,#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0#0#0#136#136#136#132#255#255
+#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0#244 +#255#244#128#0#0#0#136#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4#255#255
+#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15'DD' +#255#244#128#0#0#0#128#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4#255#255
+#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'#136 +#255#244#128#0#0#0#128#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4#255#255
+#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136#128#0 +'OH'#128#0#0#0#128#255#255#244#255#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136
+#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0 +#128#0#0#0#128#255#255#15#8#136#136#136#128#0#0#0#128#255#255#0#136#136#136
+#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#128#0#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#128#0#0#0#7'OnClick'#7#18'RegCodeCopySbClick'#0#0#7'TButton'#11'Generat' +#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#7'OnClick'#7#18
+'eBtn'#22'AnchorSideLeft.Control'#7#9'GroupBox2'#21'AnchorSideTop.Control'#7 +'RegCodeCopySbClick'#0#0#7'TButton'#11'GenerateBtn'#22'AnchorSideLeft.Contro'
+#9'GroupBox2'#4'Left'#2#8#6'Height'#2#25#4'Hint'#6#13'Generate code'#3'Top'#2 +'l'#7#9'GroupBox2'#21'AnchorSideTop.Control'#7#9'GroupBox2'#4'Left'#2#8#6'He'
+#6#5'Width'#2'M'#18'BorderSpacing.Left'#2#8#17'BorderSpacing.Top'#2#6#20'Bor' +'ight'#2#25#4'Hint'#6#13'Generate code'#3'Top'#2#6#5'Width'#2'M'#18'BorderSp'
+'derSpacing.Bottom'#2#16#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'&G' +'acing.Left'#2#8#17'BorderSpacing.Top'#2#6#20'BorderSpacing.Bottom'#2#16#25
+'enerate'#7'Default'#9#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrder'#2#0#0#0 +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'&Generate'#7'Default'#9#7'OnC'
+#5'TEdit'#9'RegCodeEd'#22'AnchorSideLeft.Control'#7#11'GenerateBtn'#19'Ancho' +'lick'#7#16'GenerateBtnClick'#8'TabOrder'#2#0#0#0#5'TEdit'#9'RegCodeEd'#22'A'
+'rSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#11'GenerateBtn' +'nchorSideLeft.Control'#7#11'GenerateBtn'#19'AnchorSideLeft.Side'#7#9'asrBot'
+#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#13'RegC' +'tom'#21'AnchorSideTop.Control'#7#11'GenerateBtn'#18'AnchorSideTop.Side'#7#9
+'odeCopySb'#4'Left'#2'a'#6'Height'#2#23#3'Top'#2#7#5'Width'#3#140#1#7'Anchor' +'asrCenter'#23'AnchorSideRight.Control'#7#13'RegCodeCopySb'#4'Left'#2'a'#6'H'
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#12#19'Border' +'eight'#2#23#3'Top'#2#7#5'Width'#3#137#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'Spacing.Right'#2#4#20'BorderSpacing.Bottom'#2#16#8'OnChange'#7#11'InfoChang' +'akRight'#0#18'BorderSpacing.Left'#2#12#19'BorderSpacing.Right'#2#4#20'Borde'
+'ed'#8'TabOrder'#2#1#0#0#0#0 +'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 TabOrder = 2
object OpenFileSb: TSpeedButton object OpenFileSb: TSpeedButton
AnchorSideRight.Control = OpenBtn AnchorSideRight.Control = OpenBtn
Left = 329 Left = 326
Height = 23 Height = 24
Hint = 'Find key maintenance file' Hint = 'Find key maintenance file'
Top = 6 Top = 6
Width = 23 Width = 26
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 4 BorderSpacing.Right = 4
Glyph.Data = { Glyph.Data = {
@ -139,7 +139,7 @@ object KeyMaintFrm: TKeyMaintFrm
Left = 8 Left = 8
Height = 23 Height = 23
Top = 8 Top = 8
Width = 313 Width = 310
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8 BorderSpacing.Around = 8
TabOrder = 1 TabOrder = 1
@ -244,11 +244,11 @@ object KeyMaintFrm: TKeyMaintFrm
AnchorSideTop.Control = BlockKeyEd AnchorSideTop.Control = BlockKeyEd
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = KeyPasteSb AnchorSideRight.Control = KeyPasteSb
Left = 396 Left = 390
Height = 23 Height = 24
Hint = 'Copy key to clipboard' Hint = 'Copy key to clipboard'
Top = 8 Top = 7
Width = 23 Width = 26
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 4 BorderSpacing.Right = 4
Glyph.Data = { Glyph.Data = {
@ -271,11 +271,11 @@ object KeyMaintFrm: TKeyMaintFrm
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = GroupBox1 AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 423 Left = 420
Height = 23 Height = 24
Hint = 'Paste from clipboard' Hint = 'Paste from clipboard'
Top = 8 Top = 7
Width = 23 Width = 26
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Glyph.Data = { Glyph.Data = {
@ -296,11 +296,11 @@ object KeyMaintFrm: TKeyMaintFrm
object CopyByteKeySb: TSpeedButton object CopyByteKeySb: TSpeedButton
AnchorSideLeft.Control = CopyBlockKeySb AnchorSideLeft.Control = CopyBlockKeySb
AnchorSideTop.Control = BytesKeyEd AnchorSideTop.Control = BytesKeyEd
Left = 396 Left = 390
Height = 23 Height = 24
Hint = 'Copy key to clipboard' Hint = 'Copy key to clipboard'
Top = 43 Top = 43
Width = 23 Width = 26
Glyph.Data = { Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100 42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000 040000000000CC00000000000000000000000000000000000000000000000000
@ -319,11 +319,11 @@ object KeyMaintFrm: TKeyMaintFrm
object SpeedButton1: TSpeedButton object SpeedButton1: TSpeedButton
AnchorSideLeft.Control = KeyPasteSb AnchorSideLeft.Control = KeyPasteSb
AnchorSideTop.Control = BytesKeyEd AnchorSideTop.Control = BytesKeyEd
Left = 423 Left = 420
Height = 23 Height = 24
Hint = 'Paste from clipboard' Hint = 'Paste from clipboard'
Top = 43 Top = 43
Width = 23 Width = 26
Glyph.Data = { Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100 42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000 040000000000CC00000000000000000000000000000000000000000000000000
@ -346,7 +346,7 @@ object KeyMaintFrm: TKeyMaintFrm
Left = 8 Left = 8
Height = 23 Height = 23
Top = 8 Top = 8
Width = 384 Width = 378
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
@ -362,7 +362,7 @@ object KeyMaintFrm: TKeyMaintFrm
Left = 8 Left = 8
Height = 23 Height = 23
Top = 43 Top = 43
Width = 384 Width = 378
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12 BorderSpacing.Top = 12
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8

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