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

SynEdit: remove debug code

Browse Source
This commit is contained in:
Martin 2024-03-12 16:41:34 +01:00
parent 3b5b15b789
commit 1cd1b06998
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synguttercodefolding.pp
View File

@ -772,12 +772,10 @@ begin
mlvl := lvl; mlvl := lvl;
x := ToIdx(SynEdit.LogicalCaretXY.X); x := ToIdx(SynEdit.LogicalCaretXY.X);
i := ndList.Count; i := ndList.Count;
writeln('COUNT ',i);
while i > 0 do begin while i > 0 do begin
dec(i); dec(i);
nd := ndList[i]; nd := ndList[i];
act := nd.FoldAction; act := nd.FoldAction;
WriteLn(' ND ', nd.LogXStart, ' - ', nd.LogXEnd, ' st lvl:',nd.FoldLvlStart, ' en lvl:', nd.FoldLvlEnd, ' act ', Dec2Numb( integer(act),0,2), ' lastl: ', sfaLastLineClose in act, ' nxt' , sfaCloseForNextLine in act , ' co ',sfaCloseAndOpen in act, ' sngl ', sfaSingleLine in act);
if act * [sfaInvalid, sfaOneLineOpen, sfaOneLineClose] <> [] then if act * [sfaInvalid, sfaOneLineOpen, sfaOneLineClose] <> [] then
continue; continue;
if act * [sfaFold, sfaFoldFold, sfaFoldHide] = [] then if act * [sfaFold, sfaFoldFold, sfaFoldHide] = [] then
@ -835,7 +833,6 @@ WriteLn(' ND ', nd.LogXStart, ' - ', nd.LogXEnd, ' st lvl:',nd.FoldLvlStar
SynEdit.InvalidateGutterLines(ToPos(FInnerFoldStart), ToPos(FInnerFoldEnd)); SynEdit.InvalidateGutterLines(ToPos(FInnerFoldStart), ToPos(FInnerFoldEnd));
if lvl = 0 then begin if lvl = 0 then begin
writeln('000 >>> ', HasBefore, HasAfter, ' lvl: ',lvl, ' s:',s,' e:',e, ' // ndcur ',ndCur, ' ndmin ',ndMin , ' i ',i );
FInnerFoldStart := -1; FInnerFoldStart := -1;
FInnerFoldEnd := -1; FInnerFoldEnd := -1;
exit; exit;
@ -860,7 +857,6 @@ writeln('000 >>> ', HasBefore, HasAfter, ' lvl: ',lvl, ' s:',s,' e:',e, ' // ndc
SynEdit.InvalidateGutterLines(ToPos(FInnerFoldStart), ToPos(FInnerFoldEnd)); SynEdit.InvalidateGutterLines(ToPos(FInnerFoldStart), ToPos(FInnerFoldEnd));
writeln('>>> ', FInnerFoldStart+1, '..', FInnerFoldEnd+1, ' ', HasBefore, HasAfter, ' lvl: ',lvl, ' s:',s,' e:',e, ' // ndcur ',ndCur, ' ndmin ',ndMin , ' i ',i );
end; end;
function TSynGutterCodeFolding.PreferedWidth: Integer; function TSynGutterCodeFolding.PreferedWidth: Integer;