paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 23:46:28 +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
//DebugLn('TSourceLog.SetSource A ',length(NewSrc),' LineCount=',fLineCount,' SrcLen=',fSrcLen);
if NewSrc<>FSource then begin
Clear;
FSource:=NewSrc;
FSrcLen:=length(FSource);
FLineCount:=-1;
FReadOnly:=false;
inc(FChangeHookLock);
try
Clear;
FSource:=NewSrc;
FSrcLen:=length(FSource);
FLineCount:=-1;
FReadOnly:=false;
finally
dec(FChangeHookLock);
end;
NotifyHooks(nil);
end;
end;