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

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

@ -4,8 +4,8 @@ unit Exnetu;
interface
uses
SysUtils, Classes,Controls, Forms, Dialogs,
StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil, OgNetWrk;
SysUtils, Classes,Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
OnGuard, OgUtil, OgNetWrk;
type
@ -39,6 +39,10 @@ var
implementation
{$R *.lfm}
uses
IniFiles;
procedure TForm1.CodeChecked(Sender: TObject; Status: TCodeStatus);
@ -97,6 +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
{save the value}
Ini.WriteString('Codes', 'NetCode', S);
@ -156,11 +161,10 @@ procedure TForm1.FormCreate(Sender: TObject);
var
Code : TCode;
begin
{force code label to update}
{force code label to update}
Code := Default(TCode);
GetCode(Self, Code);
end;
initialization
{$i exnetu.lrs}
end.