From 00ae8366f0d1841f44ea1e6374d0f64298dca618 Mon Sep 17 00:00:00 2001 From: juha Date: Fri, 3 Jan 2014 17:26:18 +0000 Subject: [PATCH] IDE: Adjust column widths in IDE Options to prevent text clipping. Issue #18398 git-svn-id: trunk@43641 - --- ide/frames/env_file_filters.lfm | 22 +++--- ide/frames/help_general_options.lfm | 113 ++++++++++++++-------------- ide/frames/help_general_options.pas | 2 + 3 files changed, 71 insertions(+), 66 deletions(-) diff --git a/ide/frames/env_file_filters.lfm b/ide/frames/env_file_filters.lfm index d072e33558..4694458299 100644 --- a/ide/frames/env_file_filters.lfm +++ b/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 diff --git a/ide/frames/help_general_options.lfm b/ide/frames/help_general_options.lfm index 8f1702efdf..276f5daf85 100644 --- a/ide/frames/help_general_options.lfm +++ b/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 diff --git a/ide/frames/help_general_options.pas b/ide/frames/help_general_options.pas index ec19118594..9aee61d339 100644 --- a/ide/frames/help_general_options.pas +++ b/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;