IDE: Adjust column widths in IDE Options to prevent text clipping. Issue #18398

git-svn-id: trunk@43641 -

ide/frames/env_file_filters.lfm

@@ -1,12 +1,14 @@
-inherited FileFiltersOptionsFrame: TFileFiltersOptionsFrame
+object FileFiltersOptionsFrame: TFileFiltersOptionsFrame
+  Left = 0
   Height = 319
+  Top = 0
   Width = 455
   ClientHeight = 319
   ClientWidth = 455
   TabOrder = 0
-  DesignLeft = 367
-  DesignTop = 168
-  object grdFileFilters: TStringGrid[0]
+  DesignLeft = 386
+  DesignTop = 179
+  object grdFileFilters: TStringGrid
     Left = 8
     Height = 281
     Top = 32
@@ -17,12 +19,10 @@ inherited FileFiltersOptionsFrame: TFileFiltersOptionsFrame
     Columns = <    
       item
         Title.Caption = 'Name'
-        Title.PrefixOption = poNone
-        Width = 130
+        Width = 250
       end    
       item
         Title.Caption = 'File mask'
-        Title.PrefixOption = poNone
         Width = 300
       end>
     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goThumbTracking, goSmoothScroll, goFixedRowNumbering]
@@ -31,15 +31,15 @@ inherited FileFiltersOptionsFrame: TFileFiltersOptionsFrame
     TabOrder = 0
     OnKeyDown = grdFileFiltersKeyDown
   end
-  object lblTitle: TLabel[1]
+  object lblTitle: TLabel
     Left = 8
-    Height = 17
+    Height = 20
     Top = 9
-    Width = 43
+    Width = 46
     Caption = 'lblTitle'
     ParentColor = False
   end
-  object pmGrid: TPopupMenu[2]
+  object pmGrid: TPopupMenu
     left = 205
     top = 75
     object pmiAddRow: TMenuItem

ide/frames/help_general_options.lfm

@@ -1,62 +1,65 @@
-inherited HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
+object HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
+  Left = 0
   Height = 500
+  Top = 0
   Width = 500
   ClientHeight = 500
   ClientWidth = 500
+  TabOrder = 0
   DesignLeft = 476
   DesignTop = 241
-  object FPCDocHTMLLabel: TLabel[0]
+  object FPCDocHTMLLabel: TLabel
     AnchorSideTop.Control = Owner
     Left = 70
-    Height = 14
+    Height = 20
     Top = 0
-    Width = 103
+    Width = 132
     Caption = 'FPCDocHTMLLabel'
     Font.Style = [fsBold]
     ParentColor = False
     ParentFont = False
   end
-  object Bevel1: TBevel[1]
+  object Bevel1: TBevel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = lblViewers
     AnchorSideTop.Side = asrCenter
     AnchorSideRight.Control = lblViewers
     Left = 0
     Height = 3
-    Top = 55
+    Top = 69
     Width = 64
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Top = 6
     BorderSpacing.Right = 6
   end
-  object lblViewers: TLabel[2]
+  object lblViewers: TLabel
     AnchorSideTop.Control = FPCDocHTMLEdit
     AnchorSideTop.Side = asrBottom
     Left = 70
-    Height = 14
-    Top = 49
-    Width = 58
+    Height = 20
+    Top = 60
+    Width = 72
     BorderSpacing.Top = 6
     Caption = 'lblViewers'
     Font.Style = [fsBold]
     ParentColor = False
     ParentFont = False
   end
-  object Bevel2: TBevel[3]
+  object Bevel2: TBevel
     AnchorSideLeft.Control = lblViewers
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = lblViewers
     AnchorSideTop.Side = asrCenter
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
-    Left = 134
+    Left = 148
     Height = 3
-    Top = 55
-    Width = 366
+    Top = 69
+    Width = 352
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 6
   end
-  object lblMiddle: TLabel[4]
+  object lblMiddle: TLabel
     AnchorSideLeft.Control = Owner
     AnchorSideLeft.Side = asrCenter
     AnchorSideTop.Control = Owner
@@ -68,46 +71,46 @@ inherited HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
     AutoSize = False
     ParentColor = False
   end
-  object Bevel3: TBevel[5]
+  object Bevel3: TBevel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = lblDatabases
     AnchorSideTop.Side = asrCenter
     AnchorSideRight.Control = lblDatabases
     Left = 0
     Height = 3
-    Top = 282
+    Top = 285
     Width = 64
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Top = 6
     BorderSpacing.Right = 6
   end
-  object lblDatabases: TLabel[6]
+  object lblDatabases: TLabel
     AnchorSideTop.Control = lblMiddle1
     AnchorSideTop.Side = asrBottom
     Left = 70
-    Height = 14
+    Height = 20
     Top = 276
-    Width = 74
+    Width = 89
     Caption = 'lblDatabases'
     Font.Style = [fsBold]
     ParentColor = False
     ParentFont = False
   end
-  object Bevel4: TBevel[7]
+  object Bevel4: TBevel
     AnchorSideLeft.Control = lblDatabases
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = lblDatabases
     AnchorSideTop.Side = asrCenter
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
-    Left = 150
+    Left = 165
     Height = 3
