OnGuard: Rework sample projects.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8721 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/onguard/examples/exdys30/exdys30u.lfm

@@ -3,41 +3,43 @@ object Form1: TForm1
   Height = 158
   Top = 260
   Width = 229
+  BorderStyle = bsDialog
   Caption = 'Form1'
   ClientHeight = 158
   ClientWidth = 229
   OnCreate = FormCreate
   Position = poScreenCenter
   LCLVersion = '2.3.0.0'
-  object Label1: TLabel
+  object lblDaysRemaining: TLabel
     AnchorSideLeft.Control = Owner
     AnchorSideLeft.Side = asrCenter
-    AnchorSideTop.Control = Memo1
+    AnchorSideTop.Control = Info
     AnchorSideTop.Side = asrBottom
     Left = 69
     Height = 15
-    Top = 66
+    Top = 58
     Width = 91
     Alignment = taCenter
-    BorderSpacing.Top = 24
+    BorderSpacing.Top = 16
     Caption = 'Days Remaining: '
     ParentColor = False
   end
   object CloseBtn: TBitBtn
     AnchorSideLeft.Control = Owner
     AnchorSideLeft.Side = asrCenter
-    AnchorSideTop.Control = Label1
+    AnchorSideTop.Control = Bevel1
     AnchorSideTop.Side = asrBottom
-    Left = 70
-    Height = 33
-    Top = 105
-    Width = 89
-    BorderSpacing.Top = 24
+    Left = 91
+    Height = 26
+    Top = 104
+    Width = 46
+    AutoSize = True
+    BorderSpacing.Top = 12
     BorderSpacing.Bottom = 12
     Kind = bkClose
     TabOrder = 0
   end
-  object Memo1: TLabel
+  object Info: TLabel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
     AnchorSideRight.Control = Owner
@@ -51,6 +53,20 @@ object Form1: TForm1
     Caption = 'If you can edit this, then your program was allowed to run'
     WordWrap = True
   end
+  object Bevel1: TBevel
+    AnchorSideLeft.Control = Info
+    AnchorSideTop.Control = lblDaysRemaining
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Info
+    AnchorSideRight.Side = asrBottom
+    Left = 12
+    Height = 3
+    Top = 89
+    Width = 205
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Top = 16
+    Shape = bsTopLine
+  end
   object OgDaysCode1: TOgDaysCode
     OnChecked = OgDaysCode1Checked
     OnGetKey = OgDaysCode1GetKey