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

SourceEditor: Fixed updating executionmark

Browse Source 
git-svn-id: trunk@27914 -
This commit is contained in:
martin 2010-10-27 23:26:55 +00:00
parent 7af59a81a6
commit 62e5e22a12
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/sourceeditor.pp
View File

@ -4854,8 +4854,6 @@ begin
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.Destroy'){$ENDIF};
FProcessingCommand:=false;
SourceEditorMarks.OnGetFilename := nil;
SourceEditorMarks.OnAction := nil;
// aWordCompletion is released in InternalFinal
aWordCompletion.OnGetSource := nil;
@ -6614,8 +6612,8 @@ begin
if TempEditor=nil then exit;
WasSelected:=PageIndex=APageIndex;
//debugln(['TSourceNotebook.CloseFile ',TempEditor.FileName,' ',TempEditor.APageIndex]);
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.CloseFile'){$ENDIF};
try
//DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.CloseFile'){$ENDIF};
//try
EndIncrementalFind;
TempEditor.Close;
TempEditor.Free;
@ -6637,9 +6635,9 @@ begin
if not FIsClosing then
Close;
end;
finally
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.CloseFile'){$ENDIF};
end;
//finally
// EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.CloseFile'){$ENDIF};
//end;
// Move focus from Notebook-tabs to editor
TempEditor:=FindSourceEditorWithPageIndex(PageIndex);
if IsVisible and (TempEditor <> nil) and (FUpdateLock = 0) then
@ -8952,6 +8950,8 @@ end;
destructor TSourceEditorManager.Destroy;
begin
SourceEditorMarks.OnGetFilename := nil;
SourceEditorMarks.OnAction := nil;
Application.RemoveAllHandlersOfObject(Self);
inherited Destroy;
end;