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

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

components/onguard/examples/exdtp21/exdtp21u.lfm

@@ -3,53 +3,59 @@ object Form1: TForm1
   Height = 155
   Top = 279
   Width = 228
-  ActiveControl = Memo1
+  AutoSize = True
   Caption = 'Form1'
   ClientHeight = 155
   ClientWidth = 228
-  Font.Color = clBlack
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
   OnActivate = FormActivate
   Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
   object Label1: TLabel
-    Left = 50
-    Height = 14
-    Top = 70
-    Width = 99
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = Memo1
+    AnchorSideTop.Side = asrBottom
+    Left = 64
+    Height = 15
+    Top = 54
+    Width = 101
     Caption = 'Expires: 00/00/0000'
     ParentColor = False
   end
-  object Memo1: TMemo
-    Left = 8
-    Height = 59
-    Top = 8
-    Width = 197
-    Lines.Strings = (
-      'If you can edit this, your program '
-      'was '
-      'allowed to run'
-    )
-    OnDblClick = Memo1DblClick
-    ScrollBars = ssVertical
+  object CloseBtn: TBitBtn
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrBottom
+    Left = 70
+    Height = 33
+    Top = 81
+    Width = 89
+    BorderSpacing.Around = 12
+    Kind = bkClose
     TabOrder = 0
   end
-  object CloseBtn: TBitBtn
-    Left = 56
-    Height = 33
-    Top = 89
-    Width = 89
-    Kind = bkClose
-    NumGlyphs = 0
-    TabOrder = 1
+  object Memo1: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 12
+    Height = 30
+    Top = 12
+    Width = 204
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Around = 12
+    Caption = 'If you can edit this, your program was allowed to run'
+    WordWrap = True
+    OnDblClick = Memo1DblClick
   end
   object OgDateCode1: TOgDateCode
     OnChecked = OgDateCode1Checked
     OnGetKey = OgDateCode1GetKey
     OnGetCode = OgDateCode1GetCode
     StoreCode = True
-    left = 158
-    top = 87
+    Left = 176
+    Top = 64
   end
 end