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

IDE: package editor: started filter

Browse Source 
git-svn-id: trunk@29051 -
This commit is contained in:
mattias 2011-01-16 12:40:24 +00:00
parent a33763905f
commit 02c90426e1
2 changed files with 73 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
packager/packageeditor.lfm
View File

@ -20,22 +20,7 @@ inherited PackageEditorForm: TPackageEditorForm
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
end end
object FilesTreeView: TTreeView[1] object FilePropsGroupBox: TGroupBox[1]
Left = 0
Height = 257
Top = 48
Width = 577
Align = alClient
DefaultItemHeight = 19
PopupMenu = FilesPopupMenu
ReadOnly = True
TabOrder = 1
OnDblClick = FilesTreeViewDblClick
OnKeyPress = FilesTreeViewKeyPress
OnSelectionChanged = FilesTreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object FilePropsGroupBox: TGroupBox[2]
Left = 0 Left = 0
Height = 118 Height = 118
Top = 310 Top = 310
@ -44,7 +29,7 @@ inherited PackageEditorForm: TPackageEditorForm
Caption = 'FilePropsGroupBox' Caption = 'FilePropsGroupBox'
ClientHeight = 97 ClientHeight = 97
ClientWidth = 569 ClientWidth = 569
TabOrder = 2 TabOrder = 1
OnResize = FilePropsGroupBoxResize OnResize = FilePropsGroupBoxResize
object CallRegisterProcCheckBox: TCheckBox object CallRegisterProcCheckBox: TCheckBox
Left = 0 Left = 0
@ -163,14 +148,14 @@ inherited PackageEditorForm: TPackageEditorForm
end end
end end
end end
object StatusBar: TStatusBar[3] object StatusBar: TStatusBar[2]
Left = 0 Left = 0
Height = 22 Height = 22
Top = 428 Top = 428
Width = 577 Width = 577
Panels = <> Panels = <>
end end
object Splitter1: TSplitter[4] object Splitter1: TSplitter[3]
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
@ -179,6 +164,67 @@ inherited PackageEditorForm: TPackageEditorForm
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
end end
object ItemsPanel: TPanel[4]
Left = 0
Height = 257
Top = 48
Width = 577
Align = alClient
BevelOuter = bvNone
ClientHeight = 257
ClientWidth = 577
TabOrder = 4
object FilesTreeView: TTreeView
AnchorSideTop.Control = FilterEdit
AnchorSideTop.Side = asrBottom
Left = 0
Height = 230
Top = 27
Width = 577
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
DefaultItemHeight = 19
PopupMenu = FilesPopupMenu
ReadOnly = True
TabOrder = 0
OnDblClick = FilesTreeViewDblClick
OnKeyPress = FilesTreeViewKeyPress
OnSelectionChanged = FilesTreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object FilterEdit: TEdit
AnchorSideLeft.Control = SortAlphabeticallySpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ItemsPanel
Left = 46
Height = 27
Top = 0
Width = 225
TabOrder = 1
Text = 'FilterEdit'
end
object DirectoryHierachySpeedButton: TSpeedButton
AnchorSideLeft.Control = ItemsPanel
AnchorSideTop.Control = FilterEdit
AnchorSideTop.Side = asrCenter
Left = 0
Height = 22
Top = 2
Width = 23
NumGlyphs = 0
end
object SortAlphabeticallySpeedButton: TSpeedButton
AnchorSideLeft.Control = DirectoryHierachySpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FilterEdit
AnchorSideTop.Side = asrCenter
Left = 23
Height = 22
Top = 2
Width = 23
NumGlyphs = 0
end
end
object FilesPopupMenu: TPopupMenu[5] object FilesPopupMenu: TPopupMenu[5]
OnPopup = FilesPopupMenuPopup OnPopup = FilesPopupMenuPopup
left = 165 left = 165

8
packager/packageeditor.pas
View File

@ -136,6 +136,10 @@ type
{ TPackageEditorForm } { TPackageEditorForm }
TPackageEditorForm = class(TBasePackageEditor) TPackageEditorForm = class(TBasePackageEditor)
DirectoryHierachySpeedButton: TSpeedButton;
FilterEdit: TEdit;
ItemsPanel: TPanel;
SortAlphabeticallySpeedButton: TSpeedButton;
Splitter1: TSplitter; Splitter1: TSplitter;
// toolbar // toolbar
ToolBar: TToolBar; ToolBar: TToolBar;
@ -1406,6 +1410,10 @@ begin
ImageIndexText := IDEImages.LoadImage(16, 'pkg_text'); ImageIndexText := IDEImages.LoadImage(16, 'pkg_text');
ImageIndexBinary := IDEImages.LoadImage(16, 'pkg_binary'); ImageIndexBinary := IDEImages.LoadImage(16, 'pkg_binary');
ImageIndexConflict := IDEImages.LoadImage(16, 'pkg_conflict'); ImageIndexConflict := IDEImages.LoadImage(16, 'pkg_conflict');
FilterEdit.Visible:=false;
SortAlphabeticallySpeedButton.Visible:=false;
DirectoryHierachySpeedButton.Visible:=false;
ToolBar.Images := IDEImages.Images_16; ToolBar.Images := IDEImages.Images_16;