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

- fixed obsolete TextHeight properties from lfm resources

Browse Source 
- initial support for InvalidCount , which allow to run program even if trial rules are broken (but only exactly set count)
- IDE serial number used instead of volume serial

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@921 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
brandysb
2009-07-28 13:17:46 +00:00
parent e1c560ada7
commit eed17766fe
99 changed files with 4154 additions and 4118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,2 +1,2 @@
[Keys] [Keys]
Flamenco=$E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4 OnGuard demo=$E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4

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

@ -2,15 +2,15 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/> <Version Value="7"/>
<General> <General>
<Flags> <Flags>
<AlwaysBuild Value="False"/> <AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value=".\"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -34,42 +34,44 @@
<MinVersion Valid="True"/> <MinVersion Valid="True"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="14"> <Units Count="22">
<Unit0> <Unit0>
<Filename Value="codegen.lpr"/> <Filename Value="codegen.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="73" Y="13"/> <CursorPos X="73" Y="13"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="24"/> <UsageCount Value="26"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="codegenu.pas"/> <Filename Value="codegenu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="CodeGenFrm"/> <ComponentName Value="CodeGenFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<IsPartOfProject Value="True"/> <ResourceBaseClass Value="Form"/>
<ResourceFilename Value="codegenu.lrs"/>
<UnitName Value="CODEGENU"/> <UnitName Value="CODEGENU"/>
<CursorPos X="38" Y="49"/> <CursorPos X="59" Y="39"/>
<TopLine Value="1"/> <TopLine Value="26"/>
<UsageCount Value="24"/> <EditorIndex Value="1"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\..\source\qonguard3.pas"/> <Filename Value="..\..\source\qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/> <ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard3.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard3"/> <UnitName Value="qonguard3"/>
<CursorPos X="17" Y="169"/> <CursorPos X="15" Y="173"/>
<TopLine Value="164"/> <TopLine Value="265"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\..\source\ogconst.pas"/> <Filename Value="..\..\source\ogconst.pas"/>
<UnitName Value="ogconst"/> <UnitName Value="ogconst"/>
<CursorPos X="3" Y="62"/> <CursorPos X="3" Y="62"/>
<TopLine Value="34"/> <TopLine Value="42"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
@ -92,7 +94,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="\usr\share\fpcsrc\fcl\inc\inifiles.pp"/> <Filename Value="usr\share\fpcsrc\fcl\inc\inifiles.pp"/>
<UnitName Value="IniFiles"/> <UnitName Value="IniFiles"/>
<CursorPos X="3" Y="598"/> <CursorPos X="3" Y="598"/>
<TopLine Value="593"/> <TopLine Value="593"/>
@ -102,43 +104,43 @@
<Filename Value="..\..\source\qonguard5.pas"/> <Filename Value="..\..\source\qonguard5.pas"/>
<UnitName Value="qonguard5"/> <UnitName Value="qonguard5"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="72"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="..\..\source\qonguard2.pas"/> <Filename Value="..\..\source\qonguard2.pas"/>
<ComponentName Value="CodeGenerateFrm"/> <ComponentName Value="CodeGenerateFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard2.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard2"/> <UnitName Value="qonguard2"/>
<CursorPos X="30" Y="209"/> <CursorPos X="18" Y="425"/>
<TopLine Value="184"/> <TopLine Value="422"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<UnitName Value="onguard"/> <UnitName Value="onguard"/>
<CursorPos X="25" Y="57"/> <CursorPos X="19" Y="1186"/>
<TopLine Value="32"/> <TopLine Value="1170"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="..\..\source\qonguard1.pas"/> <Filename Value="..\..\source\qonguard1.pas"/>
<ComponentName Value="KeyGenerateFrm"/> <ComponentName Value="KeyGenerateFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard1.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard1"/> <UnitName Value="qonguard1"/>
<CursorPos X="18" Y="9"/> <CursorPos X="56" Y="7"/>
<TopLine Value="1"/> <TopLine Value="76"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="..\..\source\qonguard4.pas"/> <Filename Value="..\..\source\qonguard4.pas"/>
<ComponentName Value="EditProductFrm"/> <ComponentName Value="EditProductFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard4.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard4"/> <UnitName Value="qonguard4"/>
<CursorPos X="17" Y="36"/> <CursorPos X="20" Y="37"/>
<TopLine Value="31"/> <TopLine Value="31"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit12> </Unit12>
@ -149,11 +151,72 @@
<TopLine Value="714"/> <TopLine Value="714"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit13> </Unit13>
<Unit14>
<Filename Value="codegenu.lfm"/>
<CursorPos X="18" Y="12"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit14>
<Unit15>
<Filename Value="..\..\source\qogabout0.pas"/>
<ComponentName Value="OgAboutForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qogabout0"/>
<CursorPos X="42" Y="25"/>
<TopLine Value="12"/>
<UsageCount Value="10"/>
</Unit15>
<Unit16>
<Filename Value="..\..\source\qogabout0.lfm"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit16>
<Unit17>
<Filename Value="..\..\source\qonguard6.pas"/>
<ComponentName Value="ModifierFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard6"/>
<CursorPos X="50" Y="7"/>
<TopLine Value="75"/>
<UsageCount Value="10"/>
</Unit17>
<Unit18>
<Filename Value="..\..\source\qonguard6.lfm"/>
<CursorPos X="28" Y="13"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit18>
<Unit19>
<Filename Value="..\..\source\qonguard7.pas"/>
<UnitName Value="qonguard7"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="72"/>
<UsageCount Value="10"/>
</Unit19>
<Unit20>
<Filename Value="..\..\source\idesn.pas"/>
<UnitName Value="idesn"/>
<CursorPos X="1" Y="23"/>
<TopLine Value="37"/>
<UsageCount Value="11"/>
</Unit20>
<Unit21>
<Filename Value="..\..\..\..\..\..\temp\fpc\rtl\inc\systemh.inc"/>
<CursorPos X="11" Y="571"/>
<TopLine Value="556"/>
<UsageCount Value="11"/>
</Unit21>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
@ -167,12 +230,13 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Options>
<UseHeaptrc Value="True"/> <Win32>
</Debugging> <GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
@ -189,8 +253,8 @@
<Line Value="212"/> <Line Value="212"/>
</Item2> </Item2>
<Item3> <Item3>
<Source Value="..\..\source\qonguard3.pas"/> <Source Value="..\..\source\qonguard2.pas"/>
<Line Value="186"/> <Line Value="236"/>
</Item3> </Item3>
</BreakPoints> </BreakPoints>
<Watches Count="1"> <Watches Count="1">

56
components/onguard/examples/codegen/codegenu.lfm
View File

@ -1,4 +1,8 @@
object CodeGenFrm: TCodeGenFrm object CodeGenFrm: TCodeGenFrm
Left = 315
Height = 85
Top = 230
Width = 273
ActiveControl = GenerateBtn ActiveControl = GenerateBtn
Caption = 'Example Code Generator' Caption = 'Example Code Generator'
ClientHeight = 85 ClientHeight = 85
@ -7,19 +11,15 @@ object CodeGenFrm: TCodeGenFrm
Font.Height = 11 Font.Height = 11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable Font.Pitch = fpVariable
PixelsPerInch = 96
Position = poScreenCenter Position = poScreenCenter
ShowHint = True ShowHint = True
TextHeight = 18 LCLVersion = '0.9.27'
HorzScrollBar.Page = 272
HorzScrollBar.Range = 267
VertScrollBar.Page = 84
VertScrollBar.Range = 76
Left = 315
Height = 85
Top = 230
Width = 273
object CopySb: TSpeedButton object CopySb: TSpeedButton
Left = 244
Height = 22
Hint = 'Copy code to clipboard'
Top = 21
Width = 23
Color = clBtnFace Color = clBtnFace
Glyph.Data = { Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100 42010000424D4201000000000000760000002800000011000000110000000100
@ -36,54 +36,48 @@ object CodeGenFrm: TCodeGenFrm
} }
NumGlyphs = 0 NumGlyphs = 0
OnClick = CopySbClick OnClick = CopySbClick
Left = 244
Height = 22
Hint = 'Copy code to clipboard'
Top = 21
Width = 23
end end
object Label2: TLabel object Label2: TLabel
Caption = 'Code'
Color = clNone
FocusControl = CodeEd
ParentColor = False
Left = 8 Left = 8
Height = 14 Height = 14
Top = 3 Top = 3
Width = 26 Width = 26
Caption = 'Code'
FocusControl = CodeEd
ParentColor = False
end end
object GenerateBtn: TButton object GenerateBtn: TButton
BorderSpacing.InnerBorder = 4
Caption = 'Generate Code'
OnClick = GenerateBtnClick
TabOrder = 0
Left = 8 Left = 8
Height = 25 Height = 25
Hint = 'Display code generation dialog' Hint = 'Display code generation dialog'
Top = 51 Top = 51
Width = 105 Width = 105
BorderSpacing.InnerBorder = 4
Caption = 'Generate Code'
OnClick = GenerateBtnClick
TabOrder = 0
end end
object CodeEd: TEdit object CodeEd: TEdit
ReadOnly = True
TabOrder = 1
Left = 8 Left = 8
Height = 24 Height = 23
Top = 19 Top = 19
Width = 233 Width = 233
ReadOnly = True
TabOrder = 1
end end
object CloseBtn: TBitBtn object CloseBtn: TBitBtn
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
Left = 192 Left = 192
Height = 25 Height = 25
Top = 51 Top = 51
Width = 75 Width = 75
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
end end
object OgMakeCodes1: TOgMakeCodes object OgMakeCodes1: TOgMakeCodes
KeyFileName = 'ONGUARD.INI' KeyFileName = 'ONGUARD.INI'
ShowHints = True ShowHints = True
left = 56 left = 64
top = 152 top = 56
end end
end end

64
components/onguard/examples/codegen/codegenu.lrs
View File

@ -1,37 +1,35 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasob�w lazarusa }
LazarusResources.Add('TCodeGenFrm','FORMDATA',[ LazarusResources.Add('TCodeGenFrm','FORMDATA',[
'TPF0'#11'TCodeGenFrm'#10'CodeGenFrm'#13'ActiveControl'#7#11'GenerateBtn'#7'C' 'TPF0'#11'TCodeGenFrm'#10'CodeGenFrm'#4'Left'#3';'#1#6'Height'#2'U'#3'Top'#3
+'aption'#6#22'Example Code Generator'#12'ClientHeight'#2'U'#11'ClientWidth'#3 +#230#0#5'Width'#3#17#1#13'ActiveControl'#7#11'GenerateBtn'#7'Caption'#6#22'E'
+#17#1#10'Font.Color'#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS S' +'xample Code Generator'#12'ClientHeight'#2'U'#11'ClientWidth'#3#17#1#10'Font'
+'ans Serif'#10'Font.Pitch'#7#10'fpVariable'#13'PixelsPerInch'#2'`'#8'Positio' +'.Color'#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10
+'n'#7#14'poScreenCenter'#8'ShowHint'#9#10'TextHeight'#2#18#18'HorzScrollBar.' +'Font.Pitch'#7#10'fpVariable'#8'Position'#7#14'poScreenCenter'#8'ShowHint'#9
+'Page'#3#16#1#19'HorzScrollBar.Range'#3#11#1#18'VertScrollBar.Page'#2'T'#19 +#10'LCLVersion'#6#6'0.9.27'#0#12'TSpeedButton'#6'CopySb'#4'Left'#3#244#0#6'H'
+'VertScrollBar.Range'#2'L'#4'Left'#3';'#1#6'Height'#2'U'#3'Top'#3#230#0#5'Wi' +'eight'#2#22#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#21#5'Width'#2#23#5
+'dth'#3#17#1#0#12'TSpeedButton'#6'CopySb'#5'Color'#7#9'clBtnFace'#10'Glyph.D' +'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0
+'ata'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0 +'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0
+#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0
+#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0 +#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255
+#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255 +#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136
+#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136 +#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132
+#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0#0#0#136#136#136#132 +'DDDD'#128#0#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132
+#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4 +#240#0#0#244#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244
+#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4 +#240#0#0#244#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244
+#255#255#255#244#128#0#0#0#128#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4 +#240#15'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255
+#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'#136#128#0#0#0#128#240#15#4 +#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136
+'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136#128#0#0#0#128#255#255#0#136 +#136#136#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#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#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136
+#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9'NumGl' +#136#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#11'CopySbClick'#0#0
+'yphs'#2#0#7'OnClick'#7#11'CopySbClick'#4'Left'#3#244#0#6'Height'#2#22#4'Hin' +#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#3#5'Width'#2#26#7'C'
+'t'#6#22'Copy code to clipboard'#3'Top'#2#21#5'Width'#2#23#0#0#6'TLabel'#6'L' +'aption'#6#4'Code'#12'FocusControl'#7#6'CodeEd'#11'ParentColor'#8#0#0#7'TBut'
+'abel2'#7'Caption'#6#4'Code'#5'Color'#7#6'clNone'#12'FocusControl'#7#6'CodeE' +'ton'#11'GenerateBtn'#4'Left'#2#8#6'Height'#2#25#4'Hint'#6#30'Display code g'
+'d'#11'ParentColor'#8#4'Left'#2#8#6'Height'#2#14#3'Top'#2#3#5'Width'#2#26#0#0 +'eneration dialog'#3'Top'#2'3'#5'Width'#2'i'#25'BorderSpacing.InnerBorder'#2
+#7'TButton'#11'GenerateBtn'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13 +#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrd'
+'Generate Code'#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrder'#2#0#4'Left'#2#8 +'er'#2#0#0#0#5'TEdit'#6'CodeEd'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#19#5'Wid'
+#6'Height'#2#25#4'Hint'#6#30'Display code generation dialog'#3'Top'#2'3'#5'W' +'th'#3#233#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'
+'idth'#2'i'#0#0#5'TEdit'#6'CodeEd'#8'ReadOnly'#9#8'TabOrder'#2#1#4'Left'#2#8 +#3#192#0#6'Height'#2#25#3'Top'#2'3'#5'Width'#2'K'#4'Kind'#7#7'bkClose'#9'Num'
+#6'Height'#2#24#3'Top'#2#19#5'Width'#3#233#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Ki' +'Glyphs'#2#0#8'TabOrder'#2#2#0#0#12'TOgMakeCodes'#12'OgMakeCodes1'#11'KeyFil'
+'nd'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#4'Left'#3#192#0#6'Height' +'eName'#6#11'ONGUARD.INI'#9'ShowHints'#9#4'left'#2'@'#3'top'#2'8'#0#0#0
+#2#25#3'Top'#2'3'#5'Width'#2'K'#0#0#12'TOgMakeCodes'#12'OgMakeCodes1'#11'Key'
+'FileName'#6#11'ONGUARD.INI'#9'ShowHints'#9#4'left'#2'8'#3'top'#3#152#0#0#0#0
]); ]);

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

@ -2,15 +2,15 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/> <Version Value="7"/>
<General> <General>
<Flags> <Flags>
<AlwaysBuild Value="False"/> <AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value=".\"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="2"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -31,65 +31,65 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="9"> <Units Count="14">
<Unit0> <Unit0>
<Filename Value="exdmod.lpr"/> <Filename Value="exdmod.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="53" Y="8"/> <CursorPos X="76" Y="14"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="25"/> <UsageCount Value="26"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="exdmodu1.pas"/> <Filename Value="exdmodu1.pas"/>
<ComponentName Value="Form1"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmMain"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exdmodu2.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exdmodu1"/> <UnitName Value="Exdmodu1"/>
<CursorPos X="1" Y="84"/> <CursorPos X="3" Y="212"/>
<TopLine Value="82"/> <TopLine Value="206"/>
<EditorIndex Value="2"/> <EditorIndex Value="1"/>
<UsageCount Value="12"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="exdmodu2.pas"/> <Filename Value="exdmodu2.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="SNEntryDlg"/> <ComponentName Value="SNEntryDlg"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exdmodu2.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exdmodu2"/> <UnitName Value="Exdmodu2"/>
<CursorPos X="26" Y="10"/> <CursorPos X="67" Y="49"/>
<TopLine Value="1"/> <TopLine Value="19"/>
<EditorIndex Value="1"/> <EditorIndex Value="4"/>
<UsageCount Value="12"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<UnitName Value="onguard"/> <UnitName Value="onguard"/>
<CursorPos X="1" Y="1369"/> <CursorPos X="1" Y="2088"/>
<TopLine Value="1355"/> <TopLine Value="2067"/>
<EditorIndex Value="3"/> <EditorIndex Value="2"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\..\source\ogutil.pas"/> <Filename Value="..\..\source\ogutil.pas"/>
<UnitName Value="ogutil"/> <UnitName Value="ogutil"/>
<CursorPos X="1" Y="875"/> <CursorPos X="1" Y="522"/>
<TopLine Value="858"/> <TopLine Value="495"/>
<EditorIndex Value="4"/> <EditorIndex Value="3"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\..\source\onguard.inc"/> <Filename Value="..\..\source\onguard.inc"/>
<CursorPos X="51" Y="35"/> <CursorPos X="1" Y="67"/>
<TopLine Value="6"/> <TopLine Value="47"/>
<EditorIndex Value="5"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="usr\share\fpcsrc\rtl\inc\systemh.inc"/> <Filename Value="usr\share\fpcsrc\rtl\inc\systemh.inc"/>
@ -109,20 +109,178 @@
<TopLine Value="346"/> <TopLine Value="346"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit8> </Unit8>
<Unit9>
<Filename Value="exdmodu2.lfm"/>
<CursorPos X="28" Y="11"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit9>
<Unit10>
<Filename Value="exdmodu1.lfm"/>
<CursorPos X="28" Y="11"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit10>
<Unit11>
<Filename Value="..\..\source\qonguard2.pas"/>
<ComponentName Value="CodeGenerateFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard2"/>
<CursorPos X="17" Y="11"/>
<TopLine Value="61"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<Filename Value="..\..\source\qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard3"/>
<CursorPos X="13" Y="4"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="..\..\source\qonguard6.pas"/>
<ComponentName Value="ModifierFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard6"/>
<CursorPos X="49" Y="61"/>
<TopLine Value="42"/>
<UsageCount Value="10"/>
</Unit13>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
</Position1>
<Position2>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="509" Column="1" TopLine="488"/>
</Position2>
<Position3>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
</Position3>
<Position4>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="509" Column="1" TopLine="488"/>
</Position4>
<Position5>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
</Position5>
<Position6>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="509" Column="1" TopLine="488"/>
</Position6>
<Position7>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
</Position7>
<Position8>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="509" Column="1" TopLine="488"/>
</Position8>
<Position9>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
</Position9>
<Position10>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="512" Column="1" TopLine="491"/>
</Position10>
<Position11>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="515" Column="1" TopLine="494"/>
</Position11>
<Position12>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="516" Column="1" TopLine="495"/>
</Position12>
<Position13>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="522" Column="1" TopLine="495"/>
</Position13>
<Position14>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="517" Column="1" TopLine="496"/>
</Position14>
<Position15>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="516" Column="1" TopLine="495"/>
</Position15>
<Position16>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="522" Column="1" TopLine="495"/>
</Position16>
<Position17>
<Filename Value="exdmodu1.pas"/>
<Caret Line="176" Column="1" TopLine="155"/>
</Position17>
<Position18>
<Filename Value="exdmodu1.pas"/>
<Caret Line="177" Column="1" TopLine="156"/>
</Position18>
<Position19>
<Filename Value="exdmodu1.pas"/>
<Caret Line="179" Column="1" TopLine="158"/>
</Position19>
<Position20>
<Filename Value="exdmodu1.pas"/>
<Caret Line="167" Column="37" TopLine="160"/>
</Position20>
<Position21>
<Filename Value="exdmodu1.pas"/>
<Caret Line="182" Column="1" TopLine="161"/>
</Position21>
<Position22>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1179" Column="1" TopLine="1158"/>
</Position22>
<Position23>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1180" Column="1" TopLine="1159"/>
</Position23>
<Position24>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1181" Column="1" TopLine="1160"/>
</Position24>
<Position25>
<Filename Value="exdmodu1.pas"/>
<Caret Line="184" Column="1" TopLine="163"/>
</Position25>
<Position26>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2085" Column="1" TopLine="2064"/>
</Position26>
<Position27>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2086" Column="1" TopLine="2065"/>
</Position27>
<Position28>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2087" Column="40" TopLine="2066"/>
</Position28>
<Position29>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2088" Column="1" TopLine="2067"/>
</Position29>
<Position30>
<Filename Value="exdmodu1.pas"/>
<Caret Line="188" Column="1" TopLine="137"/>
</Position30>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking> <Linking>
<Debugging>
<UseLineInfoUnit Value="False"/>
<StripSymbols Value="True"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>
@ -134,15 +292,11 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="2"> <BreakPoints Count="1">
<Item1> <Item1>
<Source Value="exdmodu1.pas"/> <Source Value="exdmodu1.pas"/>
<Line Value="220"/> <Line Value="176"/>
</Item1> </Item1>
<Item2>
<Source Value="exdmodu1.pas"/>
<Line Value="84"/>
</Item2>
</BreakPoints> </BreakPoints>
<Exceptions Count="2"> <Exceptions Count="2">
<Item1> <Item1>

4
components/onguard/examples/exdmod/exdmod.lpr
View File

@ -5,10 +5,10 @@ uses
Interfaces, Interfaces,
Forms, Forms,
Exdmodu1 in 'EXDMODU1.PAS' {Form1}, Exdmodu1 in 'EXDMODU1.PAS' {Form1},
Exdmodu2 in 'EXDMODU2.PAS' {SNEntryDlg}, tponguard; Exdmodu2 in 'EXDMODU2.PAS' {SNEntryDlg};
begin begin
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1); Application.CreateForm(TfrmMain, frmMain);
Application.Run; Application.Run;
end. end.

42
components/onguard/examples/exdmod/exdmodu1.lfm
View File

@ -1,4 +1,8 @@
object Form1: TForm1 object frmMain: TfrmMain
Left = 372
Height = 186
Top = 223
Width = 240
ActiveControl = Memo1 ActiveControl = Memo1
Caption = 'Serial Number Example' Caption = 'Serial Number Example'
ClientHeight = 186 ClientHeight = 186
@ -7,52 +11,44 @@ object Form1: TForm1
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnActivate = FormActivate OnActivate = FormActivate
PixelsPerInch = 83
Position = poScreenCenter Position = poScreenCenter
TextHeight = 13 LCLVersion = '0.9.27'
HorzScrollBar.Page = 239
VertScrollBar.Page = 185
Left = 372
Height = 186
Top = 223
Width = 240
object Label1: TLabel object Label1: TLabel
Left = 38
Height = 14
Top = 96
Width = 43
Alignment = taCenter Alignment = taCenter
Caption = 'Serial #: ' Caption = 'Serial #: '
Color = clNone
ParentColor = False ParentColor = False
Left = 38
Height = 13
Top = 96
Width = 51
end end
object Memo1: TMemo object Memo1: TMemo
Left = 3
Height = 79
Top = 4
Width = 223
Lines.Strings = ( Lines.Strings = (
'If you can edit this, then your program was ' 'If you can edit this, then your program was '
'allowed to run' 'allowed to run'
) )
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
Left = 3
Height = 79
Top = 4
Width = 223
end end
object CloseBtn: TBitBtn object CloseBtn: TBitBtn
Kind = bkClose
NumGlyphs = 0
TabOrder = 1
Left = 72 Left = 72
Height = 33 Height = 33
Top = 114 Top = 114
Width = 89 Width = 89
Kind = bkClose
NumGlyphs = 0
TabOrder = 1
end end
object OgSerialNumberCode1: TOgSerialNumberCode object OgSerialNumberCode1: TOgSerialNumberCode
OnChecked = OgSerialNumberCode1Checked OnChecked = OgSerialNumberCode1Checked
OnGetKey = OgSerialNumberCode1GetKey OnGetKey = OgSerialNumberCode1GetKey
OnGetCode = OgSerialNumberCode1GetCode OnGetCode = OgSerialNumberCode1GetCode
OnGetModifier = OgSerialNumberCode1GetModifier OnGetModifier = OgSerialNumberCode1GetModifier
left = 172 left = 184
top = 88 top = 96
end end
end end

37
components/onguard/examples/exdmod/exdmodu1.lrs
View File

