paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 17:49:21 +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; if FCodeBuffer=nil then exit;
//DebugLn(['TSourceEditor.UpdateCodeBuffer ',FCodeBuffer.FileName]); //DebugLn(['TSourceEditor.UpdateCodeBuffer ',FCodeBuffer.FileName]);
IncreaseIgnoreCodeBufferLock; IncreaseIgnoreCodeBufferLock;
SynEditor.BeginUpdate; SynEditor.BeginUpdate(False);
try try
FCodeBuffer.Assign(SynEditor.Lines); FCodeBuffer.Assign(SynEditor.Lines);
FEditorStampCommitedToCodetools:=(SynEditor.Lines as TSynEditLines).TextChangeStamp; FEditorStampCommitedToCodetools:=(SynEditor.Lines as TSynEditLines).TextChangeStamp;
@ -9795,7 +9795,7 @@ begin
begin begin
//debugln(['TSourceEditorManager.OnIdle ',MarklingProducerCount]); //debugln(['TSourceEditorManager.OnIdle ',MarklingProducerCount]);
aFilename:=SrcEdit.FileName; aFilename:=SrcEdit.FileName;
SrcEdit.EditorComponent.BeginUpdate; SrcEdit.EditorComponent.BeginUpdate(False);
for i:=0 to MarklingProducerCount-1 do for i:=0 to MarklingProducerCount-1 do
begin begin
Marklings:=MarklingProducers[i].GetMarklings(aFilename,FreeList,FreeMarklings); Marklings:=MarklingProducers[i].GetMarklings(aFilename,FreeList,FreeMarklings);