From 46e5442514a682431234a23383ae9322763a0c97 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 16 May 2022 15:20:24 +0200
Subject: [PATCH] IDE: create TBrowseEditorTabHistoryDialog only when needed

---
 ide/sourceeditor.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 83c7d9b343..3459108d7c 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -7834,7 +7834,9 @@ end;
 
 function TSourceNotebook.GetHistoryDlg: TBrowseEditorTabHistoryDialog;
 begin
-  FHistoryDlg := TBrowseEditorTabHistoryDialog.CreateNew(Self);
+  if FHistoryDlg=nil then
+    FHistoryDlg := TBrowseEditorTabHistoryDialog.CreateNew(Self);
+  Result:=FHistoryDlg;
 end;
 
 procedure TSourceNotebook.BeginIncrementalFind;