From 0394cf0a93517484a801e0bec85a2cc479cdeaee Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 15 Feb 2011 21:54:35 +0000
Subject: [PATCH] IDE, SourceEditor: Honour UpdateLock in UpdateStatusBar,
 UpdatePageNames => Reduce unnecessary calls to OS

git-svn-id: trunk@29568 -
---
 ide/sourceeditor.pp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 66c16986df..de6a1db758 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -5523,6 +5523,7 @@ procedure TSourceNotebook.UpdatePageNames;
 var
   i: Integer;
 begin
+  if FUpdateLock > 0 then exit;
   for i:=0 to PageCount-1 do
     FindSourceEditorWithPageIndex(i).UpdatePageName;
   UpdateTabsAndPageTitle;
@@ -5837,8 +5838,11 @@ end;
 procedure TSourceNotebook.DecUpdateLock;
 begin
   dec(FUpdateLock);
-  if FUpdateLock = 0 then
+  if FUpdateLock = 0 then begin
     PageIndex := FPageIndex;
+    UpdatePageNames;
+    UpdateStatusBar;
+  end;
 end;
 
 procedure TSourceNotebook.NoteBookInsertPage(Index: Integer; const S: string);
@@ -6638,6 +6642,7 @@ var
   PanelFileMode: string;
   CurEditor: TSynEdit;
 begin
+  if FUpdateLock > 0 then exit;
   if (not IsVisible) or (FUpdateLock > 0) then
   begin
     Include(States,snUpdateStatusBarNeeded);