paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 13:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: Add function RemoveShortCut. IDE extension package may want to use a reserved shortcut and remove it.

Browse Source 
git-svn-id: trunk@52874 -
This commit is contained in:
juha 2016-08-26 13:08:06 +00:00
parent eab5d9e32c
commit b70be02b90
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/idecommands.pas
View File

@ -636,6 +636,8 @@ type
function FindCommandByName(const CommandName: string): TIDECommand; virtual; abstract;
function FindCommandsByShortCut(const ShortCutMask: TIDEShortCut;
IDEWindowClass: TCustomFormClass = nil): TFPList; virtual; abstract; // list of TIDECommand
function RemoveShortCut(ShortCutMask: TIDEShortCut;
IDEWindowClass: TCustomFormClass = nil): Integer; virtual; abstract;
function CategoryCount: integer; virtual; abstract;
public
procedure StartUpdateEvents;

38
ide/keymapping.pp
View File

@ -182,6 +182,8 @@ type
function FindCommandByName(const CommandName: string): TIDECommand; override;
function FindCommandsByShortCut(const ShortCutMask: TIDEShortCut;
IDEWindowClass: TCustomFormClass = nil): TFPList; override;
function RemoveShortCut(ShortCutMask: TIDEShortCut;
IDEWindowClass: TCustomFormClass = nil): Integer; override;
function TranslateKey(Key: word; Shift: TShiftState;
IDEWindowClass: TCustomFormClass; UseLastKey: boolean = true): word;
function IndexOf(ARelation: TKeyCommandRelation): integer;
@ -3936,6 +3938,42 @@ begin
end;
end;
function TKeyCommandRelationList.RemoveShortCut(ShortCutMask: TIDEShortCut;
IDEWindowClass: TCustomFormClass): Integer;
// Removes the given shortcut from every command. Returns the number deleted.
// An IDE extension package may want to use a reserved shortcut and remove it.
procedure CheckAndRemove(pShortCut: PIDEShortCut);
begin
if ((pShortCut^.Key1=ShortCutMask.Key1) and (pShortCut^.Shift1=ShortCutMask.Shift1))
and ((pShortCut^.Key2=VK_UNKNOWN)
or (ShortCutMask.Key2=VK_UNKNOWN)
or ((pShortCut^.Key2=ShortCutMask.Key2) and (pShortCut^.Shift2=ShortCutMask.Shift2))) then
begin
pShortCut^.Key1:=VK_UNKNOWN;
pShortCut^.Shift1:=[];
pShortCut^.Key2:=VK_UNKNOWN;
pShortCut^.Shift2:=[];
Inc(Result);
end;
end;
var
i: Integer;
begin
Result:=0;
if ShortCutMask.Key1=VK_UNKNOWN then
Exit;
for i:=0 to FRelations.Count-1 do
with Relations[i] do
if (IDEWindowClass=nil) or (Category.Scope=nil)
or Category.Scope.HasIDEWindowClass(IDEWindowClass) then
begin
CheckAndRemove(@ShortcutA);
CheckAndRemove(@ShortcutB);
end;
end;
function TKeyCommandRelationList.TranslateKey(Key: word; Shift: TShiftState;
IDEWindowClass: TCustomFormClass; UseLastKey: boolean): word;
{ If UseLastKey = true then only search for commmands with one key.