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

47
components/onguard/examples/exdys30/exdys30u.pas
View File

@ -12,9 +12,9 @@ unit Exdys30u;
interface
uses
SysUtils, Classes, Controls,
Forms, Dialogs, LResources, StdCtrls, Buttons, ExtCtrls,
OnGuard, OgUtil, IniFiles;
SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
IniFiles,
OnGuard, OgUtil;
const
CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,
@ -36,7 +36,7 @@ type
procedure OgDaysCode1ChangeCode(Sender: TObject; Code: TCode);
procedure OgDaysCode1Checked(Sender: TObject; Status: TCodeStatus);
private
codeinvalid : Boolean;
codeInvalid: Boolean;
public
{ Public declarations }
TheDir : string;
@ -48,7 +48,7 @@ var
implementation
{$R *.lfm}
{==========================================================================}
@ -59,7 +59,7 @@ end;
procedure TForm1.FormCreate(Sender: TObject);
begin
codeinvalid := false;
codeInvalid := false;
end;
{==========================================================================}
@ -104,7 +104,7 @@ end;
procedure TForm1.OgDaysCode1ChangeCode(Sender: TObject; Code: TCode);
var
S : string;
S: string;
begin
if codeinvalid then Exit;
IniFile := TIniFile.Create(TheDir + 'Days30.INI');
@ -124,29 +124,24 @@ var
S : string;
begin
case Status of
ogValidCode : begin
lblDaysRemaining.Caption := 'Days Remaining: '
+ IntToStr(OgDaysCode1.GetValue);
Exit;
end;
ogInvalidCode :
begin
S := 'Invalid Code';
codeinvalid := true;
end;
ogDayCountUsed : S := 'Program used more than 30 days' + #13 +
'Please register NOW';
ogCodeExpired : S := 'Evaluation period expired' + #13 +
'Please register NOW';
ogValidCode:
begin
lblDaysRemaining.Caption := Format('Days Remaining: %d', [OgDaysCode1.GetValue]);
Exit;
end;
ogInvalidCode:
begin
S := 'Invalid Code';
codeInvalid := true;
end;
ogDayCountUsed:
S := 'Program used more than 30 days' + LineEnding + 'Please register NOW';
ogCodeExpired:
S := 'Evaluation period expired' + LineEnding + 'Please register NOW';
end;
ShowMessage(S);
Application.Terminate;
end;
initialization
{$i exdys30u.lrs}
end.