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

IDE: Improve layout in Code browser. Issue #28757, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49910 -
This commit is contained in:
juha 2015-10-02 11:28:02 +00:00
parent 16f941c896
commit 35dea594e8
1 changed files with 74 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

141
ide/codebrowser.lfm
View File

@ -13,25 +13,25 @@ object CodeBrowserView: TCodeBrowserView
LCLVersion = '1.5'
object ScopeGroupBox: TGroupBox
Left = 6
Height = 57
Height = 62
Top = 6
Width = 633
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'ScopeGroupBox'
ClientHeight = 37
ClientHeight = 43
ClientWidth = 629
TabOrder = 0
object ScopeComboBox: TComboBox
AnchorSideLeft.Control = ScopeGroupBox
AnchorSideTop.Control = ScopeGroupBox
Left = 6
Height = 23
Height = 31
Top = 6
Width = 315
BorderSpacing.Around = 6
ItemHeight = 15
ItemHeight = 0
OnChange = ScopeComboBoxChange
Style = csDropDownList
TabOrder = 0
@ -42,9 +42,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = ScopeComboBox
AnchorSideTop.Side = asrCenter
Left = 327
Height = 19
Top = 8
Width = 225
Height = 24
Top = 9
Width = 289
BorderSpacing.Left = 6
BorderSpacing.Right = 50
Caption = 'ScopeWithRequiredPackagesCheckBox'
@ -52,10 +52,10 @@ object CodeBrowserView: TCodeBrowserView
TabOrder = 1
end
object RescanButton: TButton
Left = 524
Height = 25
Left = 518
Height = 31
Top = 6
Width = 99
Width = 105
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -73,8 +73,8 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 51
Top = 188
Height = 55
Top = 204
Width = 633
Anchors = [akTop, akLeft, akRight]
AutoSize = True
@ -85,16 +85,16 @@ object CodeBrowserView: TCodeBrowserView
ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ClientHeight = 31
ClientHeight = 36
ClientWidth = 629
TabOrder = 2
object ShowPrivateCheckBox: TCheckBox
AnchorSideLeft.Control = OptionsGroupBox
AnchorSideTop.Control = OptionsGroupBox
Left = 6
Height = 19
Height = 24
Top = 6
Width = 137
Width = 176
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
@ -106,10 +106,10 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideLeft.Control = ShowPrivateCheckBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ShowPrivateCheckBox
Left = 167
Height = 19
Left = 206
Height = 24
Top = 6
Width = 152
Width = 196
BorderSpacing.Left = 24
Caption = 'ShowProtectedCheckBox'
OnChange = ShowPrivateCheckBoxChange
@ -121,10 +121,10 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = ShowPrivateCheckBox
AnchorSideRight.Control = OptionsGroupBox
AnchorSideRight.Side = asrBottom
Left = 343
Height = 19
Left = 426
Height = 24
Top = 6
Width = 169
Width = 215
BorderSpacing.Left = 24
Caption = 'ShowEmptyNodesCheckBox'
OnEditingDone = ShowPrivateCheckBoxChange
@ -134,14 +134,13 @@ object CodeBrowserView: TCodeBrowserView
object BrowseTreeView: TTreeView
AnchorSideTop.Control = OptionsGroupBox
AnchorSideTop.Side = asrBottom
Left = 0
Height = 275
Top = 245
Width = 645
Left = 6
Height = 251
Top = 265
Width = 633
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
DefaultItemHeight = 18
BorderSpacing.Around = 6
Images = ImageList1
ParentShowHint = False
PopupMenu = PopupMenu1
@ -156,8 +155,8 @@ object CodeBrowserView: TCodeBrowserView
end
object StatusBar1: TStatusBar
Left = 0
Height = 23
Top = 540
Height = 21
Top = 542
Width = 645
Panels = <>
end
@ -168,14 +167,14 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 113
Top = 69
Height = 124
Top = 74
Width = 633
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'LevelsGroupBox'
ClientHeight = 93
ClientHeight = 105
ClientWidth = 629
TabOrder = 1
object PackageFilterBeginsSpeedButton: TSpeedButton
@ -183,11 +182,13 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PackageFilterEdit
AnchorSideRight.Control = PackageFilterContainsSpeedButton
AnchorSideBottom.Control = PackageFilterEdit
AnchorSideBottom.Side = asrBottom
Left = 451
Height = 22
Height = 27
Top = 6
Width = 86
Anchors = [akTop, akRight]
Anchors = [akTop, akRight, akBottom]
GroupIndex = 1
OnClick = PackageFilterEditEditingDone
ShowHint = True
@ -199,11 +200,13 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = PackageFilterEdit
AnchorSideRight.Control = LevelsGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PackageFilterEdit
AnchorSideBottom.Side = asrBottom
Left = 537
Height = 22
Height = 27
Top = 6
Width = 86
Anchors = [akTop, akRight]
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
GroupIndex = 1
OnClick = PackageFilterEditEditingDone
@ -214,13 +217,14 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideLeft.Control = UnitFilterEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = UnitFilterEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = UnitFilterContainsSpeedButton
AnchorSideBottom.Control = UnitFilterEdit
AnchorSideBottom.Side = asrBottom
Left = 451
Height = 22
Top = 35
Height = 27
Top = 39
Width = 86
Anchors = [akTop, akRight]
Anchors = [akTop, akRight, akBottom]
GroupIndex = 2
OnClick = PackageFilterEditEditingDone
ShowHint = True
@ -230,14 +234,15 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideLeft.Control = UnitFilterBeginsSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = UnitFilterEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LevelsGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = UnitFilterEdit
AnchorSideBottom.Side = asrBottom
Left = 537
Height = 22
Top = 35
Height = 27
Top = 39
Width = 86
Anchors = [akTop, akRight]
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
GroupIndex = 2
OnClick = PackageFilterEditEditingDone
@ -248,13 +253,14 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideLeft.Control = IdentifierFilterEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = IdentifierFilterEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = IdentifierFilterContainsSpeedButton
AnchorSideBottom.Control = IdentifierFilterEdit
AnchorSideBottom.Side = asrBottom
Left = 451
Height = 22
Top = 64
Height = 27
Top = 72
Width = 86
Anchors = [akTop, akRight]
Anchors = [akTop, akRight, akBottom]
GroupIndex = 3
OnClick = PackageFilterEditEditingDone
ShowHint = True
@ -264,14 +270,15 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideLeft.Control = IdentifierFilterBeginsSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = IdentifierFilterEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LevelsGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = IdentifierFilterEdit
AnchorSideBottom.Side = asrBottom
Left = 537
Height = 22
Top = 64
Height = 27
Top = 72
Width = 86
Anchors = [akTop, akRight]
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
GroupIndex = 3
OnClick = PackageFilterEditEditingDone
@ -283,9 +290,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = PackageFilterEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 19
Top = 8
Width = 150
Height = 24
Top = 7
Width = 191
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'ShowPackagesCheckBox'
@ -297,9 +304,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = UnitFilterEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 19
Top = 37
Width = 128
Height = 24
Top = 40
Width = 163
BorderSpacing.Left = 6
Caption = 'ShowUnitsCheckBox'
OnChange = ShowUnitsCheckBoxChange
@ -310,9 +317,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = IdentifierFilterEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 19
Top = 66
Width = 153
Height = 24
Top = 73
Width = 197
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
Caption = 'ShowIdentifiersCheckBox'
@ -323,7 +330,7 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = LevelsGroupBox
AnchorSideRight.Control = PackageFilterBeginsSpeedButton
Left = 250
Height = 23
Height = 27
Top = 6
Width = 201
Anchors = [akTop, akRight]
@ -338,8 +345,8 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = UnitFilterBeginsSpeedButton
Left = 250
Height = 23
Top = 35
Height = 27
Top = 39
Width = 201
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
@ -353,8 +360,8 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IdentifierFilterBeginsSpeedButton
Left = 250
Height = 23
Top = 64
Height = 27
Top = 72
Width = 201
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
@ -368,7 +375,7 @@ object CodeBrowserView: TCodeBrowserView
object ProgressBar1: TProgressBar
Left = 0
Height = 20
Top = 520
Top = 522
Width = 645
Align = alBottom
Max = 10000