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

OnGuard: Fix sample projects not loading. Activate themes in sample projects. Anchored layout of sample forms.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8707 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-17 16:28:47 +00:00
parent 36eff03740
commit a9c3a3022c
152 changed files with 6033 additions and 3578 deletions
Download Patch File Download Diff File Expand all files Collapse all files

143
components/onguard/examples/all_examples.lpg Normal file
View File

@ -0,0 +1,143 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectGroup FileVersion="2">
<Targets>
<Target FileName="codegen\codegen.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exdmod\exdmod.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exdtp21\exdtp21.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exdtreg\exdtreg.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exdyreg\exdyreg.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exdys30\exdys30.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exinst\exinst.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exmachid\exmachid.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exnet\exnet.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exprot\exprot.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exreg\exreg.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exrgreg\exrgreg.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exrgstr\exrgstr.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exselapi\exselapi.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exselect\exselect.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exslcode\exslcode.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exsnreg\exsnreg.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exspname\exspname.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exspreg\exspreg.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exsrnm1\exsrnm1.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exusg1\exusg1.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exusg2\exusg2.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="exusreg\exusreg.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="fixnaf\fixnaf.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="nafmgr\nafmgr.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="regdemo\helloworld.lpi"/>
<Target FileName="regdemo\registration.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="stampexe\stampexe.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
</Targets>
</ProjectGroup>
</CONFIG>

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

@ -1,29 +1,35 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<Scaled Value="True"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="2">
<Item1>
@ -34,15 +40,15 @@
<MinVersion Valid="True"/>
</Item2>
</RequiredPackages>
<Units Count="22">
<Units Count="23">
<Unit0>
<Filename Value="codegen.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="73" Y="13"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="26"/>
<UnitName Value="CodeGen"/>
<CursorPos X="73" Y="15"/>
<UsageCount Value="27"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="codegenu.pas"/>
@ -50,60 +56,60 @@
<ComponentName Value="CodeGenFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="CODEGENU"/>
<CursorPos X="59" Y="39"/>
<TopLine Value="26"/>
<UnitName Value="CodeGenU"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="26"/>
<CursorPos X="21" Y="8"/>
<UsageCount Value="27"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\..\source\qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard3"/>
<CursorPos X="15" Y="173"/>
<TopLine Value="265"/>
<EditorIndex Value="4"/>
<TopLine Value="38"/>
<CursorPos X="32" Y="50"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\source\ogconst.pas"/>
<UnitName Value="ogconst"/>
<CursorPos X="3" Y="62"/>
<TopLine Value="42"/>
<CursorPos X="3" Y="62"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="..\..\..\lazarus\lcl\include\control.inc"/>
<CursorPos X="1" Y="1544"/>
<TopLine Value="1525"/>
<CursorPos Y="1544"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="..\..\..\lazarus\lcl\interfaces\gtk\gtkwscontrols.pp"/>
<UnitName Value="GtkWSControls"/>
<CursorPos X="1" Y="270"/>
<TopLine Value="251"/>
<CursorPos Y="270"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="..\..\..\lazarus\lcl\include\customlistbox.inc"/>
<CursorPos X="1" Y="401"/>
<TopLine Value="382"/>
<CursorPos Y="401"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="usr\share\fpcsrc\fcl\inc\inifiles.pp"/>
<UnitName Value="IniFiles"/>
<CursorPos X="3" Y="598"/>
<TopLine Value="593"/>
<CursorPos X="3" Y="598"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="..\..\source\qonguard5.pas"/>
<UnitName Value="qonguard5"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="72"/>
<UsageCount Value="11"/>
</Unit8>
@ -112,26 +118,28 @@
<ComponentName Value="CodeGenerateFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard2"/>
<CursorPos X="18" Y="425"/>
<TopLine Value="422"/>
<UsageCount Value="11"/>
<EditorIndex Value="3"/>
<TopLine Value="500"/>
<CursorPos X="3" Y="504"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit9>
<Unit10>
<Filename Value="..\..\source\onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="19" Y="1186"/>
<TopLine Value="1170"/>
<UsageCount Value="10"/>
<EditorIndex Value="2"/>
<TopLine Value="1488"/>
<CursorPos X="18" Y="1498"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="..\..\source\qonguard1.pas"/>
<ComponentName Value="KeyGenerateFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard1"/>
<CursorPos X="56" Y="7"/>
<TopLine Value="76"/>
<CursorPos X="56" Y="7"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
@ -139,88 +147,121 @@
<ComponentName Value="EditProductFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard4"/>
<CursorPos X="20" Y="37"/>
<TopLine Value="31"/>
<CursorPos X="20" Y="37"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="..\..\source\ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="32" Y="693"/>
<TopLine Value="714"/>
<CursorPos X="32" Y="693"/>
<UsageCount Value="10"/>
</Unit13>
<Unit14>
<Filename Value="codegenu.lfm"/>
<CursorPos X="18" Y="12"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter 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"/>
<CursorPos X="42" Y="25"/>
<UsageCount Value="10"/>
</Unit15>
<Unit16>
<Filename Value="..\..\source\qogabout0.lfm"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter 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"/>
<CursorPos X="50" Y="7"/>
<UsageCount Value="10"/>
</Unit17>
<Unit18>
<Filename Value="..\..\source\qonguard6.lfm"/>
<CursorPos X="28" Y="13"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter 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"/>
<CursorPos Y="23"/>
<UsageCount Value="11"/>
</Unit20>
<Unit21>
<Filename Value="..\..\..\..\..\..\temp\fpc\rtl\inc\systemh.inc"/>
<CursorPos X="11" Y="571"/>
<TopLine Value="556"/>
<CursorPos X="11" Y="571"/>
<UsageCount Value="11"/>
</Unit21>
<Unit22>
<Filename Value="..\..\source\onguard.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="31"/>
<UsageCount Value="10"/>
</Unit22>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="9" HistoryIndex="8">
<Position1>
<Filename Value="codegenu.pas"/>
<Caret Line="47" Column="51" TopLine="26"/>
</Position1>
<Position2>
<Filename Value="codegenu.pas"/>
<Caret Line="17" Column="18"/>
</Position2>
<Position3>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="273" Column="18" TopLine="247"/>
</Position3>
<Position4>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1494" TopLine="1488"/>
</Position4>
<Position5>
<Filename Value="..\..\source\qonguard2.pas"/>
<Caret Line="86" Column="32" TopLine="57"/>
</Position5>
<Position6>
<Filename Value="..\..\source\qonguard2.pas"/>
<Caret Line="19" TopLine="19"/>
</Position6>
<Position7>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1498" Column="18" TopLine="1488"/>
</Position7>
<Position8>
<Filename Value="..\..\source\qonguard2.pas"/>
<Caret Line="76" Column="3" TopLine="58"/>
</Position8>
<Position9>
<Filename Value="..\..\source\qonguard2.pas"/>
<Caret Line="504" Column="3" TopLine="500"/>
</Position9>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -232,27 +273,36 @@
</Checks>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="3">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard3.pas"/>
<Line Value="159"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard3.pas"/>
<Line Value="212"/>
</Item2>
<Item3>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard2.pas"/>
<Line Value="236"/>
</Item3>

6
components/onguard/examples/codegen/codegen.lpr
View File

@ -7,10 +7,14 @@ program CodeGen;
uses
Interfaces,
Forms,
CODEGENU in 'CODEGENU.pas' {CodeGenFrm}, tponguard;
CodeGenU in 'CODEGENU.pas' {CodeGenFrm}, tponguard;
{$R *.res}
begin
Application.Scaled:=True;
Application.Title:='';
Application.Initialize;
Application.CreateForm(TCodeGenFrm, CodeGenFrm);
Application.Run;

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

@ -1,26 +1,31 @@
object CodeGenFrm: TCodeGenFrm
Left = 315
Height = 85
Height = 106
Top = 230
Width = 273
Width = 293
ActiveControl = GenerateBtn
AutoSize = True
BorderStyle = bsDialog
Caption = 'Example Code Generator'
ClientHeight = 85
ClientWidth = 273
Font.Color = clText
Font.Height = 11
Font.Name = 'MS Sans Serif'
ClientHeight = 106
ClientWidth = 293
Font.Color = clWindowText
Font.Pitch = fpVariable
Position = poScreenCenter
ShowHint = True
LCLVersion = '0.9.27'
LCLVersion = '2.3.0.0'
object CopySb: TSpeedButton
Left = 244
AnchorSideLeft.Control = CodeEd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeEd
AnchorSideTop.Side = asrCenter
Left = 266
Height = 22
Hint = 'Copy code to clipboard'
Top = 21
Top = 29
Width = 23
Color = clBtnFace
BorderSpacing.Left = 4
BorderSpacing.Right = 12
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000000000000000000000000000000000
@ -34,50 +39,68 @@ object CodeGenFrm: TCodeGenFrm
0000800000088888888880000000888888888888888880000000888888888888
888880000000
}
NumGlyphs = 0
OnClick = CopySbClick
end
object Label2: TLabel
Left = 8
Height = 14
Top = 3
Width = 26
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 15
Top = 12
Width = 28
BorderSpacing.Left = 12
BorderSpacing.Top = 12
Caption = 'Code'
FocusControl = CodeEd
ParentColor = False
end
object GenerateBtn: TButton
Left = 8
AnchorSideLeft.Control = CodeEd
AnchorSideTop.Control = CodeEd
AnchorSideTop.Side = asrBottom
Left = 12
Height = 25
Hint = 'Display code generation dialog'
Top = 51
Top = 64
Width = 105
BorderSpacing.Top = 12
BorderSpacing.Bottom = 12
BorderSpacing.InnerBorder = 4
Caption = 'Generate Code'
OnClick = GenerateBtnClick
TabOrder = 0
end
object CodeEd: TEdit
Left = 8
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 12
Height = 23
Top = 19
Width = 233
Top = 29
Width = 250
BorderSpacing.Top = 2
Constraints.MinWidth = 250
ReadOnly = True
TabOrder = 1
end
object CloseBtn: TBitBtn
Left = 192
AnchorSideTop.Control = GenerateBtn
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 206
Height = 25
Top = 51
Top = 64
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
end
object OgMakeCodes1: TOgMakeCodes
KeyFileName = 'ONGUARD.INI'
ShowHints = True
left = 64
top = 56
Left = 104
Top = 8
end
end

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

@ -1,35 +1,47 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TCodeGenFrm','FORMDATA',[
'TPF0'#11'TCodeGenFrm'#10'CodeGenFrm'#4'Left'#3';'#1#6'Height'#2'U'#3'Top'#3
+#230#0#5'Width'#3#17#1#13'ActiveControl'#7#11'GenerateBtn'#7'Caption'#6#22'E'
+'xample Code Generator'#12'ClientHeight'#2'U'#11'ClientWidth'#3#17#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'#8'Position'#7#14'poScreenCenter'#8'ShowHint'#9
+#10'LCLVersion'#6#6'0.9.27'#0#12'TSpeedButton'#6'CopySb'#4'Left'#3#244#0#6'H'
+'eight'#2#22#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#21#5'Width'#2#23#5
+'Color'#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#11'CopySbClick'#0#0
+#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#3#5'Width'#2#26#7'C'
+'aption'#6#4'Code'#12'FocusControl'#7#6'CodeEd'#11'ParentColor'#8#0#0#7'TBut'
+'ton'#11'GenerateBtn'#4'Left'#2#8#6'Height'#2#25#4'Hint'#6#30'Display code g'
+'eneration dialog'#3'Top'#2'3'#5'Width'#2'i'#25'BorderSpacing.InnerBorder'#2
+#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrd'
+'er'#2#0#0#0#5'TEdit'#6'CodeEd'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#19#5'Wid'
+'th'#3#233#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'
+#3#192#0#6'Height'#2#25#3'Top'#2'3'#5'Width'#2'K'#4'Kind'#7#7'bkClose'#9'Num'
+'Glyphs'#2#0#8'TabOrder'#2#2#0#0#12'TOgMakeCodes'#12'OgMakeCodes1'#11'KeyFil'
+'eName'#6#11'ONGUARD.INI'#9'ShowHints'#9#4'left'#2'@'#3'top'#2'8'#0#0#0
'TPF0'#11'TCodeGenFrm'#10'CodeGenFrm'#4'Left'#3';'#1#6'Height'#2'j'#3'Top'#3
+#230#0#5'Width'#3'%'#1#13'ActiveControl'#7#11'GenerateBtn'#8'AutoSize'#9#11
+'BorderStyle'#7#8'bsDialog'#7'Caption'#6#22'Example Code Generator'#12'Clien'
+'tHeight'#2'j'#11'ClientWidth'#3'%'#1#10'Font.Color'#7#12'clWindowText'#10'F'
+'ont.Pitch'#7#10'fpVariable'#8'Position'#7#14'poScreenCenter'#8'ShowHint'#9
+#10'LCLVersion'#6#7'2.3.0.0'#0#12'TSpeedButton'#6'CopySb'#22'AnchorSideLeft.'
+'Control'#7#6'CodeEd'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTo'
+'p.Control'#7#6'CodeEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#10#1
+#6'Height'#2#22#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#29#5'Width'#2
+#23#18'BorderSpacing.Left'#2#4#19'BorderSpacing.Right'#2#12#10'Glyph.Data'#10
+'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0
+#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0
+#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192
+#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255
+#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0#0#0#136#136#136#132#255#255
+#255#244#128#0#0#0#136#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4#255#255
+#255#244#128#0#0#0#128#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4#255#255
+#255#244#128#0#0#0#128#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4#255#255
+'OH'#128#0#0#0#128#255#255#244#255#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136
+#128#0#0#0#128#255#255#15#8#136#136#136#128#0#0#0#128#255#255#0#136#136#136
+#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136
+#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#7'OnClick'#7#11
+'CopySbClick'#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'#7#5'Owner'
+#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2#15#3'Top'#2#12
+#5'Width'#2#28#18'BorderSpacing.Left'#2#12#17'BorderSpacing.Top'#2#12#7'Capt'
+'ion'#6#4'Code'#12'FocusControl'#7#6'CodeEd'#11'ParentColor'#8#0#0#7'TButton'
+#11'GenerateBtn'#22'AnchorSideLeft.Control'#7#6'CodeEd'#21'AnchorSideTop.Con'
+'trol'#7#6'CodeEd'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#12#6'Heig'
+'ht'#2#25#4'Hint'#6#30'Display code generation dialog'#3'Top'#2'@'#5'Width'#2
+'i'#17'BorderSpacing.Top'#2#12#20'BorderSpacing.Bottom'#2#12#25'BorderSpacin'
+'g.InnerBorder'#2#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#16'GenerateB'
+'tnClick'#8'TabOrder'#2#0#0#0#5'TEdit'#6'CodeEd'#22'AnchorSideLeft.Control'#7
+#6'Label2'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#12#6'Height'#2#23#3'Top'#2#29#5'Width'#3#250#0#17'Bord'
+'erSpacing.Top'#2#2#20'Constraints.MinWidth'#3#250#0#8'ReadOnly'#9#8'TabOrde'
+'r'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#11'GenerateBt'
+'n'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrB'
+'ottom'#4'Left'#3#206#0#6'Height'#2#25#3'Top'#2'@'#5'Width'#2'K'#7'Anchors'
+#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bott'
+'om'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#2#0#0#12'TOgMakeCodes'#12'OgMak'
+'eCodes1'#11'KeyFileName'#6#11'ONGUARD.INI'#9'ShowHints'#9#4'Left'#2'h'#3'To'
+'p'#2#8#0#0#0
]);

2
components/onguard/examples/codegen/codegenu.pas
View File

@ -1,4 +1,4 @@
unit CODEGENU;
unit CodeGenU;
{$MODE Delphi}

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

@ -1,45 +1,54 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<Scaled Value="True"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="14">
<Unit0>
<Filename Value="exdmod.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="76" Y="14"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UnitName Value="Exdmod"/>
<CursorPos X="76" Y="18"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exdmodu1.pas"/>
@ -48,11 +57,12 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exdmodu1"/>
<CursorPos X="3" Y="212"/>
<TopLine Value="206"/>
<EditorIndex Value="1"/>
<TopLine Value="199"/>
<CursorPos X="54" Y="211"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="exdmodu2.pas"/>
@ -61,76 +71,72 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exdmodu2"/>
<CursorPos X="67" Y="49"/>
<TopLine Value="19"/>
<EditorIndex Value="4"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="20"/>
<CursorPos X="70" Y="32"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\source\onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="1" Y="2088"/>
<EditorIndex Value="4"/>
<TopLine Value="2067"/>
<EditorIndex Value="2"/>
<CursorPos Y="2088"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="..\..\source\ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="1" Y="522"/>
<TopLine Value="495"/>
<EditorIndex Value="3"/>
<TopLine Value="495"/>
<CursorPos Y="522"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="..\..\source\onguard.inc"/>
<CursorPos X="1" Y="67"/>
<TopLine Value="47"/>
<CursorPos Y="67"/>
<UsageCount Value="12"/>
</Unit5>
<Unit6>
<Filename Value="usr\share\fpcsrc\rtl\inc\systemh.inc"/>
<CursorPos X="3" Y="350"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="usr\share\fpcsrc\rtl\inc\system.inc"/>
<CursorPos X="14" Y="511"/>
<TopLine Value="500"/>
<CursorPos X="14" Y="511"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="..\..\..\lazarus\lcl\interfaces\gtk\gtklclintf.inc"/>
<CursorPos X="1" Y="365"/>
<TopLine Value="346"/>
<CursorPos Y="365"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="exdmodu2.lfm"/>
<CursorPos X="28" Y="11"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit9>
<Unit10>
<Filename Value="exdmodu1.lfm"/>
<CursorPos X="28" Y="11"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter 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"/>
<CursorPos X="17" Y="11"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
@ -138,9 +144,7 @@
<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>
@ -148,156 +152,154 @@
<ComponentName Value="ModifierFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qonguard6"/>
<CursorPos X="49" Y="61"/>
<TopLine Value="42"/>
<CursorPos X="49" Y="61"/>
<UsageCount Value="10"/>
</Unit13>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
<Caret Line="510" TopLine="489"/>
</Position1>
<Position2>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="509" Column="1" TopLine="488"/>
<Caret Line="509" TopLine="488"/>
</Position2>
<Position3>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
<Caret Line="510" TopLine="489"/>
</Position3>
<Position4>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="509" Column="1" TopLine="488"/>
<Caret Line="512" TopLine="491"/>
</Position4>
<Position5>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
<Caret Line="515" TopLine="494"/>
</Position5>
<Position6>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="509" Column="1" TopLine="488"/>
<Caret Line="516" TopLine="495"/>
</Position6>
<Position7>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
<Caret Line="522" TopLine="495"/>
</Position7>
<Position8>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="509" Column="1" TopLine="488"/>
<Caret Line="517" TopLine="496"/>
</Position8>
<Position9>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="510" Column="1" TopLine="489"/>
<Caret Line="516" TopLine="495"/>
</Position9>
<Position10>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="512" Column="1" TopLine="491"/>
<Caret Line="522" TopLine="495"/>
</Position10>
<Position11>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="515" Column="1" TopLine="494"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="176" TopLine="155"/>
</Position11>
<Position12>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="516" Column="1" TopLine="495"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="177" TopLine="156"/>
</Position12>
<Position13>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="522" Column="1" TopLine="495"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="179" TopLine="158"/>
</Position13>
<Position14>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="517" Column="1" TopLine="496"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="167" Column="37" TopLine="160"/>
</Position14>
<Position15>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="516" Column="1" TopLine="495"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="182" TopLine="161"/>
</Position15>
<Position16>
<Filename Value="..\..\source\ogutil.pas"/>
<Caret Line="522" Column="1" TopLine="495"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1179" TopLine="1158"/>
</Position16>
<Position17>
<Filename Value="exdmodu1.pas"/>
<Caret Line="176" Column="1" TopLine="155"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1180" TopLine="1159"/>
</Position17>
<Position18>
<Filename Value="exdmodu1.pas"/>
<Caret Line="177" Column="1" TopLine="156"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1181" TopLine="1160"/>
</Position18>
<Position19>
<Filename Value="exdmodu1.pas"/>
<Caret Line="179" Column="1" TopLine="158"/>
<Caret Line="184" TopLine="163"/>
</Position19>
<Position20>
<Filename Value="exdmodu1.pas"/>
<Caret Line="167" Column="37" TopLine="160"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2085" TopLine="2064"/>
</Position20>
<Position21>
<Filename Value="exdmodu1.pas"/>
<Caret Line="182" Column="1" TopLine="161"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2086" TopLine="2065"/>
</Position21>
<Position22>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1179" Column="1" TopLine="1158"/>
<Caret Line="2087" Column="40" TopLine="2066"/>
</Position22>
<Position23>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1180" Column="1" TopLine="1159"/>
<Caret Line="2088" TopLine="2067"/>
</Position23>
<Position24>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1181" Column="1" TopLine="1160"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="188" TopLine="137"/>
</Position24>
<Position25>
<Filename Value="exdmodu1.pas"/>
<Caret Line="184" Column="1" TopLine="163"/>
<Filename Value="exdmodu2.pas"/>
<Caret Line="24" Column="51" TopLine="20"/>
</Position25>
<Position26>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2085" Column="1" TopLine="2064"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="211" Column="75" TopLine="206"/>
</Position26>
<Position27>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2086" Column="1" TopLine="2065"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="176" TopLine="156"/>
</Position27>
<Position28>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2087" Column="40" TopLine="2066"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="175" TopLine="155"/>
</Position28>
<Position29>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="2088" Column="1" TopLine="2067"/>
<Filename Value="exdmodu1.pas"/>
<Caret Line="178" Column="27" TopLine="156"/>
</Position29>
<Position30>
<Filename Value="exdmodu1.pas"/>
<Caret Line="188" Column="1" TopLine="137"/>
<Caret Line="45" Column="14" TopLine="24"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="1">
<Item1>
<Source Value="exdmodu1.pas"/>
<Line Value="176"/>
</Item1>
</BreakPoints>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>

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

@ -7,7 +7,11 @@ uses
Exdmodu1 in 'EXDMODU1.PAS' {Form1},
Exdmodu2 in 'EXDMODU2.PAS' {SNEntryDlg};
{$R *.res}
begin
Application.Scaled:=True;
Application.Title:='';
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;

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

@ -3,52 +3,61 @@ object frmMain: TfrmMain
Height = 186
Top = 223
Width = 240
ActiveControl = Memo1
AutoSize = True
BorderStyle = bsDialog
Caption = 'Serial Number Example'
ClientHeight = 186
ClientWidth = 240
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnActivate = FormActivate
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '2.3.0.0'
object Label1: TLabel
Left = 38
Height = 14
Top = 96
Width = 43
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
Left = 98
Height = 15
Top = 54
Width = 44
Alignment = taCenter
Caption = 'Serial #: '
ParentColor = False
end
object Memo1: TMemo
Left = 3
Height = 79
Top = 4
Width = 223
Lines.Strings = (
'If you can edit this, then your program was '
'allowed to run'
)
ScrollBars = ssVertical
object CloseBtn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 76
Height = 33
Top = 81
Width = 89
BorderSpacing.Around = 12
Kind = bkClose
TabOrder = 0
end
object CloseBtn: TBitBtn
Left = 72
Height = 33
Top = 114
Width = 89
Kind = bkClose
NumGlyphs = 0
TabOrder = 1
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 30
Top = 12
Width = 216
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'If you can edit this, then your program was allowed to run'
WordWrap = True
end
object OgSerialNumberCode1: TOgSerialNumberCode
OnChecked = OgSerialNumberCode1Checked
OnGetKey = OgSerialNumberCode1GetKey
OnGetCode = OgSerialNumberCode1GetCode
OnGetModifier = OgSerialNumberCode1GetModifier
left = 184
top = 96
Left = 56
Top = 64
end
end

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

@ -1,20 +1,26 @@
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmMain','FORMDATA',[
'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3't'#1#6'Height'#3#186#0#3'Top'#3#223#0
+#5'Width'#3#240#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial Number'
+' Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10'Font.Color'#7
+#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActi'
+'vate'#7#12'FormActivate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6
+'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2'&'#6'Height'#2#14#3'Top'#2'`'#5'Wid'
+'th'#2'+'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10'Serial #: '#11'ParentCo'
+'lor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#3#6'Height'#2'O'#3'Top'#2#4#5'Width'
+#3#223#0#13'Lines.Strings'#1#6',If you can edit this, then your program was '
+#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7
+'TBitBtn'#8'CloseBtn'#4'Left'#2'H'#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'#4
+'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgSerialNumberC'
+'ode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8
+'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberC'
+'ode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModifier'#4'left'
+#3#184#0#3'top'#2'`'#0#0#0
+#5'Width'#3#240#0#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#21
+'Serial Number Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10
+'Font.Color'#7#7'clBlack'#10'OnActivate'#7#12'FormActivate'#8'Position'#7#14
+'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'Anchor'
+'SideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'Anch'
+'orSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#2'b'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2','#9'Alignment'#7#8'taCenter'#7
+'Caption'#6#10'Serial #: '#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'A'
+'nchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21
+'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2'L'#6'Height'#2'!'#3'Top'#2'Q'#5'Width'#2'Y'#20'BorderSpacing.Around'
+#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorS'
+'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorS'
+'ideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#2#12#6'Height'#2#30#3'Top'#2#12#5'Width'#3#216#0#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6':If you can '
+'edit this, then your program was allowed to run'#8'WordWrap'#9#0#0#19'TOgSe'
+'rialNumberCode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCod'
+'e1Checked'#8'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'Og'
+'SerialNumberCode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModi'
+'fier'#4'Left'#2'8'#3'Top'#2'@'#0#0#0
]);

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

@ -38,9 +38,9 @@ type
{ TfrmMain }
TfrmMain = class(TForm)
Memo1: TMemo;
CloseBtn: TBitBtn;
Label1: TLabel;
Memo1: TLabel;
OgSerialNumberCode1: TOgSerialNumberCode;
procedure FormActivate(Sender: TObject);
procedure OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
@ -66,14 +66,11 @@ var
implementation
uses
LResources,Exdmodu2;
{=======================================================================}
procedure TfrmMain.OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
begin
Key := CKey;
@ -210,6 +207,9 @@ var
S : string;
begin
FExpired := false;
//Status := ogValidCode; // just to check the form
case Status of
ogValidCode : begin
{check if retrieved Serial Number matches Code}

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

