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/exsrnm1/exsrnmu2.lfm

@@ -6,69 +6,104 @@ object SNEntryDlg: TSNEntryDlg
   HorzScrollBar.Page = 246
   VertScrollBar.Page = 165
   ActiveControl = SNText
+  AutoSize = True
   Caption = 'Serial Number'
-  Font.Color = clBlack
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
+  ClientHeight = 166
+  ClientWidth = 247
+  LCLVersion = '2.3.0.0'
   object Label1: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = SNText
+    AnchorSideTop.Side = asrCenter
     Left = 8
-    Height = 13
-    Top = 40
-    Width = 18
+    Height = 15
+    Top = 35
+    Width = 15
+    BorderSpacing.Left = 8
     Caption = 'SN'
     Color = clNone
     ParentColor = False
   end
   object Label2: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = CodeText
+    AnchorSideTop.Side = asrCenter
     Left = 8
-    Height = 13
+    Height = 15
     Top = 66
-    Width = 31
+    Width = 28
+    BorderSpacing.Left = 8
     Caption = 'Code'
     Color = clNone
     ParentColor = False
   end
   object Label3: TLabel
-    Left = 40
-    Height = 13
-    Top = 7
-    Width = 193
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = Owner
+    Left = 34
+    Height = 15
+    Top = 8
+    Width = 178
+    BorderSpacing.Around = 8
     Caption = 'Call your Vendor NOW to register!'
     Color = clNone
     ParentColor = False
   end
   object SNText: TEdit
+    AnchorSideLeft.Control = CodeText
+    AnchorSideTop.Control = Label3
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = CodeText
+    AnchorSideRight.Side = asrBottom
     Left = 44
-    Height = 20
-    Top = 36
-    Width = 121
+    Height = 23
+    Top = 31
+    Width = 185
+    Anchors = [akTop, akLeft, akRight]
     TabOrder = 0
   end
   object CodeText: TEdit
+    AnchorSideLeft.Control = Label2
+    AnchorSideLeft.Side = asrBottom
     Left = 44
-    Height = 20
+    Height = 23
     Top = 62
     Width = 185
+    BorderSpacing.Left = 8
     TabOrder = 1
   end
   object OKBtn: TBitBtn
-    Left = 23
+    AnchorSideRight.Control = Bevel1
+    Left = 28
     Height = 33
     Top = 94
     Width = 89
+    Anchors = [akTop, akRight]
     Kind = bkOK
     ModalResult = 1
-    NumGlyphs = 0
     TabOrder = 2
   end
   object CancelBtn: TBitBtn
-    Left = 127
+    AnchorSideLeft.Control = Bevel1
+    AnchorSideLeft.Side = asrBottom
+    Left = 129
     Height = 33
     Top = 94
     Width = 89
+    BorderSpacing.Right = 8
+    BorderSpacing.Bottom = 8
     Kind = bkCancel
-    NumGlyphs = 0
     OnClick = CancelBtnClick
     TabOrder = 3
   end
+  object Bevel1: TBevel
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    Left = 117
+    Height = 32
+    Top = 89
+    Width = 12
+    Shape = bsSpacer
+  end
 end