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

SourceEditor: small optimization, no undo block for read only

Browse Source 
git-svn-id: trunk@48349 -
This commit is contained in:
martin 2015-03-15 02:09:55 +00:00
parent 7e6d02411c
commit 3102a20b2d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourceeditor.pp
View File

@ -2623,7 +2623,7 @@ begin
if FCodeBuffer=nil then exit;
//DebugLn(['TSourceEditor.UpdateCodeBuffer ',FCodeBuffer.FileName]);
IncreaseIgnoreCodeBufferLock;
SynEditor.BeginUpdate;
SynEditor.BeginUpdate(False);
try
FCodeBuffer.Assign(SynEditor.Lines);
FEditorStampCommitedToCodetools:=(SynEditor.Lines as TSynEditLines).TextChangeStamp;
@ -9795,7 +9795,7 @@ begin
begin
//debugln(['TSourceEditorManager.OnIdle ',MarklingProducerCount]);
aFilename:=SrcEdit.FileName;
SrcEdit.EditorComponent.BeginUpdate;
SrcEdit.EditorComponent.BeginUpdate(False);
for i:=0 to MarklingProducerCount-1 do
begin
Marklings:=MarklingProducers[i].GetMarklings(aFilename,FreeList,FreeMarklings);