@ -4,88 +4,136 @@ object SNEntryDlg: TSNEntryDlg
Top = 376
Width = 247
ActiveControl = SNText
AutoSize = True
BorderStyle = bsDialog
Caption = 'Serial Number w/Modifer'
ClientHeight = 195
ClientWidth = 247
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '2.3.0.0'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = SNText
AnchorSideTop.Side = asrCenter
Left = 8
Height = 14
Top = 64
Width = 16
Height = 15
Top = 66
Width = 15
BorderSpacing.Left = 8
Caption = 'SN'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeText
AnchorSideTop.Side = asrCenter
Left = 8
Height = 14
Top = 90
Width = 26
Height = 15
Top = 97
Width = 28
BorderSpacing.Left = 8
Caption = 'Code'
ParentColor = False
end
object Label3: TLabel
Left = 40
Height = 14
Top = 7
Width = 160
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Owner
Left = 34
Height = 15
Top = 8
Width = 178
BorderSpacing.Top = 8
Caption = 'Call your Vendor NOW to register!'
ParentColor = False
end
object Label4: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ModString
AnchorSideTop.Side = asrCenter
Left = 8
Height = 14
Top = 37
Width = 38
Height = 15
Top = 35
Width = 45
BorderSpacing.Left = 8
Caption = 'Modifier'
ParentColor = False
end
object SNText: TEdit
Left = 52
AnchorSideLeft.Control = ModString
AnchorSideTop.Control = ModString
AnchorSideTop.Side = asrBottom
Left = 61
Height = 23
Top = 60
Top = 62
Width = 121
BorderSpacing.Top = 8
TabOrder = 1
end
object CodeText: TEdit
Left = 52
AnchorSideLeft.Control = SNText
AnchorSideTop.Control = SNText
AnchorSideTop.Side = asrBottom
Left = 61
Height = 23
Top = 86
Top = 93
Width = 175
BorderSpacing.Top = 8
BorderSpacing.Right = 8
TabOrder = 2
end
object OKBtn: TBitBtn
Left = 23
AnchorSideTop.Control = CancelBtn
AnchorSideRight.Control = Bevel1
Left = 26
Height = 33
Top = 118
Top = 128
Width = 89
Anchors = [akTop, akRight]
BorderSpacing.Bottom = 8
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 3
end
object CancelBtn: TBitBtn
Left = 127
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeText
AnchorSideTop.Side = asrBottom
Left = 131
Height = 33
Top = 118
Top = 128
Width = 89
BorderSpacing.Top = 12
BorderSpacing.Bottom = 8
Kind = bkCancel
NumGlyphs = 0
OnClick = CancelBtnClick
TabOrder = 4
end
object ModString: TEdit
Left = 52
AnchorSideLeft.Control = Label4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
Left = 61
Height = 23
Top = 33
Top = 31
Width = 121
BorderSpacing.Left = 8
BorderSpacing.Top = 8
ReadOnly = True
TabStop = False
TabOrder = 0
end
object Bevel1: TBevel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
Left = 115
Height = 37
Top = 125
Width = 16
Shape = bsSpacer
end
end

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

@ -1,25 +1,46 @@
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TSNEntryDlg','FORMDATA',[
'TPF0'#11'TSNEntryDlg'#10'SNEntryDlg'#4'Left'#3#150#1#6'Height'#3#195#0#3'Top'
+#3'x'#1#5'Width'#3#247#0#13'ActiveControl'#7#6'SNText'#7'Caption'#6#23'Seria'
+'l Number w/Modifer'#12'ClientHeight'#3#195#0#11'ClientWidth'#3#247#0#10'Fon'
+'t.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'
+#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'
+#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'@'#5
+'Width'#2#16#7'Caption'#6#2'SN'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4
+'Left'#2#8#6'Height'#2#14#3'Top'#2'Z'#5'Width'#2#26#7'Caption'#6#4'Code'#11
+'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'('#6'Height'#2#14#3'Top'#2
+#7#5'Width'#3#160#0#7'Caption'#6'!Call your Vendor NOW to register!'#11'Pare'
+'ntColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'%'#5
+'Width'#2'&'#7'Caption'#6#8'Modifier'#11'ParentColor'#8#0#0#5'TEdit'#6'SNTex'
+'t'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'<'#5'Width'#2'y'#8'TabOrder'#2#1#0#0
+#5'TEdit'#8'CodeText'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'V'#5'Width'#3#175
+#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#5'OKBtn'#4'Left'#2#23#6'Height'#2'!'#3'Top'
+#2'v'#5'Width'#2'Y'#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8
+'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#2''#6'Height'#2'!'#3'Top'
+#2'v'#5'Width'#2'Y'#4'Kind'#7#8'bkCancel'#9'NumGlyphs'#2#0#7'OnClick'#7#14'C'
+'ancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#4'Left'#2'4'#6'Hei'
+'ght'#2#23#3'Top'#2'!'#5'Width'#2'y'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2
+#0#0#0#0
+#3'x'#1#5'Width'#3#247#0#13'ActiveControl'#7#6'SNText'#8'AutoSize'#9#11'Bord'
+'erStyle'#7#8'bsDialog'#7'Caption'#6#23'Serial Number w/Modifer'#12'ClientHe'
+'ight'#3#195#0#11'ClientWidth'#3#247#0#10'Font.Color'#7#7'clBlack'#8'OnCreat'
+'e'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3'
+'.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anchor'
+'SideTop.Control'#7#6'SNText'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+#8#6'Height'#2#15#3'Top'#2'B'#5'Width'#2#15#18'BorderSpacing.Left'#2#8#7'Cap'
+'tion'#6#2'SN'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.C'
+'ontrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'CodeText'#18'AnchorSideTop'
+'.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#2'a'#5'Width'#2#28
+#18'BorderSpacing.Left'#2#8#7'Caption'#6#4'Code'#11'ParentColor'#8#0#0#6'TLa'
+'bel'#6'Label3'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'
+#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2'"'#6'Height'#2
+#15#3'Top'#2#8#5'Width'#3#178#0#17'BorderSpacing.Top'#2#8#7'Caption'#6'!Call'
+' your Vendor NOW to register!'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#22
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'ModString'
+#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#2'#'
+#5'Width'#2'-'#18'BorderSpacing.Left'#2#8#7'Caption'#6#8'Modifier'#11'Parent'
+'Color'#8#0#0#5'TEdit'#6'SNText'#22'AnchorSideLeft.Control'#7#9'ModString'#21
+'AnchorSideTop.Control'#7#9'ModString'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#4'Left'#2'='#6'Height'#2#23#3'Top'#2'>'#5'Width'#2'y'#17'BorderSpacing.Top'
+#2#8#8'TabOrder'#2#1#0#0#5'TEdit'#8'CodeText'#22'AnchorSideLeft.Control'#7#6
+'SNText'#21'AnchorSideTop.Control'#7#6'SNText'#18'AnchorSideTop.Side'#7#9'as'
+'rBottom'#4'Left'#2'='#6'Height'#2#23#3'Top'#2']'#5'Width'#3#175#0#17'Border'
+'Spacing.Top'#2#8#19'BorderSpacing.Right'#2#8#8'TabOrder'#2#2#0#0#7'TBitBtn'
+#5'OKBtn'#21'AnchorSideTop.Control'#7#9'CancelBtn'#23'AnchorSideRight.Contro'
+'l'#7#6'Bevel1'#4'Left'#2#26#6'Height'#2'!'#3'Top'#3#128#0#5'Width'#2'Y'#7'A'
+'nchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#4'b'
+'kOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#22'Anc'
+'horSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'AnchorSideTop.Control'#7#8'CodeText'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#3#131#0#6'Height'#2'!'#3'Top'#3#128#0#5'Width'#2'Y'#17'BorderSpacing.'
+'Top'#2#12#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#8'bkCancel'#7'OnClick'#7#14
+'CancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#22'AnchorSideLeft'
+'.Control'#7#6'Label4'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
+'op.Control'#7#6'Label3'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'='#6
+'Height'#2#23#3'Top'#2#31#5'Width'#2'y'#18'BorderSpacing.Left'#2#8#17'Border'
+'Spacing.Top'#2#8#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#0#0#0#6'TBevel'#6
+'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'a'
+'srCenter'#4'Left'#2's'#6'Height'#2'%'#3'Top'#2'}'#5'Width'#2#16#5'Shape'#7#8
+'bsSpacer'#0#0#0
]);

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

@ -4,13 +4,14 @@ interface
uses
SysUtils,Classes,Controls,
Forms, Dialogs, StdCtrls, Buttons,LResources;
Forms, Dialogs, StdCtrls, Buttons,LResources, ExtCtrls;
type
{ TSNEntryDlg }
TSNEntryDlg = class(TForm)
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
SNText: TEdit;

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

@ -1,28 +1,34 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="2">
<Item1>
@ -38,11 +44,11 @@
<Unit0>
<Filename Value="exdtp21.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="44" Y="9"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UnitName Value="Exdtp21"/>
<CursorPos X="44" Y="11"/>
<UsageCount Value="837"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exdtp21u.pas"/>
@ -51,23 +57,24 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exdtp21u"/>
<CursorPos X="63" Y="113"/>
<TopLine Value="72"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="87"/>
<CursorPos X="52" Y="107"/>
<UsageCount Value="836"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\..\source\onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="41" Y="1207"/>
<TopLine Value="1199"/>
<EditorIndex Value="2"/>
<TopLine Value="1199"/>
<CursorPos X="41" Y="1207"/>
<UsageCount Value="418"/>
<Loaded Value="True"/>
</Unit2>
</Units>
<JumpHistory Count="13" HistoryIndex="12">
<JumpHistory Count="15" HistoryIndex="14">
<Position1>
<Filename Value="exdtp21u.pas"/>
<Caret Line="83" Column="17" TopLine="69"/>
@ -102,32 +109,41 @@
</Position8>
<Position9>
<Filename Value="exdtp21.lpr"/>
<Caret Line="13" Column="40" TopLine="1"/>
<Caret Line="13" Column="40"/>
</Position9>
<Position10>
<Filename Value="exdtp21.lpr"/>
<Caret Line="9" Column="44" TopLine="1"/>
<Caret Line="9" Column="44"/>
</Position10>
<Position11>
<Filename Value="exdtp21u.pas"/>
<Caret Line="75" Column="1" TopLine="75"/>
<Caret Line="75" TopLine="75"/>
</Position11>
<Position12>
<Filename Value="exdtp21u.pas"/>
<Caret Line="106" Column="1" TopLine="91"/>
<Caret Line="106" TopLine="91"/>
</Position12>
<Position13>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1344" Column="8" TopLine="1323"/>
</Position13>
<Position14>
<Filename Value="exdtp21u.pas"/>
<Caret Line="98" Column="49" TopLine="73"/>
</Position14>
<Position15>
<Filename Value="exdtp21u.pas"/>
<Caret Line="97" Column="49" TopLine="72"/>
</Position15>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -139,54 +155,67 @@
</Checks>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="9">
<BreakPoints Count="7">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard3.pas"/>
<Line Value="135"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard3.pas"/>
<Line Value="143"/>
</Item2>
<Item3>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard3.pas"/>
<Line Value="159"/>
</Item3>
<Item4>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard3.pas"/>
<Line Value="186"/>
</Item4>
<Item5>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard3.pas"/>
<Line Value="212"/>
</Item5>
<Item6>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard3.pas"/>
<Line Value="235"/>
</Item6>
<Item7>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\qonguard3.pas"/>
<Line Value="130"/>
</Item7>
<Item8>
<Source Value="exdtp21u.pas"/>
<Line Value="75"/>
</Item8>
<Item9>
<Source Value="exdtp21u.pas"/>
<Line Value="106"/>
</Item9>
</BreakPoints>
<Exceptions Count="2">
<Item1>

3
components/onguard/examples/exdtp21/exdtp21.lpr
View File

@ -6,7 +6,10 @@ uses
Forms,
Exdtp21u in 'exdtp21u.pas' {Form1}, tponguard;
{$R *.res}
begin
Application.Title:='';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

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

@ -3,53 +3,59 @@ object Form1: TForm1
Height = 155
Top = 279
Width = 228
ActiveControl = Memo1
AutoSize = True
Caption = 'Form1'
ClientHeight = 155
ClientWidth = 228
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnActivate = FormActivate
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '2.3.0.0'
object Label1: TLabel
Left = 50
Height = 14
Top = 70
Width = 99
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
Left = 64
Height = 15
Top = 54
Width = 101
Caption = 'Expires: 00/00/0000'
ParentColor = False
end
object Memo1: TMemo
Left = 8
Height = 59
Top = 8
Width = 197
Lines.Strings = (
'If you can edit this, your program '
'was '
'allowed to run'
)
OnDblClick = Memo1DblClick
ScrollBars = ssVertical
object CloseBtn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 70
Height = 33
Top = 81
Width = 89
BorderSpacing.Around = 12
Kind = bkClose
TabOrder = 0
end
object CloseBtn: TBitBtn
Left = 56
Height = 33
Top = 89
Width = 89
Kind = bkClose
NumGlyphs = 0
TabOrder = 1
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 30
Top = 12
Width = 204
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'If you can edit this, your program was allowed to run'
WordWrap = True
OnDblClick = Memo1DblClick
end
object OgDateCode1: TOgDateCode
OnChecked = OgDateCode1Checked
OnGetKey = OgDateCode1GetKey
OnGetCode = OgDateCode1GetCode
StoreCode = True
left = 158
top = 87
Left = 176
Top = 64
end
end

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

@ -1,19 +1,24 @@
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'b'#1#6'Height'#3#155#0#3'Top'#3#23#1#5'Wi'
+'dth'#3#228#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#5'Form1'#12'ClientHe'
+'ight'#3#155#0#11'ClientWidth'#3#228#0#10'Font.Color'#7#7'clBlack'#11'Font.H'
+'eight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActivate'#7#12'FormActiv'
+'ate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'
+#6'Label1'#4'Left'#2'2'#6'Height'#2#14#3'Top'#2'F'#5'Width'#2'c'#7'Caption'#6
+#19'Expires: 00/00/0000'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8
+#6'Height'#2';'#3'Top'#2#8#5'Width'#3#197#0#13'Lines.Strings'#1#6'#If you ca'
+'n edit this, your program '#6#4'was '#6#14'allowed to run'#0#10'OnDblClick'
+#7#13'Memo1DblClick'#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'T'
+'BitBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3'Top'#2'Y'#5'Width'#2'Y'#4
+'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#11'TOgDateCode'#11
+'OgDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetKey'#7#17'OgDateC'
+'ode1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#9'StoreCode'#9#4'left'#3
+#158#0#3'top'#2'W'#0#0#0
+'dth'#3#228#0#8'AutoSize'#9#7'Caption'#6#5'Form1'#12'ClientHeight'#3#155#0#11
+'ClientWidth'#3#228#0#10'OnActivate'#7#12'FormActivate'#8'Position'#7#14'poS'
+'creenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSid'
+'eLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorS'
+'ideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+'@'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2'e'#7'Caption'#6#19'Expires: 00/00/'
+'0000'#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Contro'
+'l'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Contr'
+'ol'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'F'#6'Height'
+#2'!'#3'Top'#2'Q'#5'Width'#2'Y'#20'BorderSpacing.Around'#2#12#4'Kind'#7#7'bk'
+'Close'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5
+'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3
+'Top'#2#12#5'Width'#3#204#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20
+'BorderSpacing.Around'#2#12#7'Caption'#6'5If you can edit this, your program'
+' was allowed to run'#8'WordWrap'#9#10'OnDblClick'#7#13'Memo1DblClick'#0#0#11
+'TOgDateCode'#11'OgDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetK'
+'ey'#7#17'OgDateCode1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#9'StoreCo'
+'de'#9#4'Left'#3#176#0#3'Top'#2'@'#0#0#0
]);

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

@ -22,8 +22,8 @@ type
{ TForm1 }
TForm1 = class(TForm)
Memo1: TMemo;
CloseBtn: TBitBtn;
Memo1: TLabel;
OgDateCode1: TOgDateCode;
Label1: TLabel;
procedure FormActivate(Sender: TObject);
@ -104,11 +104,10 @@ var
S : string;
begin
FExpired := false;
ShortDateFormat := 'yyy-mm-dd';
// Status := ogValidCode; // -- just for testing the form
case Status of
ogValidCode : begin
Label1.Caption := 'Expires: '
+ DateToStr(OgDateCode1.GetValue);
Label1.Caption := 'Expires: ' + DateToStr(OgDateCode1.GetValue);
Exit;
end;

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

@ -1,46 +1,57 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="4">
<Unit0>
<Filename Value="exdtreg.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="ExDTReg"/>
<CursorPos X="10" Y="7"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<SyntaxHighlighter Value="Delphi"/>
<LoadedDesigner Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit0>
<Unit1>
<Filename Value="exdtregu.pas"/>
@ -49,163 +60,162 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="ExDTRegU"/>
<CursorPos X="56" Y="98"/>
<TopLine Value="89"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="27"/>
<CursorPos Y="44"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<SyntaxHighlighter Value="Delphi"/>
<LoadedDesigner Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit1>
<Unit2>
<Filename Value="..\..\source\qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/>
<UnitName Value="qonguard3"/>
<CursorPos X="1" Y="280"/>
<TopLine Value="252"/>
<CursorPos Y="280"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="..\..\source\onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="43" Y="1866"/>
<TopLine Value="1843"/>
<EditorIndex Value="2"/>
<TopLine Value="1843"/>
<CursorPos X="43" Y="1866"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1320" Column="1" TopLine="1305"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="73" TopLine="58"/>
</Position1>
<Position2>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1322" Column="1" TopLine="1307"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="75" TopLine="60"/>
</Position2>
<Position3>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1323" Column="1" TopLine="1308"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="77" TopLine="62"/>
</Position3>
<Position4>
<Filename Value="exdtregu.pas"/>
<Caret Line="72" Column="1" TopLine="57"/>
<Caret Line="79" TopLine="64"/>
</Position4>
<Position5>
<Filename Value="exdtregu.pas"/>
<Caret Line="73" Column="1" TopLine="58"/>
<Caret Line="81" TopLine="66"/>
</Position5>
<Position6>
<Filename Value="exdtregu.pas"/>
<Caret Line="75" Column="1" TopLine="60"/>
<Caret Line="83" TopLine="68"/>
</Position6>
<Position7>
<Filename Value="exdtregu.pas"/>
<Caret Line="77" Column="1" TopLine="62"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1217" TopLine="1202"/>
</Position7>
<Position8>
<Filename Value="exdtregu.pas"/>
<Caret Line="79" Column="1" TopLine="64"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1218" TopLine="1203"/>
</Position8>
<Position9>
<Filename Value="exdtregu.pas"/>
<Caret Line="81" Column="1" TopLine="66"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" TopLine="1309"/>
</Position9>
<Position10>
<Filename Value="exdtregu.pas"/>
<Caret Line="83" Column="1" TopLine="68"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1326" TopLine="1311"/>
</Position10>
<Position11>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1217" Column="1" TopLine="1202"/>
<Caret Line="1327" TopLine="1312"/>
</Position11>
<Position12>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1218" Column="1" TopLine="1203"/>
<Caret Line="1331" TopLine="1316"/>
</Position12>
<Position13>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" Column="1" TopLine="1309"/>
<Caret Line="1864" Column="40" TopLine="1841"/>
</Position13>
<Position14>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1326" Column="1" TopLine="1311"/>
<Caret Line="1320" TopLine="1305"/>
</Position14>
<Position15>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1327" Column="1" TopLine="1312"/>
<Caret Line="1322" TopLine="1307"/>
</Position15>
<Position16>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1331" Column="1" TopLine="1316"/>
<Caret Line="1323" TopLine="1308"/>
</Position16>
<Position17>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1864" Column="40" TopLine="1841"/>
<Caret Line="1324" TopLine="1309"/>
</Position17>
<Position18>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1320" Column="1" TopLine="1305"/>
<Caret Line="1326" TopLine="1311"/>
</Position18>
<Position19>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1322" Column="1" TopLine="1307"/>
<Caret Line="1327" TopLine="1312"/>
</Position19>
<Position20>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1323" Column="1" TopLine="1308"/>
<Caret Line="1932" TopLine="1917"/>
</Position20>
<Position21>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" Column="1" TopLine="1309"/>
<Caret Line="1933" TopLine="1918"/>
</Position21>
<Position22>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1326" Column="1" TopLine="1311"/>
<Caret Line="1934" TopLine="1919"/>
</Position22>
<Position23>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1327" Column="1" TopLine="1312"/>
<Caret Line="1936" TopLine="1921"/>
</Position23>
<Position24>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1932" Column="1" TopLine="1917"/>
<Caret Line="1331" TopLine="1316"/>
</Position24>
<Position25>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1933" Column="1" TopLine="1918"/>
<Caret Line="1856" TopLine="1841"/>
</Position25>
<Position26>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1934" Column="1" TopLine="1919"/>
<Caret Line="1857" TopLine="1842"/>
</Position26>
<Position27>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1936" Column="1" TopLine="1921"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="114" Column="59" TopLine="88"/>
</Position27>
<Position28>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1331" Column="1" TopLine="1316"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="43" TopLine="26"/>
</Position28>
<Position29>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1856" Column="1" TopLine="1841"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="42" TopLine="25"/>
</Position29>
<Position30>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1857" Column="1" TopLine="1842"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="43" TopLine="26"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -217,26 +227,25 @@
</Checks>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="2">
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\source\onguard.pas"/>
<Line Value="1320"/>
</Item1>
<Item2>
<Source Value="exdtregu.pas"/>
<Line Value="44"/>
</Item2>
</BreakPoints>
<Exceptions Count="2">
<Item1>

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

@ -7,6 +7,8 @@ uses
exdtregu in 'exdtregu.pas' {Form1}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -5,94 +5,129 @@ object Form1: TForm1
Width = 484
HorzScrollBar.Page = 483
VertScrollBar.Page = 308
AutoSize = True
BorderStyle = bsDialog
Caption = 'Date Code Example'
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 309
ClientWidth = 484
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
Left = 8
Height = 13
Top = 262
Width = 35
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 249
Width = 32
Caption = 'Status'
Color = clNone
ParentColor = False
end
object Label1: TLabel
Left = 240
Height = 13
Top = 14
Width = 77
AnchorSideLeft.Control = CodeBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 181
Height = 15
Top = 17
Width = 72
BorderSpacing.Left = 80
Caption = 'Current code:'
Color = clNone
ParentColor = False
end
object CodeLbl: TLabel
Left = 328
Height = 13
Top = 14
Width = 113
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 265
Height = 15
Top = 17
Width = 96
BorderSpacing.Left = 12
Caption = '0000000000000000'
Color = clNone
ParentColor = False
end
object CodeBtn: TButton
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 25
Top = 8
Top = 12
Width = 89
BorderSpacing.Around = 12
BorderSpacing.InnerBorder = 4
Caption = 'Enter Code'
OnClick = CodeBtnClick
TabOrder = 0
end
object Memo1: TMemo
Left = 8
Height = 209
Top = 40
Width = 465
Color = clBtnFace
Lines.Strings = (
'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
'the code is either the incorrect type or that none has been entered. '
''
'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
'say that the code is invalid.'
''
'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
'the proper "Date" code). '
''
'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
'will cause the TOgDateCode component to report that the code is invalid.'
)
ReadOnly = True
TabOrder = 1
end
object CloseBtn: TBitBtn
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 400
Height = 25
Top = 256
Top = 244
Width = 75
Anchors = [akTop]
BorderSpacing.Top = 12
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
TabOrder = 1
end
object RemoveBtn: TButton
Left = 288
AnchorSideTop.Control = CloseBtn
AnchorSideRight.Control = CloseBtn
Left = 299
Height = 25
Top = 256
Top = 244
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4
Caption = 'Remove Code'
OnClick = RemoveBtnClick
TabOrder = 3
TabOrder = 2
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 165
Top = 49
Width = 460
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Date" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgDateCode component to report that the code is invalid.'
Color = clBtnFace
ParentColor = False
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Memo1
AnchorSideRight.Control = Memo1
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3
Top = 229
Width = 460
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object OgDateCode1: TOgDateCode
OnChecked = CodeChecked
OnGetKey = GetKey
OnGetCode = GetCode
left = 16
top = 216
Left = 168
Top = 192
end
end

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