@ -1,21 +1,20 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasobów lazarusa }
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TfrmMain','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial' 'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3't'#1#6'Height'#3#186#0#3'Top'#3#223#0
+' Number Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10'Font.C' +#5'Width'#3#240#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial Number'
+'olor'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#13 +' Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10'Font.Color'#7
+'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10'TextHeight'#2#13#18 +#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActi'
+'HorzScrollBar.Page'#3#239#0#18'VertScrollBar.Page'#3#185#0#4'Left'#3't'#1#6 +'vate'#7#12'FormActivate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6
+'Height'#3#186#0#3'Top'#3#223#0#5'Width'#3#240#0#0#6'TLabel'#6'Label1'#9'Ali' +'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2'&'#6'Height'#2#14#3'Top'#2'`'#5'Wid'
+'gnment'#7#8'taCenter'#7'Caption'#6#10'Serial #: '#5'Color'#7#6'clNone'#11'P' +'th'#2'+'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10'Serial #: '#11'ParentCo'
+'arentColor'#8#4'Left'#2'&'#6'Height'#2#14#3'Top'#2'`'#5'Width'#2'-'#0#0#5'T' +'lor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#3#6'Height'#2'O'#3'Top'#2#4#5'Width'
+'Memo'#5'Memo1'#13'Lines.Strings'#1#6',If you can edit this, then your progr' +#3#223#0#13'Lines.Strings'#1#6',If you can edit this, then your program was '
+'am was '#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder' +#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7
+#2#0#4'Left'#2#3#6'Height'#2'O'#3'Top'#2#4#5'Width'#3#223#0#0#0#7'TBitBtn'#8 +'TBitBtn'#8'CloseBtn'#4'Left'#2'H'#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'#4
+'CloseBtn'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#4'Left'#2'H' +'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgSerialNumberC'
+#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'#0#0#19'TOgSerialNumberCode'#19'OgS' +'ode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8
+'erialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8'OnGetKey' +'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberC'
+#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberCode1GetCod' +'ode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModifier'#4'left'
+'e'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModifier'#4'left'#3#172#0#3 +#3#184#0#3'top'#2'`'#0#0#0
+'top'#2'X'#0#0#0
]); ]);

24
components/onguard/examples/exdmod/exdmodu1.pas
View File

@ -26,7 +26,7 @@ interface
uses uses
SysUtils,Classes,Controls, SysUtils,Classes,Controls,
Forms, Dialogs, StdCtrls, Buttons,LResources, Forms, Dialogs, StdCtrls, Buttons,
OgUtil,OnGuard,IniFiles; OgUtil,OnGuard,IniFiles;
const const
@ -35,9 +35,9 @@ const
type type
{ TForm1 } { TfrmMain }
TForm1 = class(TForm) TfrmMain = class(TForm)
Memo1: TMemo; Memo1: TMemo;
CloseBtn: TBitBtn; CloseBtn: TBitBtn;
Label1: TLabel; Label1: TLabel;
@ -62,24 +62,24 @@ type
end; end;
var var
Form1: TForm1; frmMain: TfrmMain;
implementation implementation
uses uses
Exdmodu2; LResources,Exdmodu2;
{=======================================================================} {=======================================================================}
procedure TForm1.OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey); procedure TfrmMain.OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
begin begin
Key := CKey; Key := CKey;
end; end;
procedure TForm1.FormActivate(Sender: TObject); procedure TfrmMain.FormActivate(Sender: TObject);
begin begin
if FExpired then Application.Terminate; if FExpired then Application.Terminate;
end; end;
@ -88,7 +88,7 @@ end;
{=======================================================================} {=======================================================================}
procedure TForm1.OgSerialNumberCode1GetModifier(Sender: TObject; procedure TfrmMain.OgSerialNumberCode1GetModifier(Sender: TObject;
var Value: Longint); var Value: Longint);
begin begin
{Generate the value unique to this machine} {Generate the value unique to this machine}
@ -98,7 +98,7 @@ end;
{=======================================================================} {=======================================================================}
procedure TForm1.OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode); procedure TfrmMain.OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode);
var var
S1 : string; S1 : string;
L : integer; L : integer;
@ -149,7 +149,7 @@ end;
{=======================================================================} {=======================================================================}
function TForm1.GetSNData(var S : string) : integer; function TfrmMain.GetSNData(var S : string) : integer;
{method used to ask for user input of serial number and release code} {method used to ask for user input of serial number and release code}
var var
TC : TCode; TC : TCode;
@ -203,7 +203,7 @@ end;
{=======================================================================} {=======================================================================}
procedure TForm1.OgSerialNumberCode1Checked(Sender: TObject; procedure TfrmMain.OgSerialNumberCode1Checked(Sender: TObject;
Status: TCodeStatus); Status: TCodeStatus);
var var
LI : longint; LI : longint;
@ -244,7 +244,7 @@ begin
end; end;
initialization initialization
{$i exdmodu2.lrs} {$i exdmodu1.lrs}
end. end.

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

@ -1,4 +1,8 @@
object SNEntryDlg: TSNEntryDlg object SNEntryDlg: TSNEntryDlg
Left = 406
Height = 195
Top = 376
Width = 247
ActiveControl = SNText ActiveControl = SNText
Caption = 'Serial Number w/Modifer' Caption = 'Serial Number w/Modifer'
ClientHeight = 195 ClientHeight = 195
@ -7,91 +11,81 @@ object SNEntryDlg: TSNEntryDlg
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
PixelsPerInch = 83
Position = poScreenCenter Position = poScreenCenter
TextHeight = 13 LCLVersion = '0.9.27'
HorzScrollBar.Page = 246
VertScrollBar.Page = 194
Left = 406
Height = 195
Top = 376
Width = 247
object Label1: TLabel object Label1: TLabel
Caption = 'SN'
Color = clNone
ParentColor = False
Left = 8 Left = 8
Height = 13 Height = 14
Top = 64 Top = 64
Width = 18 Width = 16
Caption = 'SN'
ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Caption = 'Code'
Color = clNone
ParentColor = False
Left = 8 Left = 8
Height = 13 Height = 14
Top = 90 Top = 90
Width = 31 Width = 26
Caption = 'Code'
ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Caption = 'Call your Vendor NOW to register!'
Color = clNone
ParentColor = False
Left = 40 Left = 40
Height = 13 Height = 14
Top = 7 Top = 7
Width = 193 Width = 160
Caption = 'Call your Vendor NOW to register!'
ParentColor = False
end end
object Label4: TLabel object Label4: TLabel
Caption = 'Modifier'
Color = clNone
ParentColor = False
Left = 8 Left = 8
Height = 13 Height = 14
Top = 37 Top = 37
Width = 46 Width = 38
Caption = 'Modifier'
ParentColor = False
end end
object SNText: TEdit object SNText: TEdit
TabOrder = 1
Left = 52 Left = 52
Height = 20 Height = 23
Top = 60 Top = 60
Width = 121 Width = 121
TabOrder = 1
end end
object CodeText: TEdit object CodeText: TEdit
TabOrder = 2
Left = 52 Left = 52
Height = 20 Height = 23
Top = 86 Top = 86
Width = 175 Width = 175
TabOrder = 2
end end
object OKBtn: TBitBtn object OKBtn: TBitBtn
Kind = bkOK
NumGlyphs = 0
TabOrder = 3
Left = 23 Left = 23
Height = 33 Height = 33
Top = 118 Top = 118
Width = 89 Width = 89
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 3
end end
object CancelBtn: TBitBtn object CancelBtn: TBitBtn
Kind = bkCancel
NumGlyphs = 0
OnClick = CancelBtnClick
TabOrder = 4
Left = 127 Left = 127
Height = 33 Height = 33
Top = 118 Top = 118
Width = 89 Width = 89
Kind = bkCancel
NumGlyphs = 0
OnClick = CancelBtnClick
TabOrder = 4
end end
object ModString: TEdit object ModString: TEdit
Left = 52
Height = 23
Top = 33
Width = 121
ReadOnly = True ReadOnly = True
TabStop = False TabStop = False
TabOrder = 0 TabOrder = 0
Left = 52
Height = 20
Top = 33
Width = 121
end end
end end

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

@ -1,46 +1,25 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasobów lazarusa }
LazarusResources.Add('TSNEntryDlg','FORMDATA',[ LazarusResources.Add('TSNEntryDlg','FORMDATA',[
'TPF0'#11'TSNEntryDlg'#10'SNEntryDlg'#13'ActiveControl'#7#6'SNText'#7'Caption' 'TPF0'#11'TSNEntryDlg'#10'SNEntryDlg'#4'Left'#3#150#1#6'Height'#3#195#0#3'Top'
+#6#23'Serial Number w/Modifer'#12'ClientHeight'#3#195#0#11'ClientWidth'#3#247 +#3'x'#1#5'Width'#3#247#0#13'ActiveControl'#7#6'SNText'#7'Caption'#6#23'Seria'
+#0#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sa' +'l Number w/Modifer'#12'ClientHeight'#3#195#0#11'ClientWidth'#3#247#0#10'Fon'
+'ns Serif'#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'S'#8'Position'#7 +'t.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'
+#14'poScreenCenter'#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#246#0#18'Ve' +#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'
+'rtScrollBar.Page'#3#194#0#4'Left'#3#150#1#6'Height'#3#195#0#3'Top'#3'x'#1#5 +#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'@'#5
+'Width'#3#247#0#0#6'TLabel'#6'Label1'#7'Caption'#6#2'SN'#5'Color'#7#6'clNone' +'Width'#2#16#7'Caption'#6#2'SN'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4
+#11'ParentColor'#8#4'Left'#2#8#6'Height'#2#13#3'Top'#2'@'#5'Width'#2#18#0#0#6 +'Left'#2#8#6'Height'#2#14#3'Top'#2'Z'#5'Width'#2#26#7'Caption'#6#4'Code'#11
+'TLabel'#6'Label2'#7'Caption'#6#4'Code'#5'Color'#7#6'clNone'#11'ParentColor' +'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'('#6'Height'#2#14#3'Top'#2
+#8#4'Left'#2#8#6'Height'#2#13#3'Top'#2'Z'#5'Width'#2#31#0#0#6'TLabel'#6'Labe' +#7#5'Width'#3#160#0#7'Caption'#6'!Call your Vendor NOW to register!'#11'Pare'
+'l3'#7'Caption'#6'!Call your Vendor NOW to register!'#5'Color'#7#6'clNone'#11 +'ntColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'%'#5
+'ParentColor'#8#4'Left'#2'('#6'Height'#2#13#3'Top'#2#7#5'Width'#3#193#0#0#0#6 +'Width'#2'&'#7'Caption'#6#8'Modifier'#11'ParentColor'#8#0#0#5'TEdit'#6'SNTex'
+'TLabel'#6'Label4'#7'Caption'#6#8'Modifier'#5'Color'#7#6'clNone'#11'ParentCo' +'t'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'<'#5'Width'#2'y'#8'TabOrder'#2#1#0#0
+'lor'#8#4'Left'#2#8#6'Height'#2#13#3'Top'#2'%'#5'Width'#2'.'#0#0#5'TEdit'#6 +#5'TEdit'#8'CodeText'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'V'#5'Width'#3#175
+'SNText'#8'TabOrder'#2#1#4'Left'#2'4'#6'Height'#2#20#3'Top'#2'<'#5'Width'#2 +#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#5'OKBtn'#4'Left'#2#23#6'Height'#2'!'#3'Top'
+'y'#0#0#5'TEdit'#8'CodeText'#8'TabOrder'#2#2#4'Left'#2'4'#6'Height'#2#20#3'T' +#2'v'#5'Width'#2'Y'#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8
+'op'#2'V'#5'Width'#3#175#0#0#0#7'TBitBtn'#5'OKBtn'#4'Kind'#7#4'bkOK'#9'NumGl' +'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#2''#6'Height'#2'!'#3'Top'
+'yphs'#2#0#8'TabOrder'#2#3#4'Left'#2#23#6'Height'#2'!'#3'Top'#2'v'#5'Width'#2 +#2'v'#5'Width'#2'Y'#4'Kind'#7#8'bkCancel'#9'NumGlyphs'#2#0#7'OnClick'#7#14'C'
+'Y'#0#0#7'TBitBtn'#9'CancelBtn'#4'Kind'#7#8'bkCancel'#9'NumGlyphs'#2#0#7'OnC' +'ancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#4'Left'#2'4'#6'Hei'
+'lick'#7#14'CancelBtnClick'#8'TabOrder'#2#4#4'Left'#2''#6'Height'#2'!'#3'To' +'ght'#2#23#3'Top'#2'!'#5'Width'#2'y'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2
+'p'#2'v'#5'Width'#2'Y'#0#0#5'TEdit'#9'ModString'#8'ReadOnly'#9#7'TabStop'#8#8 +#0#0#0#0
+'TabOrder'#2#0#4'Left'#2'4'#6'Height'#2#20#3'Top'#2'!'#5'Width'#2'y'#0#0#0
]);
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial'
+' Number Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10'Font.C'
+'olor'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10
+'OnActivate'#7#12'FormActivate'#13'PixelsPerInch'#2'S'#8'Position'#7#14'poSc'
+'reenCenter'#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#239#0#18'VertScrol'
+'lBar.Page'#3#185#0#4'Left'#3't'#1#6'Height'#3#186#0#3'Top'#3#223#0#5'Width'
+#3#240#0#0#6'TLabel'#6'Label1'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10'Se'
+'rial #: '#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'&'#6'Height'#2#13
+#3'Top'#2'`'#5'Width'#2'3'#0#0#5'TMemo'#5'Memo1'#13'Lines.Strings'#1#6',If y'
+'ou can edit this, then your program was '#6#14'allowed to run'#0#10'ScrollB'
+'ars'#7#10'ssVertical'#8'TabOrder'#2#0#4'Left'#2#3#6'Height'#2'O'#3'Top'#2#4
+#5'Width'#3#223#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Kind'#7#7'bkClose'#9'NumGlyph'
+'s'#2#0#8'TabOrder'#2#1#4'Left'#2'H'#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'
+#0#0#19'TOgSerialNumberCode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSer'
+'ialNumberCode1Checked'#8'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetC'
+'ode'#7#26'OgSerialNumberCode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumber'
+'Code1GetModifier'#4'left'#3#172#0#3'top'#2'X'#0#0#0
]); ]);

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

@ -7,6 +7,9 @@ uses
Forms, Dialogs, StdCtrls, Buttons,LResources; Forms, Dialogs, StdCtrls, Buttons,LResources;
type type
{ TSNEntryDlg }
TSNEntryDlg = class(TForm) TSNEntryDlg = class(TForm)
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;

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

@ -2,10 +2,12 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/> <Version Value="7"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value=".\"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -22,133 +24,106 @@
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="tponguard"/> <PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="13"> <Units Count="3">
<Unit0> <Unit0>
<Filename Value="exdtp21.lpr"/> <Filename Value="exdtp21.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="9" Y="7"/> <CursorPos X="44" Y="9"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="21"/> <UsageCount Value="837"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="exdtp21u.pas"/> <Filename Value="exdtp21u.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exdtp21u.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exdtp21u"/> <UnitName Value="Exdtp21u"/>
<CursorPos X="1" Y="75"/> <CursorPos X="63" Y="113"/>
<TopLine Value="67"/> <TopLine Value="72"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="836"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\..\source\qogabout0.pas"/>
<ComponentName Value="OgAboutForm"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qogabout0.lrs"/>
<UnitName Value="qogabout0"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="..\..\source\qonguard1.pas"/>
<ComponentName Value="KeyGenerateFrm"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard1.lrs"/>
<UnitName Value="qonguard1"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="..\..\source\qonguard2.pas"/>
<ComponentName Value="CodeGenerateFrm"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard2.lrs"/>
<UnitName Value="qonguard2"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="..\..\source\qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard3.lrs"/>
<UnitName Value="qonguard3"/>
<CursorPos X="4" Y="112"/>
<TopLine Value="108"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="..\..\source\qonguard4.pas"/>
<ComponentName Value="EditProductFrm"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard4.lrs"/>
<UnitName Value="qonguard4"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="..\..\source\qonguard5.pas"/>
<UnitName Value="qonguard5"/>
<CursorPos X="73" Y="79"/>
<TopLine Value="64"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="..\..\source\qonguard6.pas"/>
<ComponentName Value="ModifierFrm"/>
<HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard6.lrs"/>
<UnitName Value="qonguard6"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="..\..\source\qonguard7.pas"/>
<UnitName Value="qonguard7"/>
<CursorPos X="16" Y="35"/>
<TopLine Value="67"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<Filename Value="..\..\source\ogconst.pas"/>
<UnitName Value="ogconst"/>
<CursorPos X="16" Y="35"/>
<TopLine Value="18"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="..\..\source\onguard.pas"/> <Filename Value="..\..\source\onguard.pas"/>
<UnitName Value="onguard"/> <UnitName Value="onguard"/>
<CursorPos X="26" Y="1396"/> <CursorPos X="41" Y="1207"/>
<TopLine Value="1377"/> <TopLine Value="1199"/>
<UsageCount Value="10"/> <EditorIndex Value="2"/>
</Unit11> <UsageCount Value="418"/>
<Unit12> <Loaded Value="True"/>
<Filename Value="..\..\..\..\fpcfix\fpc\rtl\objpas\sysutils\sysinth.inc"/> </Unit2>
<CursorPos X="4" Y="48"/>
<TopLine Value="31"/>
<UsageCount Value="10"/>
</Unit12>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="13" HistoryIndex="12">
<Position1>
<Filename Value="exdtp21u.pas"/>
<Caret Line="83" Column="17" TopLine="69"/>
</Position1>
<Position2>
<Filename Value="exdtp21u.pas"/>
<Caret Line="55" Column="22" TopLine="35"/>
</Position2>
<Position3>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1447" Column="18" TopLine="1429"/>
</Position3>
<Position4>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="366" Column="3" TopLine="355"/>
</Position4>
<Position5>
<Filename Value="exdtp21u.pas"/>
<Caret Line="30" Column="46" TopLine="28"/>
</Position5>
<Position6>
<Filename Value="exdtp21u.pas"/>
<Caret Line="81" Column="48" TopLine="43"/>
</Position6>
<Position7>
<Filename Value="exdtp21u.pas"/>
<Caret Line="29" Column="30" TopLine="29"/>
</Position7>
<Position8>
<Filename Value="exdtp21u.pas"/>
<Caret Line="28" Column="20" TopLine="28"/>
</Position8>
<Position9>
<Filename Value="exdtp21.lpr"/>
<Caret Line="13" Column="40" TopLine="1"/>
</Position9>
<Position10>
<Filename Value="exdtp21.lpr"/>
<Caret Line="9" Column="44" TopLine="1"/>
</Position10>
<Position11>
<Filename Value="exdtp21u.pas"/>
<Caret Line="75" Column="1" TopLine="75"/>
</Position11>
<Position12>
<Filename Value="exdtp21u.pas"/>
<Caret Line="106" Column="1" TopLine="91"/>
</Position12>
<Position13>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1344" Column="8" TopLine="1323"/>
</Position13>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
@ -162,12 +137,8 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging>
<UseHeaptrc Value="True"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>
@ -179,7 +150,7 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="8"> <BreakPoints Count="9">
<Item1> <Item1>
<Source Value="..\..\source\qonguard3.pas"/> <Source Value="..\..\source\qonguard3.pas"/>
<Line Value="135"/> <Line Value="135"/>
@ -212,6 +183,10 @@
<Source Value="exdtp21u.pas"/> <Source Value="exdtp21u.pas"/>
<Line Value="75"/> <Line Value="75"/>
</Item8> </Item8>
<Item9>
<Source Value="exdtp21u.pas"/>
<Line Value="106"/>
</Item9>
</BreakPoints> </BreakPoints>
<Exceptions Count="2"> <Exceptions Count="2">
<Item1> <Item1>

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

@ -3,23 +3,22 @@ object Form1: TForm1
Height = 155 Height = 155
Top = 279 Top = 279
Width = 228 Width = 228
HorzScrollBar.Page = 227
VertScrollBar.Page = 154
ActiveControl = Memo1 ActiveControl = Memo1
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 155
ClientWidth = 228
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnActivate = FormActivate OnActivate = FormActivate
OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.27'
object Label1: TLabel object Label1: TLabel
Left = 50 Left = 50
Height = 13 Height = 14
Top = 70 Top = 70
Width = 113 Width = 99
Caption = 'Expires: 00/00/0000' Caption = 'Expires: 00/00/0000'
Color = clNone
ParentColor = False ParentColor = False
end end
object Memo1: TMemo object Memo1: TMemo
@ -32,6 +31,7 @@ object Form1: TForm1
'was ' 'was '
'allowed to run' 'allowed to run'
) )
OnDblClick = Memo1DblClick
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
end end
@ -48,6 +48,7 @@ object Form1: TForm1
OnChecked = OgDateCode1Checked OnChecked = OgDateCode1Checked
OnGetKey = OgDateCode1GetKey OnGetKey = OgDateCode1GetKey
OnGetCode = OgDateCode1GetCode OnGetCode = OgDateCode1GetCode
StoreCode = True
left = 158 left = 158
top = 87 top = 87
end end

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

@ -1,19 +1,19 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasobów lazarusa }
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#18'HorzScrollBar.Page'#3#227#0#18'VertScrollBar.Page'#3#154#0 +'dth'#3#228#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#5'Form1'#12'ClientHe'
+#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#5'Form1'#10'Font.Color'#7#7'clBla' +'ight'#3#155#0#11'ClientWidth'#3#228#0#10'Font.Color'#7#7'clBlack'#11'Font.H'
+'ck'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActivate'#7 +'eight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActivate'#7#12'FormActiv'
+#12'FormActivate'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCent' +'ate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'
+'er'#0#6'TLabel'#6'Label1'#4'Left'#2'2'#6'Height'#2#13#3'Top'#2'F'#5'Width'#2 +#6'Label1'#4'Left'#2'2'#6'Height'#2#14#3'Top'#2'F'#5'Width'#2'c'#7'Caption'#6
+'q'#7'Caption'#6#19'Expires: 00/00/0000'#5'Color'#7#6'clNone'#11'ParentColor' +#19'Expires: 00/00/0000'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8
+#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#2';'#3'Top'#2#8#5'Width'#3#197 +#6'Height'#2';'#3'Top'#2#8#5'Width'#3#197#0#13'Lines.Strings'#1#6'#If you ca'
+#0#13'Lines.Strings'#1#6'#If you can edit this, your program '#6#4'was '#6#14 +'n edit this, your program '#6#4'was '#6#14'allowed to run'#0#10'OnDblClick'
+'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBi' +#7#13'Memo1DblClick'#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'T'
+'tBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3'Top'#2'Y'#5'Width'#2'Y'#4'K' +'BitBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3'Top'#2'Y'#5'Width'#2'Y'#4
+'ind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#11'TOgDateCode'#11'O' +'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#11'TOgDateCode'#11
+'gDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetKey'#7#17'OgDateCo' +'OgDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetKey'#7#17'OgDateC'
+'de1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#4'left'#3#158#0#3'top'#2'W' +'ode1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#9'StoreCode'#9#4'left'#3
+#0#0#0 +#158#0#3'top'#2'W'#0#0#0
]); ]);

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

@ -27,7 +27,7 @@ type
OgDateCode1: TOgDateCode; OgDateCode1: TOgDateCode;
Label1: TLabel; Label1: TLabel;
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure Memo1DblClick(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,9 +56,9 @@ begin
if FExpired then Application.Terminate; if FExpired then Application.Terminate;
end; end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.Memo1DblClick(Sender: TObject);
begin begin
ShowMessage(Inttostr(OgDateCode1.GetInvalidCount));
end; end;
{==========================================================================} {==========================================================================}
@ -84,7 +84,7 @@ begin
if (S = '') then begin if (S = '') then begin
SD := Date; SD := Date;
ED := SD + 21.0; ED := SD + 21.0;
InitDateCode(CKey, SD, ED, Code); InitDateCode(CKey, SD, ED, Code,1);
{save string representation of release code to Ini File} {save string representation of release code to Ini File}
S := BufferToHex(Code, SizeOf(Code)); S := BufferToHex(Code, SizeOf(Code));

4
components/onguard/examples/exdtreg/ONGUARD.INI
View File

@ -1,2 +1,2 @@
[Codes] [Keys]
DateCode=046FEF19C398AE1B OnGuard demo=$E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4

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

@ -2,10 +2,13 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/> <Version Value="7"/>
<General> <General>
<Flags>
<AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value=".\"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -28,7 +31,7 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="4">
<Unit0> <Unit0>
<Filename Value="exdtreg.lpr"/> <Filename Value="exdtreg.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -37,39 +40,171 @@
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<SyntaxHighlighter Value="Delphi"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="exdtregu.pas"/> <Filename Value="exdtregu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exdtregu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="ExDTRegU"/> <UnitName Value="ExDTRegU"/>
<CursorPos X="83" Y="62"/> <CursorPos X="56" Y="98"/>
<TopLine Value="36"/> <TopLine Value="89"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<SyntaxHighlighter Value="Delphi"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\..\source\qonguard3.pas"/> <Filename Value="..\..\source\qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/> <ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="..\..\source\qonguard3.lrs"/>
<UnitName Value="qonguard3"/> <UnitName Value="qonguard3"/>
<CursorPos X="1" Y="280"/> <CursorPos X="1" Y="280"/>
<TopLine Value="252"/> <TopLine Value="252"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit2> </Unit2>
<Unit3>
<Filename Value="..\..\source\onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="43" Y="1866"/>
<TopLine Value="1843"/>
<EditorIndex Value="2"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1320" Column="1" TopLine="1305"/>
</Position1>
<Position2>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1322" Column="1" TopLine="1307"/>
</Position2>
<Position3>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1323" Column="1" TopLine="1308"/>
</Position3>
<Position4>
<Filename Value="exdtregu.pas"/>
<Caret Line="72" Column="1" TopLine="57"/>
</Position4>
<Position5>
<Filename Value="exdtregu.pas"/>
<Caret Line="73" Column="1" TopLine="58"/>
</Position5>
<Position6>
<Filename Value="exdtregu.pas"/>
<Caret Line="75" Column="1" TopLine="60"/>
</Position6>
<Position7>
<Filename Value="exdtregu.pas"/>
<Caret Line="77" Column="1" TopLine="62"/>
</Position7>
<Position8>
<Filename Value="exdtregu.pas"/>
<Caret Line="79" Column="1" TopLine="64"/>
</Position8>
<Position9>
<Filename Value="exdtregu.pas"/>
<Caret Line="81" Column="1" TopLine="66"/>
</Position9>
<Position10>
<Filename Value="exdtregu.pas"/>
<Caret Line="83" Column="1" TopLine="68"/>
</Position10>
<Position11>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1217" Column="1" TopLine="1202"/>
</Position11>
<Position12>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1218" Column="1" TopLine="1203"/>
</Position12>
<Position13>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" Column="1" TopLine="1309"/>
</Position13>
<Position14>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1326" Column="1" TopLine="1311"/>
</Position14>
<Position15>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1327" Column="1" TopLine="1312"/>
</Position15>
<Position16>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1331" Column="1" TopLine="1316"/>
</Position16>
<Position17>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1864" Column="40" TopLine="1841"/>
</Position17>
<Position18>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1320" Column="1" TopLine="1305"/>
</Position18>
<Position19>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1322" Column="1" TopLine="1307"/>
</Position19>
<Position20>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1323" Column="1" TopLine="1308"/>
</Position20>
<Position21>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" Column="1" TopLine="1309"/>
</Position21>
<Position22>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1326" Column="1" TopLine="1311"/>
</Position22>
<Position23>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1327" Column="1" TopLine="1312"/>
</Position23>
<Position24>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1932" Column="1" TopLine="1917"/>
</Position24>
<Position25>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1933" Column="1" TopLine="1918"/>
</Position25>
<Position26>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1934" Column="1" TopLine="1919"/>
</Position26>
<Position27>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1936" Column="1" TopLine="1921"/>
</Position27>
<Position28>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1331" Column="1" TopLine="1316"/>
</Position28>
<Position29>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1856" Column="1" TopLine="1841"/>
</Position29>
<Position30>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1857" Column="1" TopLine="1842"/>
</Position30>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<SyntaxMode Value="Delphi"/>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
<DelphiCompat Value="True"/>
<UseAnsiStrings Value="True"/> <UseAnsiStrings Value="True"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
@ -80,18 +215,29 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Options>
<UseHeaptrc Value="True"/> <Win32>
</Debugging> <GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="2">
<Item1>
<Source Value="..\..\source\onguard.pas"/>
<Line Value="1320"/>
</Item1>
<Item2>
<Source Value="exdtregu.pas"/>
<Line Value="44"/>
</Item2>
</BreakPoints>
<Exceptions Count="2"> <Exceptions Count="2">
<Item1> <Item1>
<Name Value="ECodetoolError"/> <Name Value="ECodetoolError"/>

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

@ -1,2 +0,0 @@
[Codes]
DaysCode=B166F4C9600A9E1A

91
components/onguard/examples/exdyreg/exdyreg.lpi
View File

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -27,33 +28,32 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="6"> <Units Count="8">
<Unit0> <Unit0>
<Filename Value="exdyreg.lpr"/> <Filename Value="exdyreg.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="48" Y="7"/> <CursorPos X="48" Y="7"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="exdyregu.pas"/> <Filename Value="exdyregu.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exdyregu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="ExDYRegU"/> <UnitName Value="ExDYRegU"/>
<CursorPos X="76" Y="54"/> <CursorPos X="3" Y="46"/>
<TopLine Value="62"/> <TopLine Value="42"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../source/qonguard3.pas"/> <Filename Value="../../source/qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/> <ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="../../source/qonguard3.lrs"/>
<UnitName Value="qonguard3"/> <UnitName Value="qonguard3"/>
<CursorPos X="1" Y="132"/> <CursorPos X="1" Y="132"/>
<TopLine Value="132"/> <TopLine Value="132"/>
@ -63,7 +63,6 @@
<Filename Value="../../source/qonguard2.pas"/> <Filename Value="../../source/qonguard2.pas"/>
<ComponentName Value="CodeGenerateFrm"/> <ComponentName Value="CodeGenerateFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="../../source/qonguard2.lrs"/>
<UnitName Value="qonguard2"/> <UnitName Value="qonguard2"/>
<CursorPos X="4" Y="351"/> <CursorPos X="4" Y="351"/>
<TopLine Value="348"/> <TopLine Value="348"/>
@ -81,11 +80,58 @@
<TopLine Value="120"/> <TopLine Value="120"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit5> </Unit5>
<Unit6>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="24" Y="1865"/>
<TopLine Value="1846"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="29" Y="506"/>
<TopLine Value="472"/>
<UsageCount Value="10"/>
</Unit7>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="8" HistoryIndex="7">
<Position1>
<Filename Value="exdyregu.pas"/>
<Caret Line="12" Column="24" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="exdyregu.pas"/>
<Caret Line="92" Column="1" TopLine="77"/>
</Position2>
<Position3>
<Filename Value="exdyregu.pas"/>
<Caret Line="94" Column="1" TopLine="79"/>
</Position3>
<Position4>
<Filename Value="exdyregu.pas"/>
<Caret Line="95" Column="1" TopLine="80"/>
</Position4>
<Position5>
<Filename Value="exdyregu.pas"/>
<Caret Line="96" Column="1" TopLine="81"/>
</Position5>
<Position6>
<Filename Value="exdyregu.pas"/>
<Caret Line="98" Column="17" TopLine="89"/>
</Position6>
<Position7>
<Filename Value="exdyregu.pas"/>
<Caret Line="98" Column="17" TopLine="56"/>
</Position7>
<Position8>
<Filename Value="exdyregu.pas"/>
<Caret Line="132" Column="3" TopLine="54"/>
</Position8>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -98,18 +144,29 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Options>
<UseHeaptrc Value="True"/> <Win32>
</Debugging> <GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="2">
<Item1>
<Source Value="exdyregu.pas"/>
<Line Value="92"/>
</Item1>
<Item2>
<Source Value="../../source/ogutil.pas"/>
<Line Value="505"/>
</Item2>
</BreakPoints>
<Exceptions Count="2"> <Exceptions Count="2">
<Item1> <Item1>
<Name Value="ECodetoolError"/> <Name Value="ECodetoolError"/>

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

@ -1,2 +1,2 @@
[Codes] [Codes]
DaysCode=82FC3292E294CC3A DaysCode=85A52AA9BB5EEE6C5D13

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

@ -1,11 +1,13 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -21,39 +23,114 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="tponguard"/> <PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="7">
<Unit0> <Unit0>
<Filename Value="exdys30.lpr"/> <Filename Value="exdys30.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="10" Y="4"/> <CursorPos X="8" Y="2"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="212"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="exdys30u.pas"/> <Filename Value="exdys30u.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exdys30u.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exdys30u"/> <UnitName Value="Exdys30u"/>
<CursorPos X="29" Y="69"/> <CursorPos X="37" Y="1"/>
<TopLine Value="50"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="212"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="1" Y="1407"/>
<TopLine Value="1392"/>
<UsageCount Value="106"/>
</Unit2>
<Unit3>
<Filename Value="../../../../../../temp/fpc/rtl/i386/i386.inc"/>
<CursorPos X="1" Y="1462"/>
<TopLine Value="1447"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="../../source/qogabout0.pas"/>
<ComponentName Value="OgAboutForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qogabout0"/>
<CursorPos X="42" Y="184"/>
<TopLine Value="179"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="../../../../../../lazarus/lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="3" Y="71"/>
<TopLine Value="56"/>
<UsageCount Value="10"/>
</Unit6>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="8" HistoryIndex="7">
<Position1>
<Filename Value="exdys30u.pas"/>
<Caret Line="130" Column="1" TopLine="115"/>
</Position1>
<Position2>
<Filename Value="exdys30u.pas"/>
<Caret Line="132" Column="1" TopLine="117"/>
</Position2>
<Position3>
<Filename Value="exdys30u.pas"/>
<Caret Line="133" Column="1" TopLine="118"/>
</Position3>
<Position4>
<Filename Value="exdys30u.pas"/>
<Caret Line="134" Column="1" TopLine="119"/>
</Position4>
<Position5>
<Filename Value="exdys30u.pas"/>
<Caret Line="151" Column="1" TopLine="127"/>
</Position5>
<Position6>
<Filename Value="exdys30u.pas"/>
<Caret Line="113" Column="1" TopLine="98"/>
</Position6>
<Position7>
<Filename Value="exdys30u.pas"/>
<Caret Line="94" Column="27" TopLine="84"/>
</Position7>
<Position8>
<Filename Value="exdys30u.pas"/>
<Caret Line="36" Column="30" TopLine="30"/>
</Position8>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -66,18 +143,45 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Options>
<UseHeaptrc Value="True"/> <Win32>
</Debugging> <GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="6">
<Item1>
<Source Value="exdys30u.pas"/>
<Line Value="125"/>
</Item1>
<Item2>
<Source Value="../../source/onguard.pas"/>
<Line Value="1360"/>
</Item2>
<Item3>
<Source Value="exdys30u.pas"/>
<Line Value="108"/>
</Item3>
<Item4>
<Source Value="../../source/qogabout0.pas"/>
<Line Value="102"/>
</Item4>
<Item5>
<Source Value="../../source/qogabout0.pas"/>
<Line Value="97"/>
</Item5>
<Item6>
<Source Value="../../source/onguard.pas"/>
<Line Value="1970"/>
</Item6>
</BreakPoints>
<Exceptions Count="2"> <Exceptions Count="2">
<Item1> <Item1>
<Name Value="ECodetoolError"/> <Name Value="ECodetoolError"/>

2
components/onguard/examples/exdys30/exdys30.lpr
View File

@ -1,5 +1,5 @@
program Exdys30; program Exdys30;
{$objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Interfaces, Interfaces,

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

@ -3,21 +3,22 @@ object Form1: TForm1
Height = 158 Height = 158
Top = 260 Top = 260
Width = 229 Width = 229
HorzScrollBar.Page = 228
VertScrollBar.Page = 157
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 158
ClientWidth = 229
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.27'
object Label1: TLabel object Label1: TLabel
Left = 64 Left = 64
Height = 13 Height = 14
Top = 74 Top = 74
Width = 99 Width = 84
Alignment = taCenter Alignment = taCenter
Caption = 'Days Remaining: ' Caption = 'Days Remaining: '
Color = clNone
ParentColor = False ParentColor = False
end end
object Memo1: TMemo object Memo1: TMemo
@ -47,6 +48,6 @@ object Form1: TForm1
OnGetCode = OgDaysCode1GetCode OnGetCode = OgDaysCode1GetCode
OnChangeCode = OgDaysCode1ChangeCode OnChangeCode = OgDaysCode1ChangeCode
left = 88 left = 88
top = 176 top = 130
end end
end end

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

@ -1,18 +1,19 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasobów lazarusa }
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#18'HorzScrollBar.Page'#3#228#0#18'VertScrollBar.Page'#3#157#0#7 +'th'#3#229#0#7'Caption'#6#5'Form1'#12'ClientHeight'#3#158#0#11'ClientWidth'#3
+'Caption'#6#5'Form1'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Fon' +#229#0#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'M'
+'t.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#6 +'S Sans Serif'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'
+'Label1'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2'J'#5'Width'#2'c'#9'Alignment'#7 +#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2'@'#6'Height'#2#14
+#8'taCenter'#7'Caption'#6#16'Days Remaining: '#5'Color'#7#6'clNone'#11'Paren' +#3'Top'#2'J'#5'Width'#2'T'#9'Alignment'#7#8'taCenter'#7'Caption'#6#16'Days R'
+'tColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#6#6'Height'#2'-'#3'Top'#2#14#5'Wi' +'emaining: '#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#6#6'Height'#2
+'dth'#3#213#0#13'Lines.Strings'#1#6'(If you can edit this, then your program' +'-'#3'Top'#2#14#5'Width'#3#213#0#13'Lines.Strings'#1#6'(If you can edit this'
+' '#6#18'was allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2 +', then your program '#6#18'was allowed to run'#0#10'ScrollBars'#7#10'ssVert'
+#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'@'#6'Height'#2'!'#3'Top'#2'\'#5'Widt' +'ical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'@'#6'Height'#2'!'
+'h'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#11'TOgDay' +#3'Top'#2'\'#5'Width'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'
+'sCode'#11'OgDaysCode1'#9'OnChecked'#7#18'OgDaysCode1Checked'#8'OnGetKey'#7 +#2#1#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#18'OgDaysCode1Checke'
+#17'OgDaysCode1GetKey'#9'OnGetCode'#7#18'OgDaysCode1GetCode'#12'OnChangeCode' +'d'#8'OnGetKey'#7#17'OgDaysCode1GetKey'#9'OnGetCode'#7#18'OgDaysCode1GetCode'
+#7#21'OgDaysCode1ChangeCode'#4'left'#2'X'#3'top'#3#176#0#0#0#0 +#12'OnChangeCode'#7#21'OgDaysCode1ChangeCode'#4'left'#2'X'#3'top'#3#130#0#0#0
+#0
]); ]);

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

