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: Ctrl+Wheel zoom work path(FileViewHeader), experimental

Browse source
This commit is contained in:
meteu 2016-01-24 05:46:37 +00:00
commit 5233cbcd93
1 changed files with 56 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

56
src/fileviews/ufileviewheader.pas
View file

@ -28,6 +28,10 @@ type
procedure AddressLabelMouseEnter(Sender: TObject);
procedure PathLabelDblClick(Sender: TObject);
procedure tmViewHistoryMenuTimer(Sender: TObject);
procedure PathLabelMouseWheelUp(Sender: TObject;Shift: TShiftState; MousePos: TPoint;var Handled:Boolean);
procedure PathLabelMouseWheelDown(Sender: TObject;Shift: TShiftState; MousePos: TPoint;var Handled:Boolean);
protected
tmViewHistoryMenu: TTimer;
public
@ -153,6 +157,54 @@ begin
frmMain.Commands.cm_ViewHistory([]);
end;
procedure TFileViewHeader.PathLabelMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint;var Handled:Boolean);
begin
if ssCtrl in Shift then
begin
{
if (ssCtrl in Shift)and(gFonts[dcfFileViewHeader].Size<MAX_FONT_FILEVIEWHEADER) then
gFonts[dcfFileViewHeader].Size:=gFonts[dcfFileViewHeader].Size+1;
FAddressLabel.Font.Size:=gFonts[dcfFileViewHeader].Size;
FPathLabel.Font.Size:=FAddressLabel.Font.Size;
FPathEdit.Font.Size:=FAddressLabel.Font.Size;;
}
FAddressLabel.Font.Size:=FAddressLabel.Font.Size+1;
if FAddressLabel.Font.Size<9 then FAddressLabel.Font.Size:=9;
FPathLabel.Font.Size:=FAddressLabel.Font.Size;
FPathEdit.Font.Size:=FAddressLabel.Font.Size;;
frmMain.FrameLeft.Repaint;
frmMain.FrameRight.Repaint;
end;
end;
procedure TFileViewHeader.PathLabelMouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint;var Handled:Boolean);
begin
if ssCtrl in Shift then
begin
{
if (ssCtrl in Shift)and(gFonts[dcfFileViewHeader].Size>MIN_FONT_FILEVIEWHEADER) then
gFonts[dcfFileViewHeader].Size:=gFonts[dcfFileViewHeader].Size+1;
FAddressLabel.Font.Size:=gFonts[dcfFileViewHeader].Size;
FPathLabel.Font.Size:=FAddressLabel.Font.Size;
FPathEdit.Font.Size:=FAddressLabel.Font.Size;;
}
FAddressLabel.Font.Size:=FAddressLabel.Font.Size-1;
if FAddressLabel.Font.Size<9 then FAddressLabel.Font.Size:=9;
FPathLabel.Font.Size:=FAddressLabel.Font.Size;
FPathEdit.Font.Size:=FAddressLabel.Font.Size;;
frmMain.FrameLeft.Repaint;
frmMain.FrameRight.Repaint;
end;
end;
{ TFileViewHeader.PathLabelDblClick }
{ -If we double-click on the the path label, it shows the Hot Dir popup menu at the cursor position.
-If we click just once, after the 250ms of the timer, it shows the history.
@ -247,6 +299,10 @@ begin
FPathLabel.OnDblClick := @PathLabelDblClick;
FPathLabel.OnMouseUp := @PathLabelMouseUp;
FPathLabel.OnMouseWheelDown := @PathLabelMouseWheelDown;
FPathLabel.OnMouseWheelUp := @PathLabelMouseWheelUp;
FAddressLabel.OnClick := @AddressLabelClick;
FAddressLabel.OnMouseEnter:= @AddressLabelMouseEnter;