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

SynEdit: Pas-Highlighter, double-quotes, fix detecting quotes if they are the only char in a line. Issue from merge request !120

Browse Source
This commit is contained in:
Martin 2023-05-19 15:02:24 +02:00
parent 8235520f00
commit e3a4b57951
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/synedit/synhighlighterpas.pp
View File

@ -505,6 +505,7 @@ type
procedure SlashContinueProc;
procedure SpaceProc;
procedure StringProc;
procedure DoubleQuoteProc;
procedure StringProc_MultiLineDQ;
procedure SymbolProc;
function TypeHelpersIsStored: Boolean;
@ -2827,7 +2828,7 @@ begin
'%': fProcTable[I] := @BinaryProc;
'&': fProcTable[I] := @OctalProc;
#39: fProcTable[I] := @StringProc;
'"': fProcTable[I] := @StringProc_MultiLineDQ;
'"': fProcTable[I] := @DoubleQuoteProc;
'0'..'9': fProcTable[I] := @NumberProc;
'A'..'Z', 'a'..'z', '_':
fProcTable[I] := @IdentProc;
@ -3664,20 +3665,23 @@ begin
FRange := FRange + [rsInProcHeader];
end;
procedure TSynPasSyn.DoubleQuoteProc;
begin
if (spmsmDoubleQuote in FStringMultilineMode) then begin
Inc(Run);
StringProc_MultiLineDQ();
end
else
SymbolProc();
end;
procedure TSynPasSyn.StringProc_MultiLineDQ;
begin
if (not (spmsmDoubleQuote in FStringMultilineMode)) then
begin
SymbolProc();
Exit;
end;
fTokenID := tkString;
fRange := fRange + [rsAnsiMultiDQ];
while (fLine[Run] <> #0) do
begin
Inc(Run);
if (fLine[Run] = '"') then
begin
Inc(Run);
@ -3687,6 +3691,7 @@ begin
Break;
end;
end;
Inc(Run);
end;
end;