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

TodoListLaz: Optimize SynEdit markup for comments / fixes for custom words in comments

Browse Source
This commit is contained in:
Martin 2025-03-24 13:30:13 +01:00
parent 8e59857521
commit 63d93a19f0
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/todolist/todosynmarkup.pas
View File

@ -16,7 +16,7 @@ uses
LazEditMiscProcs,
// SynEdit
SynEditMarkup, SynHighlighterPas, SynEditMiscProcs, SynEdit, SynEditMiscClasses, SynEditTypes,
SynEditHighlighter;
SynEditHighlighter, SynEditHighlighterFoldBase;
type
@ -189,23 +189,30 @@ var
function GetStartOfComment(var ALineNum: integer; out ALogX: integer): boolean; inline;
var
lvl: Integer;
IsComment, IsNewCommentStart: Boolean;
begin
ALogX := 1;
FPasHl.StartAtLineIndex(ToIdx(ALineNum));
Result := FPasHl.GetTokenIsComment;
Result := FPasHl.GetTokenIsComment and (ALineNum > 1);
if (not Result) or
(FPasHl.GetTokenIsCommentStart(True))
then
exit;
while ALineNum > 1 do begin
repeat
dec(ALineNum);
if ALineNum = FSkipEndLine then
exit(False);
lvl := FPasHl.FoldBlockEndLevel(ToIdx(ALineNum), FOLDGROUP_PASCAL, [sfbIncludeDisabled]);
while (ALineNum > 1) and
(FPasHl.FoldBlockMinLevel(ToIdx(ALineNum), FOLDGROUP_PASCAL, [sfbIncludeDisabled]) >= lvl)
do begin
dec(ALineNum);
if ALineNum = FSkipEndLine then
exit(False);
end;
// Get ALogX and check for nested comment
FPasHl.StartAtLineIndex(ToIdx(ALineNum));
IsComment := FPasHl.GetTokenIsComment;
// if not a comment, then pretend its a new start => used for "result"
IsNewCommentStart := (not IsComment) or FPasHl.GetTokenIsCommentStart(True);
@ -224,7 +231,8 @@ var
if Result then
exit;
end;
until false;
Result := False;
end;
@ -281,6 +289,11 @@ begin
FFoundPos[0] := FFoundPos[i];
SetLength(FFoundPos, 1);
TkEnd := 1 + FPasHl.GetTokenLen;
while (not FPasHl.GetEol) and (not FPasHl.GetTokenIsCommentEnd) do begin
FPasHl.Next;
if not FPasHl.GetTokenIsComment then break;
TkEnd := ToPos(FPasHl.GetTokenPos) + FPasHl.GetTokenLen;
end;
FFoundPos[0].EndPos.Y := aRow;
FFoundPos[0].EndPos.X := TkEnd;
LogX := TkEnd;