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

onguard: Fix compilation with at least Laz 1.4.4 / FPC 2.6.4

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8736 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-23 13:55:39 +00:00
parent 0a8755d05b
commit a5bdd38008
54 changed files with 926 additions and 505 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,8 +58,8 @@
<UnitName Value="Exnetu"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="133"/>
<CursorPos X="26" Y="165"/>
<TopLine Value="86"/>
<CursorPos X="34" Y="104"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -83,7 +83,7 @@
<UsageCount Value="10"/>
</Unit4>
</Units>
<JumpHistory Count="5" HistoryIndex="4">
<JumpHistory Count="9" HistoryIndex="8">
<Position1>
<Filename Value="exnetu.pas"/>
<Caret Line="141" Column="59" TopLine="118"/>
@ -104,6 +104,21 @@
<Filename Value="exnetu.pas"/>
<Caret Line="163" TopLine="128"/>
</Position5>
<Position6>
<Filename Value="exnetu.pas"/>
<Caret Line="131" Column="44" TopLine="131"/>
</Position6>
<Position7>
<Filename Value="exnetu.pas"/>
</Position7>
<Position8>
<Filename Value="exnetu.pas"/>
<Caret Line="104" TopLine="74"/>
</Position8>
<Position9>
<Filename Value="exnetu.pas"/>
<Caret Line="164" TopLine="132"/>
</Position9>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

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

@ -101,8 +101,7 @@ begin
Ini := TIniFile.Create('ONGUARD.INI');
try
{store the code in the ini file if it looks OK}
Work := Default(TCode);
if HexToBuffer(S, Work, SizeOf(Work)) then begin
if HexToBuffer(S, Work{%H-}, SizeOf(Work)) then begin
{save the value}
Ini.WriteString('Codes', 'NetCode', S);
CodeLbl.Caption := S;
@ -162,8 +161,7 @@ var
Code : TCode;
begin
{force code label to update}
Code := Default(TCode);
GetCode(Self, Code);
GetCode(Self, Code{%H-});
end;