paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 07:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@43641 -
This commit is contained in:
juha 2014-01-03 17:26:18 +00:00
parent 5926feff6f
commit 00ae8366f0
3 changed files with 71 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/frames/env_file_filters.lfm
View File

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

113
ide/frames/help_general_options.lfm
View File

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

2
ide/frames/help_general_options.pas
View File

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