mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Viewer - scroll by up/down/pageup/pagedown/left/right keys when caret disabled

Browse source 
(cherry picked from commit 27d7666e45)
This commit is contained in:
Alexander Koblov 2023-10-14 00:55:18 +03:00
commit 388f138d39
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/fviewer.pas
View file

@ -2408,13 +2408,17 @@ end;
procedure TfrmViewer.SynEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (not gShowCaret) and (Key in [VK_UP, VK_DOWN]) then
if (not gShowCaret) and (Key in [VK_UP, VK_DOWN, VK_PRIOR, VK_NEXT, VK_LEFT, VK_RIGHT]) then
begin
if Key = VK_UP then
SynEdit.Perform(WM_VSCROLL, SB_LINEUP, 0)
else begin
SynEdit.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
case Key of
VK_UP: SynEdit.Perform(WM_VSCROLL, SB_LINEUP, 0);
VK_DOWN: SynEdit.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
VK_PRIOR: SynEdit.Perform(WM_VSCROLL, SB_PAGEUP, 0);
VK_NEXT: SynEdit.Perform(WM_VSCROLL, SB_PAGEDOWN, 0);
VK_LEFT: SynEdit.Perform(WM_HSCROLL, SB_LINELEFT, 0);
VK_RIGHT: SynEdit.Perform(WM_HSCROLL, SB_LINERIGHT, 0);
end;
Key:= 0;
end;
end;