From 8af88d6531833078e35d74e93feefa50b0e3e951 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 28 Apr 2023 23:25:39 +0000
Subject: [PATCH] OnGuard: Fix usage of incorrect datecode in exdtp21 sample
 project.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8816 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/onguard/examples/exdtp21/datep21.ini  | 3 +--
 components/onguard/examples/exdtp21/exdtp21u.lfm | 3 +--
 components/onguard/examples/exdtp21/exdtp21u.pas | 3 +--
 components/onguard/examples/exdyreg/ONGUARD.INI  | 2 +-
 4 files changed, 4 insertions(+), 7 deletions(-)

diff --git a/components/onguard/examples/exdtp21/datep21.ini b/components/onguard/examples/exdtp21/datep21.ini
index 9ea8ca0a3..7116b9566 100644
--- a/components/onguard/examples/exdtp21/datep21.ini
+++ b/components/onguard/examples/exdtp21/datep21.ini
@@ -1,3 +1,2 @@
 [Codes]
-
-DateCode=049CF7F37E44F6C6
\ No newline at end of file
+DateCode=A9A02ECB8535EBCE1127
diff --git a/components/onguard/examples/exdtp21/exdtp21u.lfm b/components/onguard/examples/exdtp21/exdtp21u.lfm
index 1c8c51169..09cdf8639 100644
--- a/components/onguard/examples/exdtp21/exdtp21u.lfm
+++ b/components/onguard/examples/exdtp21/exdtp21u.lfm
@@ -48,7 +48,7 @@ object Form1: TForm1
     Width = 204
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Around = 12
-    Caption = 'If you can edit this, your program was allowed to run'
+    Caption = 'If you can see this, your program was allowed to run.'
     WordWrap = True
     OnDblClick = InfoDblClick
   end
@@ -70,7 +70,6 @@ object Form1: TForm1
     OnChecked = OgDateCode1Checked
     OnGetKey = OgDateCode1GetKey
     OnGetCode = OgDateCode1GetCode
-    StoreCode = True
     Left = 168
     Top = 72
   end
diff --git a/components/onguard/examples/exdtp21/exdtp21u.pas b/components/onguard/examples/exdtp21/exdtp21u.pas
index 87e219902..b73164e9a 100644
--- a/components/onguard/examples/exdtp21/exdtp21u.pas
+++ b/components/onguard/examples/exdtp21/exdtp21u.pas
@@ -12,8 +12,7 @@ uses
   OnGuard, OgUtil;
 
 const
-  CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,
-                 $1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4);
+  CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4);
 
 type
 
diff --git a/components/onguard/examples/exdyreg/ONGUARD.INI b/components/onguard/examples/exdyreg/ONGUARD.INI
index 54a53159e..d7025f484 100644
--- a/components/onguard/examples/exdyreg/ONGUARD.INI
+++ b/components/onguard/examples/exdyreg/ONGUARD.INI
@@ -1,2 +1,2 @@
 [Codes]
-DaysCode=B6DA5EECDE3C13ECB826
+DaysCode=FD6BE770F2BBBD68FC26