paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 02:49:06 +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}; DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.Destroy'){$ENDIF};
FProcessingCommand:=false; FProcessingCommand:=false;
SourceEditorMarks.OnGetFilename := nil;
SourceEditorMarks.OnAction := nil;
// aWordCompletion is released in InternalFinal // aWordCompletion is released in InternalFinal
aWordCompletion.OnGetSource := nil; aWordCompletion.OnGetSource := nil;
@ -6614,8 +6612,8 @@ begin
if TempEditor=nil then exit; if TempEditor=nil then exit;
WasSelected:=PageIndex=APageIndex; WasSelected:=PageIndex=APageIndex;
//debugln(['TSourceNotebook.CloseFile ',TempEditor.FileName,' ',TempEditor.APageIndex]); //debugln(['TSourceNotebook.CloseFile ',TempEditor.FileName,' ',TempEditor.APageIndex]);
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.CloseFile'){$ENDIF}; //DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.CloseFile'){$ENDIF};
try //try
EndIncrementalFind; EndIncrementalFind;
TempEditor.Close; TempEditor.Close;
TempEditor.Free; TempEditor.Free;
@ -6637,9 +6635,9 @@ begin
if not FIsClosing then if not FIsClosing then
Close; Close;
end; end;
finally //finally
EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.CloseFile'){$ENDIF}; // EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.CloseFile'){$ENDIF};
end; //end;
// Move focus from Notebook-tabs to editor // Move focus from Notebook-tabs to editor
TempEditor:=FindSourceEditorWithPageIndex(PageIndex); TempEditor:=FindSourceEditorWithPageIndex(PageIndex);
if IsVisible and (TempEditor <> nil) and (FUpdateLock = 0) then if IsVisible and (TempEditor <> nil) and (FUpdateLock = 0) then
@ -8952,6 +8950,8 @@ end;
destructor TSourceEditorManager.Destroy; destructor TSourceEditorManager.Destroy;
begin begin
SourceEditorMarks.OnGetFilename := nil;
SourceEditorMarks.OnAction := nil;
Application.RemoveAllHandlersOfObject(Self); Application.RemoveAllHandlersOfObject(Self);
inherited Destroy; inherited Destroy;
end; end;