ADD: apply gZoomWithCtrlWheel to FileView

src/fileviews/ubrieffileview.pas

@@ -413,11 +413,8 @@ begin
   if not FBriefView.IsLoadingFileList then
   begin
 
-    if (Shift=[ssCtrl])and(gFonts[dcfMain].Size > gFonts[dcfMain].MinValue) then
+    if gZoomWithCtrlWheel and(Shift=[ssCtrl])and(frmMain.Commands.MainFontZoomOut()) then
     begin
-      gFonts[dcfMain].Size:=gFonts[dcfMain].Size-1;
-      frmMain.FrameLeft.UpdateView;
-      frmMain.FrameRight.UpdateView;
       Result:=True;
       Exit;
     end;
@@ -435,16 +432,12 @@ begin
   if not FBriefView.IsLoadingFileList then
   begin
 
-    if (Shift=[ssCtrl])and(gFonts[dcfMain].Size < gFonts[dcfMain].MaxValue) then
+    if gZoomWithCtrlWheel and(Shift=[ssCtrl])and(frmMain.Commands.MainFontZoomIn()) then
     begin
-      gFonts[dcfMain].Size:=gFonts[dcfMain].Size+1;
-      frmMain.FrameLeft.UpdateView;
-      frmMain.FrameRight.UpdateView;
       Result:=True;
       Exit;
     end;
 
-
     Result:= inherited DoMouseWheelUp(Shift, MousePos);
     Result:= Perform(LM_HSCROLL, SB_LINELEFT, 0) = 0;
   end

src/fileviews/ucolumnsfileview.pas

@@ -383,13 +383,12 @@ begin
   if not IsLoadingFileList then
   begin
 
-    if (Shift=[ssCtrl])and(frmMain.Commands.MainFontZoomIn()) then
+    if gZoomWithCtrlWheel and(Shift=[ssCtrl])and(frmMain.Commands.MainFontZoomIn()) then
     begin
       Handled:=True;
       Exit;
     end;
 
-
     case gScrollMode of
       smLineByLine:
         for I:= 1 to gWheelScrollLines do
@@ -411,7 +410,7 @@ begin
   if not IsLoadingFileList then
   begin
 
-    if (Shift=[ssCtrl])and(frmMain.Commands.MainFontZoomOut()) then
+    if gZoomWithCtrlWheel and(Shift=[ssCtrl])and(frmMain.Commands.MainFontZoomOut()) then
     begin
       Handled:=True;
       Exit;