@ -3,7 +3,9 @@
program is run, the necessary information is created and stored program is run, the necessary information is created and stored
in an INI file. In addition, the program is given a "drop dead" in an INI file. In addition, the program is given a "drop dead"
date, i.e., regardless of how many days the program has been used, date, i.e., regardless of how many days the program has been used,
it cannont be used after that date (1999 December 31). it cannont be used after that date (2009 December 31).
InvalidCount is set to 3, user is allowed to 3 times break the rules,
for example changing date back to execute program after trial period expired.
*) *)
unit Exdys30u; unit Exdys30u;
@ -27,12 +29,13 @@ type
CloseBtn: TBitBtn; CloseBtn: TBitBtn;
OgDaysCode1: TOgDaysCode; OgDaysCode1: TOgDaysCode;
Label1: TLabel; Label1: TLabel;
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);
procedure OgDaysCode1ChangeCode(Sender: TObject; Code: TCode); procedure OgDaysCode1ChangeCode(Sender: TObject; Code: TCode);
procedure OgDaysCode1Checked(Sender: TObject; Status: TCodeStatus); procedure OgDaysCode1Checked(Sender: TObject; Status: TCodeStatus);
private private
{ Private declarations } codeinvalid : Boolean;
public public
{ Public declarations } { Public declarations }
TheDir : string; TheDir : string;
@ -53,6 +56,11 @@ begin
Key := CKey; Key := CKey;
end; end;
procedure TForm1.FormCreate(Sender: TObject);
begin
codeinvalid := false;
end;
{==========================================================================} {==========================================================================}
procedure TForm1.OgDaysCode1GetCode(Sender: TObject; var Code: TCode); procedure TForm1.OgDaysCode1GetCode(Sender: TObject; var Code: TCode);
@ -77,8 +85,8 @@ begin
{If default string returned, create code on the fly} {If default string returned, create code on the fly}
if (S = 'NoCode') then begin if (S = 'NoCode') then begin
{force absolute ("drop dead") expiration date of 1999 Dec. 31} {force absolute ("drop dead") expiration date of 1999 Dec. 31}
Expires := EncodeDate(1999, 12, 31); Expires := EncodeDate(2009, 12, 31);
InitDaysCode(CKey, 30, Expires, Code); InitDaysCode(CKey, 30, Expires, Code,3);
{save string representation of release code to Ini File} {save string representation of release code to Ini File}
S := BufferToHex(Code, SizeOf(Code)); S := BufferToHex(Code, SizeOf(Code));
@ -97,6 +105,7 @@ procedure TForm1.OgDaysCode1ChangeCode(Sender: TObject; Code: TCode);
var var
S : string; S : string;
begin begin
if codeinvalid then Exit;
IniFile := TIniFile.Create(TheDir + 'Days30.INI'); IniFile := TIniFile.Create(TheDir + 'Days30.INI');
try try
{convert Code to string for writing to INI file} {convert Code to string for writing to INI file}
@ -120,7 +129,11 @@ begin
Exit; Exit;
end; end;
ogInvalidCode : S := 'Invalid Code'; ogInvalidCode :
begin
S := 'Invalid Code';
codeinvalid := true;
end;
ogDayCountUsed : S := 'Program used more than 30 days' + #13 + ogDayCountUsed : S := 'Program used more than 30 days' + #13 +
'Please register NOW'; 'Please register NOW';

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

@ -1,14 +1,13 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags> <Flags>
<AlwaysBuild Value="False"/> <AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -30,11 +29,11 @@
<MinVersion Valid="True"/> <MinVersion Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="26"> <Units Count="27">
<Unit0> <Unit0>
<Filename Value="exinst.lpr"/> <Filename Value="exinst.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="10" Y="8"/> <CursorPos X="12" Y="18"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="24"/> <UsageCount Value="24"/>
@ -42,14 +41,15 @@
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="exinstu.pas"/> <Filename Value="exinstu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="FirstInstFrm"/> <ComponentName Value="FirstInstFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exinstu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="EXINSTU"/> <UnitName Value="EXINSTU"/>
<CursorPos X="45" Y="22"/> <CursorPos X="22" Y="7"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="2"/>
<UsageCount Value="10"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
@ -87,9 +87,11 @@
<Unit7> <Unit7>
<Filename Value="../../source/ogfirst.pas"/> <Filename Value="../../source/ogfirst.pas"/>
<UnitName Value="ogfirst"/> <UnitName Value="ogfirst"/>
<CursorPos X="1" Y="186"/> <CursorPos X="3" Y="71"/>
<TopLine Value="168"/> <TopLine Value="161"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="../../../../lazarus0915/fpcsrc/rtl/win32/wininc/ascdef.inc"/> <Filename Value="../../../../lazarus0915/fpcsrc/rtl/win32/wininc/ascdef.inc"/>
@ -108,7 +110,6 @@
<Filename Value="../../source/qonguard6.pas"/> <Filename Value="../../source/qonguard6.pas"/>
<ComponentName Value="ModifierFrm"/> <ComponentName Value="ModifierFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="../../source/qonguard6.lrs"/>
<UnitName Value="qonguard6"/> <UnitName Value="qonguard6"/>
<CursorPos X="27" Y="2"/> <CursorPos X="27" Y="2"/>
<TopLine Value="1"/> <TopLine Value="1"/>
@ -195,15 +196,15 @@
<Unit22> <Unit22>
<Filename Value="../../source/ogutil.pas"/> <Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/> <UnitName Value="ogutil"/>
<CursorPos X="30" Y="781"/> <CursorPos X="34" Y="1514"/>
<TopLine Value="748"/> <TopLine Value="1499"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="../../source/onguard.pas"/> <Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/> <UnitName Value="onguard"/>
<CursorPos X="1" Y="1"/> <CursorPos X="40" Y="941"/>
<TopLine Value="1"/> <TopLine Value="926"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
@ -220,11 +221,27 @@
<TopLine Value="185"/> <TopLine Value="185"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit25> </Unit25>
<Unit26>
<Filename Value="exinstu.lfm"/>
<CursorPos X="21" Y="10"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit26>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="exinst.lpr"/>
<Caret Line="18" Column="12" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="../../source/ogfirst.pas"/>
<Caret Line="87" Column="21" TopLine="83"/>
</Position2>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="../../source/"/> <OtherUnitFiles Value="../../source/"/>
</SearchPaths> </SearchPaths>
@ -240,7 +257,6 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>

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

@ -8,7 +8,6 @@ object FirstInstFrm: TFirstInstFrm
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable Font.Pitch = fpVariable
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 18
HorzScrollBar.Page = 319 HorzScrollBar.Page = 319
HorzScrollBar.Range = 307 HorzScrollBar.Range = 307
VertScrollBar.Page = 139 VertScrollBar.Page = 139

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

@ -1,17 +1,14 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
LazarusResources.Add('TFirstInstFrm','FORMDATA',[ LazarusResources.Add('TFirstInstFrm','FORMDATA',[
'TPF0'#13'TFirstInstFrm'#12'FirstInstFrm'#13'ActiveControl'#7#5'Memo1'#7'Capt' 'TPF0'#13'TFirstInstFrm'#12'FirstInstFrm'#13'ActiveControl'#7#5'Memo1'#7'Capt'
+'ion'#6#23'Single Instance Example'#12'ClientHeight'#3#140#0#11'ClientWidth' +'ion'#6#23'Single Instance Example'#12'ClientHeight'#3#140#0#11'ClientWidth'
+#3'@'#1#10'Font.Color'#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS' +#3'@'#1#10'Font.Color'#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS'
+' Sans Serif'#10'Font.Pitch'#7#10'fpVariable'#13'PixelsPerInch'#2'`'#10'Text' +' Sans Serif'#10'Font.Pitch'#7#10'fpVariable'#13'PixelsPerInch'#2'`'#18'Horz'
+'Height'#2#18#18'HorzScrollBar.Page'#3'?'#1#19'HorzScrollBar.Range'#3'3'#1#18 +'ScrollBar.Page'#3'?'#1#19'HorzScrollBar.Range'#3'3'#1#18'VertScrollBar.Page'
+'VertScrollBar.Page'#3#139#0#19'VertScrollBar.Range'#3#129#0#4'Left'#3'G'#1#6 +#3#139#0#19'VertScrollBar.Range'#3#129#0#4'Left'#3'G'#1#6'Height'#3#140#0#3
+'Height'#3#140#0#3'Top'#3#218#0#5'Width'#3'@'#1#0#5'TMemo'#5'Memo1'#13'Lines' +'Top'#3#218#0#5'Width'#3'@'#1#0#5'TMemo'#5'Memo1'#13'Lines.Strings'#1#6'=Att'
+'.Strings'#1#6'=Attempts to execute this application a second time result in' +'empts to execute this application a second time result in '#6';the first in'
+' '#6';the first instance to be activated and the second instance '#6#11'ter' +'stance to be activated and the second instance '#6#11'terminated.'#0#8'Read'
+'minated.'#0#8'ReadOnly'#9#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2'Y'#3'Top' +'Only'#9#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2'Y'#3'Top'#2#8#5'Width'#3')'
+#2#8#5'Width'#3')'#1#0#0#7'TBitBtn'#7'BitBtn2'#4'Kind'#7#7'bkClose'#9'NumGly' +#1#0#0#7'TBitBtn'#7'BitBtn2'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrde'
+'phs'#2#0#8'TabOrder'#2#1#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'h'#5'Width' +'r'#2#1#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'h'#5'Width'#2'K'#0#0#0
+#2'K'#0#0#0
]); ]);

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

@ -1,17 +1,16 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags> <Flags>
<AlwaysBuild Value="False"/> <AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<Title Value="exmachid"/> <Title Value="exmachid"/>
<ActiveEditorIndexAtStart Value="2"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -31,26 +30,27 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="9"> <Units Count="14">
<Unit0> <Unit0>
<Filename Value="exmachid.lpr"/> <Filename Value="exmachid.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="6" Y="11"/> <CursorPos X="38" Y="15"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="23"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="umachid.pas"/> <Filename Value="umachid.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmExMachineID"/> <ComponentName Value="frmExMachineID"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="umachid.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="uMachID"/> <UnitName Value="uMachID"/>
<CursorPos X="26" Y="56"/> <CursorPos X="31" Y="31"/>
<TopLine Value="33"/> <TopLine Value="26"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="20"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
@ -63,11 +63,9 @@
<Unit3> <Unit3>
<Filename Value="../../source/onguard.pas"/> <Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/> <UnitName Value="onguard"/>
<CursorPos X="1" Y="1383"/> <CursorPos X="1" Y="604"/>
<TopLine Value="1366"/> <TopLine Value="589"/>
<EditorIndex Value="2"/> <UsageCount Value="11"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../../../lazarus0915/lcl/include/control.inc"/> <Filename Value="../../../../lazarus0915/lcl/include/control.inc"/>
@ -100,132 +98,44 @@
<TopLine Value="1032"/> <TopLine Value="1032"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit8> </Unit8>
<Unit9>
<Filename Value="umachid.lfm"/>
<CursorPos X="28" Y="12"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit9>
<Unit10>
<Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="50" Y="1284"/>
<TopLine Value="1261"/>
<UsageCount Value="11"/>
</Unit10>
<Unit11>
<Filename Value="../../source/IdeSN.pas"/>
<UnitName Value="idesn"/>
<CursorPos X="53" Y="158"/>
<TopLine Value="142"/>
<UsageCount Value="11"/>
</Unit11>
<Unit12>
<Filename Value="../../../../../../temp/fpc/rtl/i386/strings.inc"/>
<CursorPos X="1" Y="64"/>
<TopLine Value="49"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="../../../../../../temp/fpc/rtl/objpas/sysutils/sysutils.inc"/>
<CursorPos X="1" Y="361"/>
<TopLine Value="346"/>
<UsageCount Value="10"/>
</Unit13>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="0" HistoryIndex="-1"/>
<Position1>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1314" Column="1" TopLine="1297"/>
</Position1>
<Position2>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1315" Column="1" TopLine="1298"/>
</Position2>
<Position3>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1316" Column="1" TopLine="1299"/>
</Position3>
<Position4>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1321" Column="1" TopLine="1304"/>
</Position4>
<Position5>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1323" Column="1" TopLine="1306"/>
</Position5>
<Position6>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1324" Column="1" TopLine="1307"/>
</Position6>
<Position7>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1325" Column="1" TopLine="1308"/>
</Position7>
<Position8>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1326" Column="1" TopLine="1309"/>
</Position8>
<Position9>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1328" Column="1" TopLine="1311"/>
</Position9>
<Position10>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1329" Column="1" TopLine="1312"/>
</Position10>
<Position11>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1331" Column="1" TopLine="1314"/>
</Position11>
<Position12>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1333" Column="1" TopLine="1316"/>
</Position12>
<Position13>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1334" Column="1" TopLine="1317"/>
</Position13>
<Position14>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1335" Column="1" TopLine="1318"/>
</Position14>
<Position15>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1336" Column="1" TopLine="1319"/>
</Position15>
<Position16>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1338" Column="1" TopLine="1321"/>
</Position16>
<Position17>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1339" Column="1" TopLine="1322"/>
</Position17>
<Position18>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1341" Column="1" TopLine="1324"/>
</Position18>
<Position19>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1343" Column="1" TopLine="1326"/>
</Position19>
<Position20>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1344" Column="1" TopLine="1327"/>
</Position20>
<Position21>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1345" Column="1" TopLine="1328"/>
</Position21>
<Position22>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1346" Column="1" TopLine="1329"/>
</Position22>
<Position23>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1348" Column="1" TopLine="1331"/>
</Position23>
<Position24>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1349" Column="1" TopLine="1332"/>
</Position24>
<Position25>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1351" Column="1" TopLine="1334"/>
</Position25>
<Position26>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1354" Column="1" TopLine="1337"/>
</Position26>
<Position27>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1357" Column="1" TopLine="1340"/>
</Position27>
<Position28>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1358" Column="1" TopLine="1341"/>
</Position28>
<Position29>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1360" Column="1" TopLine="1343"/>
</Position29>
<Position30>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1369" Column="1" TopLine="1352"/>
</Position30>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -238,28 +148,19 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Options>
<UseHeaptrc Value="True"/> <Win32>
</Debugging> <GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="2">
<Item1>
<Source Value="../../../source/ogfirst.pas"/>
<Line Value="234"/>
</Item1>
<Item2>
<Source Value="../../source/onguard.pas"/>
<Line Value="1302"/>
</Item2>
</BreakPoints>
<Exceptions Count="2"> <Exceptions Count="2">
<Item1> <Item1>
<Name Value="ECodetoolError"/> <Name Value="ECodetoolError"/>

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

@ -1,4 +1,8 @@
object frmExMachineID: TfrmExMachineID object frmExMachineID: TfrmExMachineID
Left = 364
Height = 174
Top = 254
Width = 240
ActiveControl = chkUser ActiveControl = chkUser
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]
Caption = 'ExMachineID' Caption = 'ExMachineID'
@ -8,75 +12,66 @@ object frmExMachineID: TfrmExMachineID
Font.Height = 11 Font.Height = 11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable Font.Pitch = fpVariable
PixelsPerInch = 96
Position = poScreenCenter Position = poScreenCenter
TextHeight = 18 LCLVersion = '0.9.27'
HorzScrollBar.Page = 239
HorzScrollBar.Range = 209
VertScrollBar.Page = 173
VertScrollBar.Range = 121
Left = 364
Height = 174
Top = 254
Width = 240
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Caption = ' Machine Info Set '
ClientHeight = 119
ClientWidth = 109
TabOrder = 0
Left = 8 Left = 8
Height = 137 Height = 137
Top = 8 Top = 8
Width = 113 Width = 113
object chkUser: TCheckBox Caption = ' Machine Info Set '
Caption = 'User' ClientHeight = 119
ClientWidth = 109
TabOrder = 0 TabOrder = 0
object chkUser: TCheckBox
Left = 24 Left = 24
Height = 17 Height = 17
Top = 16 Top = 16
Width = 65 Width = 40
Caption = 'User'
TabOrder = 0
end end
object chkSystem: TCheckBox object chkSystem: TCheckBox
Caption = 'System'
TabOrder = 1
Left = 24 Left = 24
Height = 17 Height = 17
Top = 40 Top = 40
Width = 65 Width = 52
Caption = 'System'
TabOrder = 1
end end
object chkNetwork: TCheckBox object chkNetwork: TCheckBox
Caption = 'Network'
TabOrder = 2
Left = 24 Left = 24
Height = 17 Height = 17
Top = 64 Top = 64
Width = 73 Width = 58
Caption = 'Network'
TabOrder = 2
end end
object chkDrives: TCheckBox object chkDrives: TCheckBox
Caption = 'Drives'
TabOrder = 3
Left = 24 Left = 24
Height = 17 Height = 17
Top = 88 Top = 88
Width = 57 Width = 48
Caption = 'Drives'
TabOrder = 3
end end
end end
object btnGenerate: TButton object btnGenerate: TButton
BorderSpacing.InnerBorder = 4
Caption = 'Generate'
OnClick = btnGenerateClick
TabOrder = 1
Left = 131 Left = 131
Height = 25 Height = 25
Top = 32 Top = 32
Width = 75 Width = 75
BorderSpacing.InnerBorder = 4
Caption = 'Generate'
OnClick = btnGenerateClick
TabOrder = 1
end end
object edtMachineID: TEdit object edtMachineID: TEdit
ReadOnly = True
TabOrder = 2
Left = 128 Left = 128
Height = 26 Height = 23
Top = 72 Top = 72
Width = 81 Width = 81
ReadOnly = True
TabOrder = 2
end end
end end

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

@ -1,25 +1,23 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasob�w lazarusa }
LazarusResources.Add('TfrmExMachineID','FORMDATA',[ LazarusResources.Add('TfrmExMachineID','FORMDATA',[
'TPF0'#15'TfrmExMachineID'#14'frmExMachineID'#13'ActiveControl'#7#7'chkUser' 'TPF0'#15'TfrmExMachineID'#14'frmExMachineID'#4'Left'#3'l'#1#6'Height'#3#174#0
+#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#11'ExMach' +#3'Top'#3#254#0#5'Width'#3#240#0#13'ActiveControl'#7#7'chkUser'#11'BorderIco'
+'ineID'#12'ClientHeight'#3#174#0#11'ClientWidth'#3#240#0#10'Font.Color'#7#6 +'ns'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#11'ExMachineID'#12'Cl'
+'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch' +'ientHeight'#3#174#0#11'ClientWidth'#3#240#0#10'Font.Color'#7#6'clText'#11'F'
+#7#10'fpVariable'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10 +'ont.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'#7#10'fpVar'
+'TextHeight'#2#18#18'HorzScrollBar.Page'#3#239#0#19'HorzScrollBar.Range'#3 +'iable'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#9'TGro'
+#209#0#18'VertScrollBar.Page'#3#173#0#19'VertScrollBar.Range'#2'y'#4'Left'#3 +'upBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3#137#0#3'Top'#2#8#5'Width'#2'q'#7
+'l'#1#6'Height'#3#174#0#3'Top'#3#254#0#5'Width'#3#240#0#0#9'TGroupBox'#9'Gro' +'Caption'#6#18' Machine Info Set '#12'ClientHeight'#2'w'#11'ClientWidth'#2'm'
+'upBox1'#7'Caption'#6#18' Machine Info Set '#12'ClientHeight'#2'w'#11'Client' +#8'TabOrder'#2#0#0#9'TCheckBox'#7'chkUser'#4'Left'#2#24#6'Height'#2#17#3'Top'
+'Width'#2'm'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#3#137#0#3'Top'#2#8#5'Widt' +#2#16#5'Width'#2'('#7'Caption'#6#4'User'#8'TabOrder'#2#0#0#0#9'TCheckBox'#9
+'h'#2'q'#0#9'TCheckBox'#7'chkUser'#7'Caption'#6#4'User'#8'TabOrder'#2#0#4'Le' +'chkSystem'#4'Left'#2#24#6'Height'#2#17#3'Top'#2'('#5'Width'#2'4'#7'Caption'
+'ft'#2#24#6'Height'#2#17#3'Top'#2#16#5'Width'#2'A'#0#0#9'TCheckBox'#9'chkSys' +#6#6'System'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'chkNetwork'#4'Left'#2#24#6
+'tem'#7'Caption'#6#6'System'#8'TabOrder'#2#1#4'Left'#2#24#6'Height'#2#17#3'T' +'Height'#2#17#3'Top'#2'@'#5'Width'#2':'#7'Caption'#6#7'Network'#8'TabOrder'#2
+'op'#2'('#5'Width'#2'A'#0#0#9'TCheckBox'#10'chkNetwork'#7'Caption'#6#7'Netwo' +#2#0#0#9'TCheckBox'#9'chkDrives'#4'Left'#2#24#6'Height'#2#17#3'Top'#2'X'#5'W'
+'rk'#8'TabOrder'#2#2#4'Left'#2#24#6'Height'#2#17#3'Top'#2'@'#5'Width'#2'I'#0 +'idth'#2'0'#7'Caption'#6#6'Drives'#8'TabOrder'#2#3#0#0#0#7'TButton'#11'btnGe'
+#0#9'TCheckBox'#9'chkDrives'#7'Caption'#6#6'Drives'#8'TabOrder'#2#3#4'Left'#2 +'nerate'#4'Left'#3#131#0#6'Height'#2#25#3'Top'#2' '#5'Width'#2'K'#25'BorderS'
+#24#6'Height'#2#17#3'Top'#2'X'#5'Width'#2'9'#0#0#0#7'TButton'#11'btnGenerate' +'pacing.InnerBorder'#2#4#7'Caption'#6#8'Generate'#7'OnClick'#7#16'btnGenerat'
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8'Generate'#7'OnClick'#7#16 +'eClick'#8'TabOrder'#2#1#0#0#5'TEdit'#12'edtMachineID'#4'Left'#3#128#0#6'Hei'
+'btnGenerateClick'#8'TabOrder'#2#1#4'Left'#3#131#0#6'Height'#2#25#3'Top'#2' ' +'ght'#2#23#3'Top'#2'H'#5'Width'#2'Q'#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0
+#5'Width'#2'K'#0#0#5'TEdit'#12'edtMachineID'#8'ReadOnly'#9#8'TabOrder'#2#2#4
+'Left'#3#128#0#6'Height'#2#26#3'Top'#2'H'#5'Width'#2'Q'#0#0#0
]); ]);

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

Binary file not shown.

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

@ -1,2 +1,2 @@
[Codes] [Codes]
NetCode=241918EC8E3BABBB NetCode=6191568CC37B6CF00000

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

@ -1,14 +1,13 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags> <Flags>
<AlwaysBuild Value="False"/> <AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -44,10 +43,10 @@
<Filename Value="exnetu.pas"/> <Filename Value="exnetu.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exnetu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exnetu"/> <UnitName Value="Exnetu"/>
<CursorPos X="53" Y="159"/> <CursorPos X="53" Y="159"/>
<TopLine Value="1"/> <TopLine Value="118"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -77,7 +76,7 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -90,12 +89,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="2"/> <ActiveEditorIndexAtStart Value="2"/>
</General> </General>
@ -41,7 +42,7 @@
<Filename Value="exprotu.pas"/> <Filename Value="exprotu.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exprotu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="EXPROTU"/> <UnitName Value="EXPROTU"/>
<CursorPos X="15" Y="8"/> <CursorPos X="15" Y="8"/>
<TopLine Value="1"/> <TopLine Value="1"/>
@ -62,14 +63,16 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<StripSymbols Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -1,14 +1,13 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags> <Flags>
<AlwaysBuild Value="False"/> <AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -34,7 +33,7 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="5"> <Units Count="6">
<Unit0> <Unit0>
<Filename Value="exreg.lpr"/> <Filename Value="exreg.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -46,22 +45,25 @@
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmExRegCode"/> <ComponentName Value="frmExRegCode"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exreg1.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="ExReg1"/> <UnitName Value="ExReg1"/>
<CursorPos X="35" Y="90"/> <CursorPos X="1" Y="75"/>
<TopLine Value="62"/> <TopLine Value="57"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../source/onguard.pas"/> <Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/> <UnitName Value="onguard"/>
<CursorPos X="9" Y="679"/> <CursorPos X="3" Y="2041"/>
<TopLine Value="714"/> <TopLine Value="2036"/>
<EditorIndex Value="3"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../../../lazarus0915/lcl/editbtn.pas"/> <Filename Value="../../../../lazarus0915/lcl/editbtn.pas"/>
@ -76,16 +78,80 @@
<TopLine Value="101"/> <TopLine Value="101"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
<Unit5>
<Filename Value="../../../../../../temp/fpc/rtl/objpas/sysutils/datih.inc"/>
<CursorPos X="10" Y="127"/>
<TopLine Value="106"/>
<EditorIndex Value="2"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
</Units> </Units>
<JumpHistory Count="1" HistoryIndex="0"> <JumpHistory Count="15" HistoryIndex="14">
<Position1> <Position1>
<Filename Value="exreg1.pas"/> <Filename Value="exreg1.pas"/>
<Caret Line="26" Column="68" TopLine="36"/> <Caret Line="69" Column="27" TopLine="62"/>
</Position1> </Position1>
<Position2>
<Filename Value="exreg1.pas"/>
<Caret Line="79" Column="16" TopLine="68"/>
</Position2>
<Position3>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1979" Column="61" TopLine="1979"/>
</Position3>
<Position4>
<Filename Value="exreg1.pas"/>
<Caret Line="80" Column="19" TopLine="68"/>
</Position4>
<Position5>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1985" Column="34" TopLine="1979"/>
</Position5>
<Position6>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="72" Column="16" TopLine="70"/>
</Position6>
<Position7>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position7>
<Position8>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="90" Column="22" TopLine="75"/>
</Position8>
<Position9>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1901" Column="28" TopLine="1886"/>
</Position9>
<Position10>
<Filename Value="exreg1.pas"/>
<Caret Line="77" Column="62" TopLine="60"/>
</Position10>
<Position11>
<Filename Value="exreg1.pas"/>
<Caret Line="73" Column="60" TopLine="60"/>
</Position11>
<Position12>
<Filename Value="exreg1.pas"/>
<Caret Line="62" Column="13" TopLine="54"/>
</Position12>
<Position13>
<Filename Value="exreg1.pas"/>
<Caret Line="65" Column="10" TopLine="54"/>
</Position13>
<Position14>
<Filename Value="exreg1.pas"/>
<Caret Line="61" Column="14" TopLine="54"/>
</Position14>
<Position15>
<Filename Value="exreg1.pas"/>
<Caret Line="65" Column="9" TopLine="54"/>
</Position15>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -98,12 +164,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

51
components/onguard/examples/exreg/exreg1.lfm
View File