@ -1,34 +1,54 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'5'#1#3'Top'#3#138#0#5'W'
+'idth'#3#228#1#18'HorzScrollBar.Page'#3#227#1#18'VertScrollBar.Page'#3'4'#1
+#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Date Code Example'#11'Font.He'
+'ight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScreenCente'
+'r'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#6#1#5'Width'
+#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
+'abel'#6'Label1'#4'Left'#3#240#0#6'Height'#2#13#3'Top'#2#14#5'Width'#2'M'#7
+'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T'
+'Label'#7'CodeLbl'#4'Left'#3'H'#1#6'Height'#2#13#3'Top'#2#14#5'Width'#2'q'#7
+'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7
+'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#25
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12
+'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#3
+#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFace'#13'Lines.Strings'
+#1#6'fThe label at the bottom of this form indicates the status of the code.'
+' An invalid code indicates that '#6'Ethe code is either the incorrect type '
+'or that none has been entered. '#6#0#6'^If the proper code has not been ent'
+'ered or the ONGUARD.INI file was deleted, the message will '#6#29'say that '
+'the code is invalid.'#6#0#6'YUse the "Enter Code" button to enter a code (t'
+'he CODEGEN program can be used to generate '#6#25'the proper "Date" code). '
+#6#0#6'\The "Remove Code" button can be used to remove the entered code from'
+' the INI file. Doing so '#6'Hwill cause the TOgDateCode component to report'
+' that the code is invalid.'#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7'TBitBtn'#8
+'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'K'#4'Kind'
+#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TButton'#9'RemoveBtn'#4
+'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'a'#25'BorderSpacing.Inn'
+'erBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8
+'TabOrder'#2#3#0#0#11'TOgDateCode'#11'OgDateCode1'#9'OnChecked'#7#11'CodeChe'
+'cked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#4'left'#2#16#3'top'
+#3#216#0#0#0#0
+'idth'#3#228#1#18'HorzScrollBar.Page'#3#227#1#18'VertScrollBar.Page'#3'4'#1#8
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Date Code Example'
+#12'ClientHeight'#3'5'#1#11'ClientWidth'#3#228#1#8'Position'#7#14'poScreenCe'
+'nter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLef'
+'t.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSide'
+'Top.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#249#0#5'Width'
+#2' '#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
+'abel'#6'Label1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.S'
+'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop'
+'.Side'#7#9'asrCenter'#4'Left'#3#181#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2
+'H'#18'BorderSpacing.Left'#2'P'#7'Caption'#6#13'Current code:'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#22'AnchorSideLeft.Contro'
+'l'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Cont'
+'rol'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#9#1#6'Hei'
+'ght'#2#15#3'Top'#2#17#5'Width'#2'`'#18'BorderSpacing.Left'#2#12#7'Caption'#6
+#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#7
+'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
+'Owner'#4'Left'#2#12#6'Height'#2#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpaci'
+'ng.Around'#2#12#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Cod'
+'e'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'
+#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott'
+'om'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#244#0#5'Width'#2'K'#7'Anchors'
+#11#5'akTop'#0#17'BorderSpacing.Top'#2#12#19'BorderSpacing.Right'#2#12#20'Bo'
+'rderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'TButton'
+#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'AnchorSideRight.Con'
+'trol'#7#8'CloseBtn'#4'Left'#3'+'#1#6'Height'#2#25#3'Top'#3#244#0#5'Width'#2
+'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#4#25'Borde'
+'rSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'Remo'
+'veBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contro'
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Si'
+'de'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2'1'#5'Width'#3#204
+#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2
+#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this form indicates th'
+'e status of the code. An invalid code indicates that the code is either the'
+' incorrect type or that none has been entered. '#13#10#13#10'If the proper '
+'code has not been entered or the ONGUARD.INI file was deleted, the message '
+'will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button'
+' to enter a code (the CODEGEN program can be used to generate the proper "D'
+'ate" code). '#13#10#13#10'The "Remove Code" button can be used to remove th'
+'e entered code from the INI file. Doing so will cause the TOgDateCode compo'
+'nent to report that the code is invalid.'#5'Color'#7#9'clBtnFace'#11'Parent'
+'Color'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7
+#5'Memo1'#23'AnchorSideRight.Control'#7#5'Memo1'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#229#0#5'Width'#3#204#1#7'Anc'
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'bsTopLine'#0#0#11'TOg'
+'DateCode'#11'OgDateCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'Ge'
+'tKey'#9'OnGetCode'#7#7'GetCode'#4'Left'#3#168#0#3'Top'#3#192#0#0#0#0
]);

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

@ -4,16 +4,17 @@ interface
uses
SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil;
StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
Memo1: TLabel;
OgDateCode1: TOgDateCode;
CodeBtn: TButton;
Memo1: TMemo;
CloseBtn: TBitBtn;
StatusLbl: TLabel;
Label1: TLabel;
@ -36,12 +37,10 @@ var
implementation
procedure TForm1.CodeChecked(Sender: TObject; Status: TCodeStatus);
var
S : string;
begin
ShortDateFormat := 'yyyy-mm-dd';
case Status of
ogValidCode : S := 'Valid Code - Ending date: ' + DateToStr(OgDateCode1.GetValue);
ogInvalidCode : S := 'Invalid release code';

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

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

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

@ -1,120 +1,128 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<Scaled Value="True"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="8">
<Unit0>
<Filename Value="exdyreg.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="48" Y="7"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exdyregu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="ExDYRegU"/>
<CursorPos X="3" Y="46"/>
<TopLine Value="42"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="11"/>
<TopLine Value="43"/>
<CursorPos X="47" Y="55"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../source/qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/>
<UnitName Value="qonguard3"/>
<CursorPos X="1" Y="132"/>
<TopLine Value="132"/>
<CursorPos Y="132"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="../../source/qonguard2.pas"/>
<ComponentName Value="CodeGenerateFrm"/>
<HasResources Value="True"/>
<UnitName Value="qonguard2"/>
<CursorPos X="4" Y="351"/>
<TopLine Value="348"/>
<CursorPos X="4" Y="351"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="../../../../fpcfix/fpc/rtl/objpas/sysutils/datih.inc"/>
<CursorPos X="11" Y="101"/>
<TopLine Value="84"/>
<CursorPos X="11" Y="101"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="../../../../fpcfix/fpc/rtl/objpas/sysutils/dati.inc"/>
<CursorPos X="3" Y="123"/>
<TopLine Value="120"/>
<CursorPos X="3" Y="123"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="24" Y="1865"/>
<TopLine Value="1846"/>
<CursorPos X="24" Y="1865"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="29" Y="506"/>
<TopLine Value="472"/>
<CursorPos X="29" Y="506"/>
<UsageCount Value="10"/>
</Unit7>
</Units>
<JumpHistory Count="8" HistoryIndex="7">
<JumpHistory Count="11" HistoryIndex="10">
<Position1>
<Filename Value="exdyregu.pas"/>
<Caret Line="12" Column="24" TopLine="1"/>
<Caret Line="12" Column="24"/>
</Position1>
<Position2>
<Filename Value="exdyregu.pas"/>
<Caret Line="92" Column="1" TopLine="77"/>
<Caret Line="92" TopLine="77"/>
</Position2>
<Position3>
<Filename Value="exdyregu.pas"/>
<Caret Line="94" Column="1" TopLine="79"/>
<Caret Line="94" TopLine="79"/>
</Position3>
<Position4>
<Filename Value="exdyregu.pas"/>
<Caret Line="95" Column="1" TopLine="80"/>
<Caret Line="95" TopLine="80"/>
</Position4>
<Position5>
<Filename Value="exdyregu.pas"/>
<Caret Line="96" Column="1" TopLine="81"/>
<Caret Line="96" TopLine="81"/>
</Position5>
<Position6>
<Filename Value="exdyregu.pas"/>
@ -128,13 +136,26 @@
<Filename Value="exdyregu.pas"/>
<Caret Line="132" Column="3" TopLine="54"/>
</Position8>
<Position9>
<Filename Value="exdyregu.pas"/>
<Caret Line="54" Column="47" TopLine="42"/>
</Position9>
<Position10>
<Filename Value="exdyregu.pas"/>
<Caret Line="53" Column="47" TopLine="41"/>
</Position10>
<Position11>
<Filename Value="exdyregu.pas"/>
<Caret Line="54" Column="47" TopLine="42"/>
</Position11>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -146,23 +167,29 @@
</Checks>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="2">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="exdyregu.pas"/>
<Line Value="92"/>
<Line Value="93"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../source/ogutil.pas"/>
<Line Value="505"/>
</Item2>

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

@ -7,7 +7,11 @@ uses
ExDYRegU in 'ExDYRegU.pas' {Form1}, tponguard;
{$R *.res}
begin
Application.Scaled:=True;
Application.Title:='';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

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

@ -5,95 +5,132 @@ object Form1: TForm1
Width = 493
HorzScrollBar.Page = 492
VertScrollBar.Page = 302
AutoSize = True
BorderStyle = bsDialog
Caption = 'Days Code Example'
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 303
ClientWidth = 493
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
Left = 8
Height = 13
Top = 262
Width = 35
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 246
Width = 32
Caption = 'Status'
Color = clNone
ParentColor = False
end
object Label1: TLabel
Left = 232
Height = 13
Top = 14
Width = 77
AnchorSideLeft.Control = CodeBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 181
Height = 15
Top = 17
Width = 72
BorderSpacing.Left = 80
Caption = 'Current code:'
Color = clNone
ParentColor = False
end
object CodeLbl: TLabel
Left = 320
Height = 13
Top = 14
Width = 113
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 265
Height = 15
Top = 17
Width = 96
BorderSpacing.Left = 12
Caption = '0000000000000000'
Color = clNone
ParentColor = False
end
object CodeBtn: TButton
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 25
Top = 8
Top = 12
Width = 89
BorderSpacing.Around = 12
BorderSpacing.InnerBorder = 4
Caption = 'Enter Code'
OnClick = CodeBtnClick
TabOrder = 0
end
object Memo1: TMemo
Left = 8
Height = 209
Top = 40
Width = 465
Color = clBtnFace
Lines.Strings = (
'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
'the code is either the incorrect type or that none has been entered. '
''
'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
'say that the code is invalid.'
''
'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
'the proper "Days" code). '
''
'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
'will cause the TOgDaysCode component to report that the code is invalid.'
)
ReadOnly = True
TabOrder = 1
end
object CloseBtn: TBitBtn
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 400
Height = 25
Top = 256
Width = 75
Top = 241
Width = 81
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
TabOrder = 1
end
object RemoveBtn: TButton
Left = 288
AnchorSideTop.Control = CloseBtn
AnchorSideRight.Control = CloseBtn
Left = 299
Height = 25
Top = 256
Top = 241
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4
Caption = 'Remove Code'
OnClick = RemoveBtnClick
TabOrder = 3
TabOrder = 2
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 165
Top = 49
Width = 469
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Days" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgDaysCode component to report that the code is invalid.'
Color = clBtnFace
ParentColor = False
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3
Top = 226
Width = 469
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object OgDaysCode1: TOgDaysCode
OnChecked = CodeChecked
OnGetKey = GetKey
OnGetCode = GetCode
OnChangeCode = ChangeCode
left = 16
top = 208
Left = 192
Top = 200
end
end

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

@ -1,34 +1,56 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'/'#1#3'Top'#3#138#0#5'W'
+'idth'#3#237#1#18'HorzScrollBar.Page'#3#236#1#18'VertScrollBar.Page'#3'.'#1
+#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Days Code Example'#11'Font.He'
+'ight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScreenCente'
+'r'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#6#1#5'Width'
+#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
+'abel'#6'Label1'#4'Left'#3#232#0#6'Height'#2#13#3'Top'#2#14#5'Width'#2'M'#7
+'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T'
+'Label'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13#3'Top'#2#14#5'Width'#2'q'#7
+'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7
+'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#25
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12
+'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#3
+#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFace'#13'Lines.Strings'
+#1#6'fThe label at the bottom of this form indicates the status of the code.'
+' An invalid code indicates that '#6'Ethe code is either the incorrect type '
+'or that none has been entered. '#6#0#6'^If the proper code has not been ent'
+'ered or the ONGUARD.INI file was deleted, the message will '#6#29'say that '
+'the code is invalid.'#6#0#6'YUse the "Enter Code" button to enter a code (t'
+'he CODEGEN program can be used to generate '#6#25'the proper "Days" code). '
+#6#0#6'\The "Remove Code" button can be used to remove the entered code from'
+' the INI file. Doing so '#6'Hwill cause the TOgDaysCode component to report'
+' that the code is invalid.'#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7'TBitBtn'#8
+'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'K'#4'Kind'
+#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TButton'#9'RemoveBtn'#4
+'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'a'#25'BorderSpacing.Inn'
+'erBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8
+'TabOrder'#2#3#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#11'CodeChe'
+'cked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7
+#10'ChangeCode'#4'left'#2#16#3'top'#3#208#0#0#0#0
+'idth'#3#237#1#18'HorzScrollBar.Page'#3#236#1#18'VertScrollBar.Page'#3'.'#1#8
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Days Code Example'
+#12'ClientHeight'#3'/'#1#11'ClientWidth'#3#237#1#8'Position'#7#14'poScreenCe'
+'nter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLef'
+'t.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSide'
+'Top.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#246#0#5'Width'
+#2' '#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
+'abel'#6'Label1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.S'
+'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop'
+'.Side'#7#9'asrCenter'#4'Left'#3#181#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2
+'H'#18'BorderSpacing.Left'#2'P'#7'Caption'#6#13'Current code:'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#22'AnchorSideLeft.Contro'
+'l'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Cont'
+'rol'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#9#1#6'Hei'
+'ght'#2#15#3'Top'#2#17#5'Width'#2'`'#18'BorderSpacing.Left'#2#12#7'Caption'#6
+#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#7
+'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
+'Owner'#4'Left'#2#12#6'Height'#2#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpaci'
+'ng.Around'#2#12#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Cod'
+'e'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'
+#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott'
+'om'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#241#0#5'Width'#2'Q'#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#12#19'BorderSpac'
+'ing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrd'
+'er'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'
+#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'+'#1#6'Height'#2#25#3'T'
+'op'#3#241#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpac'
+'ing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Cod'
+'e'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2
+'1'#5'Width'#3#213#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Border'
+'Spacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this'
+' form indicates the status of the code. An invalid code indicates that the '
+'code is either the incorrect type or that none has been entered. '#13#10#13
+#10'If the proper code has not been entered or the ONGUARD.INI file was dele'
+'ted, the message will say that the code is invalid.'#13#10#13#10'Use the "E'
+'nter Code" button to enter a code (the CODEGEN program can be used to gener'
+'ate the proper "Days" code). '#13#10#13#10'The "Remove Code" button can be '
+'used to remove the entered code from the INI file. Doing so will cause the '
+'TOgDaysCode component to report that the code is invalid.'#5'Color'#7#9'clB'
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSi'
+'deLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSi'
+'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Memo1'#20'Anchor'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#226#0#5
+'Width'#3#213#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'b'
+'sTopLine'#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#11'CodeChecked'
+#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7#10'Cha'
+'ngeCode'#4'Left'#3#192#0#3'Top'#3#200#0#0#0#0
]);

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

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

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

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

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

@ -1,27 +1,33 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<Scaled Value="True"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="2">
<Item1>
@ -37,11 +43,11 @@
<Unit0>
<Filename Value="exdys30.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Exdys30"/>
<CursorPos X="8" Y="2"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="212"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exdys30u.pas"/>
@ -50,23 +56,24 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exdys30u"/>
<CursorPos X="37" Y="1"/>
<TopLine Value="1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="108"/>
<CursorPos Y="108"/>
<UsageCount Value="212"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="1" Y="1407"/>
<TopLine Value="1392"/>
<CursorPos Y="1407"/>
<UsageCount Value="106"/>
</Unit2>
<Unit3>
<Filename Value="../../../../../../temp/fpc/rtl/i386/i386.inc"/>
<CursorPos X="1" Y="1462"/>
<TopLine Value="1447"/>
<CursorPos Y="1462"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
@ -74,50 +81,46 @@
<ComponentName Value="OgAboutForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="qogabout0"/>
<CursorPos X="42" Y="184"/>
<TopLine Value="179"/>
<CursorPos X="42" Y="184"/>
<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"/>
<CursorPos X="3" Y="71"/>
<UsageCount Value="10"/>
</Unit6>
</Units>
<JumpHistory Count="8" HistoryIndex="7">
<JumpHistory Count="9" HistoryIndex="8">
<Position1>
<Filename Value="exdys30u.pas"/>
<Caret Line="130" Column="1" TopLine="115"/>
<Caret Line="130" TopLine="115"/>
</Position1>
<Position2>
<Filename Value="exdys30u.pas"/>
<Caret Line="132" Column="1" TopLine="117"/>
<Caret Line="132" TopLine="117"/>
</Position2>
<Position3>
<Filename Value="exdys30u.pas"/>
<Caret Line="133" Column="1" TopLine="118"/>
<Caret Line="133" TopLine="118"/>
</Position3>
<Position4>
<Filename Value="exdys30u.pas"/>
<Caret Line="134" Column="1" TopLine="119"/>
<Caret Line="134" TopLine="119"/>
</Position4>
<Position5>
<Filename Value="exdys30u.pas"/>
<Caret Line="151" Column="1" TopLine="127"/>
<Caret Line="151" TopLine="127"/>
</Position5>
<Position6>
<Filename Value="exdys30u.pas"/>
<Caret Line="113" Column="1" TopLine="98"/>
<Caret Line="113" TopLine="98"/>
</Position6>
<Position7>
<Filename Value="exdys30u.pas"/>
@ -127,13 +130,18 @@
<Filename Value="exdys30u.pas"/>
<Caret Line="36" Column="30" TopLine="30"/>
</Position8>
<Position9>
<Filename Value="exdys30u.pas"/>
<Caret Line="16" Column="19"/>
</Position9>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -145,42 +153,46 @@
</Checks>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="6">
<BreakPoints Count="4">
<Item1>
<Source Value="exdys30u.pas"/>
<Line Value="125"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../source/onguard.pas"/>
<Line Value="1360"/>
</Item2>
<Item3>
<Source Value="exdys30u.pas"/>
<Line Value="108"/>
</Item3>
<Item4>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../source/qogabout0.pas"/>
<Line Value="102"/>
</Item4>
<Item5>
</Item2>
<Item3>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../source/qogabout0.pas"/>
<Line Value="97"/>
</Item5>
<Item6>
</Item3>
<Item4>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../source/onguard.pas"/>
<Line Value="1970"/>
</Item6>
</Item4>
</BreakPoints>
<Exceptions Count="2">
<Item1>

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

@ -7,7 +7,11 @@ uses
Exdys30u in 'EXDYS30U.PAS' {Form1}, tponguard;
{$R *.res}
begin
Application.Scaled:=True;
Application.Title:='';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

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

@ -6,48 +6,57 @@ object Form1: TForm1
Caption = 'Form1'
ClientHeight = 158
ClientWidth = 229
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '2.3.0.0'
object Label1: TLabel
Left = 64
Height = 14
Top = 74
Width = 84
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
Left = 69
Height = 15
Top = 66
Width = 91
Alignment = taCenter
BorderSpacing.Top = 24
Caption = 'Days Remaining: '
ParentColor = False
end
object Memo1: TMemo
Left = 6
Height = 45
Top = 14
Width = 213
Lines.Strings = (
'If you can edit this, then your program '
'was allowed to run'
)
ScrollBars = ssVertical
object CloseBtn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 70
Height = 33
Top = 105
Width = 89
BorderSpacing.Top = 24
BorderSpacing.Bottom = 12
Kind = bkClose
TabOrder = 0
end
object CloseBtn: TBitBtn
Left = 64
Height = 33
Top = 92
Width = 89
Kind = bkClose
NumGlyphs = 0
TabOrder = 1
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 30
Top = 12
Width = 205
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'If you can edit this, then your program was allowed to run'
WordWrap = True
end
object OgDaysCode1: TOgDaysCode
OnChecked = OgDaysCode1Checked
OnGetKey = OgDaysCode1GetKey
OnGetCode = OgDaysCode1GetCode
OnChangeCode = OgDaysCode1ChangeCode
left = 88
top = 130
Left = 40
Top = 88
end
end

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

@ -1,19 +1,25 @@
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'D'#1#6'Height'#3#158#0#3'Top'#3#4#1#5'Wid'
+'th'#3#229#0#7'Caption'#6#5'Form1'#12'ClientHeight'#3#158#0#11'ClientWidth'#3
+#229#0#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'M'
+'S Sans Serif'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'
+#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2'@'#6'Height'#2#14
+#3'Top'#2'J'#5'Width'#2'T'#9'Alignment'#7#8'taCenter'#7'Caption'#6#16'Days R'
+'emaining: '#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#6#6'Height'#2
+'-'#3'Top'#2#14#5'Width'#3#213#0#13'Lines.Strings'#1#6'(If you can edit this'
+', then your program '#6#18'was allowed to run'#0#10'ScrollBars'#7#10'ssVert'
+'ical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'@'#6'Height'#2'!'
+#3'Top'#2'\'#5'Width'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'
+#2#1#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#18'OgDaysCode1Checke'
+'d'#8'OnGetKey'#7#17'OgDaysCode1GetKey'#9'OnGetCode'#7#18'OgDaysCode1GetCode'
+#12'OnChangeCode'#7#21'OgDaysCode1ChangeCode'#4'left'#2'X'#3'top'#3#130#0#0#0
+#0
+#229#0#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLV'
+'ersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'O'
+'wner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5
+'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'E'#6'Height'#2#15#3
+'Top'#2'B'#5'Width'#2'['#9'Alignment'#7#8'taCenter'#17'BorderSpacing.Top'#2
+#24#7'Caption'#6#16'Days Remaining: '#11'ParentColor'#8#0#0#7'TBitBtn'#8'Clo'
+'seBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'as'
+'rCenter'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'a'
+'srBottom'#4'Left'#2'F'#6'Height'#2'!'#3'Top'#2'i'#5'Width'#2'Y'#17'BorderSp'
+'acing.Top'#2#24#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrd'
+'er'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
+'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'An'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3'Top'#2#12#5
+'Width'#3#205#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci'
+'ng.Around'#2#12#7'Caption'#6':If you can edit this, then your program was a'
+'llowed to run'#8'WordWrap'#9#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecke'
+'d'#7#18'OgDaysCode1Checked'#8'OnGetKey'#7#17'OgDaysCode1GetKey'#9'OnGetCode'
+#7#18'OgDaysCode1GetCode'#12'OnChangeCode'#7#21'OgDaysCode1ChangeCode'#4'Lef'
+'t'#2'('#3'Top'#2'X'#0#0#0
]);

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

@ -13,8 +13,8 @@ interface
uses
SysUtils, Classes, Controls,
Forms, Dialogs,LResources, StdCtrls, Buttons,
OnGuard,OgUtil,IniFiles;
Forms, Dialogs, LResources, StdCtrls, Buttons,
OnGuard, OgUtil, IniFiles;
const
CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,
@ -25,8 +25,8 @@ type
{ TForm1 }
TForm1 = class(TForm)
Memo1: TMemo;
CloseBtn: TBitBtn;
Memo1: TLabel;
OgDaysCode1: TOgDaysCode;
Label1: TLabel;
procedure FormCreate(Sender: TObject);

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

@ -1,43 +1,54 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="27">
<Unit0>
<Filename Value="exinst.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="12" Y="18"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UnitName Value="Exinst"/>
<CursorPos X="12" Y="20"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exinstu.pas"/>
@ -46,208 +57,191 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="EXINSTU"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="22" Y="7"/>
<TopLine Value="1"/>
<EditorIndex Value="2"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="exinstu.lrs"/>
<CursorPos X="14" Y="2"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="../../../../lazarus0915/lcl/forms.pp"/>
<UnitName Value="Forms"/>
<CursorPos X="29" Y="966"/>
<TopLine Value="962"/>
<CursorPos X="29" Y="966"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="../../../../lazarus0915/lcl/include/application.inc"/>
<CursorPos X="15" Y="298"/>
<TopLine Value="297"/>
<CursorPos X="15" Y="298"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="../../../../lazarus0915/fpcsrc/fcl/inc/custapp.pp"/>
<UnitName Value="CustApp"/>
<CursorPos X="10" Y="200"/>
<TopLine Value="198"/>
<CursorPos X="10" Y="200"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="../../../../lazarus0915/lcl/include/wincontrol.inc"/>
<CursorPos X="23" Y="5008"/>
<TopLine Value="5004"/>
<CursorPos X="23" Y="5008"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="../../source/ogfirst.pas"/>
<UnitName Value="ogfirst"/>
<CursorPos X="3" Y="71"/>
<EditorIndex Value="2"/>
<TopLine Value="161"/>
<EditorIndex Value="1"/>
<CursorPos X="3" Y="71"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="../../../../lazarus0915/fpcsrc/rtl/win32/wininc/ascdef.inc"/>
<CursorPos X="13" Y="55"/>
<TopLine Value="47"/>
<CursorPos X="13" Y="55"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="../../source/qonguard7.pas"/>
<UnitName Value="qonguard7"/>
<CursorPos X="33" Y="42"/>
<TopLine Value="38"/>
<CursorPos X="33" Y="42"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<Filename Value="../../source/qonguard6.pas"/>
<ComponentName Value="ModifierFrm"/>
<HasResources Value="True"/>
<UnitName Value="qonguard6"/>
<CursorPos X="27" Y="2"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="../../source/qonguard6.lfm"/>
<CursorPos X="42" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit11>
<Unit12>
<Filename Value="../../source/qonguard4.pas"/>
<ComponentName Value="EditProductFrm"/>
<HasResources Value="True"/>
<UnitName Value="qonguard4"/>
<CursorPos X="37" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="../../source/qonguard3.pas"/>
<ComponentName Value="KeyMaintFrm"/>
<HasResources Value="True"/>
<UnitName Value="qonguard3"/>
<CursorPos X="45" Y="9"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit13>
<Unit14>
<Filename Value="../../source/qonguard4.lfm"/>
<CursorPos X="46" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit14>
<Unit15>
<Filename Value="../../source/onguard.inc"/>
<CursorPos X="14" Y="25"/>
<TopLine Value="42"/>
<CursorPos X="14" Y="25"/>
<UsageCount Value="10"/>
</Unit15>
<Unit16>
<Filename Value="/usr/share/fpcsrc/rtl/linux/ostypes.inc"/>
<CursorPos X="30" Y="108"/>
<TopLine Value="92"/>
<CursorPos X="30" Y="108"/>
<UsageCount Value="10"/>
</Unit16>
<Unit17>
<Filename Value="/usr/share/fpcsrc/rtl/unix/baseunix.pp"/>
<UnitName Value="BaseUnix"/>
<CursorPos X="30" Y="56"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit17>
<Unit18>
<Filename Value="/usr/share/fpcsrc/packages/base/libc/sstath.inc"/>
<CursorPos X="38" Y="37"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit18>
<Unit19>
<Filename Value="/usr/share/fpcsrc/rtl/netwlibc/libc.pp"/>
<UnitName Value="libc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit19>
<Unit20>
<Filename Value="/usr/share/fpcsrc/rtl/netware/nwserv.pp"/>
<UnitName Value="nwserv"/>
<CursorPos X="1" Y="4630"/>
<TopLine Value="4613"/>
<CursorPos Y="4630"/>
<UsageCount Value="10"/>
</Unit20>
<Unit21>
<Filename Value="/usr/share/fpcsrc/packages/base/libc/libc.pp"/>
<UnitName Value="libc"/>
<CursorPos X="1" Y="57"/>
<TopLine Value="41"/>
<CursorPos Y="57"/>
<UsageCount Value="10"/>
</Unit21>
<Unit22>
<Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="34" Y="1514"/>
<TopLine Value="1499"/>
<CursorPos X="34" Y="1514"/>
<UsageCount Value="10"/>
</Unit22>
<Unit23>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="40" Y="941"/>
<TopLine Value="926"/>
<CursorPos X="40" Y="941"/>
<UsageCount Value="10"/>
</Unit23>
<Unit24>
<Filename Value="../../source/ogfile.pas"/>
<UnitName Value="ogfile"/>
<CursorPos X="30" Y="140"/>
<TopLine Value="121"/>
<CursorPos X="30" Y="140"/>
<UsageCount Value="10"/>
</Unit24>
<Unit25>
<Filename Value="/usr/share/fpcsrc/fcl/db/dbase/dbf_wtil.pas"/>
<UnitName Value="dbf_wtil"/>
<CursorPos X="39" Y="204"/>
<TopLine Value="185"/>
<CursorPos X="39" Y="204"/>
<UsageCount Value="10"/>
</Unit25>
<Unit26>
<Filename Value="exinstu.lfm"/>
<CursorPos X="21" Y="10"/>
<TopLine Value="1"/>
<EditorIndex Value="-1"/>
<CursorPos Y="6"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit26>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="exinst.lpr"/>
<Caret Line="18" Column="12" TopLine="1"/>
<Caret Line="18" Column="12"/>
</Position1>
<Position2>
<Filename Value="../../source/ogfirst.pas"/>
<Caret Line="87" Column="21" TopLine="83"/>
</Position2>
<Position3>
<Filename Value="exinstu.pas"/>
<Caret Line="7" Column="22"/>
</Position3>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<SearchPaths>
<OtherUnitFiles Value="../../source/"/>
<OtherUnitFiles Value="../../source"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -260,7 +254,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -268,13 +262,13 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../source/ogfirst.pas"/>
<Line Value="234"/>
</Item1>

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

