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

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';