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

IDE/NewDlg: Added filter

Browse Source
This commit is contained in:
n7800 2025-06-18 02:38:42 +05:00 committed by Maxim Ganetsky
parent e0de58f8fe
commit 43b4f668d9
2 changed files with 49 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
ide/newdialog.lfm
View File

@ -24,23 +24,7 @@ object NewOtherDialog: TNewOtherDialog
ClientHeight = 390
ClientWidth = 729
TabOrder = 0
object ItemsTreeView: TTreeView
Left = 0
Height = 390
Top = 0
Width = 295
Align = alClient
ExpandSignSize = 10
HideSelection = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
OnDblClick = OkButtonClick
OnSelectionChanged = ItemsTreeViewSelectionChanged
end
object DescriptionGroupBox: TGroupBox
AnchorSideLeft.Control = ItemsTreeView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
@ -49,10 +33,11 @@ object NewOtherDialog: TNewOtherDialog
Top = 0
Width = 429
Align = alRight
BorderSpacing.Left = 2
Caption = 'DescriptionGroupBox'
ClientHeight = 370
ClientWidth = 425
TabOrder = 1
TabOrder = 2
object DescriptionLabel: TLabel
Left = 6
Height = 15
@ -125,6 +110,47 @@ object NewOtherDialog: TNewOtherDialog
Align = alRight
ResizeAnchor = akRight
end
object pnlList: TPanel
Left = 0
Height = 390
Top = 0
Width = 291
Align = alClient
BorderSpacing.Right = 2
BevelOuter = bvNone
ClientHeight = 390
ClientWidth = 291
TabOrder = 0
object TypeFilter: TTreeFilterEdit
Left = 0
Height = 23
Top = 0
Width = 291
CharCase = ecNormal
ButtonWidth = 23
Align = alTop
BorderSpacing.Bottom = 6
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
FilteredTreeview = ItemsTreeView
end
object ItemsTreeView: TTreeView
Left = 0
Height = 361
Top = 29
Width = 291
Align = alClient
ExpandSignSize = 10
HideSelection = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 1
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
OnDblClick = OkButtonClick
OnSelectionChanged = ItemsTreeViewSelectionChanged
end
end
end
object ButtonPanel: TButtonPanel
Left = 6

8
ide/newdialog.pas
View File

@ -41,8 +41,9 @@ interface
uses
SysUtils, Classes,
// LCL
ComCtrls, Controls, Dialogs, Forms, StdCtrls, ExtCtrls,
ButtonPanel, ListViewFilterEdit,
ComCtrls, Controls, Dialogs, Forms, StdCtrls, ExtCtrls, ButtonPanel,
// LazControls
ListViewFilterEdit, TreeFilterEdit,
// LazUtils
LazUTF8, FileUtil,
// IdeIntf
@ -127,6 +128,8 @@ type
ButtonPanel: TButtonPanel;
DescriptionGroupBox: TGroupBox;
DescriptionLabel: TLabel;
pnlList: TPanel;
TypeFilter: TTreeFilterEdit;
ItemsTreeView: TTreeView;
InheritableComponentsListView: TListView;
CompFilterEdit: TListViewFilterEdit;
@ -334,6 +337,7 @@ begin
end;
NewParentNode.Expand(True);
end;
TypeFilter.InvalidateFilter;
ItemsTreeView.EndUpdate;
end;