paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-19 05:28:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better shortcut key for non-mac

Browse Source 
git-svn-id: trunk@59137 -
This commit is contained in:
michael 2018-09-22 20:28:54 +00:00
parent aa1ef56a38
commit 51cb1f0b2d
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/idespotter/regidespotter.pas
View File

@ -29,12 +29,21 @@ begin
end; end;
Procedure Register; Procedure Register;
Const
{$IFDEF DARWIN}
ShiftKeys = [ssMeta,ssShift];
{$ELSE}
ShiftKeys = [ssAlt,ssShift];
{$ENDIF}
var var
IDEShortCutX: TIDEShortCut; IDEShortCutX: TIDEShortCut;
IDECommandCategory: TIDECommandCategory; IDECommandCategory: TIDECommandCategory;
IDECommand: TIDECommand; IDECommand: TIDECommand;
begin begin
IDEShortCutX := IDEShortCut(VK_P, [ssMeta,ssShift], VK_UNKNOWN, []); IDEShortCutX := IDEShortCut(VK_P, ShiftKeys, VK_UNKNOWN, []);
IDECommandCategory := IDECommandList.FindCategoryByName(CommandCategoryViewName); IDECommandCategory := IDECommandList.FindCategoryByName(CommandCategoryViewName);
if IDECommandCategory <> nil then if IDECommandCategory <> nil then
begin begin