@ -9,6 +9,8 @@ uses
{$R *.res}
begin
Application.Initialize;

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

@ -1,41 +1,41 @@
object FirstInstFrm: TFirstInstFrm
ActiveControl = Memo1
Caption = 'Single Instance Example'
ClientHeight = 140
ClientWidth = 320
Font.Color = clText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
PixelsPerInch = 96
HorzScrollBar.Page = 319
HorzScrollBar.Range = 307
VertScrollBar.Page = 139
VertScrollBar.Range = 129
Left = 327
Height = 140
Top = 218
Width = 320
object Memo1: TMemo
Lines.Strings = (
'Attempts to execute this application a second time result in '
'the first instance to be activated and the second instance '
'terminated.'
)
ReadOnly = True
TabOrder = 0
Left = 8
Height = 89
Top = 8
Width = 297
end
AutoSize = True
BorderStyle = bsDialog
Caption = 'Single Instance Example'
ClientHeight = 140
ClientWidth = 320
LCLVersion = '2.3.0.0'
object BitBtn2: TBitBtn
Kind = bkClose
NumGlyphs = 0
TabOrder = 1
Left = 232
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 233
Height = 25
Top = 104
Top = 69
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Kind = bkClose
TabOrder = 0
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 45
Top = 12
Width = 296
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'Attempts to execute this application a second time result in the first instance to be activated and the second instance terminated.'
WordWrap = True
end
end

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

@ -1,14 +1,17 @@
LazarusResources.Add('TFirstInstFrm','FORMDATA',[
'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'
+#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'`'#18'Horz'
+'ScrollBar.Page'#3'?'#1#19'HorzScrollBar.Range'#3'3'#1#18'VertScrollBar.Page'
+#3#139#0#19'VertScrollBar.Range'#3#129#0#4'Left'#3'G'#1#6'Height'#3#140#0#3
+'Top'#3#218#0#5'Width'#3'@'#1#0#5'TMemo'#5'Memo1'#13'Lines.Strings'#1#6'=Att'
+'empts to execute this application a second time result in '#6';the first in'
+'stance to be activated and the second instance '#6#11'terminated.'#0#8'Read'
+'Only'#9#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2'Y'#3'Top'#2#8#5'Width'#3')'
+#1#0#0#7'TBitBtn'#7'BitBtn2'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrde'
+'r'#2#1#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'h'#5'Width'#2'K'#0#0#0
'TPF0'#13'TFirstInstFrm'#12'FirstInstFrm'#4'Left'#3'G'#1#6'Height'#3#140#0#3
+'Top'#3#218#0#5'Width'#3'@'#1#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7
+'Caption'#6#23'Single Instance Example'#12'ClientHeight'#3#140#0#11'ClientWi'
+'dth'#3'@'#1#10'LCLVersion'#6#7'2.3.0.0'#0#7'TBitBtn'#7'BitBtn2'#21'AnchorSi'
+'deTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSi'
+'deRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#3#233#0#6'Height'#2#25#3'Top'#2'E'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'a'
+'kRight'#0#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'
+#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contr'
+'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Cont'
+'rol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Heig'
+'ht'#2'-'#3'Top'#2#12#5'Width'#3'('#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
+'ight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6#131'Attempts to execute '
+'this application a second time result in the first instance to be activated'
+' and the second instance terminated.'#8'WordWrap'#9#0#0#0
]);

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

@ -11,8 +11,8 @@ type
{ TFirstInstFrm }
TFirstInstFrm = class(TForm)
Memo1: TMemo;
BitBtn2: TBitBtn;
Memo1: TLabel;
private
{ Private declarations }
public

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

@ -1,44 +1,54 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="exmachid"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="14">
<Unit0>
<Filename Value="exmachid.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="38" Y="15"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<CursorPos X="38" Y="17"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="umachid.pas"/>
@ -47,98 +57,100 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="uMachID"/>
<CursorPos X="31" Y="31"/>
<TopLine Value="26"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="27"/>
<CursorPos X="26" Y="44"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="33" Y="11"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="1" Y="604"/>
<TopLine Value="589"/>
<CursorPos Y="604"/>
<UsageCount Value="11"/>
</Unit3>
<Unit4>
<Filename Value="../../../../lazarus0915/lcl/include/control.inc"/>
<CursorPos X="29" Y="1533"/>
<TopLine Value="1531"/>
<CursorPos X="29" Y="1533"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="../../../../lazarus0915/lcl/include/buttoncontrol.inc"/>
<CursorPos X="39" Y="47"/>
<TopLine Value="45"/>
<CursorPos X="39" Y="47"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="../../../../lazarus0915/lcl/include/buttons.inc"/>
<CursorPos X="48" Y="233"/>
<TopLine Value="230"/>
<CursorPos X="48" Y="233"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="../../../../lazarus0915/lcl/interfaces/win32/win32proc.pp"/>
<UnitName Value="win32proc"/>
<CursorPos X="30" Y="557"/>
<TopLine Value="554"/>
<CursorPos X="30" Y="557"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="../../../../lazarus0915/lcl/include/customform.inc"/>
<CursorPos X="21" Y="1033"/>
<TopLine Value="1032"/>
<CursorPos X="21" Y="1033"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="umachid.lfm"/>
<CursorPos X="28" Y="12"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit9>
<Unit10>
<Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="50" Y="1284"/>
<TopLine Value="1261"/>
<CursorPos X="50" Y="1284"/>
<UsageCount Value="11"/>
</Unit10>
<Unit11>
<Filename Value="../../source/IdeSN.pas"/>
<UnitName Value="idesn"/>
<CursorPos X="53" Y="158"/>
<TopLine Value="142"/>
<CursorPos X="53" Y="158"/>
<UsageCount Value="11"/>
</Unit11>
<Unit12>
<Filename Value="../../../../../../temp/fpc/rtl/i386/strings.inc"/>
<CursorPos X="1" Y="64"/>
<TopLine Value="49"/>
<CursorPos Y="64"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="../../../../../../temp/fpc/rtl/objpas/sysutils/sysutils.inc"/>
<CursorPos X="1" Y="361"/>
<TopLine Value="346"/>
<CursorPos Y="361"/>
<UsageCount Value="10"/>
</Unit13>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="1">
<Position1>
<Filename Value="umachid.pas"/>
<Caret Line="43" Column="26" TopLine="26"/>
</Position1>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -150,15 +162,15 @@
</Checks>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -8,6 +8,8 @@ uses
umachid in 'umachid.pas';
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TfrmExMachineID,frmExMachineID);

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

@ -1,77 +1,118 @@
object frmExMachineID: TfrmExMachineID
Left = 364
Height = 174
Height = 157
Top = 254
Width = 240
Width = 277
ActiveControl = chkUser
AutoSize = True
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsDialog
Caption = 'ExMachineID'
ClientHeight = 174
ClientWidth = 240
Font.Color = clText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
ClientHeight = 157
ClientWidth = 277
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '2.3.0.0'
object GroupBox1: TGroupBox
Left = 8
Height = 137
Top = 8
Width = 113
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 110
Top = 12
Width = 114
AutoSize = True
BorderSpacing.Around = 12
Caption = ' Machine Info Set '
ClientHeight = 119
ClientWidth = 109
ClientHeight = 90
ClientWidth = 110
TabOrder = 0
object chkUser: TCheckBox
Left = 24
Height = 17
Top = 16
Width = 40
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 16
Height = 19
Top = 4
Width = 41
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BorderSpacing.Right = 16
Caption = 'User'
TabOrder = 0
end
object chkSystem: TCheckBox
Left = 24
Height = 17
Top = 40
Width = 52
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = chkUser
AnchorSideTop.Side = asrBottom
Left = 16
Height = 19
Top = 23
Width = 56
BorderSpacing.Left = 16
BorderSpacing.Right = 16
Caption = 'System'
TabOrder = 1
end
object chkNetwork: TCheckBox
Left = 24
Height = 17
Top = 64
Width = 58
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = chkSystem
AnchorSideTop.Side = asrBottom
Left = 16
Height = 19
Top = 42
Width = 63
BorderSpacing.Left = 16
BorderSpacing.Right = 24
Caption = 'Network'
TabOrder = 2
end
object chkDrives: TCheckBox
Left = 24
Height = 17
Top = 88
Width = 48
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = chkNetwork
AnchorSideTop.Side = asrBottom
Left = 16
Height = 19
Top = 61
Width = 50
BorderSpacing.Left = 16
BorderSpacing.Right = 16
BorderSpacing.Bottom = 10
Caption = 'Drives'
TabOrder = 3
end
end
object btnGenerate: TButton
Left = 131
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = Bevel1
Left = 138
Height = 25
Top = 32
Top = 38
Width = 75
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 12
BorderSpacing.InnerBorder = 4
Caption = 'Generate'
OnClick = btnGenerateClick
TabOrder = 1
end
object edtMachineID: TEdit
Left = 128
AnchorSideLeft.Control = btnGenerate
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 138
Height = 23
Top = 72
Width = 81
Width = 98
BorderSpacing.Right = 12
ReadOnly = True
TabOrder = 2
end
object Bevel1: TBevel
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrCenter
Left = 128
Height = 9
Top = 63
Width = 16
Shape = bsSpacer
end
end

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

@ -1,23 +1,41 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmExMachineID','FORMDATA',[
'TPF0'#15'TfrmExMachineID'#14'frmExMachineID'#4'Left'#3'l'#1#6'Height'#3#174#0
+#3'Top'#3#254#0#5'Width'#3#240#0#13'ActiveControl'#7#7'chkUser'#11'BorderIco'
+'ns'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#11'ExMachineID'#12'Cl'
+'ientHeight'#3#174#0#11'ClientWidth'#3#240#0#10'Font.Color'#7#6'clText'#11'F'
+'ont.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'#7#10'fpVar'
+'iable'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#9'TGro'
+'upBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3#137#0#3'Top'#2#8#5'Width'#2'q'#7
+'Caption'#6#18' Machine Info Set '#12'ClientHeight'#2'w'#11'ClientWidth'#2'm'
+#8'TabOrder'#2#0#0#9'TCheckBox'#7'chkUser'#4'Left'#2#24#6'Height'#2#17#3'Top'
+#2#16#5'Width'#2'('#7'Caption'#6#4'User'#8'TabOrder'#2#0#0#0#9'TCheckBox'#9
+'chkSystem'#4'Left'#2#24#6'Height'#2#17#3'Top'#2'('#5'Width'#2'4'#7'Caption'
+#6#6'System'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'chkNetwork'#4'Left'#2#24#6
+'Height'#2#17#3'Top'#2'@'#5'Width'#2':'#7'Caption'#6#7'Network'#8'TabOrder'#2
+#2#0#0#9'TCheckBox'#9'chkDrives'#4'Left'#2#24#6'Height'#2#17#3'Top'#2'X'#5'W'
+'idth'#2'0'#7'Caption'#6#6'Drives'#8'TabOrder'#2#3#0#0#0#7'TButton'#11'btnGe'
+'nerate'#4'Left'#3#131#0#6'Height'#2#25#3'Top'#2' '#5'Width'#2'K'#25'BorderS'
+'pacing.InnerBorder'#2#4#7'Caption'#6#8'Generate'#7'OnClick'#7#16'btnGenerat'
+'eClick'#8'TabOrder'#2#1#0#0#5'TEdit'#12'edtMachineID'#4'Left'#3#128#0#6'Hei'
+'ght'#2#23#3'Top'#2'H'#5'Width'#2'Q'#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0
'TPF0'#15'TfrmExMachineID'#14'frmExMachineID'#4'Left'#3'l'#1#6'Height'#3#157#0
+#3'Top'#3#254#0#5'Width'#3#21#1#13'ActiveControl'#7#7'chkUser'#8'AutoSize'#9
+#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bs'
+'Dialog'#7'Caption'#6#11'ExMachineID'#12'ClientHeight'#3#157#0#11'ClientWidt'
+'h'#3#21#1#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#9
+'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSide'
+'Top.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2'n'#3'Top'#2#12#5'Width'#2
+'r'#8'AutoSize'#9#20'BorderSpacing.Around'#2#12#7'Caption'#6#18' Machine Inf'
+'o Set '#12'ClientHeight'#2'Z'#11'ClientWidth'#2'n'#8'TabOrder'#2#0#0#9'TChe'
+'ckBox'#7'chkUser'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTo'
+'p.Control'#7#9'GroupBox1'#4'Left'#2#16#6'Height'#2#19#3'Top'#2#4#5'Width'#2
+')'#18'BorderSpacing.Left'#2#16#17'BorderSpacing.Top'#2#4#19'BorderSpacing.R'
+'ight'#2#16#7'Caption'#6#4'User'#8'TabOrder'#2#0#0#0#9'TCheckBox'#9'chkSyste'
+'m'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#7
+'chkUser'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#19#3
+'Top'#2#23#5'Width'#2'8'#18'BorderSpacing.Left'#2#16#19'BorderSpacing.Right'
+#2#16#7'Caption'#6#6'System'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'chkNetwork'
+#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'chk'
+'System'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#19#3
+'Top'#2'*'#5'Width'#2'?'#18'BorderSpacing.Left'#2#16#19'BorderSpacing.Right'
+#2#24#7'Caption'#6#7'Network'#8'TabOrder'#2#2#0#0#9'TCheckBox'#9'chkDrives'
+#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#10'ch'
+'kNetwork'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#19
+#3'Top'#2'='#5'Width'#2'2'#18'BorderSpacing.Left'#2#16#19'BorderSpacing.Righ'
+'t'#2#16#20'BorderSpacing.Bottom'#2#10#7'Caption'#6#6'Drives'#8'TabOrder'#2#3
+#0#0#0#7'TButton'#11'btnGenerate'#22'AnchorSideLeft.Control'#7#9'GroupBox1'
+#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#6'Bev'
+'el1'#4'Left'#3#138#0#6'Height'#2#25#3'Top'#2'&'#5'Width'#2'K'#7'Anchors'#11
+#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#12#25'BorderSpacing.InnerB'
+'order'#2#4#7'Caption'#6#8'Generate'#7'OnClick'#7#16'btnGenerateClick'#8'Tab'
+'Order'#2#1#0#0#5'TEdit'#12'edtMachineID'#22'AnchorSideLeft.Control'#7#11'bt'
+'nGenerate'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#3#138#0#6'Height'#2#23#3'Top'#2'H'#5'Width'#2'b'#19'Bord'
+'erSpacing.Right'#2#12#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#6'TBevel'#6'Bevel1'
+#21'AnchorSideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7#9'asrCent'
+'er'#4'Left'#3#128#0#6'Height'#2#9#3'Top'#2'?'#5'Width'#2#16#5'Shape'#7#8'bs'
+'Spacer'#0#0#0
]);

11
components/onguard/examples/exmachid/umachid.pas
View File

@ -4,13 +4,14 @@ interface
uses
SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,Buttons, StdCtrls,LResources;
Graphics, Controls, Forms, Dialogs,Buttons, StdCtrls,LResources, ExtCtrls;
type
{ TfrmExMachineID }
TfrmExMachineID = class(TForm)
Bevel1: TBevel;
GroupBox1: TGroupBox;
chkUser: TCheckBox;
chkSystem: TCheckBox;
@ -30,8 +31,6 @@ var
implementation
uses
onguard, ogutil;
@ -53,10 +52,10 @@ begin
{ create the machine ID and display in hex }
try
MachineID := CreateMachineID(InfoSet);
edtMachineID.Text := '$' + BufferToHex(MachineID, SizeOf(MachineID));
MachineID := CreateMachineID(InfoSet);
edtMachineID.Text := '$' + BufferToHex(MachineID, SizeOf(MachineID));
except on E:Exception do
ShowMessage(E.Message);
ShowMessage(E.Message);
end;
end;

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

Binary file not shown.

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

@ -1,85 +1,105 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="5">
<Unit0>
<Filename Value="exnet.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="44" Y="7"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exnetu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exnetu"/>
<CursorPos X="53" Y="159"/>
<TopLine Value="118"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<TopLine Value="118"/>
<CursorPos X="59" Y="141"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../source/ognetwrk.pas"/>
<UnitName Value="ognetwrk"/>
<CursorPos X="68" Y="478"/>
<TopLine Value="465"/>
<CursorPos X="68" Y="478"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="28" Y="1334"/>
<TopLine Value="1330"/>
<CursorPos X="28" Y="1334"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="35" Y="1349"/>
<TopLine Value="1344"/>
<CursorPos X="35" Y="1349"/>
<UsageCount Value="10"/>
</Unit4>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="exnetu.pas"/>
<Caret Line="141" Column="59" TopLine="118"/>
</Position1>
<Position2>
<Filename Value="exnetu.pas"/>
<Caret Line="140" Column="59" TopLine="117"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -92,7 +112,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -100,9 +120,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -7,6 +7,8 @@ uses
Exnetu in 'EXNETU.PAS' {Form1}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -5,96 +5,119 @@ object Form1: TForm1
Width = 490
HorzScrollBar.Page = 489
VertScrollBar.Page = 316
AutoSize = True
BorderStyle = bsDialog
Caption = 'Network Code Example'
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 317
ClientWidth = 490
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
Left = 8
Height = 13
Top = 262
Width = 35
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 231
Width = 32
BorderSpacing.Bottom = 12
Caption = 'Status'
Color = clNone
ParentColor = False
end
object Label1: TLabel
Left = 232
Height = 13
Top = 14
Width = 77
AnchorSideLeft.Control = CodeBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 181
Height = 15
Top = 17
Width = 72
BorderSpacing.Left = 80
Caption = 'Current code:'
Color = clNone
ParentColor = False
end
object CodeLbl: TLabel
Left = 320
Height = 13
Top = 14
Width = 113
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 265
Height = 15
Top = 17
Width = 96
BorderSpacing.Left = 12
Caption = '0000000000000000'
Color = clNone
ParentColor = False
end
object CodeBtn: TButton
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 25
Top = 8
Top = 12
Width = 89
BorderSpacing.Around = 12
BorderSpacing.InnerBorder = 4
Caption = 'Enter Code'
OnClick = CodeBtnClick
TabOrder = 0
end
object Memo1: TMemo
Left = 8
Height = 209
Top = 40
Width = 465
Color = clBtnFace
Lines.Strings = (
'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
'the code is either the incorrect type or that none has been entered. '
''
'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
'say that the code is invalid.'
''
'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
'the proper "Usage" code). '
''
'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
'will cause the TOgNetCode component to report that the code is invalid.'
)
ReadOnly = True
object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1
AnchorSideRight.Side = asrBottom
Left = 403
Height = 25
Top = 226
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Bottom = 12
Kind = bkClose
TabOrder = 1
end
object CloseBtn: TBitBtn
Left = 400
Height = 25
Top = 256
Width = 75
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
end
object RemoveBtn: TButton
Left = 288
AnchorSideTop.Control = CloseBtn
AnchorSideRight.Control = CloseBtn
Left = 302
Height = 25
Top = 256
Top = 226
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4
Caption = 'Remove Code'
OnClick = RemoveBtnClick
TabOrder = 3
TabOrder = 2
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 165
Top = 49
Width = 466
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgNetCode component to report that the code is invalid.'
Color = clBtnFace
ParentColor = False
WordWrap = True
end
object OgNetCode1: TOgNetCode
OnChecked = CodeChecked
OnGetKey = GetKey
OnGetCode = GetCode
FileName = 'EXNET.NAF'
left = 16
top = 216
Left = 192
Top = 208
end
end

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

@ -1,34 +1,51 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#2#1#6'Height'#3'='#1#3'Top'#3#146#0#5'Wid'
+'th'#3#234#1#18'HorzScrollBar.Page'#3#233#1#18'VertScrollBar.Page'#3'<'#1#11
+'BorderStyle'#7#8'bsDialog'#7'Caption'#6#20'Network Code Example'#11'Font.He'
+'ight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#8
+'Position'#7#14'poScreenCenter'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Heigh'
+'t'#2#13#3'Top'#3#6#1#5'Width'#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNo'
+'ne'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#4'Left'#3#232#0#6'Height'#2#13
+#3'Top'#2#14#5'Width'#2'M'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNon'
+'e'#11'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13
+#3'Top'#2#14#5'Width'#2'q'#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'cl'
+'None'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25
+#3'Top'#2#8#5'Width'#2'Y'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10
+'Enter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Me'
+'mo1'#4'Left'#2#8#6'Height'#3#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9
+'clBtnFace'#13'Lines.Strings'#1#6'fThe label at the bottom of this form indi'
+'cates the status of the code. An invalid code indicates that '#6'Ethe code '
+'is either the incorrect type or that none has been entered. '#6#0#6'^If the'
+' proper code has not been entered or the ONGUARD.INI file was deleted, the '
+'message will '#6#29'say that the code is invalid.'#6#0#6'YUse the "Enter Co'
+'de" button to enter a code (the CODEGEN program can be used to generate '#6
+#26'the proper "Usage" code). '#6#0#6'\The "Remove Code" button can be used '
+'to remove the entered code from the INI file. Doing so '#6'Gwill cause the '
+'TOgNetCode component to report that the code is invalid.'#0#8'ReadOnly'#9#8
+'TabOrder'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'T'
+'op'#3#0#1#5'Width'#2'K'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2
+#2#0#0#7'TButton'#9'RemoveBtn'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5
+'Width'#2'a'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7
+'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#3#0#0#10'TOgNetCode'#10'OgNetCo'
+'de1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7
+'GetCode'#8'FileName'#6#9'EXNET.NAF'#4'left'#2#16#3'top'#3#216#0#0#0#0
+'th'#3#234#1#18'HorzScrollBar.Page'#3#233#1#18'VertScrollBar.Page'#3'<'#1#8
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#20'Network Code Exam'
+'ple'#12'ClientHeight'#3'='#1#11'ClientWidth'#3#234#1#8'OnCreate'#7#10'FormC'
+'reate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLa'
+'bel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Co'
+'ntrol'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'H'
+'eight'#2#15#3'Top'#3#231#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Ca'
+'ption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
+'abel1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9
+'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
+'asrCenter'#4'Left'#3#181#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2'H'#18'Bord'
+'erSpacing.Left'#2'P'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11
+'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#22'AnchorSideLeft.Control'#7#6'Labe'
+'l1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'Co'
+'deBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#9#1#6'Height'#2#15#3
+'Top'#2#17#5'Width'#2'`'#18'BorderSpacing.Left'#2#12#7'Caption'#6#16'0000000'
+'000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4
+'Left'#2#12#6'Height'#2#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpacing.Around'
+#2#12#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClic'
+'k'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorS'
+'ideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorS'
+'ideRight.Control'#7#5'Memo1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#3#147#1#6'Height'#2#25#3'Top'#3#226#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7
+'akRight'#0#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2
+#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'An'
+'chorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'.'#1#6'Height'#2#25#3'Top'#3
+#226#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Ri'
+'ght'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'O'
+'nClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'Anch'
+'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'An'
+'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
+'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2
+'1'#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Border'
+'Spacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this'
+' form indicates the status of the code. An invalid code indicates that the '
+'code is either the incorrect type or that none has been entered. '#13#10#13
+#10'If the proper code has not been entered or the ONGUARD.INI file was dele'
+'ted, the message will say that the code is invalid.'#13#10#13#10'Use the "E'
+'nter Code" button to enter a code (the CODEGEN program can be used to gener'
+'ate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be'
+' used to remove the entered code from the INI file. Doing so will cause the'
+' TOgNetCode component to report that the code is invalid.'#5'Color'#7#9'clB'
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#10'TOgNetCode'#10'OgNetCode1'#9
+'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCo'
+'de'#8'FileName'#6#9'EXNET.NAF'#4'Left'#3#192#0#3'Top'#3#208#0#0#0#0
]);

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

@ -13,8 +13,8 @@ type
TForm1 = class(TForm)
CodeBtn: TButton;
Memo1: TMemo;
CloseBtn: TBitBtn;
Memo1: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

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

