main.ml: 'Z' to zoom to real A4 size

This commit is contained in:
hazen2215 2024-02-22 17:55:04 +09:00
parent 1dc1c30842
commit c5a727d859

View file

@ -3447,7 +3447,7 @@ let viewkeyboard key mask =
| Ascii 'Z' ->
if Wsi.withshift mask
then (
setzoom 1.6;
setzoom 1.745;
reqlayout conf.angle FitPage;
let m = (!S.winw - !S.w) / 2 in
gotoxy m !S.y