IDE: markup for user defined word-lists, improve option layout

git-svn-id: trunk@40069 -

ide/frames/editor_markup_userdefined.lfm

@@ -1,9 +1,9 @@
 object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
   Left = 0
-  Height = 382
+  Height = 362
   Top = 0
   Width = 507
-  ClientHeight = 382
+  ClientHeight = 362
   ClientWidth = 507
   TabOrder = 0
   DesignLeft = 432
@@ -69,19 +69,21 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
   end
   object MainPanel: TPanel
     Left = 0
-    Height = 360
+    Height = 338
     Top = 24
     Width = 507
     Align = alClient
+    AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 360
+    ClientHeight = 338
     ClientWidth = 507
-    Constraints.MinHeight = 360
     TabOrder = 1
     inline SynColorAttrEditor1: TSynColorAttrEditor
-      Top = 215
+      Height = 146
+      Top = 195
       Width = 507
-      Align = alBottom
+      Align = alTop
+      ClientHeight = 146
       ClientWidth = 507
       TabOrder = 1
       inherited ForeGroundUseDefaultCheckBox: TCheckBox
@@ -100,11 +102,13 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
     end
     object Notebook1: TNotebook
       Left = 0
-      Height = 215
+      Height = 195
       Top = 0
       Width = 507
       PageIndex = 0
-      Align = alClient
+      Align = alTop
+      AutoSize = True
+      Constraints.MinHeight = 195
       TabOrder = 0
       TabStop = True
       object PageMain: TPage
@@ -151,9 +155,10 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
           AnchorSideTop.Control = PageMain
           AnchorSideRight.Control = PageMain
           AnchorSideRight.Side = asrBottom
-          AnchorSideBottom.Control = SynColorAttrEditor1
+          AnchorSideBottom.Control = PageMain
+          AnchorSideBottom.Side = asrBottom
           Left = 259
-          Height = 162
+          Height = 183
           Top = 6
           Width = 242
           Anchors = [akTop, akLeft, akRight, akBottom]
@@ -264,12 +269,12 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
           AnchorSideBottom.Control = PageKeys
           AnchorSideBottom.Side = asrBottom
           Left = 253
-          Height = 215
+          Height = 195
           Top = 0
           Width = 254
           Anchors = [akTop, akLeft, akRight, akBottom]
           BevelOuter = bvNone
-          ClientHeight = 215
+          ClientHeight = 195
           ClientWidth = 254
           TabOrder = 1
           object divKeyAdd: TDividerBevel
@@ -448,6 +453,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
             Anchors = [akTop, akLeft, akRight]
             BorderSpacing.Top = 6
             BorderSpacing.Right = 6
+            BorderSpacing.Bottom = 6
             Caption = 'lbKeyToggle2'
             ParentColor = False
           end
@@ -611,6 +617,7 @@ object EditorMarkupUserDefinedFrame: TEditorMarkupUserDefinedFrame
           BorderSpacing.Left = 6
           BorderSpacing.Top = 6
           BorderSpacing.Right = 20
+          BorderSpacing.Bottom = 6
           Caption = 'cbSmartSelectBound'
           OnChange = GeneralCheckBoxChange
           TabOrder = 6

ide/syncolorattribeditor.lfm

@@ -3,9 +3,10 @@ object SynColorAttrEditor: TSynColorAttrEditor
   Height = 145
   Top = 0
   Width = 444
+  AutoSize = True
   ClientHeight = 145
   ClientWidth = 444
-  Constraints.MinHeight = 145
+  Constraints.MinHeight = 140
   OnResize = pnlElementAttributesResize
   TabOrder = 0
   DesignLeft = 399
@@ -142,6 +143,7 @@ object SynColorAttrEditor: TSynColorAttrEditor
     AutoSize = True
     BorderSpacing.Left = 6
     BorderSpacing.Top = 3
+    BorderSpacing.Bottom = 3
     BevelOuter = bvNone
     ClientHeight = 40
     ClientWidth = 145
@@ -460,7 +462,7 @@ object SynColorAttrEditor: TSynColorAttrEditor
     AnchorSideBottom.Side = asrBottom
     Left = 204
     Height = 1
-    Top = 142
+    Top = 145
     Width = 50
     AutoSize = True
     BorderSpacing.Left = 6

ide/syncolorattribeditor.pas

@@ -11,7 +11,7 @@ uses
   SynGutterChanges, SynEditMouseCmds, SynEditHighlighter, SynTextDrawer,
   DividerBevel, Laz2_XMLCfg, EditorOptions, IDEOptionsIntf,
   editor_general_options, IDEImagesIntf, LazarusIDEStrConsts, IDEProcs, typinfo,
-  LazConf, types;
+  LazConf, types, math;
 
 type
 
@@ -567,6 +567,11 @@ begin
   TextUnderlineRadioOff.Caption := dlgEdOff;
   TextUnderlineRadioInvert.Caption := dlgEdInvert;
 
+  Constraints.MinHeight := max(Constraints.MinHeight,
+                               pnlUnderline.Top + pnlUnderline.Height +
+                               Max(pnlUnderline.BorderSpacing.Around,
+                                   pnlUnderline.BorderSpacing.Bottom)
+                              );
 end;
 
 end.