Explorar o código

FIX: Update tabs captions after changing options.

cobines %!s(int64=15) %!d(string=hai) anos
pai
achega
cca3bdb6cd
Modificáronse 2 ficheiros con 5 adicións e 2 borrados
  1. 2 1
      src/fmain.pas
  2. 3 1
      src/ufileviewnotebook.pas

+ 2 - 1
src/fmain.pas

@@ -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;
 

+ 3 - 1
src/ufileviewnotebook.pas

@@ -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;