-    Top = 282
-    Width = 350
+    Top = 285
+    Width = 335
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 6
   end
-  object lblMiddle1: TLabel[8]
+  object lblMiddle1: TLabel
     AnchorSideTop.Control = lblMiddle
     Left = 222
     Height = 1
@@ -117,41 +120,41 @@ inherited HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
     BorderSpacing.Top = 25
     ParentColor = False
   end
-  object Bevel5: TBevel[9]
+  object Bevel5: TBevel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = FPCDocHTMLLabel
     AnchorSideTop.Side = asrCenter
     AnchorSideRight.Control = FPCDocHTMLLabel
     Left = 0
     Height = 3
-    Top = 6
+    Top = 9
     Width = 64
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Top = 6
     BorderSpacing.Right = 6
   end
-  object Bevel6: TBevel[10]
+  object Bevel6: TBevel
     AnchorSideLeft.Control = FPCDocHTMLLabel
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = FPCDocHTMLLabel
     AnchorSideTop.Side = asrCenter
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
-    Left = 179
+    Left = 208
     Height = 3
-    Top = 6
-    Width = 321
+    Top = 9
+    Width = 292
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 6
   end
-  object FPCDocHTMLEdit: TEdit[11]
+  object FPCDocHTMLEdit: TEdit
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = FPCDocHTMLLabel
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = FPCDocHTMLBrowseButton
     Left = 6
-    Height = 23
-    Top = 20
+    Height = 28
+    Top = 26
     Width = 465
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 6
@@ -159,15 +162,15 @@ inherited HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
     TabOrder = 0
     Text = 'FPCDocHTMLEdit'
   end
-  object FPCDocHTMLBrowseButton: TButton[12]
+  object FPCDocHTMLBrowseButton: TButton
     AnchorSideTop.Control = FPCDocHTMLEdit
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = FPCDocHTMLEdit
     AnchorSideBottom.Side = asrBottom
     Left = 471
-    Height = 23
-    Top = 20
+    Height = 28
+    Top = 26
     Width = 23
     Anchors = [akTop, akRight, akBottom]
     BorderSpacing.Right = 6
@@ -175,16 +178,16 @@ inherited HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
     OnClick = FPCDocHTMLBrowseButtonClick
     TabOrder = 1
   end
-  object ViewersListBox: TListBox[13]
+  object ViewersListBox: TListBox
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = lblViewers
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = lblMiddle
     AnchorSideBottom.Control = lblDatabases
     Left = 6
-    Height = 201
-    Top = 69
-    Width = 198
+    Height = 184
+    Top = 86
+    Width = 210
     Anchors = [akTop, akLeft, akBottom]
     BorderSpacing.Around = 6
     ClickOnSelChange = False
@@ -192,7 +195,7 @@ inherited HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
     OnSelectionChange = ViewersListBoxSelectionChange
     TabOrder = 2
   end
-  object ViewerPropsGroupBox: TGroupBox[14]
+  object ViewerPropsGroupBox: TGroupBox
     AnchorSideLeft.Control = ViewersListBox
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = lblViewers
@@ -200,25 +203,25 @@ inherited HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = lblDatabases
-    Left = 210
-    Height = 201
-    Top = 69
-    Width = 284
+    Left = 222
+    Height = 184
+    Top = 86
+    Width = 272
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Around = 6
     Caption = 'ViewerPropsGroupBox'
     TabOrder = 3
   end
-  object DatabasesListBox: TListBox[15]
+  object DatabasesListBox: TListBox
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = lblDatabases
     AnchorSideTop.Side = asrBottom
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 6
-    Height = 204
-    Top = 296
-    Width = 198
+    Height = 198
+    Top = 302
+    Width = 210
     Anchors = [akTop, akLeft, akBottom]
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
@@ -228,7 +231,7 @@ inherited HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
     OnSelectionChange = DatabasesListBoxSelectionChange
     TabOrder = 4
   end
-  object DataBasesPropsGroupBox: TGroupBox[16]
+  object DataBasesPropsGroupBox: TGroupBox
     AnchorSideLeft.Control = DatabasesListBox
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = lblDatabases
@@ -237,10 +240,10 @@ inherited HelpGeneralOptionsFrame: THelpGeneralOptionsFrame
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
-    Left = 210
-    Height = 204
-    Top = 296
-    Width = 284
+    Left = 222
+    Height = 198
+    Top = 302
+    Width = 272
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6

ide/frames/help_general_options.pas

@@ -161,6 +161,7 @@ begin
     Parent := ViewerPropsGroupBox;
     Align := alClient;
     BorderSpacing.Around := 6;
+    PreferredSplitterX := 150;
   end;
 
   DatabasesPropertiesGrid := TCustomPropertiesGrid.Create(Self);
@@ -170,6 +171,7 @@ begin
     Parent := DataBasesPropsGroupBox;
     Align := alClient;
     BorderSpacing.Around := 6;
+    PreferredSplitterX := 150;
   end;
 end;