FIX: Update tabs captions after changing options.

This commit is contained in:
cobines 2010-01-08 18:13:24 +00:00
commit cca3bdb6cd
2 changed files with 5 additions and 2 deletions

View file

@ -2754,7 +2754,8 @@ procedure TfrmMain.UpdateWindowView;
for I := 0 to NoteBook.PageCount - 1 do // change on all tabs
begin
NoteBook[I].UpdateView;
NoteBook.Page[I].UpdateCaption(GetLastDir(NoteBook.View[I].CurrentPath));
NoteBook.View[I].UpdateView;
end;
end;

View file

@ -108,7 +108,7 @@ implementation
uses
WSExtCtrls,
fMain, uGlobs;
uGlobs;
// -- TFileViewPage -----------------------------------------------------------
@ -142,6 +142,8 @@ begin
Caption := Copy(NewCaption, 1, gDirTabLimit) + '...'
else
Caption := NewCaption;
UpdateTabLockState;
end;
end;