mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 15:37:50 +02:00
235 lines
6.9 KiB
Plaintext
235 lines
6.9 KiB
Plaintext
object CodeExplorerView: TCodeExplorerView
|
|
Left = 799
|
|
Height = 517
|
|
Top = 136
|
|
Width = 220
|
|
Caption = 'CodeExplorerView'
|
|
ClientHeight = 517
|
|
ClientWidth = 220
|
|
KeyPreview = True
|
|
OnActivate = FormActivate
|
|
OnCreate = CodeExplorerViewCREATE
|
|
OnDestroy = CodeExplorerViewDestroy
|
|
LCLVersion = '2.1.0.0'
|
|
object MainNotebook: TPageControl
|
|
Left = 0
|
|
Height = 517
|
|
Top = 0
|
|
Width = 220
|
|
ActivePage = CodePage
|
|
Align = alClient
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
OnChange = MainNotebookPageChanged
|
|
object CodePage: TTabSheet
|
|
Caption = 'CodePage'
|
|
ClientHeight = 490
|
|
ClientWidth = 218
|
|
object CodeTreeview: TTreeView
|
|
Left = 0
|
|
Height = 465
|
|
Top = 25
|
|
Width = 218
|
|
Align = alClient
|
|
BorderSpacing.Top = 1
|
|
HideSelection = False
|
|
Images = Imagelist1
|
|
PopupMenu = TreePopupmenu
|
|
ReadOnly = True
|
|
RightClickSelect = True
|
|
TabOrder = 1
|
|
OnDblClick = TreeviewDblClick
|
|
OnDeletion = TreeviewDeletion
|
|
OnKeyDown = TreeviewKeyDown
|
|
OnMouseDown = CodeTreeviewMouseDown
|
|
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoNoDoubleClickExpand, tvoThemedDraw]
|
|
end
|
|
object CodeTreeviewButtonPanel: TPanel
|
|
Left = 0
|
|
Height = 24
|
|
Top = 0
|
|
Width = 218
|
|
Align = alTop
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 24
|
|
ClientWidth = 218
|
|
TabOrder = 0
|
|
object CodeFilterEdit: TEditButton
|
|
AnchorSideLeft.Control = CodeTreeviewButtonPanel
|
|
AnchorSideTop.Control = CodeTreeviewButtonPanel
|
|
AnchorSideRight.Control = CodeRefreshSpeedButton
|
|
Left = 0
|
|
Height = 24
|
|
Top = 0
|
|
Width = 149
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Right = 2
|
|
ButtonWidth = 23
|
|
MaxLength = 0
|
|
NumGlyphs = 1
|
|
OnButtonClick = FilterEditButtonClick
|
|
OnChange = CodeFilterEditChange
|
|
OnEnter = FilterEditEnter
|
|
PasswordChar = #0
|
|
Spacing = 2
|
|
TabOrder = 0
|
|
Text = 'CodeFilterEdit'
|
|
end
|
|
object CodeRefreshSpeedButton: TSpeedButton
|
|
AnchorSideRight.Control = CodeModeSpeedButton
|
|
AnchorSideBottom.Control = CodeFilterEdit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 149
|
|
Height = 23
|
|
Hint = 'Refresh CodeExplorer'
|
|
Top = 1
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Flat = True
|
|
OnClick = CodeRefreshSpeedButtonClick
|
|
ShowHint = True
|
|
ParentShowHint = False
|
|
end
|
|
object CodeModeSpeedButton: TSpeedButton
|
|
AnchorSideRight.Control = CodeOptionsSpeedButton
|
|
AnchorSideBottom.Control = CodeRefreshSpeedButton
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 172
|
|
Height = 23
|
|
Top = 1
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Flat = True
|
|
OnClick = CodeModeSpeedButtonClick
|
|
ShowHint = True
|
|
ParentShowHint = False
|
|
end
|
|
object CodeOptionsSpeedButton: TSpeedButton
|
|
AnchorSideRight.Control = CodeTreeviewButtonPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = CodeRefreshSpeedButton
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 195
|
|
Height = 23
|
|
Hint = 'Options for CodeExplorer'
|
|
Top = 1
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Flat = True
|
|
OnClick = OptionsSpeedButtonClick
|
|
ShowHint = True
|
|
ParentShowHint = False
|
|
end
|
|
end
|
|
end
|
|
object DirectivesPage: TTabSheet
|
|
Caption = 'DirectivesPage'
|
|
ClientHeight = 490
|
|
ClientWidth = 218
|
|
object DirTreeviewButtonPanel: TPanel
|
|
Left = 0
|
|
Height = 24
|
|
Top = 0
|
|
Width = 218
|
|
Align = alTop
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 24
|
|
ClientWidth = 218
|
|
TabOrder = 0
|
|
object DirectivesFilterEdit: TEditButton
|
|
AnchorSideRight.Control = DirRefreshSpeedButton
|
|
Left = 0
|
|
Height = 24
|
|
Top = 0
|
|
Width = 172
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Right = 2
|
|
ButtonWidth = 23
|
|
MaxLength = 0
|
|
NumGlyphs = 1
|
|
OnButtonClick = FilterEditButtonClick
|
|
OnChange = DirectivesFilterEditChange
|
|
OnEnter = FilterEditEnter
|
|
PasswordChar = #0
|
|
Spacing = 2
|
|
TabOrder = 0
|
|
Text = 'DirectivesFilterEdit'
|
|
end
|
|
object DirRefreshSpeedButton: TSpeedButton
|
|
AnchorSideRight.Control = DirOptionsSpeedButton
|
|
AnchorSideBottom.Control = DirectivesFilterEdit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 172
|
|
Height = 23
|
|
Hint = 'Refresh CodeExplorer'
|
|
Top = 1
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Flat = True
|
|
OnClick = CodeRefreshSpeedButtonClick
|
|
ShowHint = True
|
|
ParentShowHint = False
|
|
end
|
|
object DirOptionsSpeedButton: TSpeedButton
|
|
AnchorSideRight.Control = DirTreeviewButtonPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = DirRefreshSpeedButton
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 195
|
|
Height = 23
|
|
Hint = 'Options for CodeExplorer'
|
|
Top = 1
|
|
Width = 23
|
|
Anchors = [akTop, akRight, akBottom]
|
|
Flat = True
|
|
OnClick = OptionsSpeedButtonClick
|
|
ShowHint = True
|
|
ParentShowHint = False
|
|
end
|
|
end
|
|
object DirectivesTreeView: TTreeView
|
|
AnchorSideTop.Control = DirTreeviewButtonPanel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 0
|
|
Height = 465
|
|
Top = 25
|
|
Width = 218
|
|
Align = alBottom
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Top = 1
|
|
PopupMenu = TreePopupmenu
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
OnDblClick = TreeviewDblClick
|
|
OnDeletion = TreeviewDeletion
|
|
OnKeyUp = TreeviewKeyDown
|
|
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
|
|
end
|
|
end
|
|
end
|
|
object Imagelist1: TImageList
|
|
Height = 18
|
|
Width = 18
|
|
left = 64
|
|
top = 64
|
|
end
|
|
object TreePopupmenu: TPopupMenu
|
|
OnPopup = TreePopupmenuPopup
|
|
left = 64
|
|
top = 128
|
|
object MenuItem1: TMenuItem
|
|
Caption = 'New Item1'
|
|
Visible = False
|
|
end
|
|
end
|
|
object IdleTimer1: TIdleTimer
|
|
AutoEnabled = True
|
|
Interval = 500
|
|
OnTimer = IdleTimer1Timer
|
|
left = 64
|
|
top = 192
|
|
end
|
|
end
|