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/regdemo/rcg_main.lfm

@@ -6,102 +6,162 @@ object rcgMain: TrcgMain
   HorzScrollBar.Page = 362
   VertScrollBar.Page = 321
   ActiveControl = edtAppKey
+  AutoSize = True
   BorderStyle = bsDialog
   Caption = 'Release Code Generator'
-  Font.Height = -13
-  Font.Name = 'Arial'
+  ClientHeight = 322
+  ClientWidth = 363
   ShowHint = True
+  LCLVersion = '2.3.0.0'
   object lblAppKey: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
     Left = 8
-    Height = 13
-    Top = 7
-    Width = 99
+    Height = 15
+    Top = 8
+    Width = 83
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
     Caption = '&Application Key'
     Color = clNone
     FocusControl = edtAppKey
     ParentColor = False
   end
   object lblSerialNumber: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = edtExpires
+    AnchorSideTop.Side = asrBottom
     Left = 8
-    Height = 13
-    Top = 156
-    Width = 89
+    Height = 15
+    Top = 161
+    Width = 75
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
     Caption = '&Serial Number'
     Color = clNone
     FocusControl = edtSerialNumber
     ParentColor = False
   end
   object lblReleaseCode: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Bevel1
+    AnchorSideTop.Side = asrBottom
     Left = 8
-    Height = 13
-    Top = 222
-    Width = 80
+    Height = 15
+    Top = 224
+    Width = 70
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
     Caption = 'Release Code'
     Color = clNone
     ParentColor = False
   end
   object Bevel1: TBevel
+    AnchorSideLeft.Control = edtSerialNumber
+    AnchorSideTop.Control = edtSerialNumber
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = edtSerialNumber
+    AnchorSideRight.Side = asrBottom
     Left = 8
     Height = 5
     Top = 211
     Width = 329
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Top = 10
     Shape = bsTopLine
   end
   object edtAppKey: TEdit
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = lblAppKey
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = spdAppKey
     Left = 8
     Height = 24
-    Top = 24
-    Width = 329
+    Top = 25
+    Width = 295
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 2
+    BorderSpacing.Right = 4
     Font.Color = clRed
     Font.Height = -13
     Font.Name = 'MS Sans Serif'
     OnChange = edtAppKeyChange
+    ParentFont = False
     ReadOnly = True
     TabStop = False
     TabOrder = 0
   end
   object chkMachMod: TCheckBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = edtAppKey
+    AnchorSideTop.Side = asrBottom
     Left = 8
-    Height = 22
-    Top = 56
-    Width = 179
+    Height = 19
+    Top = 57
+    Width = 155
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
     Caption = 'Apply a &Machine Modifier'
     OnClick = chkMachModClick
     TabOrder = 2
   end
   object edtMachineMod: TEdit
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = chkMachMod
+    AnchorSideTop.Side = asrBottom
     Left = 8
-    Height = 24
-    Top = 74
+    Height = 23
+    Top = 78
     Width = 329
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 2
+    BorderSpacing.Right = 8
     Enabled = False
     MaxLength = 10
     OnChange = edtAppKeyChange
     TabOrder = 3
   end
   object edtSerialNumber: TEdit
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = lblSerialNumber
+    AnchorSideTop.Side = asrBottom
     Left = 8
-    Height = 24
-    Top = 173
+    Height = 23
+    Top = 178
     Width = 329
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 2
     MaxLength = 10
     OnChange = edtAppKeyChange
     TabOrder = 6
   end
   object edtReleaseCode: TEdit
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = lblReleaseCode
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = spdReleaseCode
     Left = 8
-    Height = 24
-    Top = 238
-    Width = 329
+    Height = 23
+    Top = 241
+    Width = 299
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 2
+    BorderSpacing.Right = 4
     ReadOnly = True
     TabStop = False
     TabOrder = 7
   end
   object btnExit: TButton
+    AnchorSideTop.Control = btnReadme
+    AnchorSideRight.Control = edtMachineMod
+    AnchorSideRight.Side = asrBottom
     Left = 262
     Height = 25
-    Top = 273
+    Top = 276
     Width = 75
+    Anchors = [akTop, akLeft, akRight]
     BorderSpacing.InnerBorder = 4
     Caption = 'Exit'
     Default = True
@@ -109,28 +169,43 @@ object rcgMain: TrcgMain
     TabOrder = 9
   end
   object chkExpires: TCheckBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = edtMachineMod
+    AnchorSideTop.Side = asrBottom
     Left = 8
-    Height = 22
-    Top = 104
-    Width = 158
+    Height = 19
+    Top = 109
+    Width = 129
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
     Caption = '&Release code expires '
     OnClick = chkExpiresClick
     TabOrder = 4
   end
   object edtExpires: TEdit
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = chkExpires
+    AnchorSideTop.Side = asrBottom
     Left = 8
-    Height = 24
-    Top = 125
+    Height = 23
+    Top = 130
     Width = 329
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 2
     Enabled = False
     OnChange = edtAppKeyChange
     TabOrder = 5
   end
   object spdAppKey: TBitBtn
-    Left = 310
-    Height = 21
-    Top = 26
-    Width = 25
+    AnchorSideTop.Control = edtAppKey
+    AnchorSideTop.Side = asrCenter
+    AnchorSideRight.Control = edtMachineMod
+    AnchorSideRight.Side = asrBottom
+    Left = 307
+    Height = 26
+    Top = 24
+    Width = 30
+    Anchors = [akTop, akRight]
     Glyph.Data = {
       26040000424D2604000000000000360000002800000012000000120000000100
       180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF
@@ -167,15 +242,19 @@ object rcgMain: TrcgMain
       FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD5D5D519667800
       556B62737CFFFFFF0000
     }
-    NumGlyphs = 0
     OnClick = spdAppKeyClick
+    Spacing = 0
     TabOrder = 1
   end
   object spdReleaseCode: TBitBtn
+    AnchorSideTop.Control = edtReleaseCode
+    AnchorSideTop.Side = asrCenter
+    AnchorSideRight.Control = edtMachineMod
     Left = 311
-    Height = 21
-    Top = 240
-    Width = 25
+    Height = 26
+    Top = 239
+    Width = 30
+    Anchors = [akTop]
     Glyph.Data = {
       26040000424D2604000000000000360000002800000012000000120000000100
       180000000000F003000000000000000000000000000000000000FFFFFFFFFFFF
@@ -212,22 +291,28 @@ object rcgMain: TrcgMain
       FF9F9F9F5A35336F423E6F423E3E2523DFDFDFFFFFFFFFFFFFFFFFFFFFFFFFFF
       FFFFFFFFFFFFFFFF0000
     }
-    NumGlyphs = 0
     OnClick = spdReleaseCodeClick
+    Spacing = 0
     TabOrder = 8
   end
   object btnReadme: TButton
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = edtReleaseCode
+    AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 25
-    Top = 273
+    Top = 276
     Width = 75
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 12
+    BorderSpacing.Bottom = 8
     BorderSpacing.InnerBorder = 4
     Caption = 'Readme...'
     OnClick = btnReadmeClick
     TabOrder = 10
   end
   object OgMakeKeys1: TOgMakeKeys
-    left = 144
-    top = 272
+    Left = 152
+    Top = 248
   end
 end