@ -3,49 +3,49 @@ object frmExRegCode: TfrmExRegCode
Height = 298 Height = 298
Top = 180 Top = 180
Width = 391 Width = 391
HorzScrollBar.Page = 390
VertScrollBar.Page = 297
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Registration Code Example' Caption = 'Registration Code Example'
ClientHeight = 298
ClientWidth = 391
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.27'
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 8 Left = 8
Height = 129 Height = 129
Top = 8 Top = 8
Width = 369 Width = 369
Caption = ' Registration Code Generator (vendor site) ' Caption = ' Registration Code Generator (vendor site) '
ClientHeight = 111
ClientWidth = 365
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 39 Left = 39
Height = 13 Height = 14
Top = 28 Top = 28
Width = 72 Width = 57
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'User Name:' Caption = 'User Name:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 14 Left = 14
Height = 13 Height = 14
Top = 60 Top = 60
Width = 97 Width = 76
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Expiration Date:' Caption = 'Expiration Date:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 6 Left = 6
Height = 13 Height = 14
Top = 92 Top = 92
Width = 105 Width = 88
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Registration Code:' Caption = 'Registration Code:'
Color = clNone
ParentColor = False ParentColor = False
end end
object btnGenerate: TSpeedButton object btnGenerate: TSpeedButton
@ -75,14 +75,14 @@ object frmExRegCode: TfrmExRegCode
end end
object edtUserName1: TEdit object edtUserName1: TEdit
Left = 120 Left = 120
Height = 21 Height = 23
Top = 24 Top = 24
Width = 233 Width = 233
TabOrder = 0 TabOrder = 0
end end
object edtRegCode1: TEdit object edtRegCode1: TEdit
Left = 120 Left = 120
Height = 21 Height = 23
Top = 88 Top = 88
Width = 201 Width = 201
Color = clBtnFace Color = clBtnFace
@ -91,7 +91,7 @@ object frmExRegCode: TfrmExRegCode
end end
object edDate: TEdit object edDate: TEdit
Left = 121 Left = 121
Height = 21 Height = 23
Top = 57 Top = 57
Width = 118 Width = 118
TabOrder = 2 TabOrder = 2
@ -103,35 +103,34 @@ object frmExRegCode: TfrmExRegCode
Top = 152 Top = 152
Width = 369 Width = 369
Caption = ' Registration Code Verification (client site) ' Caption = ' Registration Code Verification (client site) '
ClientHeight = 111
ClientWidth = 365
TabOrder = 1 TabOrder = 1
object Label4: TLabel object Label4: TLabel
Left = 38 Left = 38
Height = 13 Height = 14
Top = 60 Top = 60
Width = 73 Width = 57
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'User Name:' Caption = 'User Name:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label5: TLabel object Label5: TLabel
Left = 6 Left = 6
Height = 13 Height = 14
Top = 28 Top = 28
Width = 105 Width = 88
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Registration Code:' Caption = 'Registration Code:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label6: TLabel object Label6: TLabel
Left = 70 Left = 70
Height = 13 Height = 14
Top = 92 Top = 92
Width = 41 Width = 34
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Status:' Caption = 'Status:'
Color = clNone
ParentColor = False ParentColor = False
end end
object btnVerify: TSpeedButton object btnVerify: TSpeedButton
@ -161,21 +160,21 @@ object frmExRegCode: TfrmExRegCode
end end
object edtUserName2: TEdit object edtUserName2: TEdit
Left = 120 Left = 120
Height = 21 Height = 23
Top = 56 Top = 56
Width = 233 Width = 233
TabOrder = 0 TabOrder = 0
end end
object edtRegCode2: TEdit object edtRegCode2: TEdit
Left = 120 Left = 120
Height = 21 Height = 23
Top = 24 Top = 24
Width = 233 Width = 233
TabOrder = 1 TabOrder = 1
end end
object edtStatus: TEdit object edtStatus: TEdit
Left = 120 Left = 120
Height = 21 Height = 23
Top = 88 Top = 88
Width = 97 Width = 97
Color = clBtnFace Color = clBtnFace

128
components/onguard/examples/exreg/exreg1.lrs
View File

@ -1,69 +1,69 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasobów lazarusa }
LazarusResources.Add('TfrmExRegCode','FORMDATA',[ LazarusResources.Add('TfrmExRegCode','FORMDATA',[
'TPF0'#13'TfrmExRegCode'#12'frmExRegCode'#4'Left'#3#135#1#6'Height'#3'*'#1#3 'TPF0'#13'TfrmExRegCode'#12'frmExRegCode'#4'Left'#3#135#1#6'Height'#3'*'#1#3
+'Top'#3#180#0#5'Width'#3#135#1#18'HorzScrollBar.Page'#3#134#1#18'VertScrollB' +'Top'#3#180#0#5'Width'#3#135#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25
+'ar.Page'#3')'#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25'Registration ' +'Registration Code Example'#12'ClientHeight'#3'*'#1#11'ClientWidth'#3#135#1
+'Code Example'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCr' +#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'For'
+'eate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#0#9'TGroupBox'#9'Gr' +'mCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#9'TG'
+'oupBox1'#4'Left'#2#8#6'Height'#3#129#0#3'Top'#2#8#5'Width'#3'q'#1#7'Caption' +'roupBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3#129#0#3'Top'#2#8#5'Width'#3'q'
+#6'+ Registration Code Generator (vendor site) '#8'TabOrder'#2#0#0#6'TLabel' +#1#7'Caption'#6'+ Registration Code Generator (vendor site) '#12'ClientHeigh'
+#6'Label1'#4'Left'#2''''#6'Height'#2#13#3'Top'#2#28#5'Width'#2'H'#9'Alignmen' +'t'#2'o'#11'ClientWidth'#3'm'#1#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'
+'t'#7#14'taRightJustify'#7'Caption'#6#10'User Name:'#5'Color'#7#6'clNone'#11 +#2''''#6'Height'#2#14#3'Top'#2#28#5'Width'#2'9'#9'Alignment'#7#14'taRightJus'
+'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#14#6'Height'#2#13#3'Top'#2 +'tify'#7'Caption'#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'
+'<'#5'Width'#2'a'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#16'Expirati' +#4'Left'#2#14#6'Height'#2#14#3'Top'#2'<'#5'Width'#2'L'#9'Alignment'#7#14'taR'
+'on Date:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4 +'ightJustify'#7'Caption'#6#16'Expiration Date:'#11'ParentColor'#8#0#0#6'TLab'
+'Left'#2#6#6'Height'#2#13#3'Top'#2'\'#5'Width'#2'i'#9'Alignment'#7#14'taRigh' +'el'#6'Label3'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'X'#9'Alignm'
+'tJustify'#7'Caption'#6#18'Registration Code:'#5'Color'#7#6'clNone'#11'Paren' +'ent'#7#14'taRightJustify'#7'Caption'#6#18'Registration Code:'#11'ParentColo'
+'tColor'#8#0#0#12'TSpeedButton'#11'btnGenerate'#4'Left'#3'H'#1#6'Height'#2#22 +'r'#8#0#0#12'TSpeedButton'#11'btnGenerate'#4'Left'#3'H'#1#6'Height'#2#22#4'H'
+#4'Hint'#6#26'Generate Registration Code'#3'Top'#2'X'#5'Width'#2#23#5'Color' +'int'#6#26'Generate Registration Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#7#9
+#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0 +'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0
+#0'('#0#0#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#16#0 +'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0 +#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128
+#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255 +#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0
+#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136 +#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#0#0#8#136 +#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#0#0#8#136#136
+#136#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0#136#128#128#136#136#136 +#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0#136#128#128#136#136#136#0
+#0#136#128#0#0#0#136#8#136#128#0#136#136#8#128#0#0#0#136#0#136#0#0#8#136#8 +#136#128#0#0#0#136#8#136#128#0#136#136#8#128#0#0#0#136#0#136#0#0#8#136#8#128
+#128#0#0#0#128#136#128#9#137#0#128#128#128#0#0#0#128#136#128#8#152#0#136#128 +#0#0#0#128#136#128#9#137#0#128#128#128#0#0#0#128#136#128#8#152#0#136#128#128
+#128#0#0#0#128#8#128#8#152#0#136#0#128#0#0#0#128#136#128#9#137#0#136#128#128 +#0#0#0#128#8#128#8#152#0#136#0#128#0#0#0#128#136#128#9#137#0#136#128#128#0#0
+#0#0#0#136#8#136#0#0#8#136#8#128#0#0#0#136#8#8#128#0#136#8#8#128#0#0#0#136 +#0#136#8#136#0#0#8#136#8#128#0#0#0#136#8#8#128#0#136#8#8#128#0#0#0#136#128
+#128#136#8#136#136#128#136#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0 +#136#8#136#136#128#136#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0#136
+#136#136#136#0#0#8#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0 +#136#136#0#0#8#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9
+#0#9'NumGlyphs'#2#0#7'OnClick'#7#16'btnGenerateClick'#8'ShowHint'#9#14'Paren' +'NumGlyphs'#2#0#7'OnClick'#7#16'btnGenerateClick'#8'ShowHint'#9#14'ParentSho'
+'tShowHint'#8#0#0#5'TEdit'#12'edtUserName1'#4'Left'#2'x'#6'Height'#2#21#3'To' +'wHint'#8#0#0#5'TEdit'#12'edtUserName1'#4'Left'#2'x'#6'Height'#2#23#3'Top'#2
+'p'#2#24#5'Width'#3#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode1'#4'Lef' +#24#5'Width'#3#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode1'#4'Left'#2
+'t'#2'x'#6'Height'#2#21#3'Top'#2'X'#5'Width'#3#201#0#5'Color'#7#9'clBtnFace' +'x'#6'Height'#2#23#3'Top'#2'X'#5'Width'#3#201#0#5'Color'#7#9'clBtnFace'#8'Re'
+#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#5'TEdit'#6'edDate'#4'Left'#2'y'#6'Height' +'adOnly'#9#8'TabOrder'#2#1#0#0#5'TEdit'#6'edDate'#4'Left'#2'y'#6'Height'#2#23
+#2#21#3'Top'#2'9'#5'Width'#2'v'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBo' +#3'Top'#2'9'#5'Width'#2'v'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBox2'#4
+'x2'#4'Left'#2#8#6'Height'#3#129#0#3'Top'#3#152#0#5'Width'#3'q'#1#7'Caption' +'Left'#2#8#6'Height'#3#129#0#3'Top'#3#152#0#5'Width'#3'q'#1#7'Caption'#6'. R'
+#6'. Registration Code Verification (client site) '#8'TabOrder'#2#1#0#6'TLab' +'egistration Code Verification (client site) '#12'ClientHeight'#2'o'#11'Clie'
+'el'#6'Label4'#4'Left'#2'&'#6'Height'#2#13#3'Top'#2'<'#5'Width'#2'I'#9'Align' +'ntWidth'#3'm'#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label4'#4'Left'#2'&'#6'Height'
+'ment'#7#14'taRightJustify'#7'Caption'#6#10'User Name:'#5'Color'#7#6'clNone' +#2#14#3'Top'#2'<'#5'Width'#2'9'#9'Alignment'#7#14'taRightJustify'#7'Caption'
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#6#6'Height'#2#13#3'Top' +#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#6#6'He'
+#2#28#5'Width'#2'i'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#18'Regist' +'ight'#2#14#3'Top'#2#28#5'Width'#2'X'#9'Alignment'#7#14'taRightJustify'#7'Ca'
+'ration Code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6' +'ption'#6#18'Registration Code:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4
+#4'Left'#2'F'#6'Height'#2#13#3'Top'#2'\'#5'Width'#2')'#9'Alignment'#7#14'taR' +'Left'#2'F'#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'"'#9'Alignment'#7#14'taRig'
+'ightJustify'#7'Caption'#6#7'Status:'#5'Color'#7#6'clNone'#11'ParentColor'#8 +'htJustify'#7'Caption'#6#7'Status:'#11'ParentColor'#8#0#0#12'TSpeedButton'#9
+#0#0#12'TSpeedButton'#9'btnVerify'#4'Left'#3#224#0#6'Height'#2#22#4'Hint'#6 +'btnVerify'#4'Left'#3#224#0#6'Height'#2#22#4'Hint'#6#24'Verify Registration '
+#24'Verify Registration Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#7#9'clBtnFa' +'Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'
+'ce'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0 +#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4
+#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#16#0#0#0#0#0#0#0 +#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128
+#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0 +#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
+#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0 +#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255
+#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0 +#255#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#136#128#0#0#0#136#136#136#136#136#136#136#136
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#128#0#0#136#8
+#136#128#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0
+#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152#144#8#136#136#136#128#0
+#0#0#136#128#0#0#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136 +#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
+#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#14'btnVerifyClick'#8'Sh' +#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#0#8
+'owHint'#9#14'ParentShowHint'#8#0#0#5'TEdit'#12'edtUserName2'#4'Left'#2'x'#6 +#136#136#136#136#128#0#0#0#136#128#0#0#136#8#136#128#128#0#0#0#136#0#152#144
+'Height'#2#21#3'Top'#2'8'#5'Width'#3#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'e' +#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#137#128#0#0#0#0
+'dtRegCode2'#4'Left'#2'x'#6'Height'#2#21#3'Top'#2#24#5'Width'#3#233#0#8'TabO' +#128#0#0#0#136#0#152#144#8#136#136#136#128#0#0#0#136#128#0#0#136#136#136#136
+'rder'#2#1#0#0#5'TEdit'#9'edtStatus'#4'Left'#2'x'#6'Height'#2#21#3'Top'#2'X' +#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
,#5'Width'#2'a'#5'Color'#7#9'clBtnFace'#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#0 +#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
+#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9'NumGlyphs'
+#2#0#7'OnClick'#7#14'btnVerifyClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#5
+'TEdit'#12'edtUserName2'#4'Left'#2'x'#6'Height'#2#23#3'Top'#2'8'#5'Width'#3
+#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode2'#4'Left'#2'x'#6'Height'#2
+#23#3'Top'#2#24#5'Width'#3#233#0#8'TabOrder'#2#1#0#0#5'TEdit'#9'edtStatus'#4
+'Left'#2'x'#6'Height'#2#23#3'Top'#2'X'#5'Width'#2'a'#5'Color'#7#9'clBtnFace'
,#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#0
]); ]);

1
components/onguard/examples/exreg/exreg1.pas
View File

@ -71,6 +71,7 @@ var
Key : TKey; Key : TKey;
Code : TCode; Code : TCode;
Modifier : Longint; Modifier : Longint;
d : TDateTime;
begin begin
Key := EncryptionKey; Key := EncryptionKey;
Modifier := StringHashELF(edtUserName2.Text); Modifier := StringHashELF(edtUserName2.Text);

4
components/onguard/examples/exrgreg/ONGUARD.INI
View File

@ -1,3 +1,3 @@
[Codes] [Codes]
RegistrationCode=B7972EDE905C8F0A RegistrationCode=09108181268C5C3E8409
RegistrationStr=945-136-16-73 RegistrationStr=4F50EA24

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="0"/>
</General> </General>
@ -41,10 +42,10 @@
<Filename Value="exrgregu.pas"/> <Filename Value="exrgregu.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exrgregu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="exrgregu"/> <UnitName Value="exrgregu"/>
<CursorPos X="59" Y="108"/> <CursorPos X="59" Y="108"/>
<TopLine Value="1"/> <TopLine Value="67"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -53,7 +54,7 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -66,12 +67,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

4
components/onguard/examples/exrgstr/RegCode.ini
View File

@ -1,3 +1,3 @@
[Codes] [Codes]
RegStr=Lazarus RegStr=Boss
RegCode=5323D1321979760B RegCode=4D88FD73DF223CB80400

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -41,10 +42,10 @@
<Filename Value="exrgstru.pas"/> <Filename Value="exrgstru.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exrgstru.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exrgstru"/> <UnitName Value="Exrgstru"/>
<CursorPos X="24" Y="90"/> <CursorPos X="23" Y="89"/>
<TopLine Value="72"/> <TopLine Value="74"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -86,7 +87,7 @@
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -99,12 +100,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -3,21 +3,21 @@ object Form1: TForm1
Height = 192 Height = 192
Top = 218 Top = 218
Width = 262 Width = 262
HorzScrollBar.Page = 261
VertScrollBar.Page = 191
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 192
ClientWidth = 262
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.27'
object Label1: TLabel object Label1: TLabel
Left = 69 Left = 69
Height = 13 Height = 14
Top = 98 Top = 98
Width = 77 Width = 67
Alignment = taCenter Alignment = taCenter
Caption = 'Registered to:' Caption = 'Registered to:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Memo1: TMemo object Memo1: TMemo

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

@ -2,17 +2,17 @@
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#18'HorzScrollBar.Page'#3#5#1#18'VertScrollBar.Page'#3#191#0#7'C' +'idth'#3#6#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3#192#0#11'ClientWidth'#3
+'aption'#6#5'Form1'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font' +#6#1#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS '
+'.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#6'L' +'Sans Serif'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6
+'abel1'#4'Left'#2'E'#6'Height'#2#13#3'Top'#2'b'#5'Width'#2'M'#9'Alignment'#7 +'TLabel'#6'Label1'#4'Left'#2'E'#6'Height'#2#14#3'Top'#2'b'#5'Width'#2'C'#9'A'
+#8'taCenter'#7'Caption'#6#14'Registered to:'#5'Color'#7#6'clNone'#11'ParentC' +'lignment'#7#8'taCenter'#7'Caption'#6#14'Registered to:'#11'ParentColor'#8#0
+'olor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#13#6'Height'#2'O'#3'Top'#2#10#5'Wid' +#0#5'TMemo'#5'Memo1'#4'Left'#2#13#6'Height'#2'O'#3'Top'#2#10#5'Width'#3#223#0
+'th'#3#223#0#13'Lines.Strings'#1#6',If you can edit this, then your program ' +#13'Lines.Strings'#1#6',If you can edit this, then your program was '#6#14'a'
+'was '#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0 +'llowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBit'
+#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'K'#6'Height'#2'!'#3'Top'#2't'#5'Width' +'Btn'#8'CloseBtn'#4'Left'#2'K'#6'Height'#2'!'#3'Top'#2't'#5'Width'#2'Y'#4'Ki'
+#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgRegist' +'nd'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgRegistrationCod'
+'rationCode'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistrationCode1Ch' +'e'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistrationCode1Checked'#8
+'ecked'#8'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26'OgRegi' +'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26'OgRegistrationC'
+'strationCode1GetCode'#4'left'#3#165#0#3'top'#2'v'#0#0#0 +'ode1GetCode'#4'left'#3#165#0#3'top'#2'v'#0#0#0
]); ]);

4
components/onguard/examples/exrgstr/exrgstru.pas
View File

@ -86,8 +86,8 @@ var
C1 : string; C1 : string;
TC : TCode; TC : TCode;
begin begin
{forced cutoff date of 1999 Dec. 31} {forced cutoff date }
ED := EncodeDate(2006, 12, 31); ED := EncodeDate(2009, 12, 31);
case Status of case Status of
ogValidCode : begin ogValidCode : begin

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

@ -1,16 +1,17 @@
object Form1: TForm1 object Form1: TForm1
Left = 287 Left = 406
Height = 266 Height = 266
Top = 102 Top = 322
Width = 357 Width = 357
HorzScrollBar.Page = 356
VertScrollBar.Page = 241
ActiveControl = Memo1 ActiveControl = Memo1
Caption = 'ExSelAPI: ' Caption = 'ExSelAPI: '
ClientHeight = 246
ClientWidth = 357
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Menu = MainMenu1 Menu = MainMenu1
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.27'
object Memo1: TMemo object Memo1: TMemo
Left = 16 Left = 16
Height = 145 Height = 145
@ -43,8 +44,8 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
left = 64 left = 32
top = 112 top = 168
object FeaturesMenu: TMenuItem object FeaturesMenu: TMenuItem
Caption = 'Features' Caption = 'Features'
object FeaturesRequired: TMenuItem object FeaturesRequired: TMenuItem

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

@ -1,29 +1,29 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasob�w lazarusa }
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#31#1#6'Height'#3#10#1#3'Top'#2'f'#5'Width' 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#150#1#6'Height'#3#10#1#3'Top'#3'B'#1#5'Wi'
+#3'e'#1#18'HorzScrollBar.Page'#3'd'#1#18'VertScrollBar.Page'#3#241#0#13'Acti' +'dth'#3'e'#1#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#10'ExSelAPI: '#12'Cli'
+'veControl'#7#5'Memo1'#7'Caption'#6#10'ExSelAPI: '#11'Font.Height'#2#245#9'F' +'entHeight'#3#246#0#11'ClientWidth'#3'e'#1#11'Font.Height'#2#245#9'Font.Name'
+'ont.Name'#6#13'MS Sans Serif'#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormC' +#6#13'MS Sans Serif'#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'#10
+'reate'#0#5'TMemo'#5'Memo1'#4'Left'#2#16#6'Height'#3#145#0#3'Top'#2#8#5'Widt' +'LCLVersion'#6#6'0.9.27'#0#5'TMemo'#5'Memo1'#4'Left'#2#16#6'Height'#3#145#0#3
+'h'#3'9'#1#5'Color'#7#6'clAqua'#13'Lines.Strings'#1#6': This example uses ' +'Top'#2#8#5'Width'#3'9'#1#5'Color'#7#6'clAqua'#13'Lines.Strings'#1#6': Thi'
+'the OgUsageCode and the OgSpecialCode'#6'9 (via OnGuard API functions) to' +'s example uses the OgUsageCode and the OgSpecialCode'#6'9 (via OnGuard AP'
+' implement a limited use'#6'> "demo" application which allows only the re' +'I functions) to implement a limited use'#6'> "demo" application which all'
+'quired features.'#6'9 The program can be run 3 times and then a special c' +'ows only the required features.'#6'9 The program can be run 3 times and t'
+'ode'#6'9 must be obtained to register the program and to enable'#6'; va' +'hen a special code'#6'9 must be obtained to register the program and to e'
+'rious features. A machine modifier is used to prevent'#6'7 the applicati' +'nable'#6'; various features. A machine modifier is used to prevent'#6'7 '
+'on from being copied and run on another'#6'; machine. To obtain the rele' +' the application from being copied and run on another'#6'; machine. To '
+'ase code you need to run the'#6': companion example EXSLCODE. The releas' +'obtain the release code you need to run the'#6': companion example EXSLCO'
+'e codes will be '#6', stored in a data file called EXSELECT.DAT'#0#8'Read' +'DE. The release codes will be '#6', stored in a data file called EXSELEC'
+'Only'#9#8'TabOrder'#2#0#0#0#7'TButton'#9'ModifyBtn'#4'Left'#2'x'#6'Height'#2 +'T.DAT'#0#8'ReadOnly'#9#8'TabOrder'#2#0#0#0#7'TButton'#9'ModifyBtn'#4'Left'#2
+#25#3'Top'#3#176#0#5'Width'#2'q'#25'BorderSpacing.InnerBorder'#2#4#7'Caption' +'x'#6'Height'#2#25#3'Top'#3#176#0#5'Width'#2'q'#25'BorderSpacing.InnerBorder'
+#6#15'Modify Features'#7'OnClick'#7#14'ModifyBtnClick'#8'TabOrder'#2#1#0#0#9 +#2#4#7'Caption'#6#15'Modify Features'#7'OnClick'#7#14'ModifyBtnClick'#8'TabO'
+'TMainMenu'#9'MainMenu1'#4'left'#2'@'#3'top'#2'p'#0#9'TMenuItem'#12'Features' +'rder'#2#1#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2' '#3'top'#3#168#0#0#9'TMe'
+'Menu'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesRequired'#7'Captio' +'nuItem'#12'FeaturesMenu'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'Feature'
+'n'#6#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'FeaturesHelp'#7'Caption'#6 +'sRequired'#7'Caption'#6#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'Featur'
+#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamples'#7'Caption'#6#8'E' +'esHelp'#7'Caption'#6#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamp'
+'xamples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDatabase'#7'Caption'#6#8 +'les'#7'Caption'#6#8'Examples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesData'
+'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7'Caption'#6#3'Fax' +'base'#7'Caption'#6#8'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'
+#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Caption'#6#7'Goodies'#7 +#7'Caption'#6#3'Fax'#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Cap'
+'Enabled'#8#0#0#0#0#0 +'tion'#6#7'Goodies'#7'Enabled'#8#0#0#0#0#0
]); ]);

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

@ -68,7 +68,7 @@ const
DemoCaption : string = 'ExSelApi: Demo runs left = '; DemoCaption : string = 'ExSelApi: Demo runs left = ';
RegisteredCap : string = 'ExSelApi: Registered'; RegisteredCap : string = 'ExSelApi: Registered';
NotRegisteredCap : string = 'ExSelApi: Not Registered'; NotRegisteredCap : string = 'ExSelApi: Not Registered';
ModifyStr : string = 'Modify Registration to enable this feature'; // ModifyStr : string = 'Modify Registration to enable this feature';
{ Feature masks } { Feature masks }
RequiredMask = $00000001; RequiredMask = $00000001;

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

@ -1,13 +1,14 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="2"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -27,11 +28,11 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="8"> <Units Count="9">
<Unit0> <Unit0>
<Filename Value="exselapi.lpr"/> <Filename Value="exselapi.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="41" Y="14"/> <CursorPos X="37" Y="9"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="23"/> <UsageCount Value="23"/>
@ -39,14 +40,15 @@
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="exselap1.pas"/> <Filename Value="exselap1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exselap1.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exselap1"/> <UnitName Value="Exselap1"/>
<CursorPos X="12" Y="171"/> <CursorPos X="3" Y="71"/>
<TopLine Value="149"/> <TopLine Value="50"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="12"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
@ -59,11 +61,9 @@
<Unit3> <Unit3>
<Filename Value="../../source/onguard.pas"/> <Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/> <UnitName Value="onguard"/>
<CursorPos X="1" Y="1179"/> <CursorPos X="25" Y="1192"/>
<TopLine Value="1412"/> <TopLine Value="1179"/>
<EditorIndex Value="2"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../source/ogproexe.pas"/> <Filename Value="../../source/ogproexe.pas"/>
@ -90,91 +90,42 @@
<TopLine Value="52"/> <TopLine Value="52"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8>
<Filename Value="../../../../../../temp/fpc/rtl/inc/systemh.inc"/>
<CursorPos X="11" Y="882"/>
<TopLine Value="861"/>
<UsageCount Value="10"/>
</Unit8>
</Units> </Units>
<JumpHistory Count="19" HistoryIndex="18"> <JumpHistory Count="6" HistoryIndex="5">
<Position1> <Position1>
<Filename Value="../../source/onguard.pas"/> <Filename Value="exselap1.pas"/>
<Caret Line="1009" Column="57" TopLine="996"/> <Caret Line="155" Column="45" TopLine="43"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../source/onguard.pas"/> <Filename Value="exselap1.pas"/>
<Caret Line="1010" Column="1" TopLine="993"/> <Caret Line="134" Column="19" TopLine="122"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../source/onguard.pas"/> <Filename Value="exselap1.pas"/>
<Caret Line="1013" Column="1" TopLine="996"/> <Caret Line="94" Column="8" TopLine="88"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../source/onguard.pas"/> <Filename Value="exselap1.pas"/>
<Caret Line="1018" Column="1" TopLine="1001"/> <Caret Line="120" Column="67" TopLine="211"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../source/onguard.pas"/> <Filename Value="exselap1.pas"/>
<Caret Line="1021" Column="1" TopLine="1004"/> <Caret Line="93" Column="12" TopLine="61"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../source/onguard.pas"/> <Filename Value="exselap1.pas"/>
<Caret Line="1022" Column="1" TopLine="1005"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position6> </Position6>
<Position7>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1023" Column="1" TopLine="1006"/>
</Position7>
<Position8>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1024" Column="1" TopLine="1007"/>
</Position8>
<Position9>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1027" Column="1" TopLine="1010"/>
</Position9>
<Position10>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1028" Column="1" TopLine="1011"/>
</Position10>
<Position11>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1029" Column="1" TopLine="1012"/>
</Position11>
<Position12>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1030" Column="1" TopLine="1013"/>
</Position12>
<Position13>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1034" Column="1" TopLine="1017"/>
</Position13>
<Position14>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1035" Column="1" TopLine="1018"/>
</Position14>
<Position15>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1036" Column="1" TopLine="1019"/>
</Position15>
<Position16>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1037" Column="1" TopLine="1020"/>
</Position16>
<Position17>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1040" Column="1" TopLine="1023"/>
</Position17>
<Position18>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1041" Column="1" TopLine="1024"/>
</Position18>
<Position19>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1042" Column="1" TopLine="1025"/>
</Position19>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<SearchPaths>
<OtherUnitFiles Value="../../source/"/>
</SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -187,31 +138,31 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="3"> <BreakPoints Count="2">
<Item1> <Item1>
<Source Value="exselap1.pas"/> <Source Value="exselap1.pas"/>
<Line Value="114"/> <Line Value="114"/>
</Item1> </Item1>
<Item2> <Item2>
<Source Value="exselap1.pas"/>
<Line Value="239"/>
</Item2>
<Item3>
<Source Value="../../source/onguard.pas"/> <Source Value="../../source/onguard.pas"/>
<Line Value="1010"/> <Line Value="1010"/>
</Item3> </Item2>
</BreakPoints> </BreakPoints>
<Watches Count="1"> <Watches Count="1">
<Item1> <Item1>

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

@ -6,7 +6,7 @@ program Exselapi;
uses uses
Interfaces, Interfaces,
Forms, Forms,
Exselap1 in 'EXSELAP1.PAS' {Form1}, tponguard; Exselap1 in 'EXSELAP1.PAS' {Form1};
begin begin

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -41,10 +42,10 @@
<Filename Value="exselec1.pas"/> <Filename Value="exselec1.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exselec1.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exselec1"/> <UnitName Value="Exselec1"/>
<CursorPos X="36" Y="313"/> <CursorPos X="36" Y="313"/>
<TopLine Value="296"/> <TopLine Value="289"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -59,7 +60,7 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -72,12 +73,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -6,7 +6,6 @@ object Form1: TForm1
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13
HorzScrollBar.Page = 287 HorzScrollBar.Page = 287
VertScrollBar.Page = 242 VertScrollBar.Page = 242
Left = 237 Left = 237

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

