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

IDE/NewProjectDlg: Added filter

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

99
ide/newprojectdlg.lfm
View File

@ -8,64 +8,79 @@ object NewProjectDialog: TNewProjectDialog
ClientHeight = 302
ClientWidth = 561
Position = poScreenCenter
LCLVersion = '4.99.0.0'
object Panel1: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
object pnlList: TPanel
Left = 6
Height = 258
Top = 6
Width = 549
Align = alClient
BorderSpacing.Around = 6
Width = 269
Align = alLeft
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 2
BevelOuter = bvNone
ClientHeight = 258
ClientWidth = 549
ClientWidth = 269
TabOrder = 0
object DescriptionGroupBox: TGroupBox
Left = 274
Height = 258
Top = 0
Width = 275
Align = alClient
Caption = 'DescriptionGroupBox'
ClientHeight = 238
ClientWidth = 271
TabOrder = 1
object HelpLabel: TLabel
Left = 6
Height = 226
Top = 6
Width = 259
Align = alClient
BorderSpacing.Around = 6
Caption = 'HelpLabel'
ParentColor = False
WordWrap = True
end
end
object Splitter1: TSplitter
Left = 269
Height = 258
Top = 0
Width = 5
end
object Tree: TTreeView
Left = 0
Height = 258
Top = 0
Height = 229
Top = 29
Width = 269
Align = alLeft
Align = alClient
Anchors = []
HideSelection = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
TabOrder = 1
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
OnDblClick = OkClick
OnSelectionChanged = TreeSelectionChange
end
object TypeFilter: TTreeFilterEdit
Left = 0
Height = 23
Top = 0
Width = 269
CharCase = ecNormal
ButtonWidth = 23
Align = alTop
BorderSpacing.Bottom = 6
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
FilteredTreeview = Tree
end
end
object Splitter1: TSplitter
Left = 277
Height = 264
Top = 0
Width = 5
end
object DescriptionGroupBox: TGroupBox
Left = 284
Height = 258
Top = 6
Width = 271
Align = alClient
BorderSpacing.Left = 2
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'DescriptionGroupBox'
ClientHeight = 238
ClientWidth = 267
TabOrder = 1
object HelpLabel: TLabel
Left = 6
Height = 226
Top = 6
Width = 255
Align = alClient
BorderSpacing.Around = 6
Caption = 'HelpLabel'
ParentColor = False
WordWrap = True
end
end
object ButtonPanel: TButtonPanel
Left = 6
@ -83,7 +98,7 @@ object NewProjectDialog: TNewProjectDialog
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
TabOrder = 3
ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False
end

6
ide/newprojectdlg.pp
View File

@ -34,6 +34,8 @@ uses
Classes, SysUtils,
// LCL
Forms, Graphics, Controls, Buttons, ButtonPanel, StdCtrls, ExtCtrls, ComCtrls,
// LazControls
TreeFilterEdit,
// BuildIntf
ProjectIntf,
// IdeIntf
@ -49,8 +51,9 @@ type
ButtonPanel: TButtonPanel;
DescriptionGroupBox: TGroupBox;
HelpLabel: TLabel;
TypeFilter: TTreeFilterEdit;
Tree: TTreeView;
Panel1: TPanel;
pnlList: TPanel;
Splitter1: TSplitter;
procedure HelpButtonClick(Sender: TObject);
procedure OkClick(Sender: TObject);
@ -138,6 +141,7 @@ begin
ItemNode.SelectedIndex:=NIndexTemplate;
end;
Tree.FullExpand;
TypeFilter.InvalidateFilter;
Tree.Items.EndUpdate;
//select first child node