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 [3020283] No names on locked tabs in recent snapshots

Browse source
This commit is contained in:
Alexander Koblov 2010-06-25 16:58:24 +00:00
commit 2e43017ba4
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fmain.pas
View file

@ -3376,7 +3376,7 @@ procedure TfrmMain.UpdateWindowView;
for I := 0 to NoteBook.PageCount - 1 do // change on all tabs
begin
if NoteBook.Page[I].LockState = tlsNormal then
if NoteBook.Page[I].LockState <> tlsPathResets then
NoteBook.Page[I].UpdateCaption(GetLastDir(NoteBook.View[I].CurrentPath))
else
NoteBook.Page[I].UpdateCaption(GetLastDir(NoteBook.Page[I].LockPath));

2
src/ufileviewnotebook.pas
View file

@ -204,7 +204,7 @@ end;
procedure TFileViewPage.SetLockState(NewLockState: TTabLockState);
begin
FLockState := NewLockState;
if NewLockState <> tlsNormal then
if NewLockState = tlsPathResets then
LockPath := FileView.CurrentPath;
UpdateTabLockState;
end;