mirror of https://gitlab.com/basile.b/dexed.git
fix #226 - Shortcuts for the "Editor pages" category are not applied when set from the global shortcut editor
This commit is contained in:
parent
e305b901f7
commit
c692177483
|
@ -282,13 +282,11 @@ end;
|
|||
|
||||
procedure TCEPagesOptions.scedSendItem(const category, identifier: string; aShortcut: TShortcut);
|
||||
begin
|
||||
if fShCount = 4 then
|
||||
fShCount := 0;
|
||||
case fShCount of
|
||||
0: fNextPage := aShortcut;
|
||||
1: fPrevPage := aShortcut;
|
||||
2: fMoveLeft := aShortcut;
|
||||
3: fMoveRight:= aShortcut;
|
||||
case identifier of
|
||||
'Select next page': fNextPage := aShortcut;
|
||||
'Select previous page': fPrevPage := aShortcut;
|
||||
'Move page left': fMoveLeft := aShortcut;
|
||||
'Move page right': fMoveRight:= aShortcut;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
Loading…
Reference in New Issue