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

OnGuard: Fix sample projects not loading. Activate themes in sample projects. Anchored layout of sample forms.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8707 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-17 16:28:47 +00:00
parent 36eff03740
commit a9c3a3022c
152 changed files with 6033 additions and 3578 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,8 +22,8 @@ type
{ TForm1 }
TForm1 = class(TForm)
Memo1: TMemo;
CloseBtn: TBitBtn;
Memo1: TLabel;
OgDateCode1: TOgDateCode;
Label1: TLabel;
procedure FormActivate(Sender: TObject);
@ -104,11 +104,10 @@ var
S : string;
begin
FExpired := false;
ShortDateFormat := 'yyy-mm-dd';
// Status := ogValidCode; // -- just for testing the form
case Status of
ogValidCode : begin
Label1.Caption := 'Expires: '
+ DateToStr(OgDateCode1.GetValue);
Label1.Caption := 'Expires: ' + DateToStr(OgDateCode1.GetValue);
Exit;
end;