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: Feature Request [ 1741045 ] хот дир лист по дабл клику

Browse source
This commit is contained in:
Alexander Koblov 2007-06-22 12:16:54 +00:00
commit 6d543fbef7
2 changed files with 25 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
doc/fmain.txt
View file

@ -1,2 +1,5 @@
$$$*** This is unit history file ***$$$ ###encoding="UTF-8"###
15.05.2007 UPD: made full platform independed (сделал полностью платформонезависимым)
15.05.2007 UPD: made full platform independed (сделал полностью платформонезависимым)
22.06.2007 ADD: Добавил вызов DirHotList по двойному клику на панельке
где показывается размер диска и средней кнопкой мыши по панельке где
указана текущая директория

22
fmain.pas
View file

@ -249,6 +249,9 @@ type
procedure actFilePropertiesExecute(Sender: TObject);
procedure FramedgPanelEnter(Sender: TObject);
procedure FramelblLPathClick(Sender: TObject);
procedure FrameHeaderDblClick(Sender: TObject);
procedure FramelblLPathMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure edtCommandKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure actFileLinkerExecute(Sender: TObject);
@ -2171,6 +2174,22 @@ begin
actDirHistory.Execute;
end;
procedure TfrmMain.FrameHeaderDblClick(Sender: TObject);
begin
SetActiveFrame(TFrameFilePanel(TControl(Sender).Parent).PanelSelect);
actDirHotList.Execute;
end;
procedure TfrmMain.FramelblLPathMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbMiddle then
begin
SetActiveFrame(TFrameFilePanel(TControl(Sender).Parent.Parent).PanelSelect);
actDirHotList.Execute;
end;
end;
procedure TfrmMain.SetActiveFrame(panel: TFilePanelSelect);
begin
PanelSelected:=panel;
@ -2270,13 +2289,14 @@ begin
UpDatelblInfo;
dgPanel.Color := gBackColor;
lblLPath.OnClick:=@FramelblLPathClick;
lblLPath.OnMouseDown := @FramelblLPathMouseDown;
edtRename.OnExit:=@FrameRightedtRenameExit;
edtSearch.OnExit:=@FrameedtSearchExit;
dgPanel.OnEnter:=@framedgPanelEnter;
dgPanel.PopupMenu:=pmFileList;
pnlHeader.OnDblClick := @FrameHeaderDblClick;
end;