Martijn Laan 1 周之前
父節點
當前提交
f1f76b8445
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      Projects/Src/IDE.MainForm.pas

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

@@ -5866,7 +5866,7 @@ end;
 
 
 procedure TMainForm.StatusBarClick(Sender: TObject);
 procedure TMainForm.StatusBarClick(Sender: TObject);
 begin
 begin
-  if MemosTabSet.Visible and FOptions.OpenIncludedFiles and FOptions.OpenIncludedFiles and (FHiddenFiles.Count > 0) then begin
+  if MemosTabSet.Visible and FOptions.OpenIncludedFiles and (FHiddenFiles.Count > 0) then begin
     var Point := SmallPointToPoint(TSmallPoint(GetMessagePos()));
     var Point := SmallPointToPoint(TSmallPoint(GetMessagePos()));
     var X := StatusBar.ScreenToClient(Point).X;
     var X := StatusBar.ScreenToClient(Point).X;
     var W := 0;
     var W := 0;