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

UPD: remove unused TfrmViewer.pnlTextMouseWheelUp()

Browse source 
pnlTextMouseWheelUp() should be a legacy issue and will not be called. also, there is only pnlTextMouseWheelUp() but no pnlTextMouseWheelDown().
This commit is contained in:
rich2014 2025-07-15 23:09:05 +08:00
commit b1b0d4e17e
2 changed files with 0 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fviewer.lfm
View file

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

15
src/fviewer.pas
View file

@ -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;