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

SourceEditor: Only send one update to msg-view, if 2 Views exist

Browse Source 
git-svn-id: trunk@24383 -
This commit is contained in:
martin 2010-04-03 21:04:46 +00:00
parent b1b4157851
commit 94672a57eb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/sourceeditor.pp
View File

@ -4396,7 +4396,8 @@ procedure TSourceEditor.LinesInserted(Sender: TObject; FirstLine,
begin begin
// notify the notebook that lines were Inserted. // notify the notebook that lines were Inserted.
// marks will use this to update themselves // marks will use this to update themselves
MessagesView.SrcEditLinesInsertedDeleted(Filename,FirstLine,Count); if (Self = FSharedValues.SharedEditors[0]) then
MessagesView.SrcEditLinesInsertedDeleted(Filename,FirstLine,Count);
end; end;
procedure TSourceEditor.SetVisible(Value: boolean); procedure TSourceEditor.SetVisible(Value: boolean);