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

ProjectGroups: more key shortcuts

Browse Source 
git-svn-id: trunk@62511 -
This commit is contained in:
ondrej 2020-01-08 16:41:25 +00:00
parent 55a41430ed
commit 376bf8fdde
1 changed files with 32 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
components/projectgroups/projectgroupeditor.pas
View File

@ -749,19 +749,39 @@ end;
procedure TProjectGroupEditorForm.TVPGKeyDown(Sender: TObject; var Key: Word; procedure TProjectGroupEditorForm.TVPGKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
begin begin
if Shift=[ssCtrl] then case Key of
case Key of VK_RETURN:
VK_UP: begin
begin TVPGDblClick(Sender);
TBTargetUp.Click; Key := 0;
Key := 0;
end;
VK_DOWN:
begin
TBTargetLater.Click;
Key := 0;
end;
end; end;
VK_F5:
begin
TBReload.Click;
Key := 0;
end;
VK_UP:
if Shift=[ssCtrl] then
begin
TBTargetUp.Click;
Key := 0;
end;
VK_DOWN:
if Shift=[ssCtrl] then
begin
TBTargetLater.Click;
Key := 0;
end;
Ord('S'):
begin
if Shift=[ssCtrl] then
TBSave.Click
else
if Shift=[ssCtrl, ssShift] then
PMISaveAs.Click;
Key := 0;
end;
end;
end; end;
procedure TProjectGroupEditorForm.TVPGMouseDown(Sender: TObject; procedure TProjectGroupEditorForm.TVPGMouseDown(Sender: TObject;