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

ADD: apply gZoomWithCtrlWheel elsewhere

Browse source
This commit is contained in:
rich2014 2025-07-21 23:12:10 +08:00
commit dbc4d890b7
6 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/fFindDlg.pas
View file

@ -2659,7 +2659,7 @@ end;
procedure TfrmFindDlg.lsFoundedFilesMouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: boolean);
begin
if (Shift = [ssCtrl]) and (gFonts[dcfSearchResults].Size > gFonts[dcfSearchResults].MinValue) then
if gZoomWithCtrlWheel and (Shift = [ssCtrl]) and (gFonts[dcfSearchResults].Size > gFonts[dcfSearchResults].MinValue) then
begin
dec(gFonts[dcfSearchResults].Size);
lsFoundedFiles.Font.Size := gFonts[dcfSearchResults].Size;
@ -2671,7 +2671,7 @@ end;
procedure TfrmFindDlg.lsFoundedFilesMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: boolean);
begin
if (Shift = [ssCtrl]) and (gFonts[dcfSearchResults].Size < gFonts[dcfSearchResults].MaxValue) then
if gZoomWithCtrlWheel and (Shift = [ssCtrl]) and (gFonts[dcfSearchResults].Size < gFonts[dcfSearchResults].MaxValue) then
begin
inc(gFonts[dcfSearchResults].Size);
lsFoundedFiles.Font.Size := gFonts[dcfSearchResults].Size;

4
src/fileviews/ufileviewheader.pas
View file

@ -136,7 +136,7 @@ end;
procedure TFileViewHeader.PathLabelMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint;var Handled:Boolean);
begin
if (ssCtrl in Shift) and (gFonts[dcfPathEdit].Size < gFonts[dcfPathEdit].MaxValue) then
if gZoomWithCtrlWheel and (ssCtrl in Shift) and (gFonts[dcfPathEdit].Size < gFonts[dcfPathEdit].MaxValue) then
begin
gFonts[dcfPathEdit].Size:= gFonts[dcfPathEdit].Size + 1;
frmMain.ForEachView(@EachViewUpdateHeader, nil);
@ -146,7 +146,7 @@ end;
procedure TFileViewHeader.PathLabelMouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint;var Handled:Boolean);
begin
if (ssCtrl in Shift) and (gFonts[dcfPathEdit].Size > gFonts[dcfPathEdit].MinValue) then
if gZoomWithCtrlWheel and (ssCtrl in Shift) and (gFonts[dcfPathEdit].Size > gFonts[dcfPathEdit].MinValue) then
begin
gFonts[dcfPathEdit].Size:= gFonts[dcfPathEdit].Size - 1;
frmMain.ForEachView(@EachViewUpdateHeader, nil);

4
src/fmain.pas
View file

@ -1279,7 +1279,7 @@ end;
procedure TfrmMain.btnF3MouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if (ssCtrl in Shift) and (gFonts[dcfFunctionButtons].Size > gFonts[dcfFunctionButtons].MinValue) then
if gZoomWithCtrlWheel and (ssCtrl in Shift) and (gFonts[dcfFunctionButtons].Size > gFonts[dcfFunctionButtons].MinValue) then
begin
Dec(gFonts[dcfFunctionButtons].Size);
UpdateGUIFunctionKeys;
@ -1289,7 +1289,7 @@ end;
procedure TfrmMain.btnF3MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if (ssCtrl in Shift) and (gFonts[dcfFunctionButtons].Size < gFonts[dcfFunctionButtons].MaxValue) then
if gZoomWithCtrlWheel and (ssCtrl in Shift) and (gFonts[dcfFunctionButtons].Size < gFonts[dcfFunctionButtons].MaxValue) then
begin
Inc(gFonts[dcfFunctionButtons].Size);
UpdateGUIFunctionKeys;

4
src/frames/foptionsfonts.pas
View file