@ -1,72 +1,107 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="2"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="3">
<Units Count="4">
<Unit0>
<Filename Value="exprot.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="30" Y="17"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UnitName Value="ExProt"/>
<CursorPos X="30" Y="19"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exprotu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="EXPROTU"/>
<CursorPos X="15" Y="8"/>
<TopLine Value="1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<TopLine Value="13"/>
<CursorPos X="72" Y="32"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../source/ogproexe.pas"/>
<UnitName Value="ogproexe"/>
<CursorPos X="1" Y="453"/>
<TopLine Value="432"/>
<EditorIndex Value="2"/>
<TopLine Value="432"/>
<CursorPos Y="453"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="exprotu.lfm"/>
<EditorIndex Value="-1"/>
<CursorPos Y="6"/>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit3>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="exprotu.pas"/>
<Caret Line="8" Column="15"/>
</Position1>
<Position2>
<Filename Value="exprotu.pas"/>
<Caret Line="31" Column="72" TopLine="13"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -74,9 +109,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -10,6 +10,8 @@ uses
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -1,55 +1,71 @@
object Form1: TForm1
Left = 258
Height = 151
Height = 200
Top = 146
Width = 446
HorzScrollBar.Page = 445
HorzScrollBar.Range = 441
VertScrollBar.Page = 150
VertScrollBar.Range = 145
ActiveControl = Memo1
Width = 384
AutoSize = True
BorderStyle = bsDialog
Caption = 'Protect Exe Example'
Font.Color = clText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
ClientHeight = 200
ClientWidth = 384
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
Left = 8
Height = 13
Top = 126
Width = 35
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 164
Width = 32
BorderSpacing.Left = 12
Caption = 'Status'
Color = clNone
ParentColor = False
end
object Memo1: TMemo
Left = 8
Height = 105
Top = 8
Width = 433
Lines.Strings = (
'The label at the bottom of this form indicates the status of the EXE file. '
''
'If the EXE file has not been stamped, use the StampEXE program to protect it.'
''
'The EXE file will need to be stamped after each compile since this re-writes the EXE file.'
)
ReadOnly = True
object CloseBtn: TBitBtn
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 297
Height = 25
Top = 159
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Around = 12
Kind = bkClose
TabOrder = 0
end
object CloseBtn: TBitBtn
Left = 360
Height = 25
Top = 120
Width = 75
Kind = bkClose
NumGlyphs = 0
TabOrder = 1
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 120
Top = 12
Width = 360
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'The label at the bottom of this form indicates the status of the EXE file. '#13#10#13#10'If the EXE file has not been stamped, use the StampEXE program to protect it.'#13#10#13#10'The EXE file will need to be stamped after each compile since this re-writes the EXE file.'
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Memo1
AnchorSideRight.Side = asrBottom
Left = 12
Height = 3
Top = 144
Width = 360
Anchors = [akTop, akLeft, akRight]
Shape = bsTopLine
end
object OgProtectExe1: TOgProtectExe
OnChecked = OgProtectExe1Checked
left = 124
top = 120
Left = 136
Top = 88
end
end

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

@ -1,20 +1,30 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#2#1#6'Height'#3#151#0#3'Top'#3#146#0#5'Wi'
+'dth'#3#190#1#18'HorzScrollBar.Page'#3#189#1#19'HorzScrollBar.Range'#3#185#1
+#18'VertScrollBar.Page'#3#150#0#19'VertScrollBar.Range'#3#145#0#13'ActiveCon'
+'trol'#7#5'Memo1'#7'Caption'#6#19'Protect Exe Example'#10'Font.Color'#7#6'cl'
+'Text'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'#7
+#10'fpVariable'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#9'StatusLbl'#4
+'Left'#2#8#6'Height'#2#13#3'Top'#2'~'#5'Width'#2'#'#7'Caption'#6#6'Status'#5
+'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'He'
+'ight'#2'i'#3'Top'#2#8#5'Width'#3#177#1#13'Lines.Strings'#1#6'KThe label at '
+'the bottom of this form indicates the status of the EXE file. '#6#0#6'MIf t'
+'he EXE file has not been stamped, use the StampEXE program to protect it.'#6
+#0#6'ZThe EXE file will need to be stamped after each compile since this re-'
+'writes the EXE file.'#0#8'ReadOnly'#9#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'Clos'
+'eBtn'#4'Left'#3'h'#1#6'Height'#2#25#3'Top'#2'x'#5'Width'#2'K'#4'Kind'#7#7'b'
+'kClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#13'TOgProtectExe'#13'OgProtect'
+'Exe1'#9'OnChecked'#7#20'OgProtectExe1Checked'#4'left'#2'|'#3'top'#2'x'#0#0#0
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#2#1#6'Height'#3#200#0#3'Top'#3#146#0#5'Wi'
+'dth'#3#128#1#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#19'Pr'
+'otect Exe Example'#12'ClientHeight'#3#200#0#11'ClientWidth'#3#128#1#8'Posit'
+'ion'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusL'
+'bl'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'Clo'
+'seBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3
+'Top'#3#164#0#5'Width'#2' '#18'BorderSpacing.Left'#2#12#7'Caption'#6#6'Statu'
+'s'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#21'Anc'
+'horSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'An'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3')'#1#6'Height'#2#25#3'Top'#3
+#159#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Ar'
+'ound'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'A'
+'nchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'A'
+'nchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#2#12#6'Height'#2'x'#3'Top'#2#12#5'Width'#3'h'#1#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6#250'The l'
+'abel at the bottom of this form indicates the status of the EXE file. '#13
+#10#13#10'If the EXE file has not been stamped, use the StampEXE program to '
+'protect it.'#13#10#13#10'The EXE file will need to be stamped after each co'
+'mpile since this re-writes the EXE file.'#8'WordWrap'#9#0#0#6'TBevel'#6'Bev'
+'el1'#22'AnchorSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#5'Me'
+'mo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
+'Memo1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3
+'Top'#3#144#0#5'Width'#3'h'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5
+'Shape'#7#9'bsTopLine'#0#0#13'TOgProtectExe'#13'OgProtectExe1'#9'OnChecked'#7
+#20'OgProtectExe1Checked'#4'Left'#3#136#0#3'Top'#2'X'#0#0#0
]);

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

@ -4,13 +4,17 @@ interface
uses
SysUtils, Classes,
Controls, Forms, Dialogs, StdCtrls, Buttons,LResources
,ogutil, ogproexe;
Controls, Forms, Dialogs, StdCtrls, Buttons, LResources, ExtCtrls,
ogutil, ogproexe;
type
{ TForm1 }
TForm1 = class(TForm)
Memo1: TMemo;
Bevel1: TBevel;
CloseBtn: TBitBtn;
Memo1: TLabel;
StatusLbl: TLabel;
OgProtectExe1: TOgProtectExe;
procedure OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
@ -25,8 +29,6 @@ var
implementation
procedure TForm1.OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
var
S : string;

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

@ -1,27 +1,33 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<Scaled Value="True"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="2">
<Item1>
@ -33,15 +39,15 @@
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPackages>
<Units Count="6">
<Units Count="8">
<Unit0>
<Filename Value="exreg.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="7" Y="8"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UnitName Value="ExReg"/>
<CursorPos Y="9"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exreg1.pas"/>
@ -50,111 +56,186 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="ExReg1"/>
<CursorPos X="1" Y="75"/>
<TopLine Value="57"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="72"/>
<CursorPos X="30" Y="96"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="3" Y="2041"/>
<EditorIndex Value="2"/>
<TopLine Value="2036"/>
<EditorIndex Value="3"/>
<CursorPos X="3" Y="2041"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../../../lazarus0915/lcl/editbtn.pas"/>
<UnitName Value="EditBtn"/>
<CursorPos X="60" Y="313"/>
<TopLine Value="301"/>
<CursorPos X="60" Y="313"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="../../../../lazarus0915/fpcsrc/rtl/objpas/sysutils/datih.inc"/>
<CursorPos X="10" Y="114"/>
<TopLine Value="101"/>
<CursorPos X="10" Y="114"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="../../../../../../temp/fpc/rtl/objpas/sysutils/datih.inc"/>
<CursorPos X="10" Y="127"/>
<EditorIndex Value="-1"/>
<TopLine Value="106"/>
<EditorIndex Value="2"/>
<CursorPos X="10" Y="127"/>
<UsageCount Value="10"/>
<LoadedDesigner Value="True"/>
</Unit5>
<Unit6>
<Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/objpas/sysutils/sysinth.inc"/>
<EditorIndex Value="3"/>
<TopLine Value="75"/>
<CursorPos X="4" Y="93"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
</Unit6>
<Unit7>
<Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/win/sysutils.pp"/>
<UnitName Value="SysUtils"/>
<EditorIndex Value="4"/>
<TopLine Value="10"/>
<CursorPos X="23" Y="13"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit7>
</Units>
<JumpHistory Count="15" HistoryIndex="14">
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="exreg1.pas"/>
<Caret Line="69" Column="27" TopLine="62"/>
<Caret Line="80" Column="19" TopLine="68"/>
</Position1>
<Position2>
<Filename Value="exreg1.pas"/>
<Caret Line="79" Column="16" TopLine="68"/>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1985" Column="34" TopLine="1979"/>
</Position2>
<Position3>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1979" Column="61" TopLine="1979"/>
<Caret Line="72" Column="16" TopLine="70"/>
</Position3>
<Position4>
<Filename Value="exreg1.pas"/>
<Caret Line="80" Column="19" TopLine="68"/>
<Filename Value="../../source/onguard.pas"/>
</Position4>
<Position5>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1985" Column="34" TopLine="1979"/>
<Caret Line="90" Column="22" TopLine="75"/>
</Position5>
<Position6>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="72" Column="16" TopLine="70"/>
<Caret Line="1901" Column="28" TopLine="1886"/>
</Position6>
<Position7>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
<Filename Value="exreg1.pas"/>
<Caret Line="77" Column="62" TopLine="60"/>
</Position7>
<Position8>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="90" Column="22" TopLine="75"/>
<Filename Value="exreg1.pas"/>
<Caret Line="73" Column="60" TopLine="60"/>
</Position8>
<Position9>
<Filename Value="../../source/onguard.pas"/>
<Caret Line="1901" Column="28" TopLine="1886"/>
<Filename Value="exreg1.pas"/>
<Caret Line="62" Column="13" TopLine="54"/>
</Position9>
<Position10>
<Filename Value="exreg1.pas"/>
<Caret Line="77" Column="62" TopLine="60"/>
<Caret Line="65" Column="10" TopLine="54"/>
</Position10>
<Position11>
<Filename Value="exreg1.pas"/>
<Caret Line="73" Column="60" TopLine="60"/>
<Caret Line="61" Column="14" TopLine="54"/>
</Position11>
<Position12>
<Filename Value="exreg1.pas"/>
<Caret Line="62" Column="13" TopLine="54"/>
<Caret Line="65" Column="9" TopLine="54"/>
</Position12>
<Position13>
<Filename Value="exreg1.pas"/>
<Caret Line="65" Column="10" TopLine="54"/>
<Caret Line="75" TopLine="57"/>
</Position13>
<Position14>
<Filename Value="exreg1.pas"/>
<Caret Line="61" Column="14" TopLine="54"/>
<Caret Line="54" Column="37" TopLine="54"/>
</Position14>
<Position15>
<Filename Value="exreg1.pas"/>
<Caret Line="65" Column="9" TopLine="54"/>
<Caret Line="32" Column="22"/>
</Position15>
<Position16>
<Filename Value="exreg1.pas"/>
<Caret Line="91" Column="18" TopLine="62"/>
</Position16>
<Position17>
<Filename Value="exreg1.pas"/>
<Caret Line="43" Column="21" TopLine="43"/>
</Position17>
<Position18>
<Filename Value="exreg1.pas"/>
</Position18>
<Position19>
<Filename Value="exreg1.pas"/>
<Caret Line="91" Column="10" TopLine="61"/>
</Position19>
<Position20>
<Filename Value="exreg1.pas"/>
<Caret Line="50" Column="8" TopLine="43"/>
</Position20>
<Position21>
<Filename Value="exreg1.pas"/>
</Position21>
<Position22>
<Filename Value="exreg1.pas"/>
<Caret Line="28" Column="30"/>
</Position22>
<Position23>
<Filename Value="exreg1.pas"/>
<Caret Line="62" Column="25" TopLine="62"/>
</Position23>
<Position24>
<Filename Value="exreg1.pas"/>
</Position24>
<Position25>
<Filename Value="exreg1.pas"/>
<Caret Line="14" Column="11"/>
</Position25>
<Position26>
<Filename Value="exreg1.pas"/>
<Caret Line="61" Column="24" TopLine="31"/>
</Position26>
<Position27>
<Filename Value="exreg1.pas"/>
<Caret Line="92" TopLine="62"/>
</Position27>
<Position28>
<Filename Value="exreg1.pas"/>
<Caret Line="54" TopLine="18"/>
</Position28>
<Position29>
<Filename Value="exreg1.pas"/>
<Caret Line="67" Column="33" TopLine="45"/>
</Position29>
<Position30>
<Filename Value="exreg1.pas"/>
<Caret Line="30" Column="15" TopLine="12"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -167,7 +248,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -175,11 +256,17 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="exreg1.pas"/>
<Line Value="61"/>
</Item1>
</BreakPoints>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>

3
components/onguard/examples/exreg/exreg.lpr
View File

@ -7,8 +7,11 @@ uses
Forms,
ExReg1 in 'ExReg1.pas' {frmExRegCode}, tponguard;
{$R *.res}
begin
Application.Scaled:=True;
Application.Title:='';
Application.Initialize;
Application.CreateForm(TfrmExRegCode, frmExRegCode);
Application.Run;

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

@ -7,54 +7,78 @@ object frmExRegCode: TfrmExRegCode
Caption = 'Registration Code Example'
ClientHeight = 298
ClientWidth = 391
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '2.3.0.0'
object GroupBox1: TGroupBox
Left = 8
Height = 129
Top = 8
Width = 369
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 121
Top = 12
Width = 370
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 12
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Caption = ' Registration Code Generator (vendor site) '
ClientHeight = 111
ClientWidth = 365
ClientHeight = 101
ClientWidth = 366
TabOrder = 0
object Label1: TLabel
AnchorSideTop.Control = edtUserName1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Label3
AnchorSideRight.Side = asrBottom
Left = 39
Height = 14
Top = 28
Width = 57
Height = 15
Top = 8
Width = 70
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
Caption = 'User Name:'
ParentColor = False
end
object Label2: TLabel
Left = 14
Height = 14
Top = 60
Width = 76
AnchorSideTop.Control = edDate
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Label3
AnchorSideRight.Side = asrBottom
Left = 26
Height = 15
Top = 39
Width = 83
Alignment = taRightJustify
Anchors = [akTop, akRight]
Caption = 'Expiration Date:'
ParentColor = False
end
object Label3: TLabel
Left = 6
Height = 14
Top = 92
Width = 88
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = edtRegCode1
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 70
Width = 97
Alignment = taRightJustify
BorderSpacing.Left = 12
Caption = 'Registration Code:'
ParentColor = False
end
object btnGenerate: TSpeedButton
Left = 328
AnchorSideTop.Control = edtRegCode1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 331
Height = 22
Hint = 'Generate Registration Code'
Top = 88
Top = 66
Width = 23
Color = clBtnFace
Anchors = [akTop, akRight]
BorderSpacing.Right = 12
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
@ -68,78 +92,123 @@ object frmExRegCode: TfrmExRegCode
0000888800888080088880000000888888000008888880000000888888888888
888880000000
}
NumGlyphs = 0
OnClick = btnGenerateClick
ShowHint = True
ParentShowHint = False
end
object edtUserName1: TEdit
Left = 120
AnchorSideLeft.Control = edtRegCode1
AnchorSideTop.Control = GroupBox1
Left = 121
Height = 23
Top = 24
Top = 4
Width = 233
BorderSpacing.Top = 4
BorderSpacing.Right = 12
TabOrder = 0
end
object edtRegCode1: TEdit
Left = 120
AnchorSideLeft.Control = Label3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edDate
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnGenerate
Left = 121
Height = 23
Top = 88
Width = 201
Top = 66
Width = 206
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Top = 8
BorderSpacing.Right = 4
BorderSpacing.Bottom = 12
Color = clBtnFace
ReadOnly = True
TabOrder = 1
end
object edDate: TEdit
AnchorSideLeft.Control = edtRegCode1
AnchorSideTop.Control = edtUserName1
AnchorSideTop.Side = asrBottom
Left = 121
Height = 23
Top = 57
Top = 35
Width = 118
BorderSpacing.Top = 8
TabOrder = 2
end
end
object GroupBox2: TGroupBox
Left = 8
Height = 129
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 121
Top = 152
Width = 369
Width = 367
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 24
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Caption = ' Registration Code Verification (client site) '
ClientHeight = 111
ClientWidth = 365
ClientHeight = 101
ClientWidth = 363
TabOrder = 1
object Label4: TLabel
Left = 38
Height = 14
Top = 60
Width = 57
AnchorSideTop.Control = edtUserName2
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Label5
AnchorSideRight.Side = asrBottom
Left = 48
Height = 15
Top = 39
Width = 61
Alignment = taRightJustify
Anchors = [akTop, akRight]
Caption = 'User Name:'
ParentColor = False
end
object Label5: TLabel
Left = 6
Height = 14
Top = 28
Width = 88
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = edtRegCode2
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 8
Width = 97
Alignment = taRightJustify
BorderSpacing.Left = 12
Caption = 'Registration Code:'
ParentColor = False
end
object Label6: TLabel
Left = 70
Height = 14
Top = 92
Width = 34
AnchorSideTop.Control = edtStatus
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Label4
AnchorSideRight.Side = asrBottom
Left = 74
Height = 15
Top = 70
Width = 35
Alignment = taRightJustify
Anchors = [akTop, akRight]
Caption = 'Status:'
ParentColor = False
end
object btnVerify: TSpeedButton
Left = 224
AnchorSideLeft.Control = edtStatus
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtStatus
AnchorSideTop.Side = asrCenter
Left = 254
Height = 22
Hint = 'Verify Registration Code'
Top = 88
Top = 66
Width = 23
Color = clBtnFace
BorderSpacing.Left = 4
BorderSpacing.Bottom = 12
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000000000000000000000000
@ -153,30 +222,51 @@ object frmExRegCode: TfrmExRegCode
0000888888888888888880000000888888888888888880000000888888888888
888880000000
}
NumGlyphs = 0
OnClick = btnVerifyClick
ShowHint = True
ParentShowHint = False
end
object edtUserName2: TEdit
Left = 120
AnchorSideLeft.Control = edtRegCode2
AnchorSideTop.Control = edtRegCode2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 121
Height = 23
Top = 56
Width = 233
Top = 35
Width = 230
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 12
TabOrder = 0
end
object edtRegCode2: TEdit
Left = 120
AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 121
Height = 23
Top = 24
Width = 233
Top = 4
Width = 230
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Top = 4
BorderSpacing.Right = 12
TabOrder = 1
end
object edtStatus: TEdit
Left = 120
AnchorSideLeft.Control = edtRegCode2
AnchorSideTop.Control = edtUserName2
AnchorSideTop.Side = asrBottom
Left = 121
Height = 23
Top = 88
Width = 97
Top = 66
Width = 129
BorderSpacing.Top = 8
BorderSpacing.Bottom = 12
Color = clBtnFace
ReadOnly = True
TabOrder = 2

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

@ -1,69 +1,114 @@
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmExRegCode','FORMDATA',[
'TPF0'#13'TfrmExRegCode'#12'frmExRegCode'#4'Left'#3#135#1#6'Height'#3'*'#1#3
+'Top'#3#180#0#5'Width'#3#135#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25
+'Registration Code Example'#12'ClientHeight'#3'*'#1#11'ClientWidth'#3#135#1
+#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'For'
+'mCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#9'TG'
+'roupBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3#129#0#3'Top'#2#8#5'Width'#3'q'
+#1#7'Caption'#6'+ Registration Code Generator (vendor site) '#12'ClientHeigh'
+'t'#2'o'#11'ClientWidth'#3'm'#1#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'
+#2''''#6'Height'#2#14#3'Top'#2#28#5'Width'#2'9'#9'Alignment'#7#14'taRightJus'
+'tify'#7'Caption'#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'
+#4'Left'#2#14#6'Height'#2#14#3'Top'#2'<'#5'Width'#2'L'#9'Alignment'#7#14'taR'
+'ightJustify'#7'Caption'#6#16'Expiration Date:'#11'ParentColor'#8#0#0#6'TLab'
+'el'#6'Label3'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'X'#9'Alignm'
+'ent'#7#14'taRightJustify'#7'Caption'#6#18'Registration Code:'#11'ParentColo'
+'r'#8#0#0#12'TSpeedButton'#11'btnGenerate'#4'Left'#3'H'#1#6'Height'#2#22#4'H'
+'int'#6#26'Generate Registration Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#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#16#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#0#0#8#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
+#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
+#0#0#0#128#136#128#9#137#0#128#128#128#0#0#0#128#136#128#8#152#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#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
+#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#0#0#8#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#16'btnGenerateClick'#8'ShowHint'#9#14'ParentSho'
+'wHint'#8#0#0#5'TEdit'#12'edtUserName1'#4'Left'#2'x'#6'Height'#2#23#3'Top'#2
+#24#5'Width'#3#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode1'#4'Left'#2
+'x'#6'Height'#2#23#3'Top'#2'X'#5'Width'#3#201#0#5'Color'#7#9'clBtnFace'#8'Re'
+'adOnly'#9#8'TabOrder'#2#1#0#0#5'TEdit'#6'edDate'#4'Left'#2'y'#6'Height'#2#23
+#3'Top'#2'9'#5'Width'#2'v'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBox2'#4
+'Left'#2#8#6'Height'#3#129#0#3'Top'#3#152#0#5'Width'#3'q'#1#7'Caption'#6'. R'
+'egistration Code Verification (client site) '#12'ClientHeight'#2'o'#11'Clie'
+'ntWidth'#3'm'#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label4'#4'Left'#2'&'#6'Height'
+#2#14#3'Top'#2'<'#5'Width'#2'9'#9'Alignment'#7#14'taRightJustify'#7'Caption'
+#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#6#6'He'
+'ight'#2#14#3'Top'#2#28#5'Width'#2'X'#9'Alignment'#7#14'taRightJustify'#7'Ca'
+'ption'#6#18'Registration Code:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4
+'Left'#2'F'#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'"'#9'Alignment'#7#14'taRig'
+'htJustify'#7'Caption'#6#7'Status:'#11'ParentColor'#8#0#0#12'TSpeedButton'#9
+'btnVerify'#4'Left'#3#224#0#6'Height'#2#22#4'Hint'#6#24'Verify Registration '
+'Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#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#16#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128
+#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192
+#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255
+#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
+#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#0#8
+#136#136#136#136#128#0#0#0#136#128#0#0#136#8#136#128#128#0#0#0#136#0#152#144
+#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#137#128#0#0#0#0
+#128#0#0#0#136#0#152#144#8#136#136#136#128#0#0#0#136#128#0#0#136#136#136#136
+#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
+#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#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
+'Registration Code Example'#12'ClientHeight'#3'*'#1#11'ClientWidth'#3#135#1#8
+'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6
+#7'2.3.0.0'#0#9'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Control'#7#5'Owner'
+#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2'y'#3'Top'#2#12
+#5'Width'#3'r'#1#8'AutoSize'#9#18'BorderSpacing.Left'#2#12#17'BorderSpacing.'
+'Top'#2#12#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#7'Capt'
+'ion'#6'+ Registration Code Generator (vendor site) '#12'ClientHeight'#2'e'
+#11'ClientWidth'#3'n'#1#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#21'AnchorSideT'
+'op.Control'#7#12'edtUserName1'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'Anc'
+'horSideRight.Control'#7#6'Label3'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#2''''#6'Height'#2#15#3'Top'#2#8#5'Width'#2'F'#9'Alignment'#7#14'taRig'
+'htJustify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#10'Us'
+'er Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#21'AnchorSideTop.Contro'
+'l'#7#6'edDate'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Con'
+'trol'#7#6'Label3'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#26#6'He'
+'ight'#2#15#3'Top'#2''''#5'Width'#2'S'#9'Alignment'#7#14'taRightJustify'#7'A'
+'nchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#16'Expiration Date:'#11'Paren'
+'tColor'#8#0#0#6'TLabel'#6'Label3'#22'AnchorSideLeft.Control'#7#9'GroupBox1'
+#21'AnchorSideTop.Control'#7#11'edtRegCode1'#18'AnchorSideTop.Side'#7#9'asrC'
+'enter'#4'Left'#2#12#6'Height'#2#15#3'Top'#2'F'#5'Width'#2'a'#9'Alignment'#7
+#14'taRightJustify'#18'BorderSpacing.Left'#2#12#7'Caption'#6#18'Registration'
+' Code:'#11'ParentColor'#8#0#0#12'TSpeedButton'#11'btnGenerate'#21'AnchorSid'
+'eTop.Control'#7#11'edtRegCode1'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'An'
+'chorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBotto'
+'m'#4'Left'#3'K'#1#6'Height'#2#22#4'Hint'#6#26'Generate Registration Code'#3
+'Top'#2'B'#5'Width'#2#23#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacin'
+'g.Right'#2#12#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#16#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#0#0#8#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#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#0#0#0#128#136#128#9#137#0#128#128#128#0#0#0#128#136#128#8#152#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#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#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#0#0#8#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0
+#0#7'OnClick'#7#16'btnGenerateClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#5
+'TEdit'#12'edtUserName1'#22'AnchorSideLeft.Control'#7#11'edtRegCode1'#21'Anc'
+'horSideTop.Control'#7#9'GroupBox1'#4'Left'#2'y'#6'Height'#2#23#3'Top'#2#4#5
+'Width'#3#233#0#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#12#8'Tab'
+'Order'#2#0#0#0#5'TEdit'#11'edtRegCode1'#22'AnchorSideLeft.Control'#7#6'Labe'
+'l3'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#6'ed'
+'Date'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#11
+'btnGenerate'#4'Left'#2'y'#6'Height'#2#23#3'Top'#2'B'#5'Width'#3#206#0#7'Anc'
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#12#17'Bor'
+'derSpacing.Top'#2#8#19'BorderSpacing.Right'#2#4#20'BorderSpacing.Bottom'#2
+#12#5'Color'#7#9'clBtnFace'#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#5'TEdit'#6'edD'
+'ate'#22'AnchorSideLeft.Control'#7#11'edtRegCode1'#21'AnchorSideTop.Control'
+#7#12'edtUserName1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'y'#6'Hei'
+'ght'#2#23#3'Top'#2'#'#5'Width'#2'v'#17'BorderSpacing.Top'#2#8#8'TabOrder'#2
+#2#0#0#0#9'TGroupBox'#9'GroupBox2'#22'AnchorSideLeft.Control'#7#5'Owner'#23
+'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'
+#4'Left'#2#12#6'Height'#2'y'#3'Top'#3#152#0#5'Width'#3'o'#1#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#12#17
+'BorderSpacing.Top'#2#24#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Botto'
+'m'#2#12#7'Caption'#6'. Registration Code Verification (client site) '#12'Cl'
+'ientHeight'#2'e'#11'ClientWidth'#3'k'#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label'
+'4'#21'AnchorSideTop.Control'#7#12'edtUserName2'#18'AnchorSideTop.Side'#7#9
+'asrCenter'#23'AnchorSideRight.Control'#7#6'Label5'#20'AnchorSideRight.Side'
,#7#9'asrBottom'#4'Left'#2'0'#6'Height'#2#15#3'Top'#2''''#5'Width'#2'='#9'Ali'
+'gnment'#7#14'taRightJustify'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'
+#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#22'AnchorSideLef'
+'t.Control'#7#9'GroupBox2'#21'AnchorSideTop.Control'#7#11'edtRegCode2'#18'An'
+'chorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#2#8#5'W'
+'idth'#2'a'#9'Alignment'#7#14'taRightJustify'#18'BorderSpacing.Left'#2#12#7
+'Caption'#6#18'Registration Code:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'
+#21'AnchorSideTop.Control'#7#9'edtStatus'#18'AnchorSideTop.Side'#7#9'asrCent'
+'er'#23'AnchorSideRight.Control'#7#6'Label4'#20'AnchorSideRight.Side'#7#9'as'
+'rBottom'#4'Left'#2'J'#6'Height'#2#15#3'Top'#2'F'#5'Width'#2'#'#9'Alignment'
+#7#14'taRightJustify'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#7'Sta'
+'tus:'#11'ParentColor'#8#0#0#12'TSpeedButton'#9'btnVerify'#22'AnchorSideLeft'
+'.Control'#7#9'edtStatus'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSi'
+'deTop.Control'#7#9'edtStatus'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'
+#3#254#0#6'Height'#2#22#4'Hint'#6#24'Verify Registration Code'#3'Top'#2'B'#5
+'Width'#2#23#18'BorderSpacing.Left'#2#4#20'BorderSpacing.Bottom'#2#12#10'Gly'
+'ph.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#16#0#0#0#0#0#0#0#0#0#0#0
+#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128
+#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0
+#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136
+#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0
+#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
+#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#128#0#0#136#8#136#128
+#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0
+#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152#144#8#136#136#136#128#0#0#0#136
+#128#0#0#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136
+#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+#136#128#0#0#0#7'OnClick'#7#14'btnVerifyClick'#8'ShowHint'#9#14'ParentShowHi'
+'nt'#8#0#0#5'TEdit'#12'edtUserName2'#22'AnchorSideLeft.Control'#7#11'edtRegC'
+'ode2'#21'AnchorSideTop.Control'#7#11'edtRegCode2'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.Si'
+'de'#7#9'asrBottom'#4'Left'#2'y'#6'Height'#2#23#3'Top'#2'#'#5'Width'#3#230#0
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#8#19
+'BorderSpacing.Right'#2#12#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode2'#22'A'
+'nchorSideLeft.Control'#7#6'Label5'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'AnchorSideTop.Control'#7#9'GroupBox2'#23'AnchorSideRight.Control'#7#9'Group'
+'Box2'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'y'#6'Height'#2#23#3
+'Top'#2#4#5'Width'#3#230#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18
+'BorderSpacing.Left'#2#12#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2
+#12#8'TabOrder'#2#1#0#0#5'TEdit'#9'edtStatus'#22'AnchorSideLeft.Control'#7#11
+'edtRegCode2'#21'AnchorSideTop.Control'#7#12'edtUserName2'#18'AnchorSideTop.'
+'Side'#7#9'asrBottom'#4'Left'#2'y'#6'Height'#2#23#3'Top'#2'B'#5'Width'#3#129
+#0#17'BorderSpacing.Top'#2#8#20'BorderSpacing.Bottom'#2#12#5'Color'#7#9'clBt'
+'nFace'#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#0
]);

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

