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

IDE: codebrowser: right click selects

Browse Source 
git-svn-id: trunk@43930 -
This commit is contained in:
mattias 2014-02-07 10:22:57 +00:00
parent 5dcb924a55
commit bb811b7da4
1 changed files with 48 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
ide/codebrowser.lfm
View File

@ -10,24 +10,24 @@ object CodeBrowserView: TCodeBrowserView
OnCreate = FormCreate
OnDeactivate = FormDeactivate
OnDestroy = FormDestroy
LCLVersion = '0.9.31'
LCLVersion = '1.3'
object ScopeGroupBox: TGroupBox
Left = 6
Height = 60
Height = 62
Top = 6
Width = 633
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'ScopeGroupBox'
ClientHeight = 39
ClientWidth = 625
ClientHeight = 43
ClientWidth = 629
TabOrder = 0
object ScopeComboBox: TComboBox
AnchorSideLeft.Control = ScopeGroupBox
AnchorSideTop.Control = ScopeGroupBox
Left = 6
Height = 27
Height = 31
Top = 6
Width = 315
BorderSpacing.Around = 6
@ -42,9 +42,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = ScopeComboBox
AnchorSideTop.Side = asrCenter
Left = 327
Height = 22
Top = 8
Width = 294
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 = 507
Height = 27
Left = 518
Height = 31
Top = 6
Width = 112
Width = 105
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -85,16 +85,16 @@ object CodeBrowserView: TCodeBrowserView
ChildSizing.EnlargeHorizontal = crsHomogenousSpaceResize
ChildSizing.ShrinkHorizontal = crsHomogenousSpaceResize
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ClientHeight = 34
ClientWidth = 625
ClientHeight = 36
ClientWidth = 629
TabOrder = 1
object ShowPrivateCheckBox: TCheckBox
AnchorSideLeft.Control = OptionsGroupBox
AnchorSideTop.Control = OptionsGroupBox
Left = 6
Height = 22
Height = 24
Top = 6
Width = 181
Width = 176
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'ShowPrivateCheckBox'
@ -105,10 +105,10 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideLeft.Control = OptionsGroupBox
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = OptionsGroupBox
Left = 212
Height = 22
Left = 216
Height = 24
Top = 6
Width = 201
Width = 196
BorderSpacing.Around = 6
Caption = 'ShowProtectedCheckBox'
OnChange = ShowPrivateCheckBoxChange
@ -118,10 +118,10 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = OptionsGroupBox
AnchorSideRight.Control = OptionsGroupBox
AnchorSideRight.Side = asrBottom
Left = 399
Height = 22
Left = 408
Height = 24
Top = 6
Width = 220
Width = 215
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
Caption = 'ShowEmptyNodesCheckBox'
@ -133,28 +133,28 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = OptionsGroupBox
AnchorSideTop.Side = asrBottom
Left = 0
Height = 256
Height = 257
Top = 265
Width = 645
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
DefaultItemHeight = 19
Images = ImageList1
ParentShowHint = False
PopupMenu = PopupMenu1
ReadOnly = True
RightClickSelect = True
ShowHint = True
TabOrder = 2
OnMouseDown = BrowseTreeViewMouseDown
OnMouseMove = BrowseTreeViewMouseMove
OnShowHint = BrowseTreeViewShowHint
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object StatusBar1: TStatusBar
Left = 0
Height = 22
Top = 541
Height = 21
Top = 542
Width = 645
Panels = <>
end
@ -165,28 +165,27 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 126
Top = 72
Height = 124
Top = 74
Width = 633
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'LevelsGroupBox'
ClientHeight = 105
ClientWidth = 625
ClientWidth = 629
TabOrder = 3
object PackageFilterBeginsSpeedButton: TSpeedButton
AnchorSideLeft.Control = PackageFilterEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PackageFilterEdit
AnchorSideRight.Control = PackageFilterContainsSpeedButton
Left = 447
Left = 451
Height = 22
Top = 6
Width = 86
Anchors = [akTop, akRight]
GroupIndex = 1
NumGlyphs = 0
OnClick = PackageFilterEditEditingDone
ShowHint = True
ParentShowHint = False
@ -197,14 +196,13 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = PackageFilterEdit
AnchorSideRight.Control = LevelsGroupBox
AnchorSideRight.Side = asrBottom
Left = 533
Left = 537
Height = 22
Top = 6
Width = 86
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
GroupIndex = 1
NumGlyphs = 0
OnClick = PackageFilterEditEditingDone
ShowHint = True
ParentShowHint = False
@ -215,13 +213,12 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = UnitFilterEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = UnitFilterContainsSpeedButton
Left = 447
Left = 451
Height = 22
Top = 41
Width = 86
Anchors = [akTop, akRight]
GroupIndex = 2
NumGlyphs = 0
OnClick = PackageFilterEditEditingDone
ShowHint = True
ParentShowHint = False
@ -233,14 +230,13 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LevelsGroupBox
AnchorSideRight.Side = asrBottom
Left = 533
Left = 537
Height = 22
Top = 41
Width = 86
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
GroupIndex = 2
NumGlyphs = 0
OnClick = PackageFilterEditEditingDone
ShowHint = True
ParentShowHint = False
@ -251,13 +247,12 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = IdentifierFilterEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = IdentifierFilterContainsSpeedButton
Left = 447
Left = 451
Height = 22
Top = 74
Width = 86
Anchors = [akTop, akRight]
GroupIndex = 3
NumGlyphs = 0
OnClick = PackageFilterEditEditingDone
ShowHint = True
ParentShowHint = False
@ -269,14 +264,13 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LevelsGroupBox
AnchorSideRight.Side = asrBottom
Left = 533
Left = 537
Height = 22
Top = 74
Width = 86
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
GroupIndex = 3
NumGlyphs = 0
OnClick = PackageFilterEditEditingDone
ShowHint = True
ParentShowHint = False
@ -286,9 +280,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = PackageFilterEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 22
Top = 8
Width = 196
Height = 24
Top = 7
Width = 191
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'ShowPackagesCheckBox'
@ -300,9 +294,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = UnitFilterEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 22
Top = 41
Width = 168
Height = 24
Top = 40
Width = 163
BorderSpacing.Left = 6
Caption = 'ShowUnitsCheckBox'
OnChange = ShowUnitsCheckBoxChange
@ -313,9 +307,9 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = IdentifierFilterEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 22
Top = 74
Width = 202
Height = 24
Top = 73
Width = 197
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
Caption = 'ShowIdentifiersCheckBox'
@ -325,7 +319,7 @@ object CodeBrowserView: TCodeBrowserView
object PackageFilterEdit: TEdit
AnchorSideTop.Control = LevelsGroupBox
AnchorSideRight.Control = PackageFilterBeginsSpeedButton
Left = 246
Left = 250
Height = 27
Top = 6
Width = 201
@ -340,7 +334,7 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = PackageFilterEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = UnitFilterBeginsSpeedButton
Left = 246
Left = 250
Height = 27
Top = 39
Width = 201
@ -355,7 +349,7 @@ object CodeBrowserView: TCodeBrowserView
AnchorSideTop.Control = UnitFilterEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IdentifierFilterBeginsSpeedButton
Left = 246
Left = 250
Height = 27
Top = 72
Width = 201
@ -371,7 +365,7 @@ object CodeBrowserView: TCodeBrowserView
object ProgressBar1: TProgressBar
Left = 0
Height = 20
Top = 521
Top = 522
Width = 645
Align = alBottom
Max = 10000