Fix layout to be like wizard and messagebox designer.

Projects/CompFileListWin.dfm

@@ -3,8 +3,8 @@ object CFLWForm: TCFLWForm
   Top = 375
   BorderStyle = bsDialog
   Caption = 'Insert File List Field'
-  ClientHeight = 458
-  ClientWidth = 636
+  ClientHeight = 403
+  ClientWidth = 575
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -14,25 +14,26 @@ object CFLWForm: TCFLWForm
   Position = poDesktopCenter
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  DesignSize = (
-    636
-    458)
   TextHeight = 15
   object Panel1: TPanel
     Left = 0
-    Top = 408
-    Width = 636
-    Height = 50
+    Top = 361
+    Width = 575
+    Height = 42
     Align = alBottom
+    BevelOuter = bvNone
     TabOrder = 0
-    ExplicitTop = 399
-    ExplicitWidth = 630
-    DesignSize = (
-      636
-      50)
+    object Bevel1: TBevel
+      Left = 0
+      Top = 0
+      Width = 575
+      Height = 3
+      Align = alTop
+      Shape = bsBottomLine
+    end
     object OkButton: TButton
-      Left = 408
-      Top = 16
+      Left = 406
+      Top = 11
       Width = 75
       Height = 25
       Caption = 'Insert'
@@ -40,69 +41,61 @@ object CFLWForm: TCFLWForm
       TabOrder = 0
     end
     object CancelButton: TButton
-      Left = 503
-      Top = 16
+      Left = 490
+      Top = 11
       Width = 75
       Height = 25
-      Anchors = [akRight, akBottom]
       Cancel = True
       Caption = 'Cancel'
       ModalResult = 2
       TabOrder = 1
-      ExplicitLeft = 497
     end
   end
   object AppFilesEditButton: TButton
-    Left = 514
-    Top = 152
+    Left = 476
+    Top = 107
     Width = 89
     Height = 23
-    Anchors = [akTop, akRight]
     Caption = '&Parameters...'
     TabOrder = 1
   end
   object AppFilesRemoveButton: TButton
-    Left = 514
-    Top = 180
+    Left = 476
+    Top = 135
     Width = 89
     Height = 23
-    Anchors = [akTop, akRight]
     Caption = 'Remo&ve'
     TabOrder = 2
   end
   object AppFilesAddDirButton: TButton
-    Left = 514
-    Top = 124
+    Left = 476
+    Top = 79
     Width = 89
     Height = 23
-    Anchors = [akTop, akRight]
     Caption = 'Add fol&der...'
     TabOrder = 3
   end
   object AppFilesAddButton: TButton
-    Left = 514
-    Top = 96
+    Left = 476
+    Top = 51
     Width = 89
     Height = 23
-    Anchors = [akTop, akRight]
     Caption = '&Add file(s)...'
     TabOrder = 4
   end
   object AppFilesListBox: TDropListBox
-    Left = 20
-    Top = 96
-    Width = 457
+    Left = 8
+    Top = 52
+    Width = 453
     Height = 297
-    Anchors = [akLeft, akTop, akRight, akBottom]
     ItemHeight = 15
     TabOrder = 5
   end
   object AppFilesLabel: TNewStaticText
-    Left = 20
-    Top = 62
-    Width = 415
+    Left = 8
+    Top = 32
+    Width = 411
     Height = 16
-    Anchors = [akLeft, akTop, akRight]
     AutoSize = False
     Caption = '&Files:'
     FocusControl = AppFilesListBox
@@ -110,11 +103,10 @@ object CFLWForm: TCFLWForm
     WordWrap = True
   end
   object NotCreateAppDirCheck: TCheckBox
-    Left = 20
-    Top = 24
-    Width = 257
+    Left = 8
+    Top = 8
+    Width = 253
     Height = 17
-    Anchors = [akLeft, akTop, akRight]
     Caption = '&Script has CreateAppDir=no'
     TabOrder = 7
   end

Projects/CompFileListWin.pas

@@ -18,6 +18,7 @@ type
     AppFilesListBox: TDropListBox;
     AppFilesLabel: TNewStaticText;
     NotCreateAppDirCheck: TCheckBox;
+    Bevel1: TBevel;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
   private