@ -49,7 +49,8 @@ uses
const
EncryptionKey : TKey = ($E5, $8F, $84, $D6, $92, $C9, $A4, $D8,
$1A, $FA, $6F, $8D, $AB, $FC, $DF, $B4);
const
DATE_FORMAT = 'yyyy-mm-dd';
procedure TfrmExRegCode.btnGenerateClick(Sender: TObject);
var
@ -57,8 +58,13 @@ var
Code : TCode;
Modifier : Longint;
D : TDateTime;
var
fs: TFormatSettings;
begin
D := StrToDate(edDate.Text);
fs := FormatSettings;
fs.ShortDateFormat := 'yyyy/mm/dd';
fs.DateSeparator := '-';
D := StrToDate(edDate.Text, fs);
Key := EncryptionKey;
Modifier := StringHashELF(edtUserName1.Text);
ApplyModifierToKeyPrim(Modifier, Key, SizeOf(Key));
@ -87,9 +93,13 @@ begin
end;
procedure TfrmExRegCode.FormCreate(Sender: TObject);
var
fs: TFormatSettings;
begin
ShortDateFormat := 'yyyy-mm-dd';
edDate.Text := DateToStr(Now);
fs := FormatSettings;
fs.ShortDateFormat := 'yyyy/mm/dd';
fs.DateSeparator := '-';
edDate.Text := DateToStr(Now, fs);
end;
initialization

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

@ -1,63 +1,86 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="exrgreg.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="48" Y="7"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exrgregu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="exrgregu"/>
<CursorPos X="59" Y="108"/>
<TopLine Value="80"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<TopLine Value="80"/>
<CursorPos X="59" Y="108"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="exrgregu.pas"/>
<Caret Line="108" Column="59" TopLine="80"/>
</Position1>
<Position2>
<Filename Value="exrgregu.pas"/>
<Caret Line="107" Column="59" TopLine="79"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -70,7 +93,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -78,9 +101,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -7,6 +7,8 @@ uses
exrgregu in 'exrgregu.pas' {Form1}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -5,94 +5,121 @@ object Form1: TForm1
Width = 493
HorzScrollBar.Page = 492
VertScrollBar.Page = 307
AutoSize = True
BorderStyle = bsDialog
Caption = 'Registration Code Example'
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 308
ClientWidth = 493
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
Left = 8
Height = 13
Top = 262
Width = 35
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 246
Width = 32
BorderSpacing.Bottom = 12
Caption = 'Status'
Color = clNone
ParentColor = False
end
object Label1: TLabel
Left = 232
Height = 13
Top = 14
Width = 77
AnchorSideLeft.Control = CodeBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 181
Height = 15
Top = 17
Width = 72
BorderSpacing.Left = 80
Caption = 'Current code:'
Color = clNone
ParentColor = False
end
object CodeLbl: TLabel
Left = 320
Height = 13
Top = 14
Width = 113
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 277
Height = 15
Top = 17
Width = 96
BorderSpacing.Left = 24
Caption = '0000000000000000'
Color = clNone
ParentColor = False
end
object CodeBtn: TButton
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 25
Top = 8
Top = 12
Width = 89
BorderSpacing.Around = 12
BorderSpacing.InnerBorder = 4
Caption = 'Enter Code'
OnClick = CodeBtnClick
TabOrder = 0
end
object Memo1: TMemo
Left = 8
Height = 209
Top = 40
Width = 465
Color = clBtnFace
Lines.Strings = (
'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
'the code is either the incorrect type or that none has been entered. '
''
'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
'say that the code is invalid.'
''
'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
'the proper "Usage" code). '
''
'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
'will cause the TOgRegistrationCode component to report that the code is invalid.'
)
ReadOnly = True
object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 406
Height = 25
Top = 241
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Kind = bkClose
TabOrder = 1
end
object CloseBtn: TBitBtn
Left = 400
Height = 25
Top = 256
Width = 75
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
end
object RemoveBtn: TButton
Left = 288
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CloseBtn
Left = 305
Height = 25
Top = 256
Top = 241
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
BorderSpacing.Right = 4
BorderSpacing.Bottom = 12
BorderSpacing.InnerBorder = 4
Caption = 'Remove Code'
OnClick = RemoveBtnClick
TabOrder = 3
TabOrder = 2
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 180
Top = 49
Width = 469
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgRegistrationCode component to report that the code is invalid.'
Color = clBtnFace
ParentColor = False
WordWrap = True
end
object OgRegistrationCode1: TOgRegistrationCode
OnChecked = CodeChecked
OnGetKey = GetKey
OnGetCode = GetCode
left = 16
top = 208
Left = 128
Top = 208
end
end

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

@ -1,34 +1,53 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'4'#1#3'Top'#3#138#0#5'W'
+'idth'#3#237#1#18'HorzScrollBar.Page'#3#236#1#18'VertScrollBar.Page'#3'3'#1
+#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25'Registration Code Example'#11
+'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScre'
+'enCenter'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#6#1#5
+'Width'#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
+#0#6'TLabel'#6'Label1'#4'Left'#3#232#0#6'Height'#2#13#3'Top'#2#14#5'Width'#2
+'M'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+#6'TLabel'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13#3'Top'#2#14#5'Width'#2'q'
+#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+#7'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#25
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12
+'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#3
+#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFace'#13'Lines.Strings'
+#1#6'fThe label at the bottom of this form indicates the status of the code.'
+' An invalid code indicates that '#6'Ethe code is either the incorrect type '
+'or that none has been entered. '#6#0#6'^If the proper code has not been ent'
+'ered or the ONGUARD.INI file was deleted, the message will '#6#29'say that '
+'the code is invalid.'#6#0#6'YUse the "Enter Code" button to enter a code (t'
+'he CODEGEN program can be used to generate '#6#26'the proper "Usage" code).'
+' '#6#0#6'\The "Remove Code" button can be used to remove the entered code f'
+'rom the INI file. Doing so '#6'Pwill cause the TOgRegistrationCode componen'
+'t to report that the code is invalid.'#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7
+'TBitBtn'#8'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2
+'K'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TButton'#9'R'
+'emoveBtn'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'a'#25'Borde'
+'rSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'Remo'
+'veBtnClick'#8'TabOrder'#2#3#0#0#19'TOgRegistrationCode'#19'OgRegistrationCo'
+'de1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7
+'GetCode'#4'left'#2#16#3'top'#3#208#0#0#0#0
+'idth'#3#237#1#18'HorzScrollBar.Page'#3#236#1#18'VertScrollBar.Page'#3'3'#1#8
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25'Registration Code'
+' Example'#12'ClientHeight'#3'4'#1#11'ClientWidth'#3#237#1#8'Position'#7#14
+'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'Anc'
+'horSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#246
+#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Caption'#6#6'Status'#5'Colo'
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.'
+'Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
+'op.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#181
+#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2'H'#18'BorderSpacing.Left'#2'P'#7'Ca'
+'ption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLa'
+'bel'#7'CodeLbl'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLeft.Si'
+'de'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.'
+'Side'#7#9'asrCenter'#4'Left'#3#21#1#6'Height'#2#15#3'Top'#2#17#5'Width'#2'`'
+#18'BorderSpacing.Left'#2#24#7'Caption'#6#16'0000000000000000'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#22'AnchorSideLeft.Contr'
+'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2
+#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpacing.Around'#2#12#25'BorderSpacing'
+'.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12'CodeBtnClick'
+#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#5'Me'
+'mo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#150#1#6'Height'#2
+#25#3'Top'#3#241#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Bord'
+'erSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8
+'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#5'Mem'
+'o1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#8'C'
+'loseBtn'#4'Left'#3'1'#1#6'Height'#2#25#3'Top'#3#241#0#5'Width'#2'a'#7'Ancho'
+'rs'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#12#19'BorderSpacing.Ri'
+'ght'#2#4#20'BorderSpacing.Bottom'#2#12#25'BorderSpacing.InnerBorder'#2#4#7
+'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0
+#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop'
+'.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideR'
+'ight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
+#12#6'Height'#3#180#0#3'Top'#2'1'#5'Width'#3#213#1#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#12'Q'#2#0#0'T'
+'he label at the bottom of this form indicates the status of the code. An in'
+'valid code indicates that the code is either the incorrect type or that non'
+'e has been entered. '#13#10#13#10'If the proper code has not been entered o'
+'r the ONGUARD.INI file was deleted, the message will say that the code is i'
+'nvalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEG'
+'EN program can be used to generate the proper "Usage" code). '#13#10#13#10
+'The "Remove Code" button can be used to remove the entered code from the IN'
+'I file. Doing so will cause the TOgRegistrationCode component to report tha'
+'t the code is invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWra'
+'p'#9#0#0#19'TOgRegistrationCode'#19'OgRegistrationCode1'#9'OnChecked'#7#11
+'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#4'Left'#3#128
+#0#3'Top'#3#208#0#0#0#0
]);

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

@ -14,8 +14,8 @@ type
TForm1 = class(TForm)
CodeBtn: TButton;
Memo1: TMemo;
CloseBtn: TBitBtn;
Memo1: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

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

@ -1,26 +1,35 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<Item1>
@ -32,23 +41,26 @@
<Unit0>
<Filename Value="exrgstr.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Exrgstr"/>
<CursorPos X="48" Y="7"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exrgstru.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exrgstru"/>
<CursorPos X="23" Y="89"/>
<TopLine Value="74"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<TopLine Value="65"/>
<CursorPos Y="92"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="8" HistoryIndex="7">
@ -58,7 +70,6 @@
</Position1>
<Position2>
<Filename Value="exrgstru.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="exrgstru.pas"/>
@ -87,10 +98,11 @@
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -103,7 +115,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -111,9 +123,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -7,6 +7,8 @@ uses
Exrgstru in 'EXRGSTRU.PAS' {Form1}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -7,45 +7,58 @@ object Form1: TForm1
ClientHeight = 192
ClientWidth = 262
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '2.3.0.0'
object Label1: TLabel
Left = 69
Height = 14
Top = 98
Width = 67
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
Left = 95
Height = 15
Top = 103
Width = 72
Alignment = taCenter
BorderSpacing.Top = 6
Caption = 'Registered to:'
ParentColor = False
end
object Memo1: TMemo
Left = 13
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 12
Height = 79
Top = 10
Width = 223
Top = 12
Width = 238
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12
Lines.Strings = (
'If you can edit this, then your program was '
'allowed to run'
'If you can edit this, then your program was allowed to run'
)
ScrollBars = ssVertical
TabOrder = 0
end
object CloseBtn: TBitBtn
Left = 75
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 87
Height = 33
Top = 116
Top = 130
Width = 89
BorderSpacing.Top = 12
BorderSpacing.Bottom = 12
Kind = bkClose
NumGlyphs = 0
TabOrder = 1
end
object OgRegistrationCode1: TOgRegistrationCode
OnChecked = OgRegistrationCode1Checked
OnGetKey = OgRegistrationCode1GetKey
OnGetCode = OgRegistrationCode1GetCode
left = 165
top = 118
Left = 104
Top = 40
end
end

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

@ -1,18 +1,25 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'-'#1#6'Height'#3#192#0#3'Top'#3#218#0#5'W'
+'idth'#3#6#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3#192#0#11'ClientWidth'#3
+#6#1#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS '
+'Sans Serif'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6
+'TLabel'#6'Label1'#4'Left'#2'E'#6'Height'#2#14#3'Top'#2'b'#5'Width'#2'C'#9'A'
+'lignment'#7#8'taCenter'#7'Caption'#6#14'Registered to:'#11'ParentColor'#8#0
+#0#5'TMemo'#5'Memo1'#4'Left'#2#13#6'Height'#2'O'#3'Top'#2#10#5'Width'#3#223#0
+#13'Lines.Strings'#1#6',If you can edit this, then your program was '#6#14'a'
+'llowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBit'
+'Btn'#8'CloseBtn'#4'Left'#2'K'#6'Height'#2'!'#3'Top'#2't'#5'Width'#2'Y'#4'Ki'
+'nd'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgRegistrationCod'
+'e'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistrationCode1Checked'#8
+'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26'OgRegistrationC'
+'ode1GetCode'#4'left'#3#165#0#3'top'#2'v'#0#0#0
+#6#1#10'Font.Color'#7#7'clBlack'#8'Position'#7#14'poScreenCenter'#10'LCLVers'
+'ion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owne'
+'r'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Mem'
+'o1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'_'#6'Height'#2#15#3'Top'
+#2'g'#5'Width'#2'H'#9'Alignment'#7#8'taCenter'#17'BorderSpacing.Top'#2#6#7'C'
+'aption'#6#14'Registered to:'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#22'Anc'
+'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'Anc'
+'horSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#2#12#6'Height'#2'O'#3'Top'#2#12#5'Width'#3#238#0#7'Anchors'#11#5'akTo'
+'p'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#13'Lines.Strings'#1
+#6':If you can edit this, then your program was allowed to run'#0#10'ScrollB'
+'ars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorS'
+'ideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'Ancho'
+'rSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#2'W'#6'Height'#2'!'#3'Top'#3#130#0#5'Width'#2'Y'#17'BorderSpacing.Top'#2#12
+#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#19'T'
+'OgRegistrationCode'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistratio'
+'nCode1Checked'#8'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26
+'OgRegistrationCode1GetCode'#4'Left'#2'h'#3'Top'#2'('#0#0#0
]);

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

@ -3,49 +3,47 @@ object Form1: TForm1
Height = 266
Top = 322
Width = 357
ActiveControl = Memo1
AutoSize = True
Caption = 'ExSelAPI: '
ClientHeight = 246
ClientHeight = 266
ClientWidth = 357
Font.Height = -11
Font.Name = 'MS Sans Serif'
Menu = MainMenu1
OnCreate = FormCreate
LCLVersion = '0.9.27'
object Memo1: TMemo
Left = 16
Height = 145
Top = 8
Width = 313
Color = clAqua
Lines.Strings = (
' This example uses the OgUsageCode and the OgSpecialCode'
' (via OnGuard API functions) to implement a limited use'
' "demo" application which allows only the required features.'
' The program can be run 3 times and then a special code'
' must be obtained to register the program and to enable'
' various features. A machine modifier is used to prevent'
' the application from being copied and run on another'
' machine. To obtain the release code you need to run the'
' companion example EXSLCODE. The release codes will be '
' stored in a data file called EXSELECT.DAT'
)
ReadOnly = True
TabOrder = 0
end
LCLVersion = '2.3.0.0'
object ModifyBtn: TButton
Left = 120
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
Left = 122
Height = 25
Top = 176
Top = 182
Width = 113
BorderSpacing.Bottom = 16
BorderSpacing.InnerBorder = 4
Caption = 'Modify Features'
OnClick = ModifyBtnClick
TabOrder = 1
TabOrder = 0
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 150
Top = 16
Width = 325
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 16
Caption = 'This example uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) to implement a limited use "demo" application which allows only the required features. The program can be run 3 times and then a special code st be obtained to register the program and to enable various features. A machine modifier is used to prevent the application from being copied and run on another machine. To obtain the release code you need to run the companion example EXSLCODE. The release codes will be stored in a data file called EXSELECT.DAT'
Color = clAqua
ParentColor = False
WordWrap = True
end
object MainMenu1: TMainMenu
left = 32
top = 168
Left = 32
Top = 168
object FeaturesMenu: TMenuItem
Caption = 'Features'
object FeaturesRequired: TMenuItem

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

@ -1,29 +1,33 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#150#1#6'Height'#3#10#1#3'Top'#3'B'#1#5'Wi'
+'dth'#3'e'#1#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#10'ExSelAPI: '#12'Cli'
+'entHeight'#3#246#0#11'ClientWidth'#3'e'#1#11'Font.Height'#2#245#9'Font.Name'
+#6#13'MS Sans Serif'#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'#10
+'LCLVersion'#6#6'0.9.27'#0#5'TMemo'#5'Memo1'#4'Left'#2#16#6'Height'#3#145#0#3
+'Top'#2#8#5'Width'#3'9'#1#5'Color'#7#6'clAqua'#13'Lines.Strings'#1#6': Thi'
+'s example uses the OgUsageCode and the OgSpecialCode'#6'9 (via OnGuard AP'
+'I functions) to implement a limited use'#6'> "demo" application which all'
+'ows only the required features.'#6'9 The program can be run 3 times and t'
+'hen a special code'#6'9 must be obtained to register the program and to e'
+'nable'#6'; various features. A machine modifier is used to prevent'#6'7 '
+' the application from being copied and run on another'#6'; machine. To '
+'obtain the release code you need to run the'#6': companion example EXSLCO'
+'DE. The release codes will be '#6', stored in a data file called EXSELEC'
+'T.DAT'#0#8'ReadOnly'#9#8'TabOrder'#2#0#0#0#7'TButton'#9'ModifyBtn'#4'Left'#2
+'x'#6'Height'#2#25#3'Top'#3#176#0#5'Width'#2'q'#25'BorderSpacing.InnerBorder'
+#2#4#7'Caption'#6#15'Modify Features'#7'OnClick'#7#14'ModifyBtnClick'#8'TabO'
+'rder'#2#1#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2' '#3'top'#3#168#0#0#9'TMe'
+'nuItem'#12'FeaturesMenu'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'Feature'
+'sRequired'#7'Caption'#6#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'Featur'
+'esHelp'#7'Caption'#6#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamp'
+'les'#7'Caption'#6#8'Examples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesData'
+'base'#7'Caption'#6#8'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'
+#7'Caption'#6#3'Fax'#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Cap'
+'tion'#6#7'Goodies'#7'Enabled'#8#0#0#0#0#0
+'dth'#3'e'#1#8'AutoSize'#9#7'Caption'#6#10'ExSelAPI: '#12'ClientHeight'#3#10
+#1#11'ClientWidth'#3'e'#1#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'
+#10'LCLVersion'#6#7'2.3.0.0'#0#7'TButton'#9'ModifyBtn'#22'AnchorSideLeft.Con'
+'trol'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Co'
+'ntrol'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'z'#6'Heig'
+'ht'#2#25#3'Top'#3#182#0#5'Width'#2'q'#20'BorderSpacing.Bottom'#2#16#25'Bord'
+'erSpacing.InnerBorder'#2#4#7'Caption'#6#15'Modify Features'#7'OnClick'#7#14
+'ModifyBtnClick'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Co'
+'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.C'
+'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#16#6'H'
+'eight'#3#150#0#3'Top'#2#16#5'Width'#3'E'#1#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#0#20'BorderSpacing.Around'#2#16#7'Caption'#12#30#2#0#0'This exam'
+'ple uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) '
+'to implement a limited use "demo" application which allows only the require'
+'d features. The program can be run 3 times and then a special code st be ob'
+'tained to register the program and to enable various features. A machine m'
+'odifier is used to prevent the application from being copied and run on ano'
+'ther machine. To obtain the release code you need to run the companion exa'
+'mple EXSLCODE. The release codes will be stored in a data file called EXSE'
+'LECT.DAT'#5'Color'#7#6'clAqua'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'TMainM'
+'enu'#9'MainMenu1'#4'Left'#2' '#3'Top'#3#168#0#0#9'TMenuItem'#12'FeaturesMen'
+'u'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesRequired'#7'Caption'#6
+#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'FeaturesHelp'#7'Caption'#6#4'H'
+'elp'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamples'#7'Caption'#6#8'Exam'
+'ples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDatabase'#7'Caption'#6#8'Dat'
+'abase'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7'Caption'#6#3'Fax'#7
+'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Caption'#6#7'Goodies'#7'E'
+'nabled'#8#0#0#0#0#0
]);

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

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

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

@ -1,42 +1,55 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="9">
<Unit0>
<Filename Value="exselapi.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Exselapi"/>
<EditorIndex Value="1"/>
<CursorPos X="37" Y="9"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exselap1.pas"/>
@ -45,59 +58,57 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exselap1"/>
<CursorPos X="3" Y="71"/>
<IsVisibleTab Value="True"/>
<TopLine Value="50"/>
<EditorIndex Value="1"/>
<CursorPos X="57" Y="68"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../source/ogutil.pas"/>
<UnitName Value="ogutil"/>
<CursorPos X="1" Y="112"/>
<TopLine Value="108"/>
<CursorPos Y="112"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="../../source/onguard.pas"/>
<UnitName Value="onguard"/>
<CursorPos X="25" Y="1192"/>
<TopLine Value="1179"/>
<CursorPos X="25" Y="1192"/>
<UsageCount Value="11"/>
</Unit3>
<Unit4>
<Filename Value="../../source/ogproexe.pas"/>
<UnitName Value="ogproexe"/>
<CursorPos X="63" Y="711"/>
<TopLine Value="693"/>
<CursorPos X="63" Y="711"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="../../../../fpcfix/fpc/rtl/unix/sysunixh.inc"/>
<CursorPos X="2" Y="30"/>
<TopLine Value="13"/>
<CursorPos X="2" Y="30"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="../../../../fpcfix/fpc/rtl/inc/systemh.inc"/>
<CursorPos X="32" Y="71"/>
<TopLine Value="47"/>
<CursorPos X="32" Y="71"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="../../../../fpcfix/fpc/rtl/objpas/sysutils/filutilh.inc"/>
<CursorPos X="3" Y="69"/>
<TopLine Value="52"/>
<CursorPos X="3" Y="69"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="../../../../../../temp/fpc/rtl/inc/systemh.inc"/>
<CursorPos X="11" Y="882"/>
<TopLine Value="861"/>
<CursorPos X="11" Y="882"/>
<UsageCount Value="10"/>
</Unit8>
</Units>
<JumpHistory Count="6" HistoryIndex="5">
<JumpHistory Count="7" HistoryIndex="6">
<Position1>
<Filename Value="exselap1.pas"/>
<Caret Line="155" Column="45" TopLine="43"/>
@ -112,23 +123,27 @@
</Position3>
<Position4>
<Filename Value="exselap1.pas"/>
<Caret Line="120" Column="67" TopLine="211"/>
<Caret Line="93" Column="12" TopLine="61"/>
</Position4>
<Position5>
<Filename Value="exselap1.pas"/>
<Caret Line="93" Column="12" TopLine="61"/>
</Position5>
<Position6>
<Filename Value="exselap1.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
<Caret Line="71" Column="3" TopLine="50"/>
</Position6>
<Position7>
<Filename Value="exselap1.pas"/>
<Caret Line="70" Column="3" TopLine="49"/>
</Position7>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -141,7 +156,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -149,17 +164,20 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="2">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="exselap1.pas"/>
<Line Value="114"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../source/onguard.pas"/>
<Line Value="1010"/>
</Item2>

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

