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

10
components/onguard/examples/codegen/codegenu.pas
View File

@ -6,8 +6,8 @@ interface
uses
LCLIntf,
SysUtils, Classes, Forms, Dialogs,
Buttons,LResources,StdCtrls, onguard,ogutil;
SysUtils, Classes, Forms, Dialogs, Buttons, StdCtrls,
onguard, ogutil;
type
TCodeGenFrm = class(TForm)
@ -30,6 +30,7 @@ var
implementation
{$R *.lfm}
procedure TCodeGenFrm.CopySbClick(Sender: TObject);
var
@ -53,15 +54,12 @@ begin
OgMakeCodes1.SetKey(CKey);
if OgMakeCodes1.Execute then begin
{get the code}
Work := Default(TCode);
OgMakeCodes1.GetCode(Work);
{display the code}
CodeEd.Text := OgUtil.BufferToHex(Work, SizeOf(Work));
end;
end;
initialization
{$i CODEGENU.lrs}
end.