paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 20:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: messages: update on create synedit

Browse Source 
git-svn-id: trunk@45260 -
This commit is contained in:
mattias 2014-05-31 21:47:31 +00:00
parent 6a15348fd3
commit e7674e7143
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -2394,6 +2394,8 @@ begin
if assigned(SharedEdit.FEditPlugin) then if assigned(SharedEdit.FEditPlugin) then
SharedEdit.FEditPlugin.Changes := ETChanges; SharedEdit.FEditPlugin.Changes := ETChanges;
end; end;
if MessagesView<>nil then
MessagesView.MessagesFrame1.CreateMarksForFile(SynEditor,FCodeBuffer.Filename,true);
{$ENDIF} {$ENDIF}
if (FIgnoreCodeBufferLock <= 0) and (not FCodeBuffer.IsEqual(SynEditor.Lines)) if (FIgnoreCodeBufferLock <= 0) and (not FCodeBuffer.IsEqual(SynEditor.Lines))
then begin then begin