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

SynEdit: clean up, formatting !442

Browse Source
This commit is contained in:
Martin 2025-02-28 00:10:29 +01:00
parent a4bc127fb2
commit a39516d0db
2 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
components/synedit/syneditmarkupifdef.pp
View File

@ -1807,26 +1807,27 @@ var
begin
ANextNode.ClearInfo;
Assert(ANode.IsValid, 'ANode.IsValid in MaybeExtendNodeForward');
if AStopBeforeLine < 0 then AStopBeforeLine := Lines.Count + 1;
// ANode is a Scan-Start-Marker and may be extended downto StartLine
Line := ANode.StartLine + ANode.ScanEndOffs;
while Line < AStopBeforeLine - 1 do begin
inc(Line);
if CheckLineForNodes(Line) then begin
ScanLine(Line, ANextNode.FNode);
if ANextNode.HasNode then begin
ANextNode.FStartLine := Line; // directly to field
ANode.ScanEndLine := Line - 1;
MaybeRequestNodeStates(ANextNode);
exit;
end;
if AStopBeforeLine < 0 then
AStopBeforeLine := Lines.Count + 1;
// ANode is a Scan-Start-Marker and may be extended downto StartLine
Line := ANode.StartLine + ANode.ScanEndOffs;
while Line < AStopBeforeLine - 1 do begin
inc(Line);
if CheckLineForNodes(Line) then begin
ScanLine(Line, ANextNode.FNode);
if ANextNode.HasNode then begin
ANextNode.FStartLine := Line; // directly to field
ANode.ScanEndLine := Line - 1;
MaybeRequestNodeStates(ANextNode);
exit;
end;
end;
// Line is empty, include in offs
if ANode.ScanEndLine <> Line then begin
//debugln(['EXTEND FORWARD node ', ANode.StartLine, ' - ', ANode.ScanEndLine, ' TO ', Line]);
ANode.ScanEndLine := Line;
end;
end;
// Line is empty, include in offs
if ANode.ScanEndLine <> Line then begin
//debugln(['EXTEND FORWARD node ', ANode.StartLine, ' - ', ANode.ScanEndLine, ' TO ', Line]);
ANode.ScanEndLine := Line;
end;
end;
function TSynMarkupHighIfDefLinesTree.GetOrInsertNodeAtLine(ALinePos: Integer): TSynMarkupHighIfDefLinesNodeInfo;

2
components/synedit/synedittexttrimmer.pas
View File

@ -686,7 +686,7 @@ var
temp: String;
begin
if (not fEnabled) then exit(s);
{$IFDEF SynTrimDebug}debugln(['--- Trimmer -- TrimLine ', ' fLineIndex=', fLineIndex, ' fSpaces=',length(fSpaces), ' RealUndo=', RealUndo ]);{$ENDIF}
{$IFDEF SynTrimDebug}debugln(['--- Trimmer -- TrimLine ', ' fLineIndex=', fLineIndex, ' fSpaces=',length(fSpaces), ' RealUndo=', RealUndo ]);{$ENDIF}
if RealUndo then begin
temp := NextLines.Strings[Index];
l := length(temp);