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

3
components/onguard/examples/exslcode/exslcod1.pas
View File

@ -87,8 +87,7 @@ begin
Value := Value + FaxMask;
If GoodiesFeat.Checked then
Value := Value + GoodiesMask;
Code := Default(TCode);
InitSpecialCode(Key, Value, Expires, Code);
InitSpecialCode(Key, Value, Expires, Code{%H-});
CodeDisplay.Text := BufferToHex(Code, SizeOf(Code));
end;

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

@ -40,7 +40,7 @@
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPackages>
<Units Count="3">
<Units Count="4">
<Unit0>
<Filename Value="exslcode.lpr"/>
<IsPartOfProject Value="True"/>
@ -60,7 +60,7 @@
<UnitName Value="Exslcod1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="58"/>
<CursorPos X="26" Y="90"/>
<CursorPos X="49" Y="90"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -71,8 +71,16 @@
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit2>
<Unit3>
<Filename Value="../../source/onguard.pas"/>
<EditorIndex Value="2"/>
<TopLine Value="552"/>
<CursorPos X="11" Y="570"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
</Units>
<JumpHistory Count="7" HistoryIndex="6">
<JumpHistory Count="10" HistoryIndex="9">
<Position1>
<Filename Value="exslcod1.pas"/>
<Caret Line="68" Column="34" TopLine="27"/>
@ -101,6 +109,17 @@
<Filename Value="exslcod1.pas"/>
<Caret Line="70" Column="24" TopLine="58"/>
</Position7>
<Position8>
<Filename Value="exslcod1.pas"/>
<Caret Line="56" Column="57" TopLine="56"/>
</Position8>
<Position9>
<Filename Value="exslcod1.pas"/>
</Position9>
<Position10>
<Filename Value="exslcod1.pas"/>
<Caret Line="90" TopLine="58"/>
</Position10>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>