فهرست منبع

Fix check to show reopen UI. (MemosTabSet.Visible is also True if preprocessor output is activated.)

Martijn Laan 6 روز پیش
والد
کامیت
a1bb9e76dc
2فایلهای تغییر یافته به همراه3 افزوده شده و 3 حذف شده
  1. 1 1
      Projects/Src/IDE.MainForm.UpdateMenuHelper.pas
  2. 2 2
      Projects/Src/IDE.MainForm.pas

+ 1 - 1
Projects/Src/IDE.MainForm.UpdateMenuHelper.pas

@@ -365,7 +365,7 @@ begin
   VNextTab.Enabled := MemosTabSet.Visible and (MemosTabSet.Tabs.Count > 1);
   VPreviousTab.Enabled := VNextTab.Enabled;
   VCloseCurrentTab.Enabled := MemosTabSet.Visible and (FActiveMemo <> FMainMemo) and (FActiveMemo <> FPreprocessorOutputMemo);
-  VReopenTab.Visible := MemosTabSet.Visible and (FHiddenFiles.Count > 0);
+  VReopenTab.Visible := MemosTabSet.Visible and FOptions.OpenIncludedFiles and (FHiddenFiles.Count > 0);
   if VReopenTab.Visible then
     _UpdateReopenTabMenu(VReopenTab);
   VReopenTabs.Visible := VReopenTab.Visible;

+ 2 - 2
Projects/Src/IDE.MainForm.pas

@@ -5866,7 +5866,7 @@ end;
 
 procedure TMainForm.StatusBarClick(Sender: TObject);
 begin
-  if MemosTabSet.Visible and (FHiddenFiles.Count > 0) then begin
+  if MemosTabSet.Visible and FOptions.OpenIncludedFiles and FOptions.OpenIncludedFiles and (FHiddenFiles.Count > 0) then begin
     var Point := SmallPointToPoint(TSmallPoint(GetMessagePos()));
     var X := StatusBar.ScreenToClient(Point).X;
     var W := 0;
@@ -5890,7 +5890,7 @@ const
 begin
   case Panel.Index of
     spHiddenFilesCount:
-      if MemosTabSet.Visible and (FHiddenFiles.Count > 0) then begin
+      if MemosTabSet.Visible and FOptions.OpenIncludedFiles and (FHiddenFiles.Count > 0) then begin
         var RText := Rect;
         if FToolbarThemeData <> 0 then begin
           Dec(RText.Right, RText.Bottom - RText.Top);