pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

OnGuard: Rework sample projects.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8721 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-20 11:17:45 +00:00
parent a1792b0941
commit d6279b614d
103 changed files with 2214 additions and 1689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,7 +13,7 @@ interface
uses
SysUtils, Classes, Controls,
Forms, Dialogs, LResources, StdCtrls, Buttons,
Forms, Dialogs, LResources, StdCtrls, Buttons, ExtCtrls,
OnGuard, OgUtil, IniFiles;
const
@ -25,10 +25,11 @@ type
{ TForm1 }
TForm1 = class(TForm)
Bevel1: TBevel;
CloseBtn: TBitBtn;
Memo1: TLabel;
Info: TLabel;
OgDaysCode1: TOgDaysCode;
Label1: TLabel;
lblDaysRemaining: TLabel;
procedure FormCreate(Sender: TObject);
procedure OgDaysCode1GetKey(Sender: TObject; var Key: TKey);
procedure OgDaysCode1GetCode(Sender: TObject; var Code: TCode);
@ -124,7 +125,7 @@ var
begin
case Status of
ogValidCode : begin
Label1.Caption := 'Days Remaining: '
lblDaysRemaining.Caption := 'Days Remaining: '
+ IntToStr(OgDaysCode1.GetValue);
Exit;
end;