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

OnGuard: Rework sample projects.

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

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

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

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

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

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

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

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

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