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

Packager: enable RightClickSelect in Package manager

Browse Source 
git-svn-id: trunk@34576 -
This commit is contained in:
juha 2012-01-04 12:08:45 +00:00
parent b68b5ca7c6
commit 48bcf0243b
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packager/packageeditor.lfm
View File

@ -145,10 +145,8 @@ inherited PackageEditorForm: TPackageEditorForm
Align = alClient
ItemHeight = 0
OnDrawItem = RegisteredListBoxDrawItem
ScrollWidth = 565
Style = lbOwnerDrawFixed
TabOrder = 0
TopIndex = -1
end
end
end
@ -191,11 +189,12 @@ inherited PackageEditorForm: TPackageEditorForm
DefaultItemHeight = 18
PopupMenu = FilesPopupMenu
ReadOnly = True
RightClickSelect = True
TabOrder = 1
OnDblClick = FilesTreeViewDblClick
OnKeyPress = FilesTreeViewKeyPress
OnSelectionChanged = FilesTreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object DirectoryHierarchySpeedButton: TSpeedButton
AnchorSideLeft.Control = ItemsPanel

1
packager/packageeditor.pas
View File

@ -1503,7 +1503,6 @@ begin
FRequiredPackagesNode.SelectedIndex:=FRequiredPackagesNode.ImageIndex;
FilesTreeView.EndUpdate;
FilesTreeView.Images := IDEImages.Images_16;
// ToDo: Options:=Options+[tvoRightClickSelect]
FilePropsGroupBox.Caption:=lisPckEditFileProperties;