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: Copy file filter when cloning columns file view.

Browse source
This commit is contained in:
cobines 2010-01-04 04:25:59 +00:00
commit 5f8056b2c8
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/newdesign/ucolumnsfileview.pas
View file

@ -287,6 +287,7 @@ type
procedure ShowSearchPanel(Char : TUTF8Char = #0);
procedure CloseSearchPanel;
procedure ShowFilterPanel(Char : TUTF8Char = #0);
procedure FilterPanelVisible;
procedure CloseFilterPanel;
procedure CalculateSpaceOfAllDirectories;
@ -1569,6 +1570,12 @@ begin
SetActive(False);
end;
procedure TColumnsFileView.FilterPanelVisible;
begin
pnlFilter.Visible := True;
edtFilter.Width := pnlFilter.Width div 2;
end;
procedure TColumnsFileView.CloseFilterPanel;
begin
edtFilter.Text := ''; // Automatically triggers edtFilterChange.
@ -1605,8 +1612,7 @@ procedure TColumnsFileView.ShowFilterPanel(Char : TUTF8Char = #0);
begin
frmMain.EnableHotkeys(False);
pnlFilter.Visible := True;
edtFilter.Width := pnlFilter.Width div 2;
FilterPanelVisible;
edtFilter.SetFocus;
if Char <> #0 then
@ -2592,6 +2598,12 @@ begin
fPrevious : Boolean;
}
if Self.FileFilter <> '' then
begin
edtFilter.Text := Self.FileFilter; // will trigger assiging to FileFilter
FilterPanelVisible;
end;
FSorting := Self.FSorting.Clone;
FSortColumn := Self.FSortColumn;
FSortDirection := Self.FSortDirection;