paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 16:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, SourceEditor: FocusEditor to honour locks / CleanUp UpdatePageNames

Browse Source 
git-svn-id: trunk@29582 -
This commit is contained in:
martin 2011-02-16 23:11:37 +00:00
parent 959a53f86e
commit 11a403bf19
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/sourceeditor.pp
View File

@ -579,7 +579,7 @@ type
private
FManager: TSourceEditorManager;
FUpdateLock, FFocusLock: Integer;
FUpdateFlags: set of (ufPageNames, ufTabsAndPage, ufStatusBar, ufProjectFiles);
FUpdateFlags: set of (ufPageNames, ufTabsAndPage, ufStatusBar, ufProjectFiles, ufFocusEditor);
FPageIndex: Integer;
fAutoFocusLock: integer;
FIncrementalSearchPos: TPoint; // last set position
@ -5534,8 +5534,8 @@ begin
include(FUpdateFlags, ufPageNames);
exit;
end;
for i:=0 to PageCount-1 do
FindSourceEditorWithPageIndex(i).UpdatePageName;
for i := 0 to EditorCount - 1 do
Editors[i].UpdatePageName;
UpdateTabsAndPageTitle;
end;
@ -5865,6 +5865,7 @@ begin
if (ufTabsAndPage in FUpdateFlags) then UpdateTabsAndPageTitle;
if (ufStatusBar in FUpdateFlags) then UpdateStatusBar;
if (ufProjectFiles in FUpdateFlags) then UpdateProjectFiles;
if (ufFocusEditor in FUpdateFlags) then FocusEditor;
FUpdateFlags := [];
end;
end;
@ -6541,6 +6542,10 @@ procedure TSourceNotebook.FocusEditor;
var
SrcEdit: TSourceEditor;
begin
if FUpdateLock > 0 then begin
include(FUpdateFlags, ufFocusEditor);
exit;
end;
if (fAutoFocusLock>0) then exit;
SrcEdit:=GetActiveSE;
if SrcEdit=nil then exit;