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

FIX: Bug [0001417] Changed sorting settings aren't applied immediately

Browse source
This commit is contained in:
Alexander Koblov 2024-01-12 22:01:43 +03:00
commit 285bb31d19
2 changed files with 24 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/fileviews/ufileview.pas
View file

@ -449,7 +449,7 @@ type
procedure SaveConfiguration(AConfig: TXmlConfig; ANode: TXmlNode; ASaveHistory:boolean); virtual;
procedure UpdateView;
procedure ApplySettings;
procedure UpdateColor; virtual; abstract;
{en
@ -2887,6 +2887,20 @@ begin
UpdateTitle;
end;
procedure TFileView.ApplySettings;
var
Index: Integer;
begin
SortAllDisplayFiles;
ReDisplayFileList;
for Index := 0 to FFiles.Count - 1 do
begin
FFiles[Index].TextColor := clNone;
end;
Notify([fvnVisibleFilePropertiesChanged]);
end;
function TFileView.BeforeChangePath(NewFileSource: IFileSource;
Reason: TChangePathReason; NewPath: String): Boolean;
var

10
src/fmain.pas
View file

@ -5388,8 +5388,16 @@ procedure TfrmMain.UpdateWindowView;
if FInitializedView then
begin
for I := 0 to NoteBook.PageCount - 1 do // change on all tabs
// Update all tabs
for I := 0 to NoteBook.PageCount - 1 do
begin
NoteBook.View[I].UpdateView;
end;
// Update active tab
if Assigned(NoteBook.ActiveView) then
begin
NoteBook.ActiveView.ApplySettings;
end;
end;
end;