From ca43d10f41482b4061581e48d79cda80ec9cc9fe Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Sun, 25 Apr 2010 16:26:51 +0000
Subject: [PATCH] JCF2: improved 'Clarify/Warnings' page layout

git-svn-id: trunk@24923 -
---
 components/jcf2/Ui/Settings/frWarnings.lfm | 42 ++++++++++++++++------
 1 file changed, 32 insertions(+), 10 deletions(-)

diff --git a/components/jcf2/Ui/Settings/frWarnings.lfm b/components/jcf2/Ui/Settings/frWarnings.lfm
index 9e6496094f..f0ba233204 100644
--- a/components/jcf2/Ui/Settings/frWarnings.lfm
+++ b/components/jcf2/Ui/Settings/frWarnings.lfm
@@ -2,38 +2,60 @@ inherited fWarnings: TfWarnings
   Height = 255
   ClientHeight = 255
   OnResize = FrameResize
+  TabOrder = 0
   DesignLeft = 254
   DesignTop = 175
   object Label1: TLabel[0]
-    Left = 8
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = cbWarnUnusedParams
+    AnchorSideTop.Side = asrBottom
+    Left = 6
     Height = 14
-    Top = 60
+    Top = 58
     Width = 168
+    BorderSpacing.Top = 6
+    BorderSpacing.Around = 6
     Caption = '&Ignore unused parameters named:'
     FocusControl = mIgnoreUnusedParams
     ParentColor = False
   end
   object cbWarningsOn: TCheckBox[1]
-    Left = 8
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    Left = 6
     Height = 17
-    Top = 8
+    Top = 6
     Width = 80
+    BorderSpacing.Around = 6
     Caption = '&Warnings On'
     TabOrder = 0
   end
   object cbWarnUnusedParams: TCheckBox[2]
-    Left = 8
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = cbWarningsOn
+    AnchorSideTop.Side = asrBottom
+    Left = 6
     Height = 17
-    Top = 31
+    Top = 29
     Width = 140
+    BorderSpacing.Around = 6
     Caption = 'Warn &unused parameters'
     TabOrder = 1
   end
   object mIgnoreUnusedParams: TMemo[3]
-    Left = 8
-    Height = 153
-    Top = 83
-    Width = 227
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 6
+    Height = 171
+    Top = 78
+    Width = 308
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Around = 6
     ScrollBars = ssVertical
     TabOrder = 2
   end