paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 20:29:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: package editor: allow multi select, issue #26289

Browse Source 
git-svn-id: trunk@45453 -
This commit is contained in:
mattias 2014-06-10 11:46:36 +00:00
parent be8245f0c8
commit 5da50727a9
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packager/packageeditor.lfm
View File

@ -320,6 +320,7 @@ object PackageEditorForm: TPackageEditorForm
Align = alClient
BorderSpacing.Top = 1
DefaultItemHeight = 18
MultiSelect = True
PopupMenu = ItemsPopupMenu
ReadOnly = True
RightClickSelect = True
@ -327,7 +328,7 @@ object PackageEditorForm: TPackageEditorForm
OnDblClick = ItemsTreeViewDblClick
OnKeyDown = ItemsTreeViewKeyDown
OnSelectionChanged = ItemsTreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object ItemsPopupMenu: TPopupMenu
OnPopup = ItemsPopupMenuPopup

3
packager/packageeditor.pas
View File

@ -1190,9 +1190,6 @@ end;
procedure TPackageEditorForm.FormCreate(Sender: TObject);
begin
FPlugins:=TStringList.Create;
{$IFDEF enablePkgEditMultiSelect}
ItemsTreeView.MultiSelect:=true;
{$ENDIF}
SetupComponents;
SortAlphabetically := EnvironmentOptions.PackageEditorSortAlphabetically;
ShowDirectoryHierarchy := EnvironmentOptions.PackageEditorShowDirHierarchy;