소스 검색

FIX: Update tabs captions after changing options.

cobines 15 년 전
부모
커밋
cca3bdb6cd
2개의 변경된 파일5개의 추가작업 그리고 2개의 파일을 삭제
  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
     for I := 0 to NoteBook.PageCount - 1 do  //  change on all tabs
     begin
     begin
-      NoteBook[I].UpdateView;
+      NoteBook.Page[I].UpdateCaption(GetLastDir(NoteBook.View[I].CurrentPath));
+      NoteBook.View[I].UpdateView;
     end;
     end;
   end;
   end;
 
 

+ 3 - 1
src/ufileviewnotebook.pas

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