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

IDE: verbosity

Browse Source 
git-svn-id: trunk@42480 -
This commit is contained in:
mattias 2013-08-24 16:53:57 +00:00
parent 1bc0d5749a
commit 60925a9ed7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/sourceeditor.pp
View File

@ -5439,7 +5439,7 @@ procedure TSourceEditor.UpdateIfDefNodeStates(Force: Boolean = False);
{off $DEFINE VerboseUpdateIfDefNodeStates}
{$IFDEF VerboseUpdateIfDefNodeStates}
const
VFilePattern='directives';
VFilePattern='blaunit';
VMinY=1;
VMaxY=70;
{$ENDIF}
@ -5509,10 +5509,6 @@ begin
until (ADirective^.SrcPos<>SrcPos) or (TCodeBuffer(ADirective^.Code)<>Code)
or (i > Scanner.DirectiveCount);
dec(i);
{$IFDEF VerboseUpdateIfDefNodeStates}
if (Pos(VFilePattern,Code.Filename)>0) and (Y>=VMinY) and (Y<=VMaxY) then
debugln(['TSourceEditor.UpdateIfDefNodeStates y=',y,' x=',x,' SET SynState=',dbgs(SynState)]);
{$ENDIF}
if (ActiveCnt=1) and (InactiveCnt=0) and (SkippedCnt=0) then
SynState:=idnEnabled
else if (InactiveCnt=1) and (ActiveCnt=0) and (SkippedCnt=0) then
@ -5521,6 +5517,10 @@ begin
SynState:=idnTempEnabled
else
SynState:=idnInvalid;
{$IFDEF VerboseUpdateIfDefNodeStates}
if (Pos(VFilePattern,Code.Filename)>0) and (Y>=VMinY) and (Y<=VMaxY) then
debugln(['TSourceEditor.UpdateIfDefNodeStates y=',y,' x=',x,' Counts:Inactive=',InactiveCnt,' Active=',ActiveCnt,' Skipped=',SkippedCnt,' SET SynState=',dbgs(SynState)]);
{$ENDIF}
EditorComponent.SetIfdefNodeState(Y,X,SynState);
end;
finally