fix Ctrl+WheelUp bug when font size = MinValue (#898)

This commit is contained in:
iglezz 2023-04-01 11:13:30 +03:00 committed by GitHub
commit f2556401eb
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -378,7 +378,7 @@ begin
if not FBriefView.IsLoadingFileList then
begin
if (Shift=[ssCtrl])and(gFonts[dcfMain].Size > gFonts[dcfMain].MinValue) then
if (Shift=[ssCtrl])and(gFonts[dcfMain].Size < gFonts[dcfMain].MaxValue) then
begin
gFonts[dcfMain].Size:=gFonts[dcfMain].Size+1;
frmMain.FrameLeft.UpdateView;