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

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

@ -18,8 +18,8 @@ unit Exslcod1;
interface
uses
SysUtils, Classes, Controls, Forms, Dialogs,Buttons,
OnGuard, OgUtil, StdCtrls,LResources{, Mask};
SysUtils, Classes, Controls, Forms, Dialogs, Buttons, StdCtrls,
OnGuard, OgUtil;
type
@ -49,7 +49,7 @@ var
implementation
{$R *.lfm}
const
DemoKey: TKey = ($F1,$46,$8D,$E4,
@ -67,7 +67,7 @@ const
procedure TForm1.GenBtnClick(Sender: TObject);
var
Key: TKey;
Modifier: Longint;
Modifier: Longint = 0;
Code: TCode;
Expires: TDateTime;
Value: longint;
@ -87,11 +87,9 @@ begin
Value := Value + FaxMask;
If GoodiesFeat.Checked then
Value := Value + GoodiesMask;
Code := Default(TCode);
InitSpecialCode(Key, Value, Expires, Code);
CodeDisplay.Text := BufferToHex(Code, SizeOf(Code));
end;
initialization
{$i exslcod1.lrs}
end.