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 keys when caret disabled (fixes #1267)

Browse source
This commit is contained in:
Alexander Koblov 2023-09-28 23:01:17 +03:00
commit e81933aff0
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/fviewer.pas
View file

@ -61,7 +61,7 @@ uses
Grids, ActnList, viewercontrol, GifAnim, fFindView, WLXPlugin, uWLXModule,
uFileSource, fModView, Types, uThumbnails, uFormCommands, uOSForms,Clipbrd,
uExifReader, KASStatusBar, SynEdit, uShowForm, uRegExpr, uRegExprU,
fEditSearch, uMasks, uSearchTemplate;
Messages, fEditSearch, uMasks, uSearchTemplate;
type
@ -321,6 +321,7 @@ type
procedure miPaintClick(Sender:TObject);
procedure miChangeEncodingClick(Sender:TObject);
procedure SynEditStatusChange(Sender: TObject; Changes: TSynStatusChanges);
procedure SynEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure SynEditMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure ViewerControlMouseWheelDown(Sender: TObject; Shift: TShiftState;
@ -2404,6 +2405,19 @@ begin
Status.Panels[sbpPosition].Text:= Format('%d:%d', [SynEdit.CaretX, SynEdit.CaretY]);
end;
procedure TfrmViewer.SynEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (not gShowCaret) and (Key in [VK_UP, VK_DOWN]) then
begin
if Key = VK_UP then
SynEdit.Perform(WM_VSCROLL, SB_LINEUP, 0)
else begin
SynEdit.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
end;
end;
end;
procedure TfrmViewer.SynEditMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
@ -2698,6 +2712,7 @@ begin
MarkupInfo.Foreground:= clGrayText;
end;
FontOptionsToFont(gFonts[dcfViewer], SynEdit.Font);
SynEdit.OnKeyDown:= @SynEditKeyDown;
SynEdit.OnMouseWheel:= @SynEditMouseWheel;
SynEdit.OnStatusChange:= @SynEditStatusChange;
SynEditCaret;