From 1ec64831b7ee5d2f8c64cb983d1f263da222ddc6 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Sun, 25 Apr 2010 14:10:37 +0000
Subject: [PATCH] JCF2: improved 'Clarify/Blank Lines' page layout

git-svn-id: trunk@24913 -
---
 components/jcf2/Ui/Settings/frBlankLines.lfm | 115 ++++++++++++++-----
 1 file changed, 86 insertions(+), 29 deletions(-)

diff --git a/components/jcf2/Ui/Settings/frBlankLines.lfm b/components/jcf2/Ui/Settings/frBlankLines.lfm
index de94efa6de..d5816fcf1f 100644
--- a/components/jcf2/Ui/Settings/frBlankLines.lfm
+++ b/components/jcf2/Ui/Settings/frBlankLines.lfm
@@ -3,111 +3,168 @@ inherited fBlankLines: TfBlankLines
   Width = 380
   ClientHeight = 280
   ClientWidth = 380
+  TabOrder = 0
   DesignLeft = 452
   DesignTop = 192
   object Label1: TLabel[0]
-    Left = 8
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = eNumReturnsAfterFinalEnd
+    AnchorSideTop.Side = asrCenter
+    Left = 6
     Height = 14
-    Top = 144
+    Top = 135
     Width = 211
+    BorderSpacing.Left = 6
     Caption = 'Number of returns after the unit''s final end.'
     ParentColor = False
   end
   object Label2: TLabel[1]
-    Left = 8
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = edtMaxConsecutiveBlankLines
+    AnchorSideTop.Side = asrCenter
+    Left = 6
     Height = 14
-    Top = 200
+    Top = 185
     Width = 178
+    BorderSpacing.Left = 6
     Caption = 'Max consecutive blank lines anwhere'
     ParentColor = False
   end
   object Label3: TLabel[2]
-    Left = 8
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = edtLinesBeforeProcedure
+    AnchorSideTop.Side = asrCenter
+    Left = 6
     Height = 14
-    Top = 226
+    Top = 212
     Width = 112
+    BorderSpacing.Left = 6
     Caption = 'Lines before procedure'
     ParentColor = False
   end
   object eNumReturnsAfterFinalEnd: TSpinEdit[3]
-    Left = 314
+    AnchorSideTop.Control = gbRemoveBlankLines
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Side = asrBottom
+    Left = 272
     Height = 21
-    Top = 140
+    Top = 132
     Width = 49
+    Anchors = [akTop, akRight]
     MaxValue = 255
     TabOrder = 1
   end
   object cbRemoveConsecutiveBlankLines: TCheckBox[4]
-    Left = 8
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = eNumReturnsAfterFinalEnd
+    AnchorSideTop.Side = asrBottom
+    Left = 6
     Height = 17
-    Top = 176
+    Top = 159
     Width = 169
+    BorderSpacing.Around = 6
     Caption = 'Remove consecutive blank lines'
     TabOrder = 2
   end
   object edtMaxConsecutiveBlankLines: TSpinEdit[5]
-    Left = 314
+    AnchorSideTop.Control = cbRemoveConsecutiveBlankLines
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Side = asrBottom
+    Left = 272
     Height = 21
-    Top = 192
+    Top = 182
     Width = 49
+    Anchors = [akTop, akRight]
     MaxValue = 99
     TabOrder = 3
   end
   object gbRemoveBlankLines: TGroupBox[6]
-    Left = 8
-    Height = 126
-    Top = 3
-    Width = 366
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 6
+    Height = 120
+    Top = 6
+    Width = 368
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    BorderSpacing.Around = 6
     Caption = 'Remove blank lines'
-    ClientHeight = 108
-    ClientWidth = 362
+    ClientHeight = 102
+    ClientWidth = 364
     TabOrder = 0
     object Label4: TLabel
-      Left = 8
+      AnchorSideLeft.Control = gbRemoveBlankLines
+      AnchorSideTop.Control = edtMaxBlankLinesInSection
+      AnchorSideTop.Side = asrCenter
+      Left = 6
       Height = 14
-      Top = 81
+      Top = 78
       Width = 209
+      BorderSpacing.Left = 6
       Caption = 'Max consecutive blank lines before removal'
       ParentColor = False
     end
     object cbRemoveBlockBlankLines: TCheckBox
-      Left = 8
+      AnchorSideLeft.Control = gbRemoveBlankLines
+      AnchorSideTop.Control = cbRemoveBlankLinesAfterProcHeader
+      AnchorSideTop.Side = asrBottom
+      Left = 6
       Height = 17
-      Top = 54
+      Top = 52
       Width = 192
+      BorderSpacing.Around = 6
       Caption = 'At start and end of begin..end block'
       TabOrder = 2
     end
     object cbRemoveBlankLinesAfterProcHeader: TCheckBox
-      Left = 8
+      AnchorSideLeft.Control = gbRemoveBlankLines
+      AnchorSideTop.Control = cbRemoveVarBlankLines
+      AnchorSideTop.Side = asrBottom
+      Left = 6
       Height = 17
-      Top = 31
+      Top = 29
       Width = 132
+      BorderSpacing.Around = 6
       Caption = 'After procedure header'
       TabOrder = 1
     end
     object cbRemoveVarBlankLines: TCheckBox
+      AnchorSideLeft.Control = gbRemoveBlankLines
+      AnchorSideTop.Control = gbRemoveBlankLines
       Left = 6
       Height = 17
-      Top = 8
+      Top = 6
       Width = 136
+      BorderSpacing.Around = 6
       Caption = 'In procedure var section'
       TabOrder = 0
     end
     object edtMaxBlankLinesInSection: TSpinEdit
-      Left = 306
+      AnchorSideLeft.Control = Label4
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = cbRemoveBlockBlankLines
+      AnchorSideTop.Side = asrBottom
+      Left = 221
       Height = 21
-      Top = 78
+      Top = 75
       Width = 49
+      BorderSpacing.Around = 6
       MaxValue = 99
       TabOrder = 3
     end
   end
   object edtLinesBeforeProcedure: TSpinEdit[7]
-    Left = 314
+    AnchorSideTop.Control = edtMaxConsecutiveBlankLines
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Side = asrBottom
+    Left = 272
     Height = 21
-    Top = 226
+    Top = 209
     Width = 49
+    Anchors = [akTop, akRight]
+    BorderSpacing.Around = 6
     MaxValue = 9
     TabOrder = 4
   end