@ -1,30 +1,27 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#9'MachineID'#7'Caption'#6#24' S' 'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#9'MachineID'#7'Caption'#6#24' S'
+'pecial Code Generator '#12'ClientHeight'#3#243#0#11'ClientWidth'#3' '#1#11 +'pecial Code Generator '#12'ClientHeight'#3#243#0#11'ClientWidth'#3' '#1#11
+'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#13'PixelsPerInch'#2'`' +'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#13'PixelsPerInch'#2'`'
+#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#31#1#18'VertScrollBar.Page'#3 +#18'HorzScrollBar.Page'#3#31#1#18'VertScrollBar.Page'#3#242#0#4'Left'#3#237#0
+#242#0#4'Left'#3#237#0#6'Height'#3#243#0#3'Top'#3#152#0#5'Width'#3' '#1#0#6 +#6'Height'#3#243#0#3'Top'#3#152#0#5'Width'#3' '#1#0#6'TLabel'#6'Label1'#7'Ca'
+'TLabel'#6'Label1'#7'Caption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'Paren' +'ption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'#'
+'tColor'#8#4'Left'#2'#'#6'Height'#2#14#3'Top'#2#20#5'Width'#2'6'#0#0#7'TButt' +#6'Height'#2#14#3'Top'#2#20#5'Width'#2'6'#0#0#7'TButton'#6'GenBtn'#25'Border'
+'on'#6'GenBtn'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13'Generate Co' +'Spacing.InnerBorder'#2#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#11'Gen'
+'de'#7'OnClick'#7#11'GenBtnClick'#8'TabOrder'#2#1#4'Left'#2#18#6'Height'#2#25 +'BtnClick'#8'TabOrder'#2#1#4'Left'#2#18#6'Height'#2#25#3'Top'#3#176#0#5'Widt'
+#3'Top'#3#176#0#5'Width'#2'Y'#0#0#5'TEdit'#9'MachineID'#9'MaxLength'#2#8#8'T' +'h'#2'Y'#0#0#5'TEdit'#9'MachineID'#9'MaxLength'#2#8#8'TabOrder'#2#0#4'Left'#2
+'abOrder'#2#0#4'Left'#2'{'#6'Height'#2#21#3'Top'#2#16#5'Width'#2'Y'#0#0#9'TG' +'{'#6'Height'#2#21#3'Top'#2#16#5'Width'#2'Y'#0#0#9'TGroupBox'#9'GroupBox1'#7
+'roupBox'#9'GroupBox1'#7'Caption'#6#8'Features'#12'ClientHeight'#2'O'#11'Cli' +'Caption'#6#8'Features'#12'ClientHeight'#2'O'#11'ClientWidth'#3#221#0#8'TabO'
+'entWidth'#3#221#0#8'TabOrder'#2#2#4'Left'#2#24#6'Height'#2'a'#3'Top'#2'8'#5 +'rder'#2#2#4'Left'#2#24#6'Height'#2'a'#3'Top'#2'8'#5'Width'#3#225#0#0#9'TChe'
+'Width'#3#225#0#0#9'TCheckBox'#7'ReqFeat'#7'Caption'#6#8'Required'#7'Checked' +'ckBox'#7'ReqFeat'#7'Caption'#6#8'Required'#7'Checked'#9#7'Enabled'#8#5'Stat'
+#9#7'Enabled'#8#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#4'Left'#2#16#6'Heigh' +'e'#7#9'cbChecked'#8'TabOrder'#2#0#4'Left'#2#16#6'Height'#2#17#3'Top'#2#24#5
+'t'#2#17#3'Top'#2#24#5'Width'#2'Q'#0#0#9'TCheckBox'#8'HelpFeat'#7'Caption'#6 +'Width'#2'Q'#0#0#9'TCheckBox'#8'HelpFeat'#7'Caption'#6#4'Help'#8'TabOrder'#2
+#4'Help'#8'TabOrder'#2#1#4'Left'#2#16#6'Height'#2#17#3'Top'#2'('#5'Width'#2 +#1#4'Left'#2#16#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'TCheckBox'#12
+'Q'#0#0#9'TCheckBox'#12'ExamplesFeat'#7'Caption'#6#8'Examples'#8'TabOrder'#2 +'ExamplesFeat'#7'Caption'#6#8'Examples'#8'TabOrder'#2#2#4'Left'#2#16#6'Heigh'
+#2#4'Left'#2#16#6'Height'#2#17#3'Top'#2'8'#5'Width'#2'Q'#0#0#9'TCheckBox'#6 +'t'#2#17#3'Top'#2'8'#5'Width'#2'Q'#0#0#9'TCheckBox'#6'DBFeat'#7'Caption'#6#8
+'DBFeat'#7'Caption'#6#8'Database'#8'TabOrder'#2#3#4'Left'#2'x'#6'Height'#2#17 +'Database'#8'TabOrder'#2#3#4'Left'#2'x'#6'Height'#2#17#3'Top'#2#24#5'Width'#2
+#3'Top'#2#24#5'Width'#2'Q'#0#0#9'TCheckBox'#7'FaxFeat'#7'Caption'#6#3'Fax'#8 +'Q'#0#0#9'TCheckBox'#7'FaxFeat'#7'Caption'#6#3'Fax'#8'TabOrder'#2#4#4'Left'#2
+'TabOrder'#2#4#4'Left'#2'x'#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'T' +'x'#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'TCheckBox'#11'GoodiesFeat'
+'CheckBox'#11'GoodiesFeat'#7'Caption'#6#7'Goodies'#8'TabOrder'#2#5#4'Left'#2 +#7'Caption'#6#7'Goodies'#8'TabOrder'#2#5#4'Left'#2'x'#6'Height'#2#17#3'Top'#2
+'x'#6'Height'#2#17#3'Top'#2'8'#5'Width'#2'Q'#0#0#0#5'TEdit'#11'CodeDisplay'#5 +'8'#5'Width'#2'Q'#0#0#0#5'TEdit'#11'CodeDisplay'#5'Color'#7#6'clAqua'#8'TabO'
+'Color'#7#6'clAqua'#8'TabOrder'#2#3#4'Left'#2'{'#6'Height'#2#21#3'Top'#3#178 +'rder'#2#3#4'Left'#2'{'#6'Height'#2#21#3'Top'#3#178#0#5'Width'#2'~'#0#0#0
+#0#5'Width'#2'~'#0#0#0
]); ]);

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -27,7 +28,7 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="3">
<Unit0> <Unit0>
<Filename Value="exslcode.lpr"/> <Filename Value="exslcode.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -39,21 +40,29 @@
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="exslcod1.pas"/> <Filename Value="exslcod1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exslcod1.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exslcod1"/> <UnitName Value="Exslcod1"/>
<CursorPos X="34" Y="68"/> <CursorPos X="34" Y="68"/>
<TopLine Value="1"/> <TopLine Value="27"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2>
<Filename Value="exslcod1.lfm"/>
<CursorPos X="11" Y="2"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit2>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -66,12 +75,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -2,12 +2,14 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/> <Version Value="7"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value=".\"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -42,10 +44,10 @@
<Filename Value="exsnregu.pas"/> <Filename Value="exsnregu.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exsnregu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exsnregu"/> <UnitName Value="Exsnregu"/>
<CursorPos X="31" Y="26"/> <CursorPos X="74" Y="19"/>
<TopLine Value="1"/> <TopLine Value="88"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -54,7 +56,7 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
@ -68,12 +70,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -1,13 +1,14 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -41,9 +42,9 @@
<Filename Value="exspnamu.pas"/> <Filename Value="exspnamu.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exspnamu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="ExSpNamu"/> <UnitName Value="ExSpNamu"/>
<CursorPos X="14" Y="6"/> <CursorPos X="86" Y="14"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
@ -53,7 +54,7 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -66,12 +67,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -1,13 +1,14 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -41,9 +42,9 @@
<Filename Value="exspregu.pas"/> <Filename Value="exspregu.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exspregu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exspregu"/> <UnitName Value="Exspregu"/>
<CursorPos X="62" Y="19"/> <CursorPos X="46" Y="20"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
@ -53,7 +54,7 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -66,12 +67,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

4
components/onguard/examples/exsrnm1/SNCode.INI
View File

@ -1,3 +1,3 @@
[Codes] [Codes]
SN=113 SN=123
SNCode=8C6A4934ECB914DB SNCode=115784126DDFAA420000

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="2"/> <ActiveEditorIndexAtStart Value="2"/>
</General> </General>
@ -41,10 +42,10 @@
<Filename Value="exsrnmu1.pas"/> <Filename Value="exsrnmu1.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exsrnmu1.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exsrnmu1"/> <UnitName Value="Exsrnmu1"/>
<CursorPos X="1" Y="86"/> <CursorPos X="27" Y="6"/>
<TopLine Value="158"/> <TopLine Value="1"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -53,10 +54,10 @@
<Filename Value="exsrnmu2.pas"/> <Filename Value="exsrnmu2.pas"/>
<ComponentName Value="SNEntryDlg"/> <ComponentName Value="SNEntryDlg"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exsrnmu2.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exsrnmu2"/> <UnitName Value="Exsrnmu2"/>
<CursorPos X="3" Y="35"/> <CursorPos X="3" Y="35"/>
<TopLine Value="7"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -186,7 +187,7 @@
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -199,12 +200,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -1,2 +1,2 @@
[Codes] [Codes]
Uses=FCFB2E2A29547C1C Uses=B6203E9DBF2E46BD5D13

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -41,16 +42,16 @@
<Filename Value="exusg1u.pas"/> <Filename Value="exusg1u.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exusg1u.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exusg1u"/> <UnitName Value="Exusg1u"/>
<CursorPos X="54" Y="106"/> <CursorPos X="56" Y="106"/>
<TopLine Value="89"/> <TopLine Value="106"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
<JumpHistory Count="2" HistoryIndex="1"> <JumpHistory Count="3" HistoryIndex="2">
<Position1> <Position1>
<Filename Value="exusg1u.pas"/> <Filename Value="exusg1u.pas"/>
<Caret Line="105" Column="55" TopLine="96"/> <Caret Line="105" Column="55" TopLine="96"/>
@ -59,10 +60,14 @@
<Filename Value="exusg1u.pas"/> <Filename Value="exusg1u.pas"/>
<Caret Line="106" Column="70" TopLine="89"/> <Caret Line="106" Column="70" TopLine="89"/>
</Position2> </Position2>
<Position3>
<Filename Value="exusg1u.pas"/>
<Caret Line="95" Column="22" TopLine="89"/>
</Position3>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -75,12 +80,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -3,21 +3,21 @@ object Form1: TForm1
Height = 155 Height = 155
Top = 289 Top = 289
Width = 218 Width = 218
HorzScrollBar.Page = 217
VertScrollBar.Page = 154
ActiveControl = Memo1 ActiveControl = Memo1
Caption = 'Usage Code Example' Caption = 'Usage Code Example'
ClientHeight = 155
ClientWidth = 218
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.27'
object Label1: TLabel object Label1: TLabel
Left = 56 Left = 56
Height = 13 Height = 14
Top = 72 Top = 72
Width = 100 Width = 84
Caption = 'Available Runs: 0' Caption = 'Available Runs: 0'
Color = clNone
ParentColor = False ParentColor = False
end end
object Memo1: TMemo object Memo1: TMemo

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

@ -2,18 +2,17 @@
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#18'HorzScrollBar.Page'#3#217#0#18'VertScrollBar.Page'#3#154#0 +'dth'#3#218#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#18'Usage Code Exampl'
+#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#18'Usage Code Example'#10'Font.Co' +'e'#12'ClientHeight'#3#155#0#11'ClientWidth'#3#218#0#10'Font.Color'#7#7'clBl'
+'lor'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8 +'ack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14
+'Position'#7#14'poScreenCenter'#0#6'TLabel'#6'Label1'#4'Left'#2'8'#6'Height' +'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2
+#2#13#3'Top'#2'H'#5'Width'#2'd'#7'Caption'#6#17'Available Runs: 0'#5'Color'#7 +'8'#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'T'#7'Caption'#6#17'Available Runs:'
+#6'clNone'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#2';' +' 0'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#2';'#3'To'
+#3'Top'#2#8#5'Width'#3#197#0#13'Lines.Strings'#1#6'#If you can edit this, yo' +'p'#2#8#5'Width'#3#197#0#13'Lines.Strings'#1#6'#If you can edit this, your p'
+'ur program '#6#4'was '#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertica' +'rogram '#6#4'was '#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8
+'l'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3 +'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3'Top'
+'Top'#2'Y'#5'Width'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2 +#2'Y'#5'Width'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0
+#1#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'OnChecked'#7#19'OgUsageCode1Check' +#12'TOgUsageCode'#12'OgUsageCode1'#9'OnChecked'#7#19'OgUsageCode1Checked'#8
+'ed'#8'OnGetKey'#7#18'OgUsageCode1GetKey'#9'OnGetCode'#7#19'OgUsageCode1GetC' +'OnGetKey'#7#18'OgUsageCode1GetKey'#9'OnGetCode'#7#19'OgUsageCode1GetCode'#12
+'ode'#12'OnChangeCode'#7#22'OgUsageCode1ChangeCode'#4'left'#2'X'#3'top'#3#160 +'OnChangeCode'#7#22'OgUsageCode1ChangeCode'#4'left'#2'X'#3'top'#3#160#0#0#0#0
+#0#0#0#0
]); ]);

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

@ -2,7 +2,7 @@
This example uses the TOgUsageCode component. This is the most basic This example uses the TOgUsageCode component. This is the most basic
example in that on first run, the INI file entries and component example in that on first run, the INI file entries and component
properties are set to allow 5 runs of the program with a "drop dead" properties are set to allow 5 runs of the program with a "drop dead"
date of 1999 December 31. date
*) *)
unit Exusg1u; unit Exusg1u;
@ -102,8 +102,8 @@ begin
IniFile := TIniFile.Create(TheDir + 'Usage1.ini'); IniFile := TIniFile.Create(TheDir + 'Usage1.ini');
try try
{hard coded release code for 5 users} {hard coded release code for 5 users}
{and drop dead date of 2006 Dec. 31} {and drop dead date of 2009 Dec. 31}
S := '602224E18B152CF2';//'AC5D76E4B10D642B'; S := 'AECCA5B793AD56155D13';
HexToBuffer(S, Code, SizeOf(Code)); HexToBuffer(S, Code, SizeOf(Code));
IniFile.WriteString('Codes', 'Uses', S); IniFile.WriteString('Codes', 'Uses', S);
finally finally

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

@ -1,3 +1,2 @@
[Codes] [Codes]
Uses=FCFB2E2A29547C1C Uses=C48C080E8F9257705D13

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

@ -1,13 +1,14 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -41,9 +42,9 @@
<Filename Value="exusg2u.pas"/> <Filename Value="exusg2u.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exusg2u.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Exusg2u"/> <UnitName Value="Exusg2u"/>
<CursorPos X="1" Y="71"/> <CursorPos X="34" Y="46"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
@ -53,7 +54,7 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -66,12 +67,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -1,2 +1,2 @@
[Codes] [Codes]
UsageCode=5C41E51B9365B994 UsageCode=C48C080E8F9257705D13

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="0"/>
</General> </General>
@ -41,7 +42,7 @@
<Filename Value="exusregu.pas"/> <Filename Value="exusregu.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="exusregu.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="ExUSRegU"/> <UnitName Value="ExUSRegU"/>
<CursorPos X="36" Y="13"/> <CursorPos X="36" Y="13"/>
<TopLine Value="1"/> <TopLine Value="1"/>
@ -53,7 +54,7 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -66,12 +67,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -27,33 +28,33 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="8"> <Units Count="9">
<Unit0> <Unit0>
<Filename Value="fixnaf.lpr"/> <Filename Value="fixnaf.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="3" Y="7"/> <CursorPos X="59" Y="15"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="fixnaf1.pas"/> <Filename Value="fixnaf1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainFrm"/> <ComponentName Value="MainFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="fixnaf1.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="FIXNAF1"/> <UnitName Value="FIXNAF1"/>
<CursorPos X="37" Y="97"/> <CursorPos X="72" Y="7"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../source/qonguard4.pas"/> <Filename Value="../../source/qonguard4.pas"/>
<ComponentName Value="EditProductFrm"/> <ComponentName Value="EditProductFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="../../source/qonguard4.lrs"/>
<UnitName Value="qonguard4"/> <UnitName Value="qonguard4"/>
<CursorPos X="33" Y="36"/> <CursorPos X="33" Y="36"/>
<TopLine Value="30"/> <TopLine Value="30"/>
@ -63,7 +64,6 @@
<Filename Value="../../source/qonguard3.pas"/> <Filename Value="../../source/qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/> <ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="../../source/qonguard3.lrs"/>
<UnitName Value="qonguard3"/> <UnitName Value="qonguard3"/>
<CursorPos X="44" Y="37"/> <CursorPos X="44" Y="37"/>
<TopLine Value="30"/> <TopLine Value="30"/>
@ -80,7 +80,6 @@
<Filename Value="../../source/qonguard2.pas"/> <Filename Value="../../source/qonguard2.pas"/>
<ComponentName Value="CodeGenerateFrm"/> <ComponentName Value="CodeGenerateFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="../../source/qonguard2.lrs"/>
<UnitName Value="qonguard2"/> <UnitName Value="qonguard2"/>
<CursorPos X="20" Y="339"/> <CursorPos X="20" Y="339"/>
<TopLine Value="337"/> <TopLine Value="337"/>
@ -99,14 +98,27 @@
<TopLine Value="161"/> <TopLine Value="161"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8>
<Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="32" Y="15"/>
<TopLine Value="7"/>
<UsageCount Value="10"/>
</Unit8>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="fixnaf.lpr"/>
<Caret Line="8" Column="37" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="fixnaf1.pas"/>
<Caret Line="7" Column="72" TopLine="1"/>
</Position2>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<SearchPaths>
<OtherUnitFiles Value="../../source/"/>
</SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -119,12 +131,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

2
components/onguard/examples/fixnaf/fixnaf.lpr
View File

@ -5,7 +5,7 @@ uses
Interfaces, Interfaces,
Forms, Forms,
ogfirst, ogfirst,
FIXNAF1 in 'FIXNAF1.pas' {MainFrm}, tponguard; FIXNAF1 in 'FIXNAF1.pas' {MainFrm};

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

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -31,7 +32,7 @@
<Unit0> <Unit0>
<Filename Value="nafmgr.lpr"/> <Filename Value="nafmgr.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="21" Y="3"/> <CursorPos X="36" Y="8"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
@ -39,14 +40,15 @@
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="NafFrm"/> <ComponentName Value="NafFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="nafmgr1.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="NAFMGR1"/> <UnitName Value="NAFMGR1"/>
<CursorPos X="1" Y="70"/> <CursorPos X="1" Y="70"/>
<TopLine Value="1"/> <TopLine Value="29"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
@ -56,22 +58,15 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit2> </Unit2>
</Units> </Units>
<JumpHistory Count="2" HistoryIndex="1"> <JumpHistory Count="1" HistoryIndex="0">
<Position1> <Position1>
<Filename Value="nafmgr1.pas"/>
<Caret Line="18" Column="16" TopLine="139"/>
</Position1>
<Position2>
<Filename Value="nafmgr1.pas"/> <Filename Value="nafmgr1.pas"/>
<Caret Line="70" Column="1" TopLine="53"/> <Caret Line="70" Column="1" TopLine="53"/>
</Position2> </Position1>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<SearchPaths>
<OtherUnitFiles Value="../../source/"/>
</SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -84,12 +79,16 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

2
components/onguard/examples/nafmgr/nafmgr.lpr
View File

@ -5,7 +5,7 @@ uses
Interfaces, Interfaces,
Forms, Forms,
ogfirst, ogfirst,
NAFMGR1 in 'NAFMGR1.pas' {NafFrm}, tponguard; NAFMGR1 in 'NAFMGR1.pas' {NafFrm};

4
components/onguard/examples/regdemo/REGISTRATION.DAT
View File

@ -1,2 +1,2 @@
11345 1
BE81DA11B7CAEC9C A624 C732 3A5E F550

1
components/onguard/examples/regdemo/frm_main.lfm
View File

@ -7,7 +7,6 @@ object frmMain: TfrmMain
Font.Name = 'Arial' Font.Name = 'Arial'
OnCreate = FormCreate OnCreate = FormCreate
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 16
HorzScrollBar.Page = 366 HorzScrollBar.Page = 366
VertScrollBar.Page = 142 VertScrollBar.Page = 142
Left = 383 Left = 383

23
components/onguard/examples/regdemo/frm_main.lrs
View File

@ -1,18 +1,15 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
LazarusResources.Add('TfrmMain','FORMDATA',[ LazarusResources.Add('TfrmMain','FORMDATA',[
'TPF0'#8'TfrmMain'#7'frmMain'#13'ActiveControl'#7#7'Button1'#7'Caption'#6#11 'TPF0'#8'TfrmMain'#7'frmMain'#13'ActiveControl'#7#7'Button1'#7'Caption'#6#11
+'Hello World'#12'ClientHeight'#3#143#0#11'ClientWidth'#3'o'#1#11'Font.Height' +'Hello World'#12'ClientHeight'#3#143#0#11'ClientWidth'#3'o'#1#11'Font.Height'
+#2#243#9'Font.Name'#6#5'Arial'#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch' +#2#243#9'Font.Name'#6#5'Arial'#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'
+#2'`'#10'TextHeight'#2#16#18'HorzScrollBar.Page'#3'n'#1#18'VertScrollBar.Pag' +#2'`'#18'HorzScrollBar.Page'#3'n'#1#18'VertScrollBar.Page'#3#142#0#4'Left'#3
+'e'#3#142#0#4'Left'#3''#1#6'Height'#3#143#0#3'Top'#3'!'#1#5'Width'#3'o'#1#0 +''#1#6'Height'#3#143#0#3'Top'#3'!'#1#5'Width'#3'o'#1#0#6'TLabel'#6'Label1'#9
+#6'TLabel'#6'Label1'#9'Alignment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#12 +'Alignment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#12'Hello World!'#5'Colo'
+'Hello World!'#5'Color'#7#6'clNone'#11'Font.Height'#2#223#9'Font.Name'#6#5'A' +'r'#7#6'clNone'#11'Font.Height'#2#223#9'Font.Name'#6#5'Arial'#11'ParentColor'
+'rial'#11'ParentColor'#8#4'Left'#2#4#6'Height'#2')'#3'Top'#2#16#5'Width'#3'g' +#8#4'Left'#2#4#6'Height'#2')'#3'Top'#2#16#5'Width'#3'g'#1#0#0#7'TButton'#7'B'
+#1#0#0#7'TButton'#7'Button1'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5 +'utton1'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5'Close'#7'OnClick'#7
+'Close'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#4'Left'#3#24#1#6'Heigh' +#12'Button1Click'#8'TabOrder'#2#0#4'Left'#3#24#1#6'Height'#2#25#3'Top'#2'X'#5
+'t'#2#25#3'Top'#2'X'#5'Width'#2'K'#0#0#7'TButton'#9'btnReadme'#25'BorderSpac' +'Width'#2'K'#0#0#7'TButton'#9'btnReadme'#25'BorderSpacing.InnerBorder'#2#4#7
+'ing.InnerBorder'#2#4#7'Caption'#6#9'Readme...'#7'OnClick'#7#14'btnReadmeCli' +'Caption'#6#9'Readme...'#7'OnClick'#7#14'btnReadmeClick'#8'TabOrder'#2#1#4'L'
+'ck'#8'TabOrder'#2#1#4'Left'#2#16#6'Height'#2#25#3'Top'#2'X'#5'Width'#2'K'#0 +'eft'#2#16#6'Height'#2#25#3'Top'#2'X'#5'Width'#2'K'#0#0#0
+#0#0
]); ]);

20
components/onguard/examples/regdemo/frm_readme.lfm
View File

@ -1,4 +1,8 @@
object frmReadme: TfrmReadme object frmReadme: TfrmReadme
Left = 192
Height = 462
Top = 107
Width = 539
ActiveControl = Memo1 ActiveControl = Memo1
Caption = 'Readme.txt' Caption = 'Readme.txt'
ClientHeight = 462 ClientHeight = 462
@ -6,15 +10,12 @@ object frmReadme: TfrmReadme
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnActivate = FormActivate OnActivate = FormActivate
PixelsPerInch = 96 LCLVersion = '0.9.27'
TextHeight = 13
HorzScrollBar.Page = 538
VertScrollBar.Page = 461
Left = 192
Height = 462
Top = 107
Width = 539
object Memo1: TMemo object Memo1: TMemo
Left = 0
Height = 462
Top = 0
Width = 539
Align = alClient Align = alClient
Font.Height = -13 Font.Height = -13
Font.Name = 'Courier New' Font.Name = 'Courier New'
@ -132,10 +133,9 @@ object frmReadme: TfrmReadme
'HELLOWORLD.EXE. ' 'HELLOWORLD.EXE. '
'' ''
) )
ParentFont = False
ReadOnly = True ReadOnly = True
ScrollBars = ssBoth ScrollBars = ssBoth
TabOrder = 0 TabOrder = 0
Height = 462
Width = 539
end end
end end

135
components/onguard/examples/regdemo/frm_readme.lrs
View File

@ -1,71 +1,70 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasobów lazarusa }
LazarusResources.Add('TfrmReadme','FORMDATA',[ LazarusResources.Add('TfrmReadme','FORMDATA',[
'TPF0'#10'TfrmReadme'#9'frmReadme'#13'ActiveControl'#7#5'Memo1'#7'Caption'#6 'TPF0'#10'TfrmReadme'#9'frmReadme'#4'Left'#3#192#0#6'Height'#3#206#1#3'Top'#2
+#10'Readme.txt'#12'ClientHeight'#3#206#1#11'ClientWidth'#3#27#2#11'Font.Heig' +'k'#5'Width'#3#27#2#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#10'Readme.txt'
+'ht'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActivate'#7#12'FormActivate' +#12'ClientHeight'#3#206#1#11'ClientWidth'#3#27#2#11'Font.Height'#2#245#9'Fon'
+#13'PixelsPerInch'#2'`'#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#26#2#18 +'t.Name'#6#13'MS Sans Serif'#10'OnActivate'#7#12'FormActivate'#10'LCLVersion'
+'VertScrollBar.Page'#3#205#1#4'Left'#3#192#0#6'Height'#3#206#1#3'Top'#2'k'#5 +#6#6'0.9.27'#0#5'TMemo'#5'Memo1'#4'Left'#2#0#6'Height'#3#206#1#3'Top'#2#0#5
+'Width'#3#27#2#0#5'TMemo'#5'Memo1'#5'Align'#7#8'alClient'#11'Font.Height'#2 +'Width'#3#27#2#5'Align'#7#8'alClient'#11'Font.Height'#2#243#9'Font.Name'#6#11
+#243#9'Font.Name'#6#11'Courier New'#13'Lines.Strings'#1#6'&Registration Demo' +'Courier New'#13'Lines.Strings'#1#6'&Registration Demo by Bill Mullen [TPX]'
+' by Bill Mullen [TPX]'#6'&--------------------------------------'#6#0#6'>Th' +#6'&--------------------------------------'#6#0#6'>This demo consists of thr'
+'is demo consists of three applications and complete project '#6#5'code.'#6 +'ee applications and complete project '#6#5'code.'#6#27'The three applicatio'
+#27'The three applications are:'#6#0#6'@RCG.EXE - This is the application yo' +'ns are:'#6#0#6'@RCG.EXE - This is the application you use to gather informa'
+'u use to gather information '#6#5'from '#6'@your user. That information is' +'tion '#6#5'from '#6'@your user. That information is then used to generate '
+' then used to generate a release '#6#5'code '#6'%that you will give back to' +'a release '#6#5'code '#6'%that you will give back to the user. '#6#0#6'?REG'
+' the user. '#6#0#6'?REGISTRATION.EXE - A sample registration application th' +'ISTRATION.EXE - A sample registration application that your '#6'=user would'
+'at your '#6'=user would run when they are ready to register their product ' +' run when they are ready to register their product '#6#9'with you.'#6'AThey'
+#6#9'with you.'#6'AThey enter the serial number that was on their disk or CD' +' enter the serial number that was on their disk or CD. When '#6'?they call'
+'. When '#6'?they call you, they will read you their serial number, and the' +' you, they will read you their serial number, and the '#6#8'machine '#6'?id'
+' '#6#8'machine '#6'?identifier (MachineModifier). You will enter this info' +'entifier (MachineModifier). You will enter this information '#6#9'into RCG'
+'rmation '#6#9'into RCG '#6'?(above) and calculate a release code. You will' +' '#6'?(above) and calculate a release code. You will then read them '#6#4
+' then read them '#6#4'the '#6'Arelease code and they will enter it into the' +'the '#6'Arelease code and they will enter it into the Release Code field. '
+' Release Code field. '#6#0#6'?When they click the SAVE button, it validates' +#6#0#6'?When they click the SAVE button, it validates the release code '#6#4
+' the release code '#6#4'and '#6'@if it is valid, the serial number and rele' +'and '#6'@if it is valid, the serial number and release code are saved to '#6
+'ase code are saved to '#6#6'a file'#6#25'called REGISTRATION.DAT. '#6#0#6'<' +#6'a file'#6#25'called REGISTRATION.DAT. '#6#0#6'<HELLOWORLD.EXE - A simple '
+'HELLOWORLD.EXE - A simple application that demonstrates the '#6'1use of the' +'application that demonstrates the '#6'1use of the registration information '
+' registration information found in the '#6#16'REGISTRATION.DAT'#6'@file tha' +'found in the '#6#16'REGISTRATION.DAT'#6'@file that was created by the REGIS'
+'t was created by the REGISTRATION.EXE application. The '#6'=serial number ' +'TRATION.EXE application. The '#6'=serial number stored in the REGISTRATION'
+'stored in the REGISTRATION.DAT file is used to '#6';calculate a release cod' +'.DAT file is used to '#6';calculate a release code on the machine the appli'
+'e on the machine the application is '#6#8'running '#6'Aon and it them compa' +'cation is '#6#8'running '#6'Aon and it them compares this release code with'
+'res this release code with the one stored in '#6#4'the '#6'?REGISTRATION.DA' +' the one stored in '#6#4'the '#6'?REGISTRATION.DAT file. If the two releas'
+'T file. If the two release codes are the same, '#6';the application runs (' +'e codes are the same, '#6';the application runs (displays "Hello World") ot'
+'displays "Hello World") otherwise it '#6#12'informs the '#6')user that they' +'herwise it '#6#12'informs the '#6')user that they have an unregistered demo'
+' have an unregistered demo.'#6#0#6'AAn OnGuard.ini file is included that co' +'.'#6#0#6'AAn OnGuard.ini file is included that contains the KEY that I use '
+'ntains the KEY that I use '#6#3'in '#6'@this demo. When running the demo as' +#6#3'in '#6'@this demo. When running the demo as shipped, you should use the'
+' shipped, you should use the '#6';supplied OnGuard.ini file when getting th' +' '#6';supplied OnGuard.ini file when getting the application key.'#6#0#6':B'
+'e application key.'#6#0#6':Before opening and modifying any code, you shoul' +'efore opening and modifying any code, you should run the '#6#10'following '
+'d run the '#6#10'following '#6'<test to see how these applications work wi' +#6'<test to see how these applications work with one another. '#6#0#6'?1. '
+'th one another. '#6#0#6'?1. Run the HELLOWORLD.EXE application. As you c' +' Run the HELLOWORLD.EXE application. As you can see, it is '#6#15'not regi'
+'an see, it is '#6#15'not registered.'#6#0#6'<2. Execute REGISTRATION.EXE. ' +'stered.'#6#0#6'<2. Execute REGISTRATION.EXE. Enter any valid long integer'
+' Enter any valid long integer '#6'9value in the serial number field in the ' +' '#6'9value in the serial number field in the REGISTRATION.EXE '#6#12'appli'
+'REGISTRATION.EXE '#6#12'application.'#6'=Execute RCG.EXE and arrange the wi' +'cation.'#6'=Execute RCG.EXE and arrange the windows so that you can view '#6
+'ndows so that you can view '#6#7'both. '#6#0#6'?a. In the RCG application' +#7'both. '#6#0#6'?a. In the RCG application, load the key by pressing the '
+', load the key by pressing the speed '#6#7'button '#6'?and selecting the He' +'speed '#6#7'button '#6'?and selecting the Hello World application from the '
+'llo World application from the OnGuard.ini '#6#10'file that '#6#15'was supp' +'OnGuard.ini '#6#10'file that '#6#15'was supplied. '#6#0#6'Ab. Select the '
+'lied. '#6#0#6'Ab. Select the "Apply a Machine Modifier" checkbox and ente' +'"Apply a Machine Modifier" checkbox and enter the '#6';machine modifier tha'
+'r the '#6';machine modifier that is displayed in the REGISTRATION.EXE '#6'A' +'t is displayed in the REGISTRATION.EXE '#6'Aapplication (this simulates the'
+'application (this simulates the user reading that information to '#6#7'you)' +' user reading that information to '#6#7'you). '#6#0#6'Ac. Skip the Expira'
+'. '#6#0#6'Ac. Skip the Expiration portion as I did not use this feature i' +'tion portion as I did not use this feature in '#6#4'the '#6#17'other progra'
+'n '#6#4'the '#6#17'other programs. '#6#0#6':d. Next enter the serial numb' +'ms. '#6#0#6':d. Next enter the serial number that is displayed in the '#6
+'er that is displayed in the '#6'5REGISTRATION.EXE application (again, a sim' +'5REGISTRATION.EXE application (again, a simulation). '#6#0#6'Ae. Generate'
+'ulation). '#6#0#6'Ae. Generate a release code by pressing the speed butto' +' a release code by pressing the speed button next to '#6#28'the Release Cod'
+'n next to '#6#28'the Release Code edit field.'#6#0#6'2f. Have the user ent' +'e edit field.'#6#0#6'2f. Have the user enter the release code in their '#6
+'er the release code in their '#6#16'REGISTRATION.EXE'#6'=application that y' +#16'REGISTRATION.EXE'#6'=application that you read them from your RGC.EXE ap'
+'ou read them from your RGC.EXE application '#6'@(simulated). For testing p' +'plication '#6'@(simulated). For testing purposes, change any single charac'
+'urposes, change any single character '#6#3'as '#6';you enter the data so yo' +'ter '#6#3'as '#6';you enter the data so you can see how the application wil'
+'u can see how the application will '#6#9'reject an'#6'@invalid code. (Now ' +'l '#6#9'reject an'#6'@invalid code. (Now simply copy and paste the release'
+'simply copy and paste the release code from '#6'>RGC to REGISTRATION to sav' +' code from '#6'>RGC to REGISTRATION to save yourself having to enter the wh'
+'e yourself having to enter the whole'#6#14'string again.)'#6#0#6';If you en' +'ole'#6#14'string again.)'#6#0#6';If you entered everything correctly, the R'
+'tered everything correctly, the REGISTRASTION.EXE '#6'?application will inf' +'EGISTRASTION.EXE '#6'?application will inform you and save the data. Now l'
+'orm you and save the data. Now let''s test '#6#4'the '#6#25'registration i' +'et''s test '#6#4'the '#6#25'registration information.'#6#0#6'83. Run the H'
+'nformation.'#6#0#6'83. Run the HELLOWORLD.EXE application. If you entered' +'ELLOWORLD.EXE application. If you entered '#6'6everything correctly in ste'
+' '#6'6everything correctly in step 2, you will see that the '#6#15'applicat' +'p 2, you will see that the '#6#15'application is '#6'''registered (It displ'
+'ion is '#6'''registered (It displays "HELLO WORLD").'#6#0#6'6If you have an' +'ays "HELLO WORLD").'#6#0#6'6If you have another computer, copy HELLOWORLD.E'
+'other computer, copy HELLOWORLD.EXE and '#6'5REGISTRASTION.DAT to that mach' +'XE and '#6'5REGISTRASTION.DAT to that machine and try to execute '#6'<HELLO'
+'ine and try to execute '#6'<HELLOWORLD.EXE - you should be told that the ap' +'WORLD.EXE - you should be told that the application is '#6':an unregistered'
+'plication is '#6':an unregistered demo. You can also edit the any single' +' demo. You can also edit the any single '#6'.character in REGISTRASTION.'
,' '#6'.character in REGISTRASTION.DAT and try to run '#6#17'HELLOWORLD.EXE. ' ,'DAT and try to run '#6#17'HELLOWORLD.EXE. '#6#0#0#10'ParentFont'#8#8'ReadO'
+' '#6#0#0#8'ReadOnly'#9#10'ScrollBars'#7#6'ssBoth'#8'TabOrder'#2#0#6'Height' +'nly'#9#10'ScrollBars'#7#6'ssBoth'#8'TabOrder'#2#0#0#0#0
+#3#206#1#5'Width'#3#27#2#0#0#0
]); ]);

