UPD: remove unused TfrmViewer.pnlTextMouseWheelUp()

pnlTextMouseWheelUp() should be a legacy issue and will not be called. also, there is only pnlTextMouseWheelUp() but no pnlTextMouseWheelDown().

src/fviewer.lfm

@@ -331,7 +331,6 @@ object frmViewer: TfrmViewer
     ParentFont = False
     TabOrder = 2
     Visible = False
-    OnMouseWheelUp = pnlTextMouseWheelUp
     object ViewerControl: TViewerControl
       Left = 0
       Height = 343

src/fviewer.pas

@@ -317,8 +317,6 @@ type
     procedure pmEditMenuPopup(Sender: TObject);
     procedure miPluginsClick(Sender: TObject);
 
-    procedure pnlTextMouseWheelUp(Sender: TObject; Shift: TShiftState;
-      MousePos: TPoint; var Handled: Boolean);
     procedure sboxImageMouseEnter(Sender: TObject);
     procedure sboxImageMouseLeave(Sender: TObject);
     procedure sboxImageMouseMove(Sender: TObject; Shift: TShiftState; X,
@@ -2134,19 +2132,6 @@ begin
   end;
 end;
 
-procedure TfrmViewer.pnlTextMouseWheelUp(Sender: TObject; Shift: TShiftState;
-  MousePos: TPoint; var Handled: Boolean);
-begin
-  if Shift=[ssCtrl] then
-  begin
-    gFonts[dcfMain].Size:=gFonts[dcfMain].Size+1;
-    pnlText.Font.Size:=gFonts[dcfMain].Size;
-    pnlText.Repaint;
-    Handled:=True;
-    Exit;
-  end;
-end;
-
 procedure TfrmViewer.sboxImageMouseEnter(Sender: TObject);
 begin
   if miFullScreen.Checked then TimerViewer.Enabled:=true;