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

OnGuard: Replace in all demo projects .lrs resource by .res resource. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8724 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-20 17:36:51 +00:00
parent 91b3ac7ce0
commit e456d87021
100 changed files with 824 additions and 2317 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,8 +61,8 @@
<UnitName Value="ExDTRegU"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="27"/>
<CursorPos X="23" Y="43"/>
<TopLine Value="10"/>
<CursorPos Y="43"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -87,123 +87,123 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="exdtregu.pas"/>
<Caret Line="73" TopLine="58"/>
<Caret Line="79" TopLine="64"/>
</Position1>
<Position2>
<Filename Value="exdtregu.pas"/>
<Caret Line="75" TopLine="60"/>
<Caret Line="81" TopLine="66"/>
</Position2>
<Position3>
<Filename Value="exdtregu.pas"/>
<Caret Line="77" TopLine="62"/>
<Caret Line="83" TopLine="68"/>
</Position3>
<Position4>
<Filename Value="exdtregu.pas"/>
<Caret Line="79" TopLine="64"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1217" TopLine="1202"/>
</Position4>
<Position5>
<Filename Value="exdtregu.pas"/>
<Caret Line="81" TopLine="66"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1218" TopLine="1203"/>
</Position5>
<Position6>
<Filename Value="exdtregu.pas"/>
<Caret Line="83" TopLine="68"/>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" TopLine="1309"/>
</Position6>
<Position7>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1217" TopLine="1202"/>
<Caret Line="1326" TopLine="1311"/>
</Position7>
<Position8>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1218" TopLine="1203"/>
<Caret Line="1327" TopLine="1312"/>
</Position8>
<Position9>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" TopLine="1309"/>
<Caret Line="1331" TopLine="1316"/>
</Position9>
<Position10>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1326" TopLine="1311"/>
<Caret Line="1864" Column="40" TopLine="1841"/>
</Position10>
<Position11>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1327" TopLine="1312"/>
<Caret Line="1320" TopLine="1305"/>
</Position11>
<Position12>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1331" TopLine="1316"/>
<Caret Line="1322" TopLine="1307"/>
</Position12>
<Position13>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1864" Column="40" TopLine="1841"/>
<Caret Line="1323" TopLine="1308"/>
</Position13>
<Position14>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1320" TopLine="1305"/>
<Caret Line="1324" TopLine="1309"/>
</Position14>
<Position15>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1322" TopLine="1307"/>
<Caret Line="1326" TopLine="1311"/>
</Position15>
<Position16>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1323" TopLine="1308"/>
<Caret Line="1327" TopLine="1312"/>
</Position16>
<Position17>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1324" TopLine="1309"/>
<Caret Line="1932" TopLine="1917"/>
</Position17>
<Position18>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1326" TopLine="1311"/>
<Caret Line="1933" TopLine="1918"/>
</Position18>
<Position19>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1327" TopLine="1312"/>
<Caret Line="1934" TopLine="1919"/>
</Position19>
<Position20>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1932" TopLine="1917"/>
<Caret Line="1936" TopLine="1921"/>
</Position20>
<Position21>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1933" TopLine="1918"/>
<Caret Line="1331" TopLine="1316"/>
</Position21>
<Position22>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1934" TopLine="1919"/>
<Caret Line="1856" TopLine="1841"/>
</Position22>
<Position23>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1936" TopLine="1921"/>
<Caret Line="1857" TopLine="1842"/>
</Position23>
<Position24>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1331" TopLine="1316"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="114" Column="59" TopLine="88"/>
</Position24>
<Position25>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1856" TopLine="1841"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="43" TopLine="26"/>
</Position25>
<Position26>
<Filename Value="..\..\source\onguard.pas"/>
<Caret Line="1857" TopLine="1842"/>
<Filename Value="exdtregu.pas"/>
<Caret Line="42" TopLine="25"/>
</Position26>
<Position27>
<Filename Value="exdtregu.pas"/>
<Caret Line="114" Column="59" TopLine="88"/>
<Caret Line="43" TopLine="26"/>
</Position27>
<Position28>
<Filename Value="exdtregu.pas"/>
<Caret Line="43" TopLine="26"/>
<Caret Line="40" TopLine="78"/>
</Position28>
<Position29>
<Filename Value="exdtregu.pas"/>
<Caret Line="42" TopLine="25"/>
<Caret Line="127" TopLine="91"/>
</Position29>
<Position30>
<Filename Value="exdtregu.pas"/>
<Caret Line="43" TopLine="26"/>
<Caret Line="39" Column="32" TopLine="18"/>
</Position30>
</JumpHistory>
</ProjectOptions>

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

@ -1,54 +0,0 @@
{ 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#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#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'
+'.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'#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
]);

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

@ -3,8 +3,8 @@ unit ExDTRegU;
interface
uses
SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
SysUtils, Classes,Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
OnGuard, OgUtil;
type
@ -36,6 +36,10 @@ var
implementation
{$R *.lfm}
uses
IniFiles;
procedure TForm1.CodeChecked(Sender: TObject; Status: TCodeStatus);
var
@ -93,6 +97,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI');
try
{store the date code in the ini file if it looks OK}
Work := Default(TCode);
if HexToBuffer(S, Work, SizeOf(Work)) then begin
{save the value}
Ini.WriteString('Codes', 'DateCode', S);
@ -122,8 +127,4 @@ begin
OgDateCode1.CheckCode(True);
end;
initialization
{$i exdtregu.lrs}
end.