78
components/onguard/examples/regdemo/helloworld.lpi
View File

@ -1,13 +1,14 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="3"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -27,54 +28,90 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="4"> <Units Count="7">
<Unit0> <Unit0>
<Filename Value="helloworld.lpr"/> <Filename Value="helloworld.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="63" Y="11"/> <CursorPos X="46" Y="20"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="frm_main.pas"/> <Filename Value="frm_main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmMain"/> <ComponentName Value="frmMain"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="frm_main.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Main"/> <UnitName Value="frm_Main"/>
<CursorPos X="1" Y="1"/> <CursorPos X="23" Y="44"/>
<TopLine Value="1"/> <TopLine Value="23"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<UsageCount Value="10"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="uni_regcommon.pas"/> <Filename Value="uni_regcommon.pas"/>
<UnitName Value="uni_RegCommon"/> <UnitName Value="uni_RegCommon"/>
<CursorPos X="1" Y="4"/> <CursorPos X="16" Y="37"/>
<TopLine Value="1"/> <TopLine Value="19"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="10"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="frm_readme.pas"/> <Filename Value="frm_readme.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmReadme"/> <ComponentName Value="frmReadme"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="frm_readme.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Readme"/> <UnitName Value="frm_Readme"/>
<CursorPos X="20" Y="3"/> <CursorPos X="4" Y="3"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4>
<Filename Value="frm_readme.lfm"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="9"/>
<SyntaxHighlighter Value="LFM"/>
</Unit4>
<Unit5>
<Filename Value="frm_main.lfm"/>
<CursorPos X="21" Y="9"/>
<TopLine Value="1"/>
<EditorIndex Value="5"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
<SyntaxHighlighter Value="LFM"/>
</Unit5>
<Unit6>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="3" Y="1993"/>
<TopLine Value="1991"/>
<EditorIndex Value="3"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit6>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="frm_main.pas"/>
<Caret Line="44" Column="23" TopLine="26"/>
</Position1>
<Position2>
<Filename Value="uni_regcommon.pas"/>
<Caret Line="37" Column="16" TopLine="19"/>
</Position2>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -87,7 +124,6 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>

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

@ -1,13 +1,14 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -31,7 +32,7 @@
<Unit0> <Unit0>
<Filename Value="rcg.lpr"/> <Filename Value="rcg.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="56" Y="9"/> <CursorPos X="54" Y="12"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
@ -39,26 +40,28 @@
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="rcg_main.pas"/> <Filename Value="rcg_main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="rcgMain"/> <ComponentName Value="rcgMain"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="rcg_main.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="rcg_Main"/> <UnitName Value="rcg_Main"/>
<CursorPos X="59" Y="74"/> <CursorPos X="59" Y="74"/>
<TopLine Value="125"/> <TopLine Value="74"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="10"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="frm_readme.pas"/> <Filename Value="frm_readme.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmReadme"/> <ComponentName Value="frmReadme"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="frm_readme.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Readme"/> <UnitName Value="frm_Readme"/>
<CursorPos X="90" Y="13"/> <CursorPos X="90" Y="13"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
@ -72,7 +75,6 @@
<Filename Value="../../source/qonguard3.pas"/> <Filename Value="../../source/qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/> <ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="../../source/qonguard3.lrs"/>
<UnitName Value="qonguard3"/> <UnitName Value="qonguard3"/>
<CursorPos X="23" Y="131"/> <CursorPos X="23" Y="131"/>
<TopLine Value="125"/> <TopLine Value="125"/>
@ -89,7 +91,7 @@
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -102,7 +104,6 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>

1
components/onguard/examples/regdemo/reg_main.lfm
View File

@ -8,7 +8,6 @@ object regMain: TregMain
Font.Name = 'Arial' Font.Name = 'Arial'
OnActivate = FormActivate OnActivate = FormActivate
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 16
HorzScrollBar.Page = 299 HorzScrollBar.Page = 299
VertScrollBar.Page = 260 VertScrollBar.Page = 260
Left = 468 Left = 468

49
components/onguard/examples/regdemo/reg_main.lrs
View File

@ -1,31 +1,28 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
LazarusResources.Add('TregMain','FORMDATA',[ LazarusResources.Add('TregMain','FORMDATA',[
'TPF0'#8'TregMain'#7'regMain'#13'ActiveControl'#7#9'edtSerial'#11'BorderStyle' 'TPF0'#8'TregMain'#7'regMain'#13'ActiveControl'#7#9'edtSerial'#11'BorderStyle'
+#7#8'bsDialog'#7'Caption'#6#18'Registration Tools'#12'ClientHeight'#3#5#1#11 +#7#8'bsDialog'#7'Caption'#6#18'Registration Tools'#12'ClientHeight'#3#5#1#11
+'ClientWidth'#3','#1#11'Font.Height'#2#243#9'Font.Name'#6#5'Arial'#10'OnActi' +'ClientWidth'#3','#1#11'Font.Height'#2#243#9'Font.Name'#6#5'Arial'#10'OnActi'
+'vate'#7#12'FormActivate'#13'PixelsPerInch'#2'`'#10'TextHeight'#2#16#18'Horz' +'vate'#7#12'FormActivate'#13'PixelsPerInch'#2'`'#18'HorzScrollBar.Page'#3'+'
+'ScrollBar.Page'#3'+'#1#18'VertScrollBar.Page'#3#4#1#4'Left'#3#212#1#6'Heigh' +#1#18'VertScrollBar.Page'#3#4#1#4'Left'#3#212#1#6'Height'#3#5#1#3'Top'#3#153
+'t'#3#5#1#3'Top'#3#153#0#5'Width'#3','#1#0#6'TLabel'#6'Label1'#7'Caption'#6 +#0#5'Width'#3','#1#0#6'TLabel'#6'Label1'#7'Caption'#6'%Enter your serial num'
+'%Enter your serial number from your CD'#5'Color'#7#6'clNone'#11'ParentColor' +'ber from your CD'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#10#6'Hei'
+#8#4'Left'#2#10#6'Height'#2#14#3'Top'#2'C'#5'Width'#3#186#0#0#0#6'TLabel'#6 +'ght'#2#14#3'Top'#2'C'#5'Width'#3#186#0#0#0#6'TLabel'#6'Label2'#7'Caption'#6
+'Label2'#7'Caption'#6#18'Machine Identifier'#5'Color'#7#6'clNone'#11'ParentC' +#18'Machine Identifier'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#10#6
+'olor'#8#4'Left'#2#10#6'Height'#2#14#3'Top'#2's'#5'Width'#2'W'#0#0#6'TLabel' +'Height'#2#14#3'Top'#2's'#5'Width'#2'W'#0#0#6'TLabel'#6'Label3'#7'Caption'#6
+#6'Label3'#7'Caption'#6'+Enter the release code you were given by us'#5'Colo' +'+Enter the release code you were given by us'#5'Color'#7#6'clNone'#11'Paren'
+'r'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#10#6'Height'#2#14#3'Top'#3#163#0 +'tColor'#8#4'Left'#2#10#6'Height'#2#14#3'Top'#3#163#0#5'Width'#3#216#0#0#0#5
+#5'Width'#3#216#0#0#0#5'TEdit'#9'edtSerial'#9'MaxLength'#2#10#8'TabOrder'#2#1 +'TEdit'#9'edtSerial'#9'MaxLength'#2#10#8'TabOrder'#2#1#4'Left'#2#10#6'Height'
+#4'Left'#2#10#6'Height'#2#24#3'Top'#2'S'#5'Width'#3#12#1#0#0#5'TMemo'#5'Memo' +#2#24#3'Top'#2'S'#5'Width'#3#12#1#0#0#5'TMemo'#5'Memo1'#5'Color'#7#9'clBtnFa'
+'1'#5'Color'#7#9'clBtnFace'#13'Lines.Strings'#1#6'*Thank you for registering' +'ce'#13'Lines.Strings'#1#6'*Thank you for registering HelloWorld. To '#6'.c'
+' HelloWorld. To '#6'.complete your registration, please contact us '#6#18 +'omplete your registration, please contact us '#6#18'at (800) 555-1212.'#0#7
+'at (800) 555-1212.'#0#7'OnEnter'#7#10'Memo1Enter'#8'ReadOnly'#9#8'TabOrder' +'OnEnter'#7#10'Memo1Enter'#8'ReadOnly'#9#8'TabOrder'#2#0#7'TabStop'#8#4'Left'
+#2#0#7'TabStop'#8#4'Left'#2#10#6'Height'#2'1'#3'Top'#2#8#5'Width'#3#12#1#0#0 +#2#10#6'Height'#2'1'#3'Top'#2#8#5'Width'#3#12#1#0#0#5'TEdit'#10'edtMachine'#8
+#5'TEdit'#10'edtMachine'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#2#4'Left'#2 +'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#2#4'Left'#2#10#6'Height'#2#24#3'Top'
+#10#6'Height'#2#24#3'Top'#3#131#0#5'Width'#3#12#1#0#0#5'TEdit'#10'edtRelease' +#3#131#0#5'Width'#3#12#1#0#0#5'TEdit'#10'edtRelease'#9'MaxLength'#2#19#8'Tab'
+#9'MaxLength'#2#19#8'TabOrder'#2#3#4'Left'#2#10#6'Height'#2#24#3'Top'#3#179#0 +'Order'#2#3#4'Left'#2#10#6'Height'#2#24#3'Top'#3#179#0#5'Width'#3#12#1#0#0#7
+#5'Width'#3#12#1#0#0#7'TButton'#7'btnSave'#25'BorderSpacing.InnerBorder'#2#4 +'TButton'#7'btnSave'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#4'Save'#7
+#7'Caption'#6#4'Save'#7'OnClick'#7#12'btnSaveClick'#8'TabOrder'#2#4#4'Left'#3 +'OnClick'#7#12'btnSaveClick'#8'TabOrder'#2#4#4'Left'#3#203#0#6'Height'#2#25#3
+#203#0#6'Height'#2#25#3'Top'#3#215#0#5'Width'#2'K'#0#0#7'TButton'#9'btnReadm' +'Top'#3#215#0#5'Width'#2'K'#0#0#7'TButton'#9'btnReadme'#25'BorderSpacing.Inn'
+'e'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'Readme...'#7'OnClick'#7 +'erBorder'#2#4#7'Caption'#6#9'Readme...'#7'OnClick'#7#14'btnReadmeClick'#8'T'
+#14'btnReadmeClick'#8'TabOrder'#2#5#4'Left'#2#10#6'Height'#2#25#3'Top'#3#215 +'abOrder'#2#5#4'Left'#2#10#6'Height'#2#25#3'Top'#3#215#0#5'Width'#2'K'#0#0#0
+#0#5'Width'#2'K'#0#0#0
]); ]);

53
components/onguard/examples/regdemo/registration.lpi
View File

@ -1,11 +1,12 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="7"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
@ -27,11 +28,11 @@
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="4"> <Units Count="5">
<Unit0> <Unit0>
<Filename Value="registration.lpr"/> <Filename Value="registration.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="60" Y="19"/> <CursorPos X="48" Y="19"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
@ -39,41 +40,56 @@
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="reg_main.pas"/> <Filename Value="reg_main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="regMain"/> <ComponentName Value="regMain"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceFilename Value="reg_main.lrs"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="reg_main"/> <UnitName Value="reg_main"/>
<CursorPos X="20" Y="9"/> <CursorPos X="26" Y="77"/>
<TopLine Value="58"/> <TopLine Value="51"/>
<EditorIndex Value="3"/> <EditorIndex Value="2"/>
<UsageCount Value="10"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="uni_regcommon.pas"/> <Filename Value="uni_regcommon.pas"/>
<UnitName Value="uni_RegCommon"/> <UnitName Value="uni_RegCommon"/>
<CursorPos X="1" Y="1"/> <CursorPos X="11" Y="17"/>
<TopLine Value="1"/> <TopLine Value="17"/>
<EditorIndex Value="2"/> <EditorIndex Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="frm_readme.pas"/> <Filename Value="frm_readme.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmReadme"/> <ComponentName Value="frmReadme"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frm_Readme"/> <UnitName Value="frm_Readme"/>
<CursorPos X="1" Y="1"/> <CursorPos X="12" Y="6"/>
<TopLine Value="3"/> <TopLine Value="3"/>
<EditorIndex Value="1"/> <UsageCount Value="20"/>
</Unit3>
<Unit4>
<Filename Value="reg_main.lfm"/>
<CursorPos X="21" Y="10"/>
<TopLine Value="1"/>
<EditorIndex Value="3"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> <SyntaxHighlighter Value="LFM"/>
</Unit4>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="1" HistoryIndex="0">
<Position1>
<Filename Value="reg_main.pas"/>
<Caret Line="77" Column="26" TopLine="63"/>
</Position1>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<IncludeAssertionCode Value="True"/> <IncludeAssertionCode Value="True"/>
@ -86,7 +102,6 @@
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/> <StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>

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

@ -2,10 +2,11 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/> <Version Value="7"/>
<General> <General>
<Flags> <Flags>
<AlwaysBuild Value="False"/> <AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
@ -45,7 +46,6 @@
<ComponentName Value="frmStamp"/> <ComponentName Value="frmStamp"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<ResourceFilename Value="stampex1.lrs"/>
<UnitName Value="STAMPEX1"/> <UnitName Value="STAMPEX1"/>
<CursorPos X="7" Y="8"/> <CursorPos X="7" Y="8"/>
<TopLine Value="1"/> <TopLine Value="1"/>
@ -115,6 +115,11 @@
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

15
components/onguard/packages/tponguard.lpk
View File

@ -1,30 +1,27 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<Package Version="2"> <Package Version="3">
<Name Value="tponguard"/> <Name Value="tponguard"/>
<Author Value="Turbo Power Software Company ,Colorado Springs"/> <Author Value="Turbo Power Software Company ,Colorado Springs"/>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="../source/"/> <IncludeFiles Value="../source/"/>
<OtherUnitFiles Value="../source/"/> <OtherUnitFiles Value="../source/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
<SrcPath Value="../source/"/> <SrcPath Value="../source/"/>
</SearchPaths> </SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Description Value="TurboPower OnGuard is a library to create demo versions of your Borland Delphi &amp; C++Builder applications. Create demo versions that are time-limited, feature-limited, limited to a certain number of uses, or limited to a certain # of concurrent network users. <Description Value="TurboPower OnGuard is a library to create demo versions of your Borland Delphi &amp; C++Builder applications. Create demo versions that are time-limited, feature-limited, limited to a certain number of uses, or limited to a certain # of concurrent network users.
Ports : Andrew Haines (Kylix version), Bogus�aw Brandys (FPC/Lazarus)"/> Ports : Andrew Haines (Kylix version), Bogusław Brandys (FPC/Lazarus)"/>
<License Value="Mozilla Public License 1.1 (MPL 1.1) <License Value="Mozilla Public License 1.1 (MPL 1.1)
"/> "/>
<Version Major="1"/> <Version Major="1"/>
<Files Count="22"> <Files Count="23">
<Item1> <Item1>
<Filename Value="../source/ogfile.pas"/> <Filename Value="../source/ogfile.pas"/>
<UnitName Value="ogfile"/> <UnitName Value="ogfile"/>
@ -114,6 +111,10 @@ Ports : Andrew Haines (Kylix version), Bogus
<Filename Value="../source/onguard.pas"/> <Filename Value="../source/onguard.pas"/>
<UnitName Value="onguard"/> <UnitName Value="onguard"/>
</Item22> </Item22>
<Item23>
<Filename Value="../source/ogfirst.pas"/>
<UnitName Value="ogfirst"/>
</Item23>
</Files> </Files>
<Type Value="DesignTime"/> <Type Value="DesignTime"/>
<RequiredPkgs Count="2"> <RequiredPkgs Count="2">

8
components/onguard/packages/tponguard.pas
View File

@ -1,4 +1,4 @@
{ This file was automatically created by Lazarus. Do not edit! { This file was automatically created by Lazarus. do not edit!
This source is only used to compile and install the package. This source is only used to compile and install the package.
} }
@ -7,9 +7,9 @@ unit tponguard;
interface interface
uses uses
ogfile, ognetwrk, ogproexe, ogreg, ogutil, qogabout0, qonguard1, qonguard2, ogfile, ognetwrk, ogproexe, ogreg, ogutil, qogabout0, qonguard1,
qonguard3, qonguard4, qonguard5, qonguard6, qonguard7, ogconst, onguard, qonguard2, qonguard3, qonguard4, qonguard5, qonguard6, qonguard7, ogconst,
LazarusPackageIntf; onguard, ogfirst, LazarusPackageIntf;
implementation implementation

5
components/onguard/readme.txt
View File

@ -41,6 +41,11 @@ To install TurboPower OnGuard into your IDE, take the following steps:
4. Version history 4. Version history
4.3 July 28 2009
- initial support for InvalidCount value allowing 'breaking the rules' limited , for example run program a few times if trial period expired
- IDE serial number used for machine id instead of volume serials
- fixed TextHeight obsolete properties in lfm resources
4.2 October 31, 2008 4.2 October 31, 2008
Import into lazarus-ccr SVN repository. Import into lazarus-ccr SVN repository.

27
components/onguard/source/ogutil.pas
View File

@ -48,9 +48,12 @@ unit ogutil;
interface interface
uses uses
LCLIntf LCLIntf,lclproc
{$IFDEF LINUX} {AH.01} {$IFDEF LINUX} {AH.01}
,BaseUnix ,BaseUnix
{$ENDIF}
{$IFDEF WIN32}
{$ENDIF} {AH.01} {$ENDIF} {AH.01}
,SysUtils ,SysUtils
{$IFNDEF IBO_CONSOLE},Dialogs{$ENDIF} {AH.02} {$IFNDEF IBO_CONSOLE},Dialogs{$ENDIF} {AH.02}
@ -65,7 +68,7 @@ const
DefStoreRegString = False; DefStoreRegString = False;
const const
OgVersionStr = '1.13'; OgVersionStr = '1.20';
@ -1186,6 +1189,8 @@ var
Context : TTMDContext; Context : TTMDContext;
UserInfoFound : Boolean; {!!.11} UserInfoFound : Boolean; {!!.11}
Buf : array [0..1023] of Byte; Buf : array [0..1023] of Byte;
iController, iDrive, maxController : Integer;
BufStr : AnsiString;
begin begin
InitTMD(Context); InitTMD(Context);
@ -1261,15 +1266,15 @@ begin
if midDrives in MachineInfo then begin if midDrives in MachineInfo then begin
{include drive specific information} {include drive specific information}
for Drive := 'C' to 'Z' do begin maxController := 15;
if Win32Platform<>VER_PLATFORM_WIN32_NT then maxController := 0;
if (GetDriveType(PAnsiChar(Drive + ':\')) = DRIVE_FIXED) then begin for iController := 0 to maxController do
FillChar(Buf, Sizeof(Buf), 0); begin
Buf[0] := Byte(Drive); for iDrive := 0 to 4 do
{!!.16} {removed cluster information} begin
GetVolumeInformation(PAnsiChar(Drive + ':\'), nil, 0, BufStr := '';
PDWord(@Buf[1]){serial number}, I{not used}, I{not used}, nil, 0); if GetIdeDiskSerialNumber(iController,iDrive,BufStr) then
UpdateTMD(Context, Buf, 5); if BufStr<>'' then UpdateTMD(Context, BufStr[1], 5);
end; end;
end; end;
end; end;

124
components/onguard/source/onguard.pas
View File

@ -60,6 +60,9 @@ uses
{$ENDIF} {$ENDIF}
{$IFDEF UsingZLib} {$IFDEF UsingZLib}
,ZLib ,ZLib
{$ENDIF}
{$IFDEF WIN32}
,idesn
{$ENDIF} {$ENDIF}
; ;
@ -80,6 +83,7 @@ type
TCode = packed record TCode = packed record
CheckValue : Word; {magic value} CheckValue : Word; {magic value}
Expiration : Word; {expiration date or 0, if none} Expiration : Word; {expiration date or 0, if none}
InvalidCount : Word; {count of respected invalid code accidents,normally 0}
case Byte of case Byte of
0 : (FirstDate : Word; {for date code} 0 : (FirstDate : Word; {for date code}
EndDate : Word); EndDate : Word);
@ -357,6 +361,8 @@ type
default False; default False;
end; end;
{ TOgDateCode }
TOgDateCode = class(TOgCodeBase) TOgDateCode = class(TOgCodeBase)
public public
function CheckCode(Report : Boolean) : TCodeStatus; function CheckCode(Report : Boolean) : TCodeStatus;
@ -364,6 +370,8 @@ type
function GetValue : TDateTime; function GetValue : TDateTime;
{-return expiration date (0 for error)} {-return expiration date (0 for error)}
function GetInvalidCount : LongInt;
published published
{properties} {properties}
property Code property Code
@ -398,6 +406,8 @@ type
function GetValue : LongInt; function GetValue : LongInt;
{-return number of days remaining} {-return number of days remaining}
function GetInvalidCount : LongInt;
published published
{properties} {properties}
property AutoDecrease : Boolean property AutoDecrease : Boolean
@ -526,22 +536,28 @@ type
end; end;
{$IFNDEF IBO_CONSOLE} {$IFNDEF IBO_CONSOLE}
function GetInvalidCountValue(const Key : TKey; const Code : TCode) : LongInt;
procedure DecInvalidCountCode(const Key : TKey; var Code : TCode);
function GetCodeType(const Key : TKey; const Code : TCode) : TCodeType; function GetCodeType(const Key : TKey; const Code : TCode) : TCodeType;
{-return the type of code} {-return the type of code}
function GetExpirationDate(const Key : TKey; const Code : TCode) : TDateTime; function GetExpirationDate(const Key : TKey; const Code : TCode) : TDateTime;
{-return the date this code expires} {-return the date this code expires}
procedure InitDateCode(const Key : TKey; StartDate, EndDate : TDateTime; var Code : TCode); procedure InitDateCode(const Key : TKey; StartDate, EndDate : TDateTime; var Code : TCode; InvalidCount : Word=0);
function IsDateCodeValid(const Key : TKey; const Code : TCode) : Boolean; function IsDateCodeValid(const Key : TKey; const Code : TCode) : Boolean;
function GetDateCodeValue(const Key : TKey; const Code : TCode) : TDateTime; function GetDateCodeValue(const Key : TKey; const Code : TCode) : TDateTime;
function IsDateCodeExpired(const Key : TKey; const Code : TCode) : Boolean; function IsDateCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
procedure InitDaysCode(const Key : TKey; Days : Word; Expires : TDateTime; var Code : TCode); procedure InitDaysCode(const Key : TKey; Days : Word; Expires : TDateTime; var Code : TCode; InvalidCount : Word=0);
function IsDaysCodeValid(const Key : TKey; const Code : TCode) : Boolean; function IsDaysCodeValid(const Key : TKey; const Code : TCode) : Boolean;
procedure DecDaysCode(const Key : TKey; var Code : TCode); procedure DecDaysCode(const Key : TKey; var Code : TCode);
function GetDaysCodeValue(const Key : TKey; const Code : TCode) : LongInt; function GetDaysCodeValue(const Key : TKey; const Code : TCode) : LongInt;
function IsDaysCodeExpired(const Key : TKey; const Code : TCode) : Boolean; function IsDaysCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
procedure InitRegCode(const Key : TKey; const RegStr : string; Expires : TDateTime; var Code : TCode); procedure InitRegCode(const Key : TKey; const RegStr : string; Expires : TDateTime; var Code : TCode);
function IsRegCodeValid(const Key : TKey; const Code : TCode) : Boolean; function IsRegCodeValid(const Key : TKey; const Code : TCode) : Boolean;
function IsRegCodeExpired(const Key : TKey; const Code : TCode) : Boolean; function IsRegCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
@ -556,7 +572,7 @@ function IsSpecialCodeValid(const Key : TKey; const Code : TCode) : Boolean;
function GetSpecialCodeValue(const Key : TKey; const Code : TCode) : LongInt; function GetSpecialCodeValue(const Key : TKey; const Code : TCode) : LongInt;
function IsSpecialCodeExpired(const Key : TKey; const Code : TCode) : Boolean; function IsSpecialCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
procedure InitUsageCode(const Key : TKey; Count : Word; Expires : TDateTime; var Code : TCode); procedure InitUsageCode(const Key : TKey; Count : Word; Expires : TDateTime; var Code : TCode;InvalidCount : Word=0);
function IsUsageCodeValid(const Key : TKey; const Code : TCode) : Boolean; function IsUsageCodeValid(const Key : TKey; const Code : TCode) : Boolean;
procedure DecUsageCode(const Key : TKey; var Code : TCode); procedure DecUsageCode(const Key : TKey; var Code : TCode);
function GetUsageCodeValue(const Key : TKey; const Code : TCode) : LongInt; function GetUsageCodeValue(const Key : TKey; const Code : TCode) : LongInt;
@ -593,9 +609,6 @@ const
implementation implementation
{$IFNDEF IBO_CONSOLE} {$IFNDEF IBO_CONSOLE}
uses uses
//{$IFDEF MSWINDOWS}
// {$IFDEF VERSION3} ActiveX {$ELSE} OLE2 {$ENDIF} {!!.06}
//{$ENDIF}
{$IFNDEF NoMakeCodesSupport} qonguard2 {$ENDIF} {!!.10} {!!.10} {$IFNDEF NoMakeCodesSupport} qonguard2 {$ENDIF} {!!.10} {!!.10}
{$IFNDEF NoMakeKeysSupport} , qonguard3 {$ENDIF} {!!.10} {!!.10} {$IFNDEF NoMakeKeysSupport} , qonguard3 {$ENDIF} {!!.10} {!!.10}
; ;
@ -844,6 +857,8 @@ var
Context : TTMDContext; Context : TTMDContext;
UserInfoFound : Boolean; {!!.11} UserInfoFound : Boolean; {!!.11}
Buf : array [0..1023] of Byte; Buf : array [0..1023] of Byte;
iController, iDrive, maxController : Integer;
BufStr : AnsiString;
begin begin
InitTMD(Context); InitTMD(Context);
@ -923,15 +938,15 @@ begin
if midDrives in MachineInfo then begin if midDrives in MachineInfo then begin
{include drive specific information} {include drive specific information}
for Drive := 'C' to 'Z' do begin maxController := 15;
if Win32Platform<>VER_PLATFORM_WIN32_NT then maxController := 0;
if (GetDriveType(PAnsiChar(AnsiString(Drive + ':\'))) = DRIVE_FIXED) then begin for iController := 0 to maxController do
FillChar(Buf, Sizeof(Buf), 0); begin
Buf[0] := Byte(Drive); for iDrive := 0 to 4 do
{!!.16} {removed cluster information} begin
GetVolumeInformation(PAnsiChar(AnsiString(Drive + ':\')), nil, 0, BufStr := '';
PDWord(@Buf[1]){serial number}, I{not used}, I{not used}, nil, 0); if GetIdeDiskSerialNumber(iController,iDrive,BufStr) then
UpdateTMD(Context, Buf, 5); if BufStr<>'' then UpdateTMD(Context, BufStr[1], 5);
end; end;
end; end;
end; end;
@ -1313,7 +1328,11 @@ begin
if IsDateCodeExpired(Key, ACode) then if IsDateCodeExpired(Key, ACode) then
Result := ogPastEndDate; Result := ogPastEndDate;
end else end else
begin
Result := ogInvalidCode; Result := ogInvalidCode;
if GetInvalidCountValue(Key,ACode)=1 then Result := ogCodeExpired;
end;
if Report then if Report then
DoOnChecked(Result); DoOnChecked(Result);
@ -1333,6 +1352,20 @@ begin
Result := GetDateCodeValue(Key, ACode); Result := GetDateCodeValue(Key, ACode);
end; end;
function TOgDateCode.GetInvalidCount: LongInt;
var
ACode : TCode;
Key : TKey;
AModifier : LongInt;
begin
DoOnGetKey(Key);
ACode := DoOnGetCode;
AModifier := DoOnGetModifier;
ApplyModifierToKeyPrim(AModifier, Key, SizeOf(Key));
Result := GetInvalidCountValue(Key, ACode);
end;
{*** TOgDaysCode ***} {*** TOgDaysCode ***}
@ -1356,7 +1389,12 @@ begin
Result := ogCodeExpired; Result := ogCodeExpired;
end; end;
end else end else
begin
Result := ogInvalidCode; Result := ogInvalidCode;
if GetInvalidCountValue(Key,ACode)=1 then Result := ogCodeExpired;
end;
if Report then if Report then
DoOnChecked(Result); DoOnChecked(Result);
@ -1412,6 +1450,22 @@ begin
Result := GetDaysCodeValue(Key, ACode); Result := GetDaysCodeValue(Key, ACode);
end; end;
function TOgDaysCode.GetInvalidCount : LongInt;
var
ACode : TCode;
Key : TKey;
AModifier : LongInt;
begin
DoOnGetKey(Key);
ACode := DoOnGetCode;
AModifier := DoOnGetModifier;
ApplyModifierToKeyPrim(AModifier, Key, SizeOf(Key));
Result := GetInvalidCountValue(Key, ACode);
end;
procedure TOgDaysCode.Loaded; procedure TOgDaysCode.Loaded;
begin begin
inherited Loaded; inherited Loaded;
@ -1726,7 +1780,12 @@ begin
Result := ogCodeExpired; Result := ogCodeExpired;
end; end;
end else end else
begin
Result := ogInvalidCode; Result := ogInvalidCode;
if GetInvalidCountValue(Key,ACode)=1 then Result := ogCodeExpired;
end;
if Report then if Report then
DoOnChecked(Result); DoOnChecked(Result);
@ -1790,6 +1849,29 @@ end;
{$IFNDEF IBO_CONSOLE} {$IFNDEF IBO_CONSOLE}
{*** general routines ***} {*** general routines ***}
procedure DecInvalidCountCode(const Key : TKey; var Code : TCode);
begin
MixBlock(T128bit(Key), Code, False);
if Code.InvalidCount > 0 then Code.InvalidCount := Code.InvalidCount - 1;
MixBlock(T128bit(Key), Code, True);
end;
function GetInvalidCountValue(const Key : TKey; const Code : TCode) : LongInt;
var
Work : TCode;
begin
Result := 0;
if Code.CheckValue<>0 then
begin
Work := Code;
MixBlock(T128bit(Key), Work, False);
Result := Work.InvalidCount;
end;
end;
function GetCodeType(const Key : TKey; const Code : TCode) : TCodeType; function GetCodeType(const Key : TKey; const Code : TCode) : TCodeType;
var var
Work : TCode; Work : TCode;
@ -1846,12 +1928,13 @@ end;
{*** date code ***} {*** date code ***}
procedure InitDateCode(const Key : TKey; procedure InitDateCode(const Key : TKey;
StartDate, EndDate : TDateTime; var Code : TCode); StartDate, EndDate : TDateTime; var Code : TCode;InvalidCount : Word=0);
begin begin
Code.CheckValue := DateCheckCode; Code.CheckValue := DateCheckCode;
Code.Expiration := 0; {not used for date codes} Code.Expiration := 0; {not used for date codes}
Code.FirstDate := ShrinkDate(StartDate); Code.FirstDate := ShrinkDate(StartDate);
Code.EndDate := ShrinkDate(EndDate); Code.EndDate := ShrinkDate(EndDate);
Code.InvalidCount := InvalidCount;
MixBlock(T128bit(Key), Code, True); MixBlock(T128bit(Key), Code, True);
end; end;
@ -1888,12 +1971,13 @@ end;
{*** days code ***} {*** days code ***}
procedure InitDaysCode(const Key : TKey; Days : Word; Expires : TDateTime; procedure InitDaysCode(const Key : TKey; Days : Word; Expires : TDateTime;
var Code : TCode); var Code : TCode;InvalidCount : Word=0);
begin begin
Code.CheckValue := DaysCheckCode; Code.CheckValue := DaysCheckCode;
Code.Expiration := ShrinkDate(Expires); Code.Expiration := ShrinkDate(Expires);
Code.Days := Days; Code.Days := Days;
Code.LastAccess := ShrinkDate(Date); Code.LastAccess := ShrinkDate(Date);
Code.InvalidCount := InvalidCount;
MixBlock(T128bit(Key), Code, True); MixBlock(T128bit(Key), Code, True);
end; end;
@ -1911,6 +1995,7 @@ procedure DecDaysCode(const Key : TKey; var Code : TCode);
var var
X : LongInt; X : LongInt;
begin begin
if not IsDaysCodeValid(Key,Code) then DecInvalidCountCode(Key,Code);
MixBlock(T128bit(Key), Code, False); MixBlock(T128bit(Key), Code, False);
X := ShrinkDate(Date); X := ShrinkDate(Date);
if (Code.LastAccess <> X) then begin if (Code.LastAccess <> X) then begin
@ -1934,6 +2019,8 @@ begin
Result := 0; Result := 0;
end; end;
function IsDaysCodeExpired(const Key : TKey; const Code : TCode) : Boolean; function IsDaysCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
var var
Work : TCode; Work : TCode;
@ -2065,12 +2152,13 @@ end;
{*** usage code ***} {*** usage code ***}
procedure InitUsageCode(const Key : TKey; Count : Word; Expires : TDateTime; var Code : TCode); procedure InitUsageCode(const Key : TKey; Count : Word; Expires : TDateTime; var Code : TCode;InvalidCount : Word=0);
begin begin
Code.CheckValue := UsageCheckCode; Code.CheckValue := UsageCheckCode;
Code.Expiration := ShrinkDate(Expires); Code.Expiration := ShrinkDate(Expires);
Code.UsageCount := Count; Code.UsageCount := Count;
Code.LastChange := ShrinkDate(Date); {!!.02} Code.LastChange := ShrinkDate(Date); {!!.02}
Code.InvalidCount := InvalidCount;
MixBlock(T128bit(Key), Code, True); MixBlock(T128bit(Key), Code, True);
end; end;

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

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

44
components/onguard/source/qogabout0.pas
View File

@ -46,21 +46,38 @@ uses
ogutil, ogutil,
{$IFDEF MSWINDOWS} ShellAPI, {$ENDIF} {AH.01} {$IFDEF MSWINDOWS} ShellAPI, {$ENDIF} {AH.01}
ComponentEditors, ComponentEditors,
PropEdits, PropEdits;
LazarusPackageIntf, // LazarusPackageIntf;
LResources;
type type
{ TOgAboutForm }
TOgAboutForm = class(TForm) TOgAboutForm = class(TForm)
l8: TLabel;
Panel1: TPanel; Panel1: TPanel;
Image1: TImage; Image1: TImage;
lblVersion: TLabel; lblVersion: TLabel;
b0 : TBevel;
l1 : TLabel;
l2 : TLabel;
l3 : TLabel;
l4 : TLabel;
l5 : TLabel;
l6 : TLabel;
l7 : TLabel;
btnOK: TButton; btnOK: TButton;
WebLbl: TLabel; WebLbl: TLabel;
NewsLbl: TLabel; NewsLbl: TLabel;
WebLbl1: TLabel;
procedure btnOKClick(Sender: TObject); procedure btnOKClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure WebLbl1Click(Sender: TObject);
procedure WebLbl1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure WebLblMouseMove(Sender: TObject; Shift: TShiftState; X, procedure WebLblMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
procedure NewsLblMouseMove(Sender: TObject; Shift: TShiftState; X, procedure NewsLblMouseMove(Sender: TObject; Shift: TShiftState; X,
@ -86,6 +103,8 @@ type
end; end;
implementation implementation
uses
LResources;
@ -123,6 +142,24 @@ begin
lblVersion.Caption := 'Version ' + OgVersionStr; lblVersion.Caption := 'Version ' + OgVersionStr;
end; end;
procedure TOgAboutForm.WebLbl1Click(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
if ShellExecute(0, 'open', PChar('http://wiki.lazarus.freepascal.org/OnGuard'),
'', '', SW_SHOWNORMAL) <= 32 then
ShowMessage('Unable to start web browser');
{$ELSE}
ShowMessage('Unable to start web browser');
{$ENDIF}
WebLbl.Font.Color := clNavy;
end;
procedure TOgAboutForm.WebLbl1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
WebLbl1.Font.Color := clRed;
end;
procedure TOgAboutForm.WebLblMouseMove(Sender: TObject; Shift: TShiftState; procedure TOgAboutForm.WebLblMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer); X, Y: Integer);
begin begin
@ -146,6 +183,7 @@ procedure TOgAboutForm.FormMouseMove(Sender: TObject; Shift: TShiftState;
begin begin
WebLbl.Font.Color := clNavy; WebLbl.Font.Color := clNavy;
NewsLbl.Font.Color := clNavy; NewsLbl.Font.Color := clNavy;
WebLbl1.Font.Color := clNavy;
end; end;
procedure TOgAboutForm.WebLblClick(Sender: TObject); procedure TOgAboutForm.WebLblClick(Sender: TObject);

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

@ -3,15 +3,16 @@ object CodeGenerateFrm: TCodeGenerateFrm
Height = 516 Height = 516
Top = 84 Top = 84
Width = 556 Width = 556
HorzScrollBar.Page = 555
VertScrollBar.Page = 515
ActiveControl = OKBtn ActiveControl = OKBtn
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]
Caption = 'Code Generation' Caption = 'Code Generation'
ClientHeight = 516
ClientWidth = 556
Color = clForm Color = clForm
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.27'
object OKBtn: TBitBtn object OKBtn: TBitBtn
Left = 384 Left = 384
Height = 25 Height = 25
@ -43,27 +44,27 @@ object CodeGenerateFrm: TCodeGenerateFrm
OnChanging = CodesNbkChanging OnChanging = CodesNbkChanging
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Date' Caption = 'Date'
ClientHeight = 104
ClientWidth = 525
object Label9: TLabel object Label9: TLabel
Left = 4 Left = 4
Height = 13 Height = 14
Top = 12 Top = 12
Width = 64 Width = 54
Caption = 'Start date:' Caption = 'Start date:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label11: TLabel object Label11: TLabel
Left = 204 Left = 204
Height = 13 Height = 14
Top = 12 Top = 12
Width = 64 Width = 48
Caption = 'End date:' Caption = 'End date:'
Color = clNone
ParentColor = False ParentColor = False
end end
object StartDateEd: TEdit object StartDateEd: TEdit
Left = 92 Left = 92
Height = 21 Height = 23
Top = 8 Top = 8
Width = 101 Width = 101
OnChange = ParametersChanged OnChange = ParametersChanged
@ -72,7 +73,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object EndDateEd: TEdit object EndDateEd: TEdit
Left = 284 Left = 284
Height = 21 Height = 23
Top = 8 Top = 8
Width = 101 Width = 101
OnChange = ParametersChanged OnChange = ParametersChanged
@ -82,6 +83,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Days' Caption = 'Days'
ClientHeight = 104
ClientWidth = 525
ImageIndex = 1 ImageIndex = 1
object Label13: TLabel object Label13: TLabel
Left = 4 Left = 4
@ -89,7 +92,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
Top = 12 Top = 12
Width = 52 Width = 52
Caption = 'Day count:' Caption = 'Day count:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
@ -98,7 +100,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
Top = 12 Top = 12
Width = 37 Width = 37
Caption = 'Expires:' Caption = 'Expires:'
Color = clNone
ParentColor = False ParentColor = False
end end
object DaysCountEd: TEdit object DaysCountEd: TEdit
@ -123,6 +124,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'Reg' Caption = 'Reg'
ClientHeight = 104
ClientWidth = 525
ImageIndex = 2 ImageIndex = 2
object RegStrCopySb: TSpeedButton object RegStrCopySb: TSpeedButton
Left = 490 Left = 490
@ -149,20 +152,18 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object Label6: TLabel object Label6: TLabel
Left = 8 Left = 8
Height = 13 Height = 14
Top = 12 Top = 12
Width = 30 Width = 33
Caption = 'String:' Caption = 'String:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label4: TLabel object Label4: TLabel
Left = 292 Left = 292
Height = 13 Height = 14
Top = 48 Top = 48
Width = 37 Width = 40
Caption = 'Expires:' Caption = 'Expires:'
Color = clNone
ParentColor = False ParentColor = False
end end
object RegRandomBtn: TButton object RegRandomBtn: TButton
@ -177,14 +178,14 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object RegStrEd: TEdit object RegStrEd: TEdit
Left = 68 Left = 68
Height = 21 Height = 23
Top = 8 Top = 8
Width = 413 Width = 413
TabOrder = 0 TabOrder = 0
end end
object RegExpiresEd: TEdit object RegExpiresEd: TEdit
Left = 357 Left = 357
Height = 21 Height = 23
Top = 44 Top = 44
Width = 92 Width = 92
OnChange = ParametersChanged OnChange = ParametersChanged
@ -194,23 +195,23 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object TabSheet4: TTabSheet object TabSheet4: TTabSheet
Caption = 'S/N' Caption = 'S/N'
ClientHeight = 104
ClientWidth = 525
ImageIndex = 3 ImageIndex = 3
object Label7: TLabel object Label7: TLabel
Left = 8 Left = 8
Height = 13 Height = 14
Top = 12 Top = 12
Width = 69 Width = 71
Caption = '&Serial Number:' Caption = '&Serial Number:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label15: TLabel object Label15: TLabel
Left = 268 Left = 268
Height = 13 Height = 14
Top = 12 Top = 12
Width = 37 Width = 40
Caption = 'Expires:' Caption = 'Expires:'
Color = clNone
ParentColor = False ParentColor = False
end end
object SerRandomBtn: TButton object SerRandomBtn: TButton
@ -220,11 +221,12 @@ object CodeGenerateFrm: TCodeGenerateFrm
Width = 145 Width = 145
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = '&Random Number' Caption = '&Random Number'
OnClick = SerRandomBtnClick
TabOrder = 2 TabOrder = 2
end end
object SerialNumberEd: TEdit object SerialNumberEd: TEdit
Left = 124 Left = 124
Height = 21 Height = 23
Top = 8 Top = 8
Width = 125 Width = 125
OnChange = ParametersChanged OnChange = ParametersChanged
@ -234,7 +236,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object SerialExpiresEd: TEdit object SerialExpiresEd: TEdit
Left = 336 Left = 336
Height = 21 Height = 23
Top = 8 Top = 8
Width = 97 Width = 97
OnChange = ParametersChanged OnChange = ParametersChanged
@ -244,6 +246,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object TabSheet5: TTabSheet object TabSheet5: TTabSheet
Caption = 'Usage' Caption = 'Usage'
ClientHeight = 104
ClientWidth = 525
ImageIndex = 4 ImageIndex = 4
object Label14: TLabel object Label14: TLabel
Left = 4 Left = 4
@ -251,7 +255,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
Top = 12 Top = 12
Width = 64 Width = 64
Caption = 'Usage count:' Caption = 'Usage count:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label17: TLabel object Label17: TLabel
@ -260,7 +263,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
Top = 12 Top = 12
Width = 37 Width = 37
Caption = 'Expires:' Caption = 'Expires:'
Color = clNone
ParentColor = False ParentColor = False
end end
object UsageCountEd: TEdit object UsageCountEd: TEdit
@ -285,6 +287,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object TabSheet6: TTabSheet object TabSheet6: TTabSheet
Caption = 'Network' Caption = 'Network'
ClientHeight = 104
ClientWidth = 525
ImageIndex = 5 ImageIndex = 5
object Label10: TLabel object Label10: TLabel
Left = 4 Left = 4
@ -292,7 +296,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
Top = 12 Top = 12
Width = 64 Width = 64
Caption = 'Access Slots:' Caption = 'Access Slots:'
Color = clNone
ParentColor = False ParentColor = False
end end
object NetworkSlotsEd: TEdit object NetworkSlotsEd: TEdit
@ -308,6 +311,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object TabSheet7: TTabSheet object TabSheet7: TTabSheet
Caption = 'Special' Caption = 'Special'
ClientHeight = 104
ClientWidth = 525
ImageIndex = 6 ImageIndex = 6
object Label12: TLabel object Label12: TLabel
Left = 4 Left = 4
@ -315,7 +320,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
Top = 12 Top = 12
Width = 62 Width = 62
Caption = 'Special data:' Caption = 'Special data:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label19: TLabel object Label19: TLabel
@ -324,7 +328,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
Top = 12 Top = 12
Width = 37 Width = 37
Caption = 'Expires:' Caption = 'Expires:'
Color = clNone
ParentColor = False ParentColor = False
end end
object SpecialDataEd: TEdit object SpecialDataEd: TEdit
@ -354,6 +357,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
Top = 136 Top = 136
Width = 540 Width = 540
Caption = '&Key used to encode' Caption = '&Key used to encode'
ClientHeight = 230
ClientWidth = 536
Color = clBtnFace Color = clBtnFace
ParentColor = False ParentColor = False
TabOrder = 3 TabOrder = 3
@ -382,27 +387,25 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 13 Height = 14
Top = 115 Top = 115
Width = 40 Width = 43
Caption = 'Modifier:' Caption = 'Modifier:'
Color = clNone
ParentColor = False ParentColor = False
end end
object Label5: TLabel object Label5: TLabel
Left = 12 Left = 12
Height = 13 Height = 14
Top = 172 Top = 172
Width = 21 Width = 23
Caption = 'Key:' Caption = 'Key:'
Color = clNone
ParentColor = False ParentColor = False
end end
object NoModifierCb: TCheckBox object NoModifierCb: TCheckBox
Left = 16 Left = 16
Height = 17 Height = 17
Top = 24 Top = 24
Width = 129 Width = 72
Caption = 'No modifier' Caption = 'No modifier'
Checked = True Checked = True
OnClick = ModifierClick OnClick = ModifierClick
@ -413,7 +416,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
Left = 176 Left = 176
Height = 17 Height = 17
Top = 24 Top = 24
Width = 153 Width = 98
Caption = 'Machine modifier' Caption = 'Machine modifier'
OnClick = ModifierClick OnClick = ModifierClick
TabOrder = 1 TabOrder = 1
@ -422,7 +425,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
Left = 360 Left = 360
Height = 17 Height = 17
Top = 24 Top = 24
Width = 145 Width = 92
Caption = 'Unique modifier' Caption = 'Unique modifier'
OnClick = ModifierClick OnClick = ModifierClick
TabOrder = 2 TabOrder = 2
@ -431,7 +434,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
Left = 16 Left = 16
Height = 17 Height = 17
Top = 56 Top = 56
Width = 129 Width = 82
Caption = 'Date modifier' Caption = 'Date modifier'
OnClick = ModifierClick OnClick = ModifierClick
TabOrder = 3 TabOrder = 3
@ -440,14 +443,14 @@ object CodeGenerateFrm: TCodeGenerateFrm
Left = 16 Left = 16
Height = 17 Height = 17
Top = 88 Top = 88
Width = 137 Width = 87
Caption = 'String Modifier' Caption = 'String Modifier'
OnClick = ModifierClick OnClick = ModifierClick
TabOrder = 4 TabOrder = 4
end end
object ModDateEd: TEdit object ModDateEd: TEdit
Left = 159 Left = 159
Height = 21 Height = 23
Top = 53 Top = 53
Width = 98 Width = 98
OnChange = ModifierClick OnChange = ModifierClick
@ -456,7 +459,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object ModStringEd: TEdit object ModStringEd: TEdit
Left = 160 Left = 160
Height = 21 Height = 23
Top = 85 Top = 85
Width = 361 Width = 361
OnChange = ModifierClick OnChange = ModifierClick
@ -464,7 +467,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object ModifierEd: TEdit object ModifierEd: TEdit
Left = 8 Left = 8
Height = 21 Height = 23
Top = 140 Top = 140
Width = 169 Width = 169
OnChange = ParametersChanged OnChange = ParametersChanged
@ -473,7 +476,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object BlockKeyEd: TEdit object BlockKeyEd: TEdit
Left = 8 Left = 8
Height = 21 Height = 23
Top = 196 Top = 196
Width = 481 Width = 481
OnChange = InfoChanged OnChange = InfoChanged
@ -486,6 +489,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
Top = 384 Top = 384
Width = 536 Width = 536
Caption = 'Generate Code' Caption = 'Generate Code'
ClientHeight = 51
ClientWidth = 532
TabOrder = 4 TabOrder = 4
object RegCodeCopySb: TSpeedButton object RegCodeCopySb: TSpeedButton
Left = 502 Left = 502
@ -524,7 +529,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
end end
object RegCodeEd: TEdit object RegCodeEd: TEdit
Left = 96 Left = 96
Height = 21 Height = 23
Top = 26 Top = 26
Width = 401 Width = 401
OnChange = InfoChanged OnChange = InfoChanged

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

@ -2,162 +2,164 @@
LazarusResources.Add('TCodeGenerateFrm','FORMDATA',[ LazarusResources.Add('TCodeGenerateFrm','FORMDATA',[
'TPF0'#16'TCodeGenerateFrm'#15'CodeGenerateFrm'#4'Left'#3#228#0#6'Height'#3#4 'TPF0'#16'TCodeGenerateFrm'#15'CodeGenerateFrm'#4'Left'#3#228#0#6'Height'#3#4
+#2#3'Top'#2'T'#5'Width'#3','#2#18'HorzScrollBar.Page'#3'+'#2#18'VertScrollBa' +#2#3'Top'#2'T'#5'Width'#3','#2#13'ActiveControl'#7#5'OKBtn'#11'BorderIcons'
+'r.Page'#3#3#2#13'ActiveControl'#7#5'OKBtn'#11'BorderIcons'#11#12'biSystemMe' +#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#15'Code Generation'#12'Cl'
+'nu'#10'biMinimize'#0#7'Caption'#6#15'Code Generation'#5'Color'#7#6'clForm'#8 +'ientHeight'#3#4#2#11'ClientWidth'#3','#2#5'Color'#7#6'clForm'#8'OnCreate'#7
+'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScree' +#10'FormCreate'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#10
+'nCenter'#0#7'TBitBtn'#5'OKBtn'#4'Left'#3#128#1#6'Height'#2#25#3'Top'#3#216#1 +'LCLVersion'#6#6'0.9.27'#0#7'TBitBtn'#5'OKBtn'#4'Left'#3#128#1#6'Height'#2#25
+#5'Width'#2'K'#7'Caption'#6#2'OK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'Tab' +#3'Top'#3#216#1#5'Width'#2'K'#7'Caption'#6#2'OK'#11'ModalResult'#2#1#9'NumGl'
+'Order'#2#0#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#3#208#1#6'Height'#2#25#3'Top' +'yphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#3#208#1#6'Hei'
+#3#216#1#5'Width'#2'K'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#9'NumGlyph' +'ght'#2#25#3'Top'#3#216#1#5'Width'#2'K'#7'Caption'#6#6'Cancel'#11'ModalResul'
+'s'#2#0#8'TabOrder'#2#1#0#0#12'TPageControl'#8'CodesNbk'#4'Left'#2#4#6'Heigh' +'t'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#12'TPageControl'#8'CodesNbk'#4
+'t'#3#130#0#3'Top'#2#4#5'Width'#3#21#2#10'ActivePage'#7#9'TabSheet1'#8'TabIn' +'Left'#2#4#6'Height'#3#130#0#3'Top'#2#4#5'Width'#3#21#2#10'ActivePage'#7#9'T'
+'dex'#2#0#8'TabOrder'#2#2#10'OnChanging'#7#16'CodesNbkChanging'#0#9'TTabShee' +'abSheet1'#8'TabIndex'#2#0#8'TabOrder'#2#2#10'OnChanging'#7#16'CodesNbkChang'
+'t'#9'TabSheet1'#7'Caption'#6#4'Date'#0#6'TLabel'#6'Label9'#4'Left'#2#4#6'He' +'ing'#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#4'Date'#12'ClientHeight'#2'h'
+'ight'#2#13#3'Top'#2#12#5'Width'#2'@'#7'Caption'#6#11'Start date:'#5'Color'#7 +#11'ClientWidth'#3#13#2#0#6'TLabel'#6'Label9'#4'Left'#2#4#6'Height'#2#14#3'T'
+#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'Label11'#4'Left'#3#204#0#6'Heig' +'op'#2#12#5'Width'#2'6'#7'Caption'#6#11'Start date:'#11'ParentColor'#8#0#0#6
+'ht'#2#13#3'Top'#2#12#5'Width'#2'@'#7'Caption'#6#9'End date:'#5'Color'#7#6'c' +'TLabel'#7'Label11'#4'Left'#3#204#0#6'Height'#2#14#3'Top'#2#12#5'Width'#2'0'
+'lNone'#11'ParentColor'#8#0#0#5'TEdit'#11'StartDateEd'#4'Left'#2'\'#6'Height' +#7'Caption'#6#9'End date:'#11'ParentColor'#8#0#0#5'TEdit'#11'StartDateEd'#4
+#2#21#3'Top'#2#8#5'Width'#2'e'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyP' +'Left'#2'\'#6'Height'#2#23#3'Top'#2#8#5'Width'#2'e'#8'OnChange'#7#17'Paramet'
+'ress'#7#14'DateEdKeyPress'#8'TabOrder'#2#0#0#0#5'TEdit'#9'EndDateEd'#4'Left' +'ersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#0#0#0#5'TEdit'
+#3#28#1#6'Height'#2#21#3'Top'#2#8#5'Width'#2'e'#8'OnChange'#7#17'ParametersC' +#9'EndDateEd'#4'Left'#3#28#1#6'Height'#2#23#3'Top'#2#8#5'Width'#2'e'#8'OnCha'
+'hanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabShe' +'nge'#7#17'ParametersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'
+'et'#9'TabSheet2'#7'Caption'#6#4'Days'#10'ImageIndex'#2#1#0#6'TLabel'#7'Labe' +#2#1#0#0#0#9'TTabSheet'#9'TabSheet2'#7'Caption'#6#4'Days'#12'ClientHeight'#2
+'l13'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'4'#7'Caption'#6#10'D' +'h'#11'ClientWidth'#3#13#2#10'ImageIndex'#2#1#0#6'TLabel'#7'Label13'#4'Left'
+'ay count:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4 +#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'4'#7'Caption'#6#10'Day count:'#11
+'Left'#3#228#0#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7'Caption'#6#8'Expir' +'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#228#0#6'Height'#2#13#3'Top'
+'es:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#11'DaysCountEd'#4 +#2#12#5'Width'#2'%'#7'Caption'#6#8'Expires:'#11'ParentColor'#8#0#0#5'TEdit'
+'Left'#2'X'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'Paramet' +#11'DaysCountEd'#4'Left'#2'X'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnCh'
+'ersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'Text'#6
+#1'0'#0#0#5'TEdit'#13'DaysExpiresEd'#4'Left'#3'('#1#6'Height'#2#21#3'Top'#2#8
+#5'Width'#2'a'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#14'DateE'
+'dKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9'TabSheet3'#7'Caption'#6#3'R'
+'eg'#10'ImageIndex'#2#2#0#12'TSpeedButton'#12'RegStrCopySb'#4'Left'#3#234#1#6
+'Height'#2#23#4'Hint'#6#17'Copy to clipboard'#3'Top'#2#7#5'Width'#2#23#5'Col'
+'or'#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'
+#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0
+#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255
+#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'
+#128#0#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0
+#244#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0
+#244#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15
+'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'
+#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136
+#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#17'RegStrCopySbClick'#0#0#6
+'TLabel'#6'Label6'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#12#5'Width'#2#30#7'Ca'
+'ption'#6#7'String:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6
+'Label4'#4'Left'#3'$'#1#6'Height'#2#13#3'Top'#2'0'#5'Width'#2'%'#7'Caption'#6
+#8'Expires:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#12'RegRan'
+'domBtn'#4'Left'#2'H'#6'Height'#2#25#3'Top'#2','#5'Width'#3#145#0#25'BorderS'
+'pacing.InnerBorder'#2#4#7'Caption'#6#14'&Random Number'#7'OnClick'#7#17'Reg'
+'RandomBtnClick'#8'TabOrder'#2#1#0#0#5'TEdit'#8'RegStrEd'#4'Left'#2'D'#6'Hei'
+'ght'#2#21#3'Top'#2#8#5'Width'#3#157#1#8'TabOrder'#2#0#0#0#5'TEdit'#12'RegEx'
+'piresEd'#4'Left'#3'e'#1#6'Height'#2#21#3'Top'#2','#5'Width'#2'\'#8'OnChange'
+#7#17'ParametersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#2
+#0#0#0#9'TTabSheet'#9'TabSheet4'#7'Caption'#6#3'S/N'#10'ImageIndex'#2#3#0#6
+'TLabel'#6'Label7'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#12#5'Width'#2'E'#7'Ca'
+'ption'#6#15'&Serial Number:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T'
+'Label'#7'Label15'#4'Left'#3#12#1#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7
+'Caption'#6#8'Expires:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'
+#12'SerRandomBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2','#5'Width'#3#145#0#25
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#14'&Random Number'#8'TabOrder'#2
,#2#0#0#5'TEdit'#14'SerialNumberEd'#4'Left'#2'|'#6'Height'#2#21#3'Top'#2#8#5
+'Width'#2'}'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#16'NumberK'
+'eyEdPress'#8'TabOrder'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#15'SerialExpiresEd'#4
+'Left'#3'P'#1#6'Height'#2#21#3'Top'#2#8#5'Width'#2'a'#8'OnChange'#7#17'Param'
+'etersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'T'
+'TabSheet'#9'TabSheet5'#7'Caption'#6#5'Usage'#10'ImageIndex'#2#4#0#6'TLabel'
+#7'Label14'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'@'#7'Caption'#6
+#12'Usage count:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'Lab'
+'el17'#4'Left'#3#12#1#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7'Caption'#6#8
+'Expires:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#12'UsageCount'
+'Ed'#4'Left'#2'l'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'P'
+'arametersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'T'
+'ext'#6#1'0'#0#0#5'TEdit'#14'UsageExpiresEd'#4'Left'#3'P'#1#6'Height'#2#21#3
+'Top'#2#8#5'Width'#2'a'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7
+#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9'TabSheet6'#7'Captio'
+'n'#6#7'Network'#10'ImageIndex'#2#5#0#6'TLabel'#7'Label10'#4'Left'#2#4#6'Hei'
+'ght'#2#13#3'Top'#2#12#5'Width'#2'@'#7'Caption'#6#13'Access Slots:'#5'Color'
+#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#14'NetworkSlotsEd'#4'Left'#2't'#6
+'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'ParametersChanged'#10
+'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'Text'#6#1'2'#0#0#0#9'T'
+'TabSheet'#9'TabSheet7'#7'Caption'#6#7'Special'#10'ImageIndex'#2#6#0#6'TLabe'
+'l'#7'Label12'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'>'#7'Captio'
+'n'#6#13'Special data:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'
+#7'Label19'#4'Left'#3#252#0#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7'Capti'
+'on'#6#8'Expires:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#13'Sp'
+'ecialDataEd'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2#8#5'Width'#3#129#0#8'OnCh'
+'ange'#7#17'ParametersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOr' +'ange'#7#17'ParametersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOr'
+'der'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#16'SpecialExpiresEd'#4'Left'#3'@'#1#6 +'der'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#13'DaysExpiresEd'#4'Left'#3'('#1#6'Hei'
+'Height'#2#21#3'Top'#2#8#5'Width'#2'i'#8'OnChange'#7#17'ParametersChanged'#10 +'ght'#2#21#3'Top'#2#8#5'Width'#2'a'#8'OnChange'#7#17'ParametersChanged'#10'O'
+'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#0#9'TGroupBox'#9'Gro' +'nKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9'TabShe'
+'upBox1'#4'Left'#2#4#6'Height'#3#248#0#3'Top'#3#136#0#5'Width'#3#28#2#7'Capt' +'et3'#7'Caption'#6#3'Reg'#12'ClientHeight'#2'h'#11'ClientWidth'#3#13#2#10'Im'
+'ion'#6#19'&Key used to encode'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8 +'ageIndex'#2#2#0#12'TSpeedButton'#12'RegStrCopySb'#4'Left'#3#234#1#6'Height'
+'TabOrder'#2#3#0#12'TSpeedButton'#13'GenerateKeySb'#4'Left'#3#242#1#6'Height' +#2#23#4'Hint'#6#17'Copy to clipboard'#3'Top'#2#7#5'Width'#2#23#5'Color'#7#9
+#2#23#4'Hint'#6#12'Generate key'#3'Top'#3#195#0#5'Width'#2#23#5'Color'#7#9'c' +'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0
+'lBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'(' +'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 +#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128
+#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128 +#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0
+#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0 +#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128
+#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0 +#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0
+#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0#244
+#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0#244
+#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15'DD'
+#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'#136
+#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136#128#0
+#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136 +#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136 +#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#17'RegStrCopySbClick'#0#0#6'TLa'
+#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#128#0#0#136 +'bel'#6'Label6'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#12#5'Width'#2'!'#7'Capti'
+#8#136#128#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0 +'on'#6#7'String:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3'$'#1#6
+'Height'#2#14#3'Top'#2'0'#5'Width'#2'('#7'Caption'#6#8'Expires:'#11'ParentCo'
+'lor'#8#0#0#7'TButton'#12'RegRandomBtn'#4'Left'#2'H'#6'Height'#2#25#3'Top'#2
+','#5'Width'#3#145#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#14'&Rand'
+'om Number'#7'OnClick'#7#17'RegRandomBtnClick'#8'TabOrder'#2#1#0#0#5'TEdit'#8
+'RegStrEd'#4'Left'#2'D'#6'Height'#2#23#3'Top'#2#8#5'Width'#3#157#1#8'TabOrde'
+'r'#2#0#0#0#5'TEdit'#12'RegExpiresEd'#4'Left'#3'e'#1#6'Height'#2#23#3'Top'#2
+','#5'Width'#2'\'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#14'Da'
+'teEdKeyPress'#8'TabOrder'#2#2#0#0#0#9'TTabSheet'#9'TabSheet4'#7'Caption'#6#3
+'S/N'#12'ClientHeight'#2'h'#11'ClientWidth'#3#13#2#10'ImageIndex'#2#3#0#6'TL'
+'abel'#6'Label7'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#12#5'Width'#2'G'#7'Capt'
+'ion'#6#15'&Serial Number:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label15'#4'Lef'
+'t'#3#12#1#6'Height'#2#14#3'Top'#2#12#5'Width'#2'('#7'Caption'#6#8'Expires:'
+#11'ParentColor'#8#0#0#7'TButton'#12'SerRandomBtn'#4'Left'#2#8#6'Height'#2#25
+#3'Top'#2','#5'Width'#3#145#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
,#14'&Random Number'#7'OnClick'#7#17'SerRandomBtnClick'#8'TabOrder'#2#2#0#0#5
+'TEdit'#14'SerialNumberEd'#4'Left'#2'|'#6'Height'#2#23#3'Top'#2#8#5'Width'#2
+'}'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'
+#8'TabOrder'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#15'SerialExpiresEd'#4'Left'#3'P'
+#1#6'Height'#2#23#3'Top'#2#8#5'Width'#2'a'#8'OnChange'#7#17'ParametersChange'
+'d'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9
+'TabSheet5'#7'Caption'#6#5'Usage'#12'ClientHeight'#2'h'#11'ClientWidth'#3#13
+#2#10'ImageIndex'#2#4#0#6'TLabel'#7'Label14'#4'Left'#2#4#6'Height'#2#13#3'To'
+'p'#2#12#5'Width'#2'@'#7'Caption'#6#12'Usage count:'#11'ParentColor'#8#0#0#6
+'TLabel'#7'Label17'#4'Left'#3#12#1#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7
+'Caption'#6#8'Expires:'#11'ParentColor'#8#0#0#5'TEdit'#12'UsageCountEd'#4'Le'
+'ft'#2'l'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'Parameter'
+'sChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'Text'#6#1
+'0'#0#0#5'TEdit'#14'UsageExpiresEd'#4'Left'#3'P'#1#6'Height'#2#21#3'Top'#2#8
+#5'Width'#2'a'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#14'DateE'
+'dKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9'TabSheet6'#7'Caption'#6#7'N'
+'etwork'#12'ClientHeight'#2'h'#11'ClientWidth'#3#13#2#10'ImageIndex'#2#5#0#6
+'TLabel'#7'Label10'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'@'#7'C'
+'aption'#6#13'Access Slots:'#11'ParentColor'#8#0#0#5'TEdit'#14'NetworkSlotsE'
+'d'#4'Left'#2't'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'Pa'
+'rametersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'Te'
+'xt'#6#1'2'#0#0#0#9'TTabSheet'#9'TabSheet7'#7'Caption'#6#7'Special'#12'Clien'
+'tHeight'#2'h'#11'ClientWidth'#3#13#2#10'ImageIndex'#2#6#0#6'TLabel'#7'Label'
+'12'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'>'#7'Caption'#6#13'Sp'
+'ecial data:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label19'#4'Left'#3#252#0#6'H'
+'eight'#2#13#3'Top'#2#12#5'Width'#2'%'#7'Caption'#6#8'Expires:'#11'ParentCol'
+'or'#8#0#0#5'TEdit'#13'SpecialDataEd'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2#8
+#5'Width'#3#129#0#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#16'Nu'
+'mberKeyEdPress'#8'TabOrder'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#16'SpecialExpir'
+'esEd'#4'Left'#3'@'#1#6'Height'#2#21#3'Top'#2#8#5'Width'#2'i'#8'OnChange'#7
+#17'ParametersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0
+#0#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#4#6'Height'#3#248#0#3'Top'#3#136#0
+#5'Width'#3#28#2#7'Caption'#6#19'&Key used to encode'#12'ClientHeight'#3#230
+#0#11'ClientWidth'#3#24#2#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'TabOrd'
+'er'#2#3#0#12'TSpeedButton'#13'GenerateKeySb'#4'Left'#3#242#1#6'Height'#2#23
+#4'Hint'#6#12'Generate key'#3'Top'#3#195#0#5'Width'#2#23#5'Color'#7#9'clBtnF'
+'ace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0
+#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0
+#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0
+#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0
+#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#128#0#0#136#8
+#136#128#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0
+#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152#144#8#136#136#136#128#0 +#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152#144#8#136#136#136#128#0
+#0#0#136#128#0#0#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0 +#0#0#136#128#0#0#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136 +#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136 +#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
+#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#18'GenerateKeySbClick'#0 +#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#18'GenerateKeySbClick'#0
+#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#13#3'Top'#2's'#5'Width'#2'('#7 +#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2's'#5'Width'#2'+'#7
+'Caption'#6#9'Modifier:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel' +'Caption'#6#9'Modifier:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2
+#6'Label5'#4'Left'#2#12#6'Height'#2#13#3'Top'#3#172#0#5'Width'#2#21#7'Captio' +#12#6'Height'#2#14#3'Top'#3#172#0#5'Width'#2#23#7'Caption'#6#4'Key:'#11'Pare'
+'n'#6#4'Key:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#9'TCheckBox'#12'NoM' +'ntColor'#8#0#0#9'TCheckBox'#12'NoModifierCb'#4'Left'#2#16#6'Height'#2#17#3
+'odifierCb'#4'Left'#2#16#6'Height'#2#17#3'Top'#2#24#5'Width'#3#129#0#7'Capti' +'Top'#2#24#5'Width'#2'H'#7'Caption'#6#11'No modifier'#7'Checked'#9#7'OnClick'
+'on'#6#11'No modifier'#7'Checked'#9#7'OnClick'#7#13'ModifierClick'#5'State'#7 +#7#13'ModifierClick'#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCheckBox'
+#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCheckBox'#17'MachineModifierCb'#4'Left' +#17'MachineModifierCb'#4'Left'#3#176#0#6'Height'#2#17#3'Top'#2#24#5'Width'#2
+#3#176#0#6'Height'#2#17#3'Top'#2#24#5'Width'#3#153#0#7'Caption'#6#16'Machine' +'b'#7'Caption'#6#16'Machine modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOr'
+' modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#1#0#0#9'TCheckBox' +'der'#2#1#0#0#9'TCheckBox'#16'UniqueModifierCb'#4'Left'#3'h'#1#6'Height'#2#17
+#16'UniqueModifierCb'#4'Left'#3'h'#1#6'Height'#2#17#3'Top'#2#24#5'Width'#3 +#3'Top'#2#24#5'Width'#2'\'#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13
+#145#0#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13'ModifierClick'#8'Tab' +'ModifierClick'#8'TabOrder'#2#2#0#0#9'TCheckBox'#14'DateModifierCb'#4'Left'#2
+'Order'#2#2#0#0#9'TCheckBox'#14'DateModifierCb'#4'Left'#2#16#6'Height'#2#17#3 +#16#6'Height'#2#17#3'Top'#2'8'#5'Width'#2'R'#7'Caption'#6#13'Date modifier'#7
+'Top'#2'8'#5'Width'#3#129#0#7'Caption'#6#13'Date modifier'#7'OnClick'#7#13'M' +'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'StringModi'
+'odifierClick'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'StringModifierCb'#4'Left' +'fierCb'#4'Left'#2#16#6'Height'#2#17#3'Top'#2'X'#5'Width'#2'W'#7'Caption'#6
+#2#16#6'Height'#2#17#3'Top'#2'X'#5'Width'#3#137#0#7'Caption'#6#15'String Mod' ,#15'String Modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#4#0#0#5'TE'
+'ifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModDat' +'dit'#9'ModDateEd'#4'Left'#3#159#0#6'Height'#2#23#3'Top'#2'5'#5'Width'#2'b'#8
,'eEd'#4'Left'#3#159#0#6'Height'#2#21#3'Top'#2'5'#5'Width'#2'b'#8'OnChange'#7 +'OnChange'#7#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrde'
+#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#6#0#0#5 +'r'#2#6#0#0#5'TEdit'#11'ModStringEd'#4'Left'#3#160#0#6'Height'#2#23#3'Top'#2
+'TEdit'#11'ModStringEd'#4'Left'#3#160#0#6'Height'#2#21#3'Top'#2'U'#5'Width'#3 +'U'#5'Width'#3'i'#1#8'OnChange'#7#13'ModifierClick'#8'TabOrder'#2#8#0#0#5'TE'
+'i'#1#8'OnChange'#7#13'ModifierClick'#8'TabOrder'#2#8#0#0#5'TEdit'#10'Modifi' +'dit'#10'ModifierEd'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#140#0#5'Width'#3#169
+'erEd'#4'Left'#2#8#6'Height'#2#21#3'Top'#3#140#0#5'Width'#3#169#0#8'OnChange' +#0#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#18'ModifierEdKeyPres'
+#7#17'ParametersChanged'#10'OnKeyPress'#7#18'ModifierEdKeyPress'#8'TabOrder' +'s'#8'TabOrder'#2#5#0#0#5'TEdit'#10'BlockKeyEd'#4'Left'#2#8#6'Height'#2#23#3
+#2#5#0#0#5'TEdit'#10'BlockKeyEd'#4'Left'#2#8#6'Height'#2#21#3'Top'#3#196#0#5 +'Top'#3#196#0#5'Width'#3#225#1#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#7
+'Width'#3#225#1#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#7#0#0#0#9'TGroup' +#0#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#2#8#6'Height'#2'E'#3'Top'#3#128#1#5
+'Box'#9'GroupBox2'#4'Left'#2#8#6'Height'#2'E'#3'Top'#3#128#1#5'Width'#3#24#2 +'Width'#3#24#2#7'Caption'#6#13'Generate Code'#12'ClientHeight'#2'3'#11'Clien'
+#7'Caption'#6#13'Generate Code'#8'TabOrder'#2#4#0#12'TSpeedButton'#13'RegCod' +'tWidth'#3#20#2#8'TabOrder'#2#4#0#12'TSpeedButton'#13'RegCodeCopySb'#4'Left'
+'eCopySb'#4'Left'#3#246#1#6'Height'#2#23#4'Hint'#6#22'Copy code to clipboard' +#3#246#1#6'Height'#2#23#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#25#5'W'
+#3'Top'#2#25#5'Width'#2#23#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0 +'idth'#2#23#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'
+'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 +#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0
+#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0 +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128
+#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0 +#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0
+#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0 +#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136
+#136#136#136#136#136#136#136#136#128#0#0#0#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#136
+#128#0#0#0#136#136#136#132'DDDD'#128#0#0#0#136#136#136#132#255#255#255#244 +#136#136#132'DDDD'#128#0#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136
+#128#0#0#0#136#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4#255#255#255#244 +#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128
+#128#0#0#0#128#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4#255#255#255#244 +#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128
+#128#0#0#0#128#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0 +#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255
+#0#0#128#255#255#244#255#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0 +#255#244#255#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255
+#128#255#255#15#8#136#136#136#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0 +#15#8#136#136#136#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8
+#0#128#0#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0 +#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7 +#136#136#136#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#18'RegCodeC'
+#18'RegCodeCopySbClick'#0#0#7'TButton'#11'GenerateBtn'#4'Left'#2#8#6'Height' +'opySbClick'#0#0#7'TButton'#11'GenerateBtn'#4'Left'#2#8#6'Height'#2#25#4'Hin'
+#2#25#4'Hint'#6#13'Generate code'#3'Top'#2#24#5'Width'#2'M'#25'BorderSpacing' +'t'#6#13'Generate code'#3'Top'#2#24#5'Width'#2'M'#25'BorderSpacing.InnerBord'
+'.InnerBorder'#2#4#7'Caption'#6#9'&Generate'#7'Default'#9#7'OnClick'#7#16'Ge' +'er'#2#4#7'Caption'#6#9'&Generate'#7'Default'#9#7'OnClick'#7#16'GenerateBtnC'
+'nerateBtnClick'#8'TabOrder'#2#0#0#0#5'TEdit'#9'RegCodeEd'#4'Left'#2'`'#6'He' +'lick'#8'TabOrder'#2#0#0#0#5'TEdit'#9'RegCodeEd'#4'Left'#2'`'#6'Height'#2#23
+'ight'#2#21#3'Top'#2#26#5'Width'#3#145#1#8'OnChange'#7#11'InfoChanged'#8'Tab' +#3'Top'#2#26#5'Width'#3#145#1#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#1#0
+'Order'#2#1#0#0#0#0 +#0#0#0
]); ]);

16
components/onguard/source/qonguard2.pas
View File

@ -70,6 +70,9 @@ const
*) *)
type type
{ TCodeGenerateFrm }
TCodeGenerateFrm = class(TForm) TCodeGenerateFrm = class(TForm)
OKBtn: TBitBtn; OKBtn: TBitBtn;
CancelBtn: TBitBtn; CancelBtn: TBitBtn;
@ -142,6 +145,7 @@ type
procedure RegRandomBtnClick(Sender: TObject); procedure RegRandomBtnClick(Sender: TObject);
procedure CodesNbkChanging(Sender: TObject; procedure CodesNbkChanging(Sender: TObject;
var AllowChange: Boolean); var AllowChange: Boolean);
procedure SerRandomBtnClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FCode : TCode; FCode : TCode;
@ -565,6 +569,18 @@ begin
ModifierEd.Text := ''; ModifierEd.Text := '';
end; end;
procedure TCodeGenerateFrm.SerRandomBtnClick(Sender: TObject);
var
I : Integer;
L : LongInt;
Bytes : array[0..3] of Byte absolute L;
begin
Randomize;
for I := 0 to 3 do
Bytes[I] := Random(256);
SerialNumberEd.Text := IntToHex(L, 8);
end;
procedure TCodeGenerateFrm.GetKey(var Value : TKey); procedure TCodeGenerateFrm.GetKey(var Value : TKey);
begin begin
Value := FKey; Value := FKey;

89
components/onguard/source/qonguard6.lfm
View File

@ -1,4 +1,8 @@
object ModifierFrm: TModifierFrm object ModifierFrm: TModifierFrm
Left = 295
Height = 145
Top = 224
Width = 433
ActiveControl = NoModifierCb ActiveControl = NoModifierCb
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]
Caption = 'Generate Modifier' Caption = 'Generate Modifier'
@ -9,103 +13,94 @@ object ModifierFrm: TModifierFrm
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable Font.Pitch = fpVariable
OnCreate = FormCreate OnCreate = FormCreate
PixelsPerInch = 83
Position = poScreenCenter Position = poScreenCenter
TextHeight = 18 LCLVersion = '0.9.27'
HorzScrollBar.Page = 432
HorzScrollBar.Range = 333
VertScrollBar.Page = 144
VertScrollBar.Range = 75
Left = 295
Height = 145
Top = 224
Width = 433
object OKBtn: TBitBtn object OKBtn: TBitBtn
Left = 285
Height = 26
Top = 104
Width = 57
Caption = 'OK' Caption = 'OK'
Default = True Default = True
ModalResult = 1 ModalResult = 1
NumGlyphs = 0 NumGlyphs = 0
TabOrder = 1 TabOrder = 1
Left = 285
Height = 26
Top = 104
Width = 57
end end
object CancelBtn: TBitBtn object CancelBtn: TBitBtn
Caption = 'Cancel'
ModalResult = 2
NumGlyphs = 0
TabOrder = 2
Left = 344 Left = 344
Height = 24 Height = 24
Top = 104 Top = 104
Width = 62 Width = 62
Caption = 'Cancel'
ModalResult = 2
NumGlyphs = 0
TabOrder = 2
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Caption = '&Modifiers'
ClientHeight = 73
ClientWidth = 402
TabOrder = 0
Left = 3 Left = 3
Height = 90 Height = 90
Top = 6 Top = 6
Width = 406 Width = 406
Caption = '&Modifiers'
ClientHeight = 72
ClientWidth = 402
TabOrder = 0
object UniqueModifierCb: TCheckBox object UniqueModifierCb: TCheckBox
Left = 133
Height = 17
Top = 37
Width = 91
Caption = 'Unique modifier' Caption = 'Unique modifier'
OnClick = ModifierClick OnClick = ModifierClick
TabOrder = 3 TabOrder = 3
Left = 133
Height = 20
Top = 37
Width = 119
end end
object MachineModifierCb: TCheckBox object MachineModifierCb: TCheckBox
Left = 133
Height = 17
Top = 20
Width = 98
Caption = 'Machine modifier' Caption = 'Machine modifier'
OnClick = ModifierClick OnClick = ModifierClick
TabOrder = 1 TabOrder = 1
Left = 133
Height = 20
Top = 20
Width = 129
end end
object DateModifierCb: TCheckBox object DateModifierCb: TCheckBox
Left = 267
Height = 17
Top = 18
Width = 80
Caption = 'Date modifier' Caption = 'Date modifier'
OnClick = ModifierClick OnClick = ModifierClick
TabOrder = 2 TabOrder = 2
Left = 267
Height = 20
Top = 20
Width = 106
end end
object NoModifierCb: TCheckBox object NoModifierCb: TCheckBox
Left = 11
Height = 17
Top = 18
Width = 71
Caption = 'No modifier' Caption = 'No modifier'
OnClick = ModifierClick OnClick = ModifierClick
TabOrder = 0 TabOrder = 0
Left = 11
Height = 12
Top = 20
Width = 101
end end
object ModifierEd: TEdit object ModifierEd: TEdit
Left = 12
Height = 23
Top = 34
Width = 104
OnChange = InfoChanged OnChange = InfoChanged
OnKeyPress = ModifierEdKeyPress OnKeyPress = ModifierEdKeyPress
TabOrder = 4 TabOrder = 4
Left = 12
Height = 26
Top = 34
Width = 104
end end
object ModDateEd: TEdit object ModDateEd: TEdit
Left = 267
Height = 23
Hint = 'Code is invalid after this date'
Top = 35
Width = 120
Enabled = False Enabled = False
MaxLength = 10 MaxLength = 10
OnChange = ModifierClick OnChange = ModifierClick
OnKeyPress = DateEdKeyPress OnKeyPress = DateEdKeyPress
TabOrder = 5 TabOrder = 5
Left = 267
Height = 22
Hint = 'Code is invalid after this date'
Top = 35
Width = 120
end end
end end
end end

58
components/onguard/source/qonguard6.lrs
View File

@ -1,34 +1,32 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa } { To jest automatycznie wygenerowany plik zasob�w lazarusa }
LazarusResources.Add('TModifierFrm','FORMDATA',[ LazarusResources.Add('TModifierFrm','FORMDATA',[
'TPF0'#12'TModifierFrm'#11'ModifierFrm'#13'ActiveControl'#7#12'NoModifierCb' 'TPF0'#12'TModifierFrm'#11'ModifierFrm'#4'Left'#3''''#1#6'Height'#3#145#0#3'T'
+#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#17'Genera' +'op'#3#224#0#5'Width'#3#177#1#13'ActiveControl'#7#12'NoModifierCb'#11'Border'
+'te Modifier'#12'ClientHeight'#3#145#0#11'ClientWidth'#3#177#1#10'Font.Color' +'Icons'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#17'Generate Modifi'
+#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.P' +'er'#12'ClientHeight'#3#145#0#11'ClientWidth'#3#177#1#10'Font.Color'#7#6'clT'
+'itch'#7#10'fpVariable'#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'S'#8 +'ext'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'#7
+'Position'#7#14'poScreenCenter'#10'TextHeight'#2#18#18'HorzScrollBar.Page'#3 +#10'fpVariable'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'
+#176#1#19'HorzScrollBar.Range'#3'M'#1#18'VertScrollBar.Page'#3#144#0#19'Vert' +#10'LCLVersion'#6#6'0.9.27'#0#7'TBitBtn'#5'OKBtn'#4'Left'#3#29#1#6'Height'#2
+'ScrollBar.Range'#2'K'#4'Left'#3''''#1#6'Height'#3#145#0#3'Top'#3#224#0#5'Wi' +#26#3'Top'#2'h'#5'Width'#2'9'#7'Caption'#6#2'OK'#7'Default'#9#11'ModalResult'
+'dth'#3#177#1#0#7'TBitBtn'#5'OKBtn'#7'Caption'#6#2'OK'#7'Default'#9#11'Modal' +#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#3
+'Result'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#4'Left'#3#29#1#6'Height'#2#26#3 +'X'#1#6'Height'#2#24#3'Top'#2'h'#5'Width'#2'>'#7'Caption'#6#6'Cancel'#11'Mod'
+'Top'#2'h'#5'Width'#2'9'#0#0#7'TBitBtn'#9'CancelBtn'#7'Caption'#6#6'Cancel' +'alResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#9'TGroupBox'#9'GroupBox1'
+#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#4'Left'#3'X'#1#6'Heigh' +#4'Left'#2#3#6'Height'#2'Z'#3'Top'#2#6#5'Width'#3#150#1#7'Caption'#6#10'&Mod'
+'t'#2#24#3'Top'#2'h'#5'Width'#2'>'#0#0#9'TGroupBox'#9'GroupBox1'#7'Caption'#6 +'ifiers'#12'ClientHeight'#2'H'#11'ClientWidth'#3#146#1#8'TabOrder'#2#0#0#9'T'
+#10'&Modifiers'#12'ClientHeight'#2'I'#11'ClientWidth'#3#146#1#8'TabOrder'#2#0 +'CheckBox'#16'UniqueModifierCb'#4'Left'#3#133#0#6'Height'#2#17#3'Top'#2'%'#5
+#4'Left'#2#3#6'Height'#2'Z'#3'Top'#2#6#5'Width'#3#150#1#0#9'TCheckBox'#16'Un' +'Width'#2'['#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13'ModifierClick'
+'iqueModifierCb'#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13'ModifierCl' +#8'TabOrder'#2#3#0#0#9'TCheckBox'#17'MachineModifierCb'#4'Left'#3#133#0#6'He'
+'ick'#8'TabOrder'#2#3#4'Left'#3#133#0#6'Height'#2#20#3'Top'#2'%'#5'Width'#2 +'ight'#2#17#3'Top'#2#20#5'Width'#2'b'#7'Caption'#6#16'Machine modifier'#7'On'
+'w'#0#0#9'TCheckBox'#17'MachineModifierCb'#7'Caption'#6#16'Machine modifier' +'Click'#7#13'ModifierClick'#8'TabOrder'#2#1#0#0#9'TCheckBox'#14'DateModifier'
+#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#1#4'Left'#3#133#0#6'Height'#2 +'Cb'#4'Left'#3#11#1#6'Height'#2#17#3'Top'#2#18#5'Width'#2'P'#7'Caption'#6#13
+#20#3'Top'#2#20#5'Width'#3#129#0#0#0#9'TCheckBox'#14'DateModifierCb'#7'Capti' +'Date modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#2#0#0#9'TCheckB'
+'on'#6#13'Date modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#2#4'Le' +'ox'#12'NoModifierCb'#4'Left'#2#11#6'Height'#2#17#3'Top'#2#18#5'Width'#2'G'#7
+'ft'#3#11#1#6'Height'#2#20#3'Top'#2#20#5'Width'#2'j'#0#0#9'TCheckBox'#12'NoM' +'Caption'#6#11'No modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#0#0
+'odifierCb'#7'Caption'#6#11'No modifier'#7'OnClick'#7#13'ModifierClick'#8'Ta' +#0#5'TEdit'#10'ModifierEd'#4'Left'#2#12#6'Height'#2#23#3'Top'#2'"'#5'Width'#2
+'bOrder'#2#0#4'Left'#2#11#6'Height'#2#12#3'Top'#2#20#5'Width'#2'e'#0#0#5'TEd' +'h'#8'OnChange'#7#11'InfoChanged'#10'OnKeyPress'#7#18'ModifierEdKeyPress'#8
+'it'#10'ModifierEd'#8'OnChange'#7#11'InfoChanged'#10'OnKeyPress'#7#18'Modifi' +'TabOrder'#2#4#0#0#5'TEdit'#9'ModDateEd'#4'Left'#3#11#1#6'Height'#2#23#4'Hin'
+'erEdKeyPress'#8'TabOrder'#2#4#4'Left'#2#12#6'Height'#2#26#3'Top'#2'"'#5'Wid' +'t'#6#31'Code is invalid after this date'#3'Top'#2'#'#5'Width'#2'x'#7'Enable'
+'th'#2'h'#0#0#5'TEdit'#9'ModDateEd'#7'Enabled'#8#9'MaxLength'#2#10#8'OnChang' +'d'#8#9'MaxLength'#2#10#8'OnChange'#7#13'ModifierClick'#10'OnKeyPress'#7#14
+'e'#7#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#5#4 +'DateEdKeyPress'#8'TabOrder'#2#5#0#0#0#0
+'Left'#3#11#1#6'Height'#2#22#4'Hint'#6#31'Code is invalid after this date'#3
+'Top'#2'#'#5'Width'#2'x'#0#0#0#0
]); ]);

5
components/onguard/source/qonguard6.pas
View File

@ -47,8 +47,7 @@ uses
ogutil, onguard, {AH.01} ogutil, onguard, {AH.01}
ComponentEditors, ComponentEditors,
PropEdits, PropEdits,
LazarusPackageIntf, LazarusPackageIntf;
LResources;
@ -88,6 +87,8 @@ type
implementation implementation
uses
LResources;