fix #226 - Shortcuts for the "Editor pages" category are not applied when set from the global shortcut editor

This commit is contained in:
Basile Burg 2018-01-29 14:21:49 +01:00
parent e305b901f7
commit c692177483
1 changed files with 5 additions and 7 deletions

View File

@ -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;