@ -9,6 +9,8 @@ uses
Exselap1 in 'EXSELAP1.PAS' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -5,47 +5,48 @@ object Form1: TForm1
Width = 369
HorzScrollBar.Page = 368
VertScrollBar.Page = 249
ActiveControl = Memo1
AutoSize = True
Caption = 'ExSelect: '
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 274
ClientWidth = 369
Menu = MainMenu1
OnCreate = FormCreate
object Memo1: TMemo
Left = 16
Height = 145
Top = 8
Width = 329
Color = clAqua
Lines.Strings = (
' This example uses the TOgUsageCode and the TOgSpecialCode'
' components to implement a limited use "demo" application'
' which allows only the required features. The program can be '
' run 3 times and then a special code must be obtained to '
' register the program and to enable various features. A'
' machine modifier is used to prevent the application from being '
' copied and run on another machine. To obtain the release '
' release code you need to run the companion example '
' EXSLCODE. The release codes will be stored in a data file '
' called EXSELECT.DAT'
)
ReadOnly = True
TabOrder = 0
end
LCLVersion = '2.3.0.0'
object ModifyBtn: TButton
Left = 120
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
Left = 128
Height = 25
Top = 176
Top = 182
Width = 113
BorderSpacing.Bottom = 16
BorderSpacing.InnerBorder = 4
Caption = 'Modify Features'
Enabled = False
OnClick = ModifyBtnClick
TabOrder = 1
TabOrder = 0
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 150
Top = 16
Width = 337
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 16
Caption = ' This example uses the TOgUsageCode and the TOgSpecialCode components to implement a limited use "demo" application which allows only the required features. The program can be run 3 times and then a special code must be obtained to register the program and to enable various features. A machine modifier is used to prevent the application from being copied and run on another machine. To obtain the release release code you need to run the companion example EXSLCODE. The release codes will be stored in a data file called EXSELECT.DAT'
Color = clAqua
ParentColor = False
WordWrap = True
end
object MainMenu1: TMainMenu
left = 32
top = 168
Left = 32
Top = 168
object FeaturesMenu: TMenuItem
Caption = 'Features'
object FeaturesRequired: TMenuItem
@ -81,8 +82,8 @@ object Form1: TForm1
OnGetCode = OgUsageCode1GetCode
AutoDecrease = False
OnChangeCode = OgUsageCode1ChangeCode
left = 168
top = 48
Left = 168
Top = 48
end
object OgSpecialCode1: TOgSpecialCode
AutoCheck = False
@ -90,7 +91,7 @@ object Form1: TForm1
OnGetKey = OgSpecialCode1GetKey
OnGetCode = OgSpecialCode1GetCode
OnGetModifier = OgSpecialCode1GetModifier
left = 168
top = 16
Left = 168
Top = 16
end
end

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

@ -1,36 +1,41 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#31#1#6'Height'#3#18#1#3'Top'#2'f'#5'Width'
+#3'q'#1#18'HorzScrollBar.Page'#3'p'#1#18'VertScrollBar.Page'#3#249#0#13'Acti'
+'veControl'#7#5'Memo1'#7'Caption'#6#10'ExSelect: '#11'Font.Height'#2#245#9'F'
+'ont.Name'#6#13'MS Sans Serif'#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormC'
+'reate'#0#5'TMemo'#5'Memo1'#4'Left'#2#16#6'Height'#3#145#0#3'Top'#2#8#5'Widt'
+'h'#3'I'#1#5'Color'#7#6'clAqua'#13'Lines.Strings'#1#6'< This example uses '
+'the TOgUsageCode and the TOgSpecialCode'#6'; components to implement a li'
+'mited use "demo" application'#6'@ which allows only the required features'
+'. The program can be '#6'< run 3 times and then a special code must be '
+'obtained to '#6': register the program and to enable various features. A'
+#6'B machine modifier is used to prevent the application from being '#6'= '
+' copied and run on another machine. To obtain the release '#6'6 release'
+' code you need to run the companion example '#6'> EXSLCODE. The release '
+'codes will be stored in a data file '#6#22' called EXSELECT.DAT'#0#8'Read'
+'Only'#9#8'TabOrder'#2#0#0#0#7'TButton'#9'ModifyBtn'#4'Left'#2'x'#6'Height'#2
+#25#3'Top'#3#176#0#5'Width'#2'q'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+#6#15'Modify Features'#7'Enabled'#8#7'OnClick'#7#14'ModifyBtnClick'#8'TabOrd'
+'er'#2#1#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2' '#3'top'#3#168#0#0#9'TMenu'
+'Item'#12'FeaturesMenu'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesR'
+'equired'#7'Caption'#6#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'Features'
+'Help'#7'Caption'#6#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExample'
+'s'#7'Caption'#6#8'Examples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDataba'
+'se'#7'Caption'#6#8'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7
+'Caption'#6#3'Fax'#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Capti'
+'on'#6#7'Goodies'#7'Enabled'#8#0#0#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'A'
+'utoCheck'#8#9'OnChecked'#7#19'OgUsageCode1Checked'#8'OnGetKey'#7#18'OgUsage'
+'Code1GetKey'#9'OnGetCode'#7#19'OgUsageCode1GetCode'#12'AutoDecrease'#8#12'O'
+'nChangeCode'#7#22'OgUsageCode1ChangeCode'#4'left'#3#168#0#3'top'#2'0'#0#0#14
+'TOgSpecialCode'#14'OgSpecialCode1'#9'AutoCheck'#8#9'OnChecked'#7#21'OgSpeci'
+'alCode1Checked'#8'OnGetKey'#7#20'OgSpecialCode1GetKey'#9'OnGetCode'#7#21'Og'
+'SpecialCode1GetCode'#13'OnGetModifier'#7#25'OgSpecialCode1GetModifier'#4'le'
+'ft'#3#168#0#3'top'#2#16#0#0#0
+#3'q'#1#18'HorzScrollBar.Page'#3'p'#1#18'VertScrollBar.Page'#3#249#0#8'AutoS'
+'ize'#9#7'Caption'#6#10'ExSelect: '#12'ClientHeight'#3#18#1#11'ClientWidth'#3
+'q'#1#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#7
+'2.3.0.0'#0#7'TButton'#9'ModifyBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19
+'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Memo1'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#128#0#6'Height'#2#25#3'Top'#3
+#182#0#5'Width'#2'q'#20'BorderSpacing.Bottom'#2#16#25'BorderSpacing.InnerBor'
+'der'#2#4#7'Caption'#6#15'Modify Features'#7'Enabled'#8#7'OnClick'#7#14'Modi'
+'fyBtnClick'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contro'
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Contr'
+'ol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#16#6'Heigh'
+'t'#3#150#0#3'Top'#2#16#5'Width'#3'Q'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'kRight'#0#20'BorderSpacing.Around'#2#16#7'Caption'#12#31#2#0#0' This exam'
+'ple uses the TOgUsageCode and the TOgSpecialCode components to implement a'
+' limited use "demo" application which allows only the required features. T'
+'he program can be run 3 times and then a special code must be obtained to '
+'register the program and to enable various features. A machine modifier is'
+' used to prevent the application from being copied and run on another machi'
+'ne. To obtain the release release code you need to run the companion examp'
+'le EXSLCODE. The release codes will be stored in a data file called EXSELE'
+'CT.DAT'#5'Color'#7#6'clAqua'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'TMainMen'
+'u'#9'MainMenu1'#4'Left'#2' '#3'Top'#3#168#0#0#9'TMenuItem'#12'FeaturesMenu'
+#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesRequired'#7'Caption'#6#8
+'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'FeaturesHelp'#7'Caption'#6#4'Hel'
+'p'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamples'#7'Caption'#6#8'Exampl'
+'es'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDatabase'#7'Caption'#6#8'Datab'
+'ase'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7'Caption'#6#3'Fax'#7'En'
+'abled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Caption'#6#7'Goodies'#7'Ena'
+'bled'#8#0#0#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'AutoCheck'#8#9'OnChecke'
+'d'#7#19'OgUsageCode1Checked'#8'OnGetKey'#7#18'OgUsageCode1GetKey'#9'OnGetCo'
+'de'#7#19'OgUsageCode1GetCode'#12'AutoDecrease'#8#12'OnChangeCode'#7#22'OgUs'
+'ageCode1ChangeCode'#4'Left'#3#168#0#3'Top'#2'0'#0#0#14'TOgSpecialCode'#14'O'
+'gSpecialCode1'#9'AutoCheck'#8#9'OnChecked'#7#21'OgSpecialCode1Checked'#8'On'
+'GetKey'#7#20'OgSpecialCode1GetKey'#9'OnGetCode'#7#21'OgSpecialCode1GetCode'
+#13'OnGetModifier'#7#25'OgSpecialCode1GetModifier'#4'Left'#3#168#0#3'Top'#2
+#16#0#0#0
]);

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

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

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

@ -1,69 +1,92 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="3">
<Unit0>
<Filename Value="exselect.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="48" Y="8"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exselec1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exselec1"/>
<CursorPos X="36" Y="313"/>
<TopLine Value="289"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<IsVisibleTab Value="True"/>
<TopLine Value="290"/>
<CursorPos X="22" Y="300"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="exselec1.lrs"/>
<CursorPos X="24" Y="5"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit2>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="exselec1.pas"/>
<Caret Line="300" Column="22" TopLine="290"/>
</Position1>
<Position2>
<Filename Value="exselec1.pas"/>
<Caret Line="299" Column="22" TopLine="289"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -76,7 +99,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -84,9 +107,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -8,6 +8,8 @@ uses
Exselec1 in 'EXSELEC1.PAS' {Form1}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -1,111 +1,166 @@
object Form1: TForm1
ActiveControl = MachineID
Caption = ' Special Code Generator '
ClientHeight = 243
ClientWidth = 288
Font.Height = -11
Font.Name = 'MS Sans Serif'
PixelsPerInch = 96
HorzScrollBar.Page = 287
VertScrollBar.Page = 242
Left = 237
Height = 243
Top = 152
Width = 288
HorzScrollBar.Page = 287
VertScrollBar.Page = 242
ActiveControl = MachineID
AutoSize = True
BorderStyle = bsDialog
Caption = ' Special Code Generator '
ClientHeight = 243
ClientWidth = 288
LCLVersion = '2.3.0.0'
object Label1: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = MachineID
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 20
Width = 60
Caption = 'Machine ID'
Color = clNone
ParentColor = False
Left = 35
Height = 14
Top = 20
Width = 54
end
object GenBtn: TButton
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
Left = 16
Height = 25
Top = 161
Width = 96
BorderSpacing.Top = 16
BorderSpacing.Bottom = 16
BorderSpacing.InnerBorder = 4
Caption = 'Generate Code'
OnClick = GenBtnClick
TabOrder = 1
Left = 18
Height = 25
Top = 176
Width = 89
end
object MachineID: TEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 16
Width = 150
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 24
BorderSpacing.Top = 16
MaxLength = 8
TabOrder = 0
Left = 123
Height = 21
Top = 16
Width = 89
end
object GroupBox1: TGroupBox
Caption = 'Features'
ClientHeight = 79
ClientWidth = 221
TabOrder = 2
Left = 24
Height = 97
AnchorSideLeft.Control = Owner
Left = 16
Height = 89
Top = 56
Width = 225
Width = 234
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Right = 16
Caption = 'Features'
ClientHeight = 69
ClientWidth = 230
TabOrder = 2
object ReqFeat: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 32
Height = 19
Top = 0
Width = 65
BorderSpacing.Left = 32
Caption = 'Required'
Checked = True
Enabled = False
State = cbChecked
TabOrder = 0
Left = 16
Height = 17
Top = 24
Width = 81
end
object HelpFeat: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = ReqFeat
AnchorSideTop.Side = asrBottom
Left = 32
Height = 19
Top = 19
Width = 43
BorderSpacing.Left = 32
Caption = 'Help'
TabOrder = 1
Left = 16
Height = 17
Top = 40
Width = 81
end
object ExamplesFeat: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = HelpFeat
AnchorSideTop.Side = asrBottom
Left = 32
Height = 19
Top = 38
Width = 68
BorderSpacing.Left = 32
BorderSpacing.Bottom = 12
Caption = 'Examples'
TabOrder = 2
Left = 16
Height = 17
Top = 56
Width = 81
end
object DBFeat: TCheckBox
AnchorSideLeft.Control = ExamplesFeat
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ReqFeat
Left = 132
Height = 19
Top = 0
Width = 66
BorderSpacing.Left = 32
BorderSpacing.Right = 32
Caption = 'Database'
TabOrder = 3
Left = 120
Height = 17
Top = 24
Width = 81
end
object FaxFeat: TCheckBox
AnchorSideLeft.Control = ExamplesFeat
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = HelpFeat
Left = 132
Height = 19
Top = 19
Width = 36
BorderSpacing.Left = 32
Caption = 'Fax'
TabOrder = 4
Left = 120
Height = 17
Top = 40
Width = 81
end
object GoodiesFeat: TCheckBox
AnchorSideLeft.Control = ExamplesFeat
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExamplesFeat
Left = 132
Height = 19
Top = 38
Width = 61
BorderSpacing.Left = 32
BorderSpacing.Right = 32
Caption = 'Goodies'
TabOrder = 5
Left = 120
Height = 17
Top = 56
Width = 81
end
end
object CodeDisplay: TEdit
AnchorSideLeft.Control = GenBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GenBtn
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 124
Height = 23
Top = 162
Width = 126
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Bottom = 16
Color = clAqua
TabOrder = 3
Left = 123
Height = 21
Top = 178
Width = 126
end
end

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

@ -1,27 +1,56 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'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
+'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#13'PixelsPerInch'#2'`'
+#18'HorzScrollBar.Page'#3#31#1#18'VertScrollBar.Page'#3#242#0#4'Left'#3#237#0
+#6'Height'#3#243#0#3'Top'#3#152#0#5'Width'#3' '#1#0#6'TLabel'#6'Label1'#7'Ca'
+'ption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'#'
+#6'Height'#2#14#3'Top'#2#20#5'Width'#2'6'#0#0#7'TButton'#6'GenBtn'#25'Border'
+'Spacing.InnerBorder'#2#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#11'Gen'
+'BtnClick'#8'TabOrder'#2#1#4'Left'#2#18#6'Height'#2#25#3'Top'#3#176#0#5'Widt'
+'h'#2'Y'#0#0#5'TEdit'#9'MachineID'#9'MaxLength'#2#8#8'TabOrder'#2#0#4'Left'#2
+'{'#6'Height'#2#21#3'Top'#2#16#5'Width'#2'Y'#0#0#9'TGroupBox'#9'GroupBox1'#7
+'Caption'#6#8'Features'#12'ClientHeight'#2'O'#11'ClientWidth'#3#221#0#8'TabO'
+'rder'#2#2#4'Left'#2#24#6'Height'#2'a'#3'Top'#2'8'#5'Width'#3#225#0#0#9'TChe'
+'ckBox'#7'ReqFeat'#7'Caption'#6#8'Required'#7'Checked'#9#7'Enabled'#8#5'Stat'
+'e'#7#9'cbChecked'#8'TabOrder'#2#0#4'Left'#2#16#6'Height'#2#17#3'Top'#2#24#5
+'Width'#2'Q'#0#0#9'TCheckBox'#8'HelpFeat'#7'Caption'#6#4'Help'#8'TabOrder'#2
+#1#4'Left'#2#16#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'TCheckBox'#12
+'ExamplesFeat'#7'Caption'#6#8'Examples'#8'TabOrder'#2#2#4'Left'#2#16#6'Heigh'
+'t'#2#17#3'Top'#2'8'#5'Width'#2'Q'#0#0#9'TCheckBox'#6'DBFeat'#7'Caption'#6#8
+'Database'#8'TabOrder'#2#3#4'Left'#2'x'#6'Height'#2#17#3'Top'#2#24#5'Width'#2
+'Q'#0#0#9'TCheckBox'#7'FaxFeat'#7'Caption'#6#3'Fax'#8'TabOrder'#2#4#4'Left'#2
+'x'#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'TCheckBox'#11'GoodiesFeat'
+#7'Caption'#6#7'Goodies'#8'TabOrder'#2#5#4'Left'#2'x'#6'Height'#2#17#3'Top'#2
+'8'#5'Width'#2'Q'#0#0#0#5'TEdit'#11'CodeDisplay'#5'Color'#7#6'clAqua'#8'TabO'
+'rder'#2#3#4'Left'#2'{'#6'Height'#2#21#3'Top'#3#178#0#5'Width'#2'~'#0#0#0
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#237#0#6'Height'#3#243#0#3'Top'#3#152#0#5
+'Width'#3' '#1#18'HorzScrollBar.Page'#3#31#1#18'VertScrollBar.Page'#3#242#0
+#13'ActiveControl'#7#9'MachineID'#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'
+#7'Caption'#6#24' Special Code Generator '#12'ClientHeight'#3#243#0#11'Clien'
+'tWidth'#3' '#1#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorS'
+'ideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'MachineID'#18
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#15#3'Top'#2#20#5
+'Width'#2'<'#7'Caption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'ParentColor'
+#8#0#0#7'TButton'#6'GenBtn'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'Anc'
+'horSideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+'Left'#2#16#6'Height'#2#25#3'Top'#3#161#0#5'Width'#2'`'#17'BorderSpacing.Top'
+#2#16#20'BorderSpacing.Bottom'#2#16#25'BorderSpacing.InnerBorder'#2#4#7'Capt'
+'ion'#6#13'Generate Code'#7'OnClick'#7#11'GenBtnClick'#8'TabOrder'#2#1#0#0#5
+'TEdit'#9'MachineID'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLef'
+'t.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRi'
+'ght.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#2'd'#6'Height'#2#23#3'Top'#2#16#5'Width'#3#150#0#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#24#17'BorderSpacing.Top'#2#16#9
+'MaxLength'#2#8#8'TabOrder'#2#0#0#0#9'TGroupBox'#9'GroupBox1'#22'AnchorSideL'
+'eft.Control'#7#5'Owner'#4'Left'#2#16#6'Height'#2'Y'#3'Top'#2'8'#5'Width'#3
+#234#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#16#19'BorderSpacing.Right'#2#16
+#7'Caption'#6#8'Features'#12'ClientHeight'#2'E'#11'ClientWidth'#3#230#0#8'Ta'
+'bOrder'#2#2#0#9'TCheckBox'#7'ReqFeat'#22'AnchorSideLeft.Control'#7#9'GroupB'
+'ox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#4'Left'#2' '#6'Height'#2#19#3
+'Top'#2#0#5'Width'#2'A'#18'BorderSpacing.Left'#2' '#7'Caption'#6#8'Required'
+#7'Checked'#9#7'Enabled'#8#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCh'
+'eckBox'#8'HelpFeat'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSide'
+'Top.Control'#7#7'ReqFeat'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2' '
+#6'Height'#2#19#3'Top'#2#19#5'Width'#2'+'#18'BorderSpacing.Left'#2' '#7'Capt'
+'ion'#6#4'Help'#8'TabOrder'#2#1#0#0#9'TCheckBox'#12'ExamplesFeat'#22'AnchorS'
+'ideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#8'HelpFeat'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2' '#6'Height'#2#19#3'Top'#2'&'#5
+'Width'#2'D'#18'BorderSpacing.Left'#2' '#20'BorderSpacing.Bottom'#2#12#7'Cap'
+'tion'#6#8'Examples'#8'TabOrder'#2#2#0#0#9'TCheckBox'#6'DBFeat'#22'AnchorSid'
+'eLeft.Control'#7#12'ExamplesFeat'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
+'AnchorSideTop.Control'#7#7'ReqFeat'#4'Left'#3#132#0#6'Height'#2#19#3'Top'#2
+#0#5'Width'#2'B'#18'BorderSpacing.Left'#2' '#19'BorderSpacing.Right'#2' '#7
+'Caption'#6#8'Database'#8'TabOrder'#2#3#0#0#9'TCheckBox'#7'FaxFeat'#22'Ancho'
+'rSideLeft.Control'#7#12'ExamplesFeat'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#21'AnchorSideTop.Control'#7#8'HelpFeat'#4'Left'#3#132#0#6'Height'#2#19#3'To'
+'p'#2#19#5'Width'#2'$'#18'BorderSpacing.Left'#2' '#7'Caption'#6#3'Fax'#8'Tab'
+'Order'#2#4#0#0#9'TCheckBox'#11'GoodiesFeat'#22'AnchorSideLeft.Control'#7#12
+'ExamplesFeat'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contr'
+'ol'#7#12'ExamplesFeat'#4'Left'#3#132#0#6'Height'#2#19#3'Top'#2'&'#5'Width'#2
+'='#18'BorderSpacing.Left'#2' '#19'BorderSpacing.Right'#2' '#7'Caption'#6#7
+'Goodies'#8'TabOrder'#2#5#0#0#0#5'TEdit'#11'CodeDisplay'#22'AnchorSideLeft.C'
+'ontrol'#7#6'GenBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop'
+'.Control'#7#6'GenBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRi'
+'ght.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
+#2'|'#6'Height'#2#23#3'Top'#3#162#0#5'Width'#2'~'#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#12#20'BorderSpacing.Bottom'#2
+#16#5'Color'#7#6'clAqua'#8'TabOrder'#2#3#0#0#0
]);

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

@ -1,42 +1,55 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="3">
<Unit0>
<Filename Value="exslcode.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Exslcode"/>
<EditorIndex Value="1"/>
<CursorPos X="48" Y="8"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exslcod1.pas"/>
@ -45,27 +58,41 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exslcod1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="32"/>
<CursorPos X="34" Y="68"/>
<TopLine Value="27"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="exslcod1.lfm"/>
<CursorPos X="11" Y="2"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit2>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="exslcod1.pas"/>
<Caret Line="68" Column="34" TopLine="27"/>
</Position1>
<Position2>
<Filename Value="exslcod1.pas"/>
<Caret Line="69" Column="34" TopLine="33"/>
</Position2>
<Position3>
<Filename Value="exslcod1.pas"/>
<Caret Line="68" Column="34" TopLine="32"/>
</Position3>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -78,7 +105,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -86,9 +113,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -8,6 +8,8 @@ uses
Exslcod1 in 'EXSLCOD1.PAS' {Form1}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -1,66 +1,90 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="exsnreg.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="48" Y="8"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exsnregu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exsnregu"/>
<CursorPos X="74" Y="19"/>
<TopLine Value="88"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<TopLine Value="88"/>
<CursorPos X="24" Y="102"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="exsnregu.pas"/>
<Caret Line="102" Column="24" TopLine="88"/>
</Position1>
<Position2>
<Filename Value="exsnregu.pas"/>
<Caret Line="101" Column="24" TopLine="87"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -73,7 +97,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -81,9 +105,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -8,6 +8,8 @@ uses
ExSNRegU in 'ExSNRegU.pas' {Form1}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -5,94 +5,118 @@ object Form1: TForm1
Width = 495
HorzScrollBar.Page = 494
VertScrollBar.Page = 303
AutoSize = True
BorderStyle = bsDialog
Caption = 'Serial Number Code Example'
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 304
ClientWidth = 495
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 8
Height = 13
Top = 262
Width = 35
Height = 15
Top = 234
Width = 32
BorderSpacing.Left = 8
Caption = 'Status'
Color = clNone
ParentColor = False
end
object Label1: TLabel
Left = 232
Height = 13
Top = 14
Width = 77
AnchorSideLeft.Control = CodeBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 177
Height = 15
Top = 13
Width = 72
BorderSpacing.Left = 80
Caption = 'Current code:'
Color = clNone
ParentColor = False
end
object CodeLbl: TLabel
Left = 320
Height = 13
Top = 14
Width = 113
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
Left = 257
Height = 15
Top = 13
Width = 96
BorderSpacing.Left = 8
Caption = '0000000000000000'
Color = clNone
ParentColor = False
end
object CodeBtn: TButton
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 25
Top = 8
Width = 89
BorderSpacing.Around = 8
BorderSpacing.InnerBorder = 4
Caption = 'Enter Code'
OnClick = CodeBtnClick
TabOrder = 0
end
object Memo1: TMemo
Left = 8
Height = 209
Top = 40
Width = 465
Color = clBtnFace
Lines.Strings = (
'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
'the code is either the incorrect type or that none has been entered. '
''
'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
'say that the code is invalid.'
''
'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
'the proper "Usage" code). '
''
'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
'will cause the TOgSerialNumberCode component to report that the code is invalid.'
)
ReadOnly = True
object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 412
Height = 25
Top = 229
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Kind = bkClose
TabOrder = 1
end
object CloseBtn: TBitBtn
Left = 400
Height = 25
Top = 256
Width = 75
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
end
object RemoveBtn: TButton
Left = 288
AnchorSideTop.Control = CloseBtn
AnchorSideRight.Control = CloseBtn
Left = 311
Height = 25
Top = 256
Top = 229
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4
Caption = 'Remove Code'
OnClick = RemoveBtnClick
TabOrder = 3
TabOrder = 2
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 180
Top = 41
Width = 479
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgSerialNumberCode component to report that the code is invalid.'
Color = clBtnFace
ParentColor = False
WordWrap = True
end
object OgSerialNumberCode1: TOgSerialNumberCode
OnChecked = CodeChecked
OnGetKey = GetKey
OnGetCode = GetCode
left = 16
top = 208
Left = 160
Top = 208
end
end

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

