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

FIX: Viewer - zoom image by mouse wheel

Browse source 
(cherry picked from commit 884720a573)
This commit is contained in:
Alexander Koblov 2025-01-15 18:11:38 +03:00
commit e4b509073c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/fviewer.pas
View file

@ -1170,13 +1170,13 @@ end;
procedure TfrmViewer.ImageMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if ssCtrl in Shift then cm_Zoom(['0.9']);
if ssCtrl in Shift then ZoomImage(0.9);
end;
procedure TfrmViewer.ImageMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if ssCtrl in Shift then cm_Zoom(['1.1']);
if ssCtrl in Shift then ZoomImage(1.1);
end;
procedure TfrmViewer.miPenClick(Sender: TObject);