@ -211,7 +211,7 @@ end;
{ TfrmOptionsFonts.edtMouseWheelDown }
procedure TfrmOptionsFonts.edtMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: boolean);
begin
if (ssCtrl in Shift) and (LocalVisualFontElements[TEdit(Sender).Tag].FontSpindEdit.Value > gFonts[TDCFont(TEdit(Sender).Tag)].MinValue) then
if gZoomWithCtrlWheel and (ssCtrl in Shift) and (LocalVisualFontElements[TEdit(Sender).Tag].FontSpindEdit.Value > gFonts[TDCFont(TEdit(Sender).Tag)].MinValue) then
begin
TEdit(Sender).Font.Size := TEdit(Sender).Font.Size - 1;
LocalVisualFontElements[TEdit(Sender).Tag].FontSpindEdit.Value := TEdit(Sender).Font.Size;
@ -221,7 +221,7 @@ end;
{ TfrmOptionsFonts.edtMouseWheelUp }
procedure TfrmOptionsFonts.edtMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: boolean);
begin
if (ssCtrl in Shift) and (LocalVisualFontElements[TEdit(Sender).Tag].FontSpindEdit.Value < gFonts[TDCFont(TEdit(Sender).Tag)].MaxValue) then
if gZoomWithCtrlWheel and (ssCtrl in Shift) and (LocalVisualFontElements[TEdit(Sender).Tag].FontSpindEdit.Value < gFonts[TDCFont(TEdit(Sender).Tag)].MaxValue) then
begin
TEdit(Sender).Font.Size := TEdit(Sender).Font.Size + 1;
LocalVisualFontElements[TEdit(Sender).Tag].FontSpindEdit.Value := TEdit(Sender).Font.Size;

5
src/frames/foptionstreeviewmenucolor.pas
View file

@ -301,19 +301,18 @@ end;
{ TfrmOptionsTreeViewMenuColor.TreeViewMenuSampleMouseWheelDown }
procedure TfrmOptionsTreeViewMenuColor.TreeViewMenuSampleMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if (Shift = [ssCtrl]) and (TempoFont.Size > TempoFont.MinValue) then
if gZoomWithCtrlWheel and (Shift = [ssCtrl]) and (TempoFont.Size > TempoFont.MinValue) then
begin
dec(TempoFont.Size);
ApplyTempoFontToVisual;
Handled := True;
end;
end;
{ TfrmOptionsTreeViewMenuColor.TreeViewMenuSampleMouseWheelUp }
procedure TfrmOptionsTreeViewMenuColor.TreeViewMenuSampleMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if (Shift = [ssCtrl]) and (TempoFont.Size < TempoFont.MaxValue) then
if gZoomWithCtrlWheel and (Shift = [ssCtrl]) and (TempoFont.Size < TempoFont.MaxValue) then
begin
inc(TempoFont.Size);
ApplyTempoFontToVisual;

4
src/ftreeviewmenu.pas
View file

@ -675,7 +675,7 @@ end;
procedure TfrmTreeViewMenu.tvMainMenuMouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if (Shift = [ssCtrl]) and (gFonts[dcfTreeViewMenu].Size > gFonts[dcfTreeViewMenu].MinValue) then
if gZoomWithCtrlWheel and (Shift = [ssCtrl]) and (gFonts[dcfTreeViewMenu].Size > gFonts[dcfTreeViewMenu].MinValue) then
begin
dec(gFonts[dcfTreeViewMenu].Size);
tvMainMenu.Font.Size := gFonts[dcfTreeViewMenu].Size;
@ -686,7 +686,7 @@ end;
{ TfrmTreeViewMenu.tvMainMenuMouseWheelUp }
procedure TfrmTreeViewMenu.tvMainMenuMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if (Shift = [ssCtrl]) and (gFonts[dcfTreeViewMenu].Size < gFonts[dcfTreeViewMenu].MaxValue) then
if gZoomWithCtrlWheel and (Shift = [ssCtrl]) and (gFonts[dcfTreeViewMenu].Size < gFonts[dcfTreeViewMenu].MaxValue) then
begin
inc(gFonts[dcfTreeViewMenu].Size);
tvMainMenu.Font.Size := gFonts[dcfTreeViewMenu].Size;