@ -1,34 +1,51 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'0'#1#3'Top'#3#138#0#5'W'
+'idth'#3#239#1#18'HorzScrollBar.Page'#3#238#1#18'VertScrollBar.Page'#3'/'#1
+#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#26'Serial Number Code Example'#11
+'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScre'
+'enCenter'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#6#1#5
+'Width'#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
+#0#6'TLabel'#6'Label1'#4'Left'#3#232#0#6'Height'#2#13#3'Top'#2#14#5'Width'#2
+'M'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+#6'TLabel'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13#3'Top'#2#14#5'Width'#2'q'
+#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+#7'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#25
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12
+'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#3
+#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFace'#13'Lines.Strings'
+#1#6'fThe label at the bottom of this form indicates the status of the code.'
+' An invalid code indicates that '#6'Ethe code is either the incorrect type '
+'or that none has been entered. '#6#0#6'^If the proper code has not been ent'
+'ered or the ONGUARD.INI file was deleted, the message will '#6#29'say that '
+'the code is invalid.'#6#0#6'YUse the "Enter Code" button to enter a code (t'
+'he CODEGEN program can be used to generate '#6#26'the proper "Usage" code).'
+' '#6#0#6'\The "Remove Code" button can be used to remove the entered code f'
+'rom the INI file. Doing so '#6'Pwill cause the TOgSerialNumberCode componen'
+'t to report that the code is invalid.'#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7
+'TBitBtn'#8'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2
+'K'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TButton'#9'R'
+'emoveBtn'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'a'#25'Borde'
+'rSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'Remo'
+'veBtnClick'#8'TabOrder'#2#3#0#0#19'TOgSerialNumberCode'#19'OgSerialNumberCo'
+'de1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7
+'GetCode'#4'left'#2#16#3'top'#3#208#0#0#0#0
+'idth'#3#239#1#18'HorzScrollBar.Page'#3#238#1#18'VertScrollBar.Page'#3'/'#1#8
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#26'Serial Number Cod'
+'e Example'#12'ClientHeight'#3'0'#1#11'ClientWidth'#3#239#1#8'Position'#7#14
+'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'Anc'
+'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#234#0
+#5'Width'#2' '#18'BorderSpacing.Left'#2#8#7'Caption'#6#6'Status'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'
+#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contro'
+'l'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#177#0#6'Hei'
+'ght'#2#15#3'Top'#2#13#5'Width'#2'H'#18'BorderSpacing.Left'#2'P'#7'Caption'#6
+#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'Co'
+'deLbl'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9'a'
+'srBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
+'asrCenter'#4'Left'#3#1#1#6'Height'#2#15#3'Top'#2#13#5'Width'#2'`'#18'Border'
+'Spacing.Left'#2#8#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11
+'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Own'
+'er'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#8#6'Height'#2#25#3'Top'#2
+#8#5'Width'#2'Y'#20'BorderSpacing.Around'#2#8#25'BorderSpacing.InnerBorder'#2
+#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0
+#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSi'
+'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Anchor'
+'SideRight.Side'#7#9'asrBottom'#4'Left'#3#156#1#6'Height'#2#25#3'Top'#3#229#0
+#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2
+#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'T'
+'Button'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'AnchorSideR'
+'ight.Control'#7#8'CloseBtn'#4'Left'#3'7'#1#6'Height'#2#25#3'Top'#3#229#0#5
+'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#4
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7
+#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft'
+'.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTo'
+'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide'
+'Right.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3#180#0#3'Top'#2')'#5'Widt'
+'h'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.A'
+'round'#2#8#7'Caption'#12'Q'#2#0#0'The label at the bottom of this form indi'
+'cates the status of the code. An invalid code indicates that the code is ei'
+'ther the incorrect type or that none has been entered. '#13#10#13#10'If the'
+' proper code has not been entered or the ONGUARD.INI file was deleted, the '
+'message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code'
+'" button to enter a code (the CODEGEN program can be used to generate the p'
+'roper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to '
+'remove the entered code from the INI file. Doing so will cause the TOgSeria'
+'lNumberCode component to report that the code is invalid.'#5'Color'#7#9'clB'
+'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#19'TOgSerialNumberCode'#19'OgSe'
+'rialNumberCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'O'
+'nGetCode'#7#7'GetCode'#4'Left'#3#160#0#3'Top'#3#208#0#0#0#0
]);

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

@ -13,8 +13,8 @@ type
TForm1 = class(TForm)
CodeBtn: TButton;
Memo1: TMemo;
CloseBtn: TBitBtn;
Memo1: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

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

@ -1,26 +1,35 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<Item1>
@ -28,36 +37,57 @@
<MinVersion Major="1" Valid="True"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Units Count="4">
<Unit0>
<Filename Value="exspname.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="48" Y="7"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<UnitName Value="ExSpName"/>
<CursorPos X="25" Y="9"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exspnamu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="ExSpNamu"/>
<CursorPos X="86" Y="14"/>
<TopLine Value="1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<CursorPos X="73" Y="24"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="C:/Lazarus/lazarus-main_fpc3.2.2/lcl/controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="C:/Lazarus/lazarus-main_fpc3.2.2/lcl/graphics.pp"/>
<UnitName Value="Graphics"/>
<EditorIndex Value="-1"/>
<CursorPos X="22" Y="5"/>
<UsageCount Value="10"/>
</Unit3>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="1">
<Position1>
<Filename Value="exspnamu.pas"/>
<Caret Line="6" Column="24"/>
</Position1>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -70,7 +100,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -78,9 +108,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -8,6 +8,8 @@ uses
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

169
components/onguard/examples/exspname/exspnamu.lfm
View File

@ -5,104 +5,179 @@ object Form1: TForm1
Width = 372
HorzScrollBar.Page = 371
VertScrollBar.Page = 294
AutoSize = True
BorderStyle = bsDialog
Caption = 'Build/Check Special Code with Name string'
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 295
ClientWidth = 372
LCLVersion = '2.3.0.0'
object GroupBox1: TGroupBox
Left = 16
Height = 97
Top = 16
Width = 337
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 12
Height = 87
Top = 12
Width = 342
BorderSpacing.Around = 12
Caption = ' Generate the Code '
ClientHeight = 67
ClientWidth = 338
TabOrder = 0
object Label1: TLabel
Left = 24
Height = 13
Top = 28
Width = 53
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = edtUserName1
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 8
Width = 58
BorderSpacing.Left = 16
Caption = 'User Name'
Color = clNone
ParentColor = False
end
object edtUserName1: TEdit
Left = 104
Height = 21
Top = 24
Width = 217
AnchorSideLeft.Control = edtCode1
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 102
Height = 23
Top = 4
Width = 224
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 12
TabOrder = 0
end
object btnGenCode: TButton
Left = 6
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = edtCode1
AnchorSideTop.Side = asrCenter
Left = 8
Height = 25
Top = 54
Width = 85
Top = 34
Width = 86
BorderSpacing.Around = 8
BorderSpacing.InnerBorder = 4
Caption = 'Gen Code'
OnClick = btnGenCodeClick
TabOrder = 1
end
object edtCode1: TEdit
Left = 104
Height = 21
Top = 56
Width = 217
AnchorSideLeft.Control = btnGenCode
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtUserName1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 102
Height = 23
Top = 35
Width = 224
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 12
ReadOnly = True
TabOrder = 2
end
end
object GroupBox2: TGroupBox
Left = 16
Height = 129
Top = 128
Width = 337
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 12
Height = 116
Top = 111
Width = 342
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Top = 12
BorderSpacing.Bottom = 12
Caption = ' Check the Code '
ClientHeight = 96
ClientWidth = 338
TabOrder = 1
object Label2: TLabel
Left = 24
Height = 13
Top = 28
Width = 53
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = edtUserName2
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 8
Width = 58
BorderSpacing.Left = 16
Caption = 'User Name'
Color = clNone
ParentColor = False
end
object Label3: TLabel
Left = 24
Height = 13
Top = 60
Width = 25
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = edtCode2
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 39
Width = 28
BorderSpacing.Left = 16
Caption = 'Code'
Color = clNone
ParentColor = False
end
object lblCheckResult: TLabel
Left = 104
Height = 13
Top = 96
Width = 71
AnchorSideLeft.Control = edtUserName2
AnchorSideTop.Control = edtCode2
AnchorSideTop.Side = asrBottom
Left = 101
Height = 15
Top = 68
Width = 78
BorderSpacing.Top = 10
Caption = 'lblCheckResult'
Color = clNone
ParentColor = False
end
object edtUserName2: TEdit
Left = 104
Height = 21
Top = 24
Width = 217
AnchorSideLeft.Control = btnCheckCode
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 101
Height = 23
Top = 4
Width = 225
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 12
TabOrder = 0
end
object edtCode2: TEdit
Left = 104
Height = 21
Top = 56
Width = 217
AnchorSideLeft.Control = edtUserName2
AnchorSideTop.Control = edtUserName2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 101
Height = 23
Top = 35
Width = 225
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 12
TabOrder = 1
end
object btnCheckCode: TButton
Left = 6
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = lblCheckResult
AnchorSideTop.Side = asrCenter
Left = 8
Height = 25
Top = 88
Top = 63
Width = 85
BorderSpacing.Around = 8
BorderSpacing.InnerBorder = 4
Caption = 'Check Code'
OnClick = btnCheckCodeClick

88
components/onguard/examples/exspname/exspnamu.lrs
View File

@ -1,30 +1,66 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#200#0#6'Height'#3''''#1#3'Top'#2'l'#5'Wid'
+'th'#3't'#1#18'HorzScrollBar.Page'#3's'#1#18'VertScrollBar.Page'#3'&'#1#7'Ca'
+'ption'#6')Build/Check Special Code with Name string'#11'Font.Height'#2#245#9
+'Font.Name'#6#13'MS Sans Serif'#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#16#6'H'
+'eight'#2'a'#3'Top'#2#16#5'Width'#3'Q'#1#7'Caption'#6#19' Generate the Code '
+#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'#2#24#6'Height'#2#13#3'Top'#2
+#28#5'Width'#2'5'#7'Caption'#6#9'User Name'#5'Color'#7#6'clNone'#11'ParentCo'
+'lor'#8#0#0#5'TEdit'#12'edtUserName1'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2#24
+#5'Width'#3#217#0#8'TabOrder'#2#0#0#0#7'TButton'#10'btnGenCode'#4'Left'#2#6#6
+'Height'#2#25#3'Top'#2'6'#5'Width'#2'U'#25'BorderSpacing.InnerBorder'#2#4#7
+'Caption'#6#8'Gen Code'#7'OnClick'#7#15'btnGenCodeClick'#8'TabOrder'#2#1#0#0
+#5'TEdit'#8'edtCode1'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2'8'#5'Width'#3#217
+#0#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#2#16
+#6'Height'#3#129#0#3'Top'#3#128#0#5'Width'#3'Q'#1#7'Caption'#6#16' Check the'
+' Code '#8'TabOrder'#2#1#0#6'TLabel'#6'Label2'#4'Left'#2#24#6'Height'#2#13#3
+'Top'#2#28#5'Width'#2'5'#7'Caption'#6#9'User Name'#5'Color'#7#6'clNone'#11'P'
+'arentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#24#6'Height'#2#13#3'Top'#2
+'<'#5'Width'#2#25#7'Caption'#6#4'Code'#5'Color'#7#6'clNone'#11'ParentColor'#8
+#0#0#6'TLabel'#14'lblCheckResult'#4'Left'#2'h'#6'Height'#2#13#3'Top'#2'`'#5
+'Width'#2'G'#7'Caption'#6#14'lblCheckResult'#5'Color'#7#6'clNone'#11'ParentC'
+'olor'#8#0#0#5'TEdit'#12'edtUserName2'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2
+#24#5'Width'#3#217#0#8'TabOrder'#2#0#0#0#5'TEdit'#8'edtCode2'#4'Left'#2'h'#6
+'Height'#2#21#3'Top'#2'8'#5'Width'#3#217#0#8'TabOrder'#2#1#0#0#7'TButton'#12
+'btnCheckCode'#4'Left'#2#6#6'Height'#2#25#3'Top'#2'X'#5'Width'#2'U'#25'Borde'
+'rSpacing.InnerBorder'#2#4#7'Caption'#6#10'Check Code'#7'OnClick'#7#17'btnCh'
+'eckCodeClick'#8'TabOrder'#2#2#0#0#0#0
+'th'#3't'#1#18'HorzScrollBar.Page'#3's'#1#18'VertScrollBar.Page'#3'&'#1#8'Au'
+'toSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6')Build/Check Special C'
+'ode with Name string'#12'ClientHeight'#3''''#1#11'ClientWidth'#3't'#1#10'LC'
+'LVersion'#6#7'2.3.0.0'#0#9'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Contro'
+'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2
+'W'#3'Top'#2#12#5'Width'#3'V'#1#20'BorderSpacing.Around'#2#12#7'Caption'#6#19
+' Generate the Code '#12'ClientHeight'#2'C'#11'ClientWidth'#3'R'#1#8'TabOrde'
+'r'#2#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'A'
+'nchorSideTop.Control'#7#12'edtUserName1'#18'AnchorSideTop.Side'#7#9'asrCent'
+'er'#4'Left'#2#16#6'Height'#2#15#3'Top'#2#8#5'Width'#2':'#18'BorderSpacing.L'
+'eft'#2#16#7'Caption'#6#9'User Name'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
+#0#5'TEdit'#12'edtUserName1'#22'AnchorSideLeft.Control'#7#8'edtCode1'#21'Anc'
+'horSideTop.Control'#7#9'GroupBox1'#23'AnchorSideRight.Control'#7#9'GroupBox'
+'1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'f'#6'Height'#2#23#3'To'
+'p'#2#4#5'Width'#3#224#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Bo'
+'rderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#12#8'TabOrder'#2#0#0#0#7'TBu'
+'tton'#10'btnGenCode'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSid'
+'eTop.Control'#7#8'edtCode1'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
+#8#6'Height'#2#25#3'Top'#2'"'#5'Width'#2'V'#20'BorderSpacing.Around'#2#8#25
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8'Gen Code'#7'OnClick'#7#15'btn'
+'GenCodeClick'#8'TabOrder'#2#1#0#0#5'TEdit'#8'edtCode1'#22'AnchorSideLeft.Co'
+'ntrol'#7#10'btnGenCode'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSid'
+'eTop.Control'#7#12'edtUserName1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'A'
+'nchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBott'
+'om'#4'Left'#2'f'#6'Height'#2#23#3'Top'#2'#'#5'Width'#3#224#0#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#8#19'BorderSpacing.Ri'
+'ght'#2#12#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBox2'#22
+'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'GroupBox1'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'Group'
+'Box1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2't'#3
+'Top'#2'o'#5'Width'#3'V'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18
+'BorderSpacing.Left'#2#12#17'BorderSpacing.Top'#2#12#20'BorderSpacing.Bottom'
+#2#12#7'Caption'#6#16' Check the Code '#12'ClientHeight'#2'`'#11'ClientWidth'
+#3'R'#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'#7#9
+'GroupBox2'#21'AnchorSideTop.Control'#7#12'edtUserName2'#18'AnchorSideTop.Si'
+'de'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#15#3'Top'#2#8#5'Width'#2':'#18
+'BorderSpacing.Left'#2#16#7'Caption'#6#9'User Name'#5'Color'#7#6'clNone'#11
+'ParentColor'#8#0#0#6'TLabel'#6'Label3'#22'AnchorSideLeft.Control'#7#9'Group'
+'Box2'#21'AnchorSideTop.Control'#7#8'edtCode2'#18'AnchorSideTop.Side'#7#9'as'
+'rCenter'#4'Left'#2#16#6'Height'#2#15#3'Top'#2''''#5'Width'#2#28#18'BorderSp'
+'acing.Left'#2#16#7'Caption'#6#4'Code'#5'Color'#7#6'clNone'#11'ParentColor'#8
+#0#0#6'TLabel'#14'lblCheckResult'#22'AnchorSideLeft.Control'#7#12'edtUserNam'
+'e2'#21'AnchorSideTop.Control'#7#8'edtCode2'#18'AnchorSideTop.Side'#7#9'asrB'
+'ottom'#4'Left'#2'e'#6'Height'#2#15#3'Top'#2'D'#5'Width'#2'N'#17'BorderSpaci'
+'ng.Top'#2#10#7'Caption'#6#14'lblCheckResult'#5'Color'#7#6'clNone'#11'Parent'
+'Color'#8#0#0#5'TEdit'#12'edtUserName2'#22'AnchorSideLeft.Control'#7#12'btnC'
+'heckCode'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+#9'GroupBox2'#23'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.'
+'Side'#7#9'asrBottom'#4'Left'#2'e'#6'Height'#2#23#3'Top'#2#4#5'Width'#3#225#0
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#4#19
+'BorderSpacing.Right'#2#12#8'TabOrder'#2#0#0#0#5'TEdit'#8'edtCode2'#22'Ancho'
+'rSideLeft.Control'#7#12'edtUserName2'#21'AnchorSideTop.Control'#7#12'edtUse'
+'rName2'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+#9'GroupBox2'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'e'#6'Height'
+#2#23#3'Top'#2'#'#5'Width'#3#225#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#0#17'BorderSpacing.Top'#2#8#19'BorderSpacing.Right'#2#12#8'TabOrder'#2#1
+#0#0#7'TButton'#12'btnCheckCode'#22'AnchorSideLeft.Control'#7#9'GroupBox2'#21
+'AnchorSideTop.Control'#7#14'lblCheckResult'#18'AnchorSideTop.Side'#7#9'asrC'
+'enter'#4'Left'#2#8#6'Height'#2#25#3'Top'#2'?'#5'Width'#2'U'#20'BorderSpacin'
+'g.Around'#2#8#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Check Code'
+#7'OnClick'#7#17'btnCheckCodeClick'#8'TabOrder'#2#2#0#0#0#0
]);

1
components/onguard/examples/exspreg/ONGUARD.INI
View File

@ -1,2 +1 @@
[Codes]
SpecialCode=B52A3ABB5EA876AC

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

@ -1,63 +1,86 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<UseXPManifest Value="True"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="tponguard"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="exspreg.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="48" Y="8"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="exspregu.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Exspregu"/>
<CursorPos X="46" Y="20"/>
<TopLine Value="1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<CursorPos X="39" Y="22"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="exspregu.pas"/>
<Caret Line="22" Column="39"/>
</Position1>
<Position2>
<Filename Value="exspregu.pas"/>
<Caret Line="21" Column="39"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
@ -70,7 +93,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options>
<Win32>
@ -78,9 +101,6 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">

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

@ -8,6 +8,8 @@ uses
Exspregu in 'EXSPREGU.PAS' {Form1}, tponguard;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);

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

@ -2,97 +2,120 @@ object Form1: TForm1
Left = 252
Height = 303
Top = 138
Width = 487
Width = 450
HorzScrollBar.Page = 486
VertScrollBar.Page = 302
AutoSize = True
BorderStyle = bsDialog
Caption = 'Special Registration Data Code Example'
Font.Height = -11
Font.Name = 'MS Sans Serif'
ClientHeight = 303
ClientWidth = 450
Constraints.MinWidth = 450
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object StatusLbl: TLabel
AnchorSideLeft.Control = Memo1
AnchorSideTop.Control = CloseBtn
AnchorSideTop.Side = asrCenter
Left = 8
Height = 13
Top = 262
Width = 35
Height = 15
Top = 249
Width = 32
Caption = 'Status'
Color = clNone
ParentColor = False
end
object Label1: TLabel
Left = 224
Height = 13
Top = 14
Width = 77
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CodeLbl
Left = 266
Height = 15
Top = 13
Width = 72
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Current code:'
Color = clNone
ParentColor = False
end
object CodeLbl: TLabel
Left = 320
Height = 13
Top = 14
Width = 113
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 346
Height = 15
Top = 13
Width = 96
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = '0000000000000000'
Color = clNone
ParentColor = False
end
object CodeBtn: TButton
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 25
Top = 8
Width = 89
BorderSpacing.Around = 8
BorderSpacing.InnerBorder = 4
Caption = 'Enter Code'
OnClick = CodeBtnClick
TabOrder = 0
end
object Memo1: TMemo
Left = 8
Height = 209
Top = 40
Width = 465
Color = clBtnFace
Lines.Strings = (
'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
'the code is either the incorrect type or that none has been entered. '
''
'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
'say that the code is invalid.'
''
'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
'the proper "Special" code). '
''
'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
'will cause the TOgSpecialCode component to report that the code is invalid.'
)
ReadOnly = True
object CloseBtn: TBitBtn
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 367
Height = 25
Top = 244
Width = 75
Anchors = [akTop]
BorderSpacing.Around = 8
Kind = bkClose
TabOrder = 1
end
object CloseBtn: TBitBtn
Left = 400
Height = 25
Top = 256
Width = 75
Kind = bkClose
NumGlyphs = 0
TabOrder = 2
end
object RemoveBtn: TButton
Left = 288
AnchorSideTop.Control = CloseBtn
AnchorSideRight.Control = CloseBtn
Left = 262
Height = 25
Top = 256
Top = 244
Width = 97
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 4
Caption = 'Remove Code'
OnClick = RemoveBtnClick
TabOrder = 3
TabOrder = 2
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CodeBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 195
Top = 41
Width = 434
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Special" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgSpecialCode component to report that the code is invalid.'
Color = clBtnFace
ParentColor = False
WordWrap = True
end
object OgSpecialCode1: TOgSpecialCode
OnChecked = CodeChecked
OnGetKey = GetKey
OnGetCode = GetCode
left = 16
top = 216
Left = 168
Top = 136
end
end

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

@ -1,34 +1,51 @@
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'/'#1#3'Top'#3#138#0#5'W'
+'idth'#3#231#1#18'HorzScrollBar.Page'#3#230#1#18'VertScrollBar.Page'#3'.'#1
+#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6'&Special Registration Data Code '
+'Example'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'
+#7#14'poScreenCenter'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3
+'Top'#3#6#1#5'Width'#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'Par'
+'entColor'#8#0#0#6'TLabel'#6'Label1'#4'Left'#3#224#0#6'Height'#2#13#3'Top'#2
+#14#5'Width'#2'M'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'Par'
+'entColor'#8#0#0#6'TLabel'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13#3'Top'#2
+#14#5'Width'#2'q'#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11
+'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2
+#8#5'Width'#2'Y'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Cod'
+'e'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Le'
+'ft'#2#8#6'Height'#3#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFa'
+'ce'#13'Lines.Strings'#1#6'fThe label at the bottom of this form indicates t'
+'he status of the code. An invalid code indicates that '#6'Ethe code is eith'
+'er the incorrect type or that none has been entered. '#6#0#6'^If the proper'
+' code has not been entered or the ONGUARD.INI file was deleted, the message'
+' will '#6#29'say that the code is invalid.'#6#0#6'YUse the "Enter Code" but'
+'ton to enter a code (the CODEGEN program can be used to generate '#6#28'the'
+' proper "Special" code). '#6#0#6'\The "Remove Code" button can be used to r'
+'emove the entered code from the INI file. Doing so '#6'Kwill cause the TOgS'
+'pecialCode component to report that the code is invalid.'#0#8'ReadOnly'#9#8
+'TabOrder'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'T'
+'op'#3#0#1#5'Width'#2'K'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2
+#2#0#0#7'TButton'#9'RemoveBtn'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5
+'Width'#2'a'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7
+'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#3#0#0#14'TOgSpecialCode'#14'OgS'
+'pecialCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGet'
+'Code'#7#7'GetCode'#4'left'#2#16#3'top'#3#216#0#0#0#0
+'idth'#3#194#1#18'HorzScrollBar.Page'#3#230#1#18'VertScrollBar.Page'#3'.'#1#8
+'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6'&Special Registratio'
+'n Data Code Example'#12'ClientHeight'#3'/'#1#11'ClientWidth'#3#194#1#20'Con'
+'straints.MinWidth'#3#194#1#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6
+#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#5'Memo1'#21
+'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
+'Left'#2#8#6'Height'#2#15#3'Top'#3#249#0#5'Width'#2' '#7'Caption'#6#6'Status'
+#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#21'AnchorSid'
+'eTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorS'
+'ideRight.Control'#7#7'CodeLbl'#4'Left'#3#10#1#6'Height'#2#15#3'Top'#2#13#5
+'Width'#2'H'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#8
+#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6
+'TLabel'#7'CodeLbl'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.'
+'Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi'
+'ght.Side'#7#9'asrBottom'#4'Left'#3'Z'#1#6'Height'#2#15#3'Top'#2#13#5'Width'
+#2'`'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#8#7'Capt'
+'ion'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TB'
+'utton'#7'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
+'ntrol'#7#5'Owner'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#20'Bo'
+'rderSpacing.Around'#2#8#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'E'
+'nter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'C'
+'loseBtn'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'as'
+'rBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#3'o'#1#6'Height'#2#25#3'Top'#3#244#0#5'Width'#2'K'#7'Anc'
+'hors'#11#5'akTop'#0#20'BorderSpacing.Around'#2#8#4'Kind'#7#7'bkClose'#8'Tab'
+'Order'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseB'
+'tn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3#6#1#6'Height'#2#25#3
+'Top'#3#244#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpa'
+'cing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBt'
+'nClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7
+#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2#8#6'Height'#3#195#0#3'Top'#2')'#5'Width'#3#178#1#7'A'
+'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#8#7'C'
+'aption'#12'N'#2#0#0'The label at the bottom of this form indicates the stat'
+'us of the code. An invalid code indicates that the code is either the incor'
+'rect type or that none has been entered. '#13#10#13#10'If the proper code h'
+'as not been entered or the ONGUARD.INI file was deleted, the message will s'
+'ay that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to en'
+'ter a code (the CODEGEN program can be used to generate the proper "Special'
+'" code). '#13#10#13#10'The "Remove Code" button can be used to remove the e'
+'ntered code from the INI file. Doing so will cause the TOgSpecialCode compo'
+'nent to report that the code is invalid.'#5'Color'#7#9'clBtnFace'#11'Parent'
+'Color'#8#8'WordWrap'#9#0#0#14'TOgSpecialCode'#14'OgSpecialCode1'#9'OnChecke'
+'d'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#4'Le'
+'ft'#3#168#0#3'Top'#3#136#0#0#0#0
]);

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

@ -14,8 +14,8 @@ type
TForm1 = class(TForm)
CodeBtn: TButton;
Memo1: TMemo;
CloseBtn: TBitBtn;
Memo1: TLabel;
StatusLbl: TLabel;
Label1: TLabel;
CodeLbl: TLabel;

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