mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: cm_FlatView - parameter "side=left/right/inactive", refactoring

Browse source
This commit is contained in:
Alexander Koblov 2020-02-17 17:12:10 +00:00
commit a4f472ec4d
1 changed files with 31 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

69
src/umaincommands.pas
View file

@ -1092,29 +1092,44 @@ end;
procedure TMainCommands.cm_FlatView(const Params: array of string);
var
AFile: TFile;
AFileView: TFileView;
AValue, Param: String;
begin
with frmMain do
if not (fspListFlatView in ActiveFrame.FileSource.GetProperties) then
begin
msgWarning(rsMsgErrNotSupported);
end
else
begin
ActiveFrame.FlatView:= not ActiveFrame.FlatView;
if not ActiveFrame.FlatView then
AFileView:= ActiveFrame;
for Param in Params do
begin
AFile:= ActiveFrame.CloneActiveFile;
if Assigned(AFile) and AFile.IsNameValid then
if GetParamValue(Param, 'side', AValue) then
begin
if not mbCompareFileNames(ActiveFrame.CurrentPath, AFile.Path) then
begin
ActiveFrame.CurrentPath:= AFile.Path;
ActiveFrame.SetActiveFile(AFile.Name);
end;
end;
AFile.Free;
if AValue = 'left' then AFileView:= FrameLeft
else if AValue = 'right' then AFileView:= FrameRight
else if AValue = 'inactive' then AFileView:= NotActiveFrame;
end
end;
if not (fspListFlatView in AFileView.FileSource.GetProperties) then
begin
msgWarning(rsMsgErrNotSupported);
end
else begin
AFileView.FlatView:= not AFileView.FlatView;
if not AFileView.FlatView then
begin
AFile:= AFileView.CloneActiveFile;
if Assigned(AFile) and AFile.IsNameValid then
begin
if not mbCompareFileNames(AFileView.CurrentPath, AFile.Path) then
begin
AFileView.CurrentPath:= AFile.Path;
AFileView.SetActiveFile(AFile.Name);
end;
end;
AFile.Free;
end;
AFileView.Reload;
end;
ActiveFrame.Reload;
end;
end;
@ -1184,28 +1199,12 @@ end;
procedure TMainCommands.cm_LeftFlatView(const Params: array of string);
begin
if not (fspListFlatView in frmMain.FrameLeft.FileSource.GetProperties) then
begin
msgWarning(rsMsgErrNotSupported);
end
else
begin
frmMain.FrameLeft.FlatView:= not frmMain.FrameLeft.FlatView;
frmMain.FrameLeft.Reload;
end;
cm_FlatView(['side=left']);
end;
procedure TMainCommands.cm_RightFlatView(const Params: array of string);
begin
if not (fspListFlatView in frmMain.FrameRight.FileSource.GetProperties) then
begin
msgWarning(rsMsgErrNotSupported);
end
else
begin
frmMain.FrameRight.FlatView:= not frmMain.FrameRight.FlatView;
frmMain.FrameRight.Reload;
end;
cm_FlatView(['side=right']);
end;
procedure TMainCommands.cm_OpenDirInNewTab(const Params: array of string);