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

22
components/onguard/examples/exdtp21/exdtp21u.pas
View File

@ -8,10 +8,8 @@ unit Exdtp21u;
interface
uses
SysUtils,Classes,Controls,
Forms, Dialogs, StdCtrls, Buttons,LResources, ExtCtrls, OnGuard,
OgUtil,
IniFiles;
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
OnGuard, OgUtil;
const
CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,
@ -43,9 +41,10 @@ var
implementation
{$R *.lfm}
{==========================================================================}
uses
IniFiles;
procedure TForm1.OgDateCode1GetKey(Sender: TObject; var Key: TKey);
begin
@ -59,17 +58,14 @@ end;
procedure TForm1.InfoDblClick(Sender: TObject);
begin
ShowMessage(Inttostr(OgDateCode1.GetInvalidCount));
ShowMessage(Inttostr(OgDateCode1.GetInvalidCount));
end;
{==========================================================================}
procedure TForm1.OgDateCode1GetCode(Sender: TObject; var Code: TCode);
var
IniFile : TIniFile;
S : string;
SD,
ED : TDateTime;
SD, ED : TDateTime;
L : integer;
begin
{force the INI file to be in the same directory as the application}
@ -98,8 +94,6 @@ begin
end;
end;
{==========================================================================}
procedure TForm1.OgDateCode1Checked(Sender: TObject; Status: TCodeStatus);
var
S : string;
@ -120,7 +114,5 @@ begin
FExpired := true;
end;
initialization
{$i exdtp21u.lrs}
end.