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

ProjectGroups: Ctrl+Up/Down in tree view moves the project Up/Down

Browse Source 
git-svn-id: trunk@62242 -
This commit is contained in:
ondrej 2019-11-15 20:23:11 +00:00
parent b90f3e6b36
commit 2a70f42a1b
2 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/projectgroups/projectgroupeditor.lfm
View File

@ -104,6 +104,7 @@ object ProjectGroupEditorForm: TProjectGroupEditorForm
TabOrder = 1
OnAdvancedCustomDrawItem = TVPGAdvancedCustomDrawItem
OnDblClick = TVPGDblClick
OnKeyDown = TVPGKeyDown
OnMouseDown = TVPGMouseDown
OnSelectionChanged = TVPGSelectionChanged
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]

21
components/projectgroups/projectgroupeditor.pas
View File

@ -17,7 +17,7 @@ uses
Classes, SysUtils,
// LCL
Forms, Controls, Graphics, Dialogs, ComCtrls, Menus,
ActnList, LCLProc, Clipbrd, ImgList,
ActnList, LCLProc, Clipbrd, ImgList, LCLType,
// LazUtils
LazFileUtils, LazLoggerBase, LazFileCache,
// IdeIntf
@ -163,6 +163,7 @@ type
Node: TTreeNode; {%H-}State: TCustomDrawState; Stage: TCustomDrawStage;
var {%H-}PaintImages, {%H-}DefaultDraw: Boolean);
procedure TVPGDblClick(Sender: TObject);
procedure TVPGKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure TVPGMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TVPGSelectionChanged(Sender: TObject);
@ -745,6 +746,24 @@ begin
end;
end;
procedure TProjectGroupEditorForm.TVPGKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Shift=[ssCtrl] then
case Key of
VK_UP:
begin
TBTargetUp.Click;
Key := 0;
end;
VK_DOWN:
begin
TBTargetLater.Click;
Key := 0;
end;
end;
end;
procedure TProjectGroupEditorForm.TVPGMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var