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); procedure TCEPagesOptions.scedSendItem(const category, identifier: string; aShortcut: TShortcut);
begin begin
if fShCount = 4 then case identifier of
fShCount := 0; 'Select next page': fNextPage := aShortcut;
case fShCount of 'Select previous page': fPrevPage := aShortcut;
0: fNextPage := aShortcut; 'Move page left': fMoveLeft := aShortcut;
1: fPrevPage := aShortcut; 'Move page right': fMoveRight:= aShortcut;
2: fMoveLeft := aShortcut;
3: fMoveRight:= aShortcut;
end; end;
end; end;