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

SourceLog, send only one notification, if changed

Browse Source 
git-svn-id: trunk@25284 -
This commit is contained in:
martin 2010-05-09 19:08:02 +00:00
parent 432b5fc9dd
commit 65712f8d8d
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/codetools/sourcelog.pas
View File

@ -468,11 +468,16 @@ procedure TSourceLog.SetSource(const NewSrc: string);
begin begin
//DebugLn('TSourceLog.SetSource A ',length(NewSrc),' LineCount=',fLineCount,' SrcLen=',fSrcLen); //DebugLn('TSourceLog.SetSource A ',length(NewSrc),' LineCount=',fLineCount,' SrcLen=',fSrcLen);
if NewSrc<>FSource then begin if NewSrc<>FSource then begin
Clear; inc(FChangeHookLock);
FSource:=NewSrc; try
FSrcLen:=length(FSource); Clear;
FLineCount:=-1; FSource:=NewSrc;
FReadOnly:=false; FSrcLen:=length(FSource);
FLineCount:=-1;
FReadOnly:=false;
finally
dec(FChangeHookLock);
end;
NotifyHooks(nil); NotifyHooks(nil);
end; end;
end; end;