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

SynEdit: Return past-end-of line attribute in multi line comments // support for p-eol attibute (missed file)

Browse Source 
git-svn-id: trunk@43421 -
This commit is contained in:
martin 2013-11-11 13:00:22 +00:00
parent 82085e2c7d
commit 7187c0477d
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/synedit/lazsyntextarea.pp
View File

@ -383,8 +383,13 @@ begin
ATokenInfo.PhysicalClipEnd := ATokenInfo.EndPos.Physical;
ATokenInfo.RtlInfo.IsRtl := False;
FMarkupTokenAttr.Clear;
FMarkupTokenAttr.Foreground := FForegroundColor;
FMarkupTokenAttr.Background := FBackgroundColor;
if ATokenInfo.Attr <> nil then begin
FMarkupTokenAttr.Assign(ATokenInfo.Attr);
end
else begin
FMarkupTokenAttr.Foreground := FForegroundColor;
FMarkupTokenAttr.Background := FBackgroundColor;
end;
ATokenInfo.ExpandedExtraBytes := 0;
ATokenInfo.HasTabs := False;
@ -456,6 +461,9 @@ function TLazSynPaintTokenBreaker.GetNextHighlighterTokenFromView(out
FCurViewCurTokenStartPos := FCurViewScannerPos;
while FCurViewToken.TokenLength = 0 do begin // Todo: is SyncroEd-test a zero size token is returned
Result := FDisplayView.GetNextHighlighterToken(FCurViewToken);
if not Result then
FCurViewToken.TokenAttr := nil;
Result := Result and (FCurViewToken.TokenStart <> nil); // False for end of line token
if not Result then begin
FCurViewToken.TokenLength := -1;
exit;
@ -665,6 +673,12 @@ begin
Result := MaybeFetchToken; // Get token from View/Highlighter
if not Result then begin
ATokenInfo.StartPos := FCurViewScannerPos;
if FCurViewToken.TokenAttr <> nil then begin
InitSynAttr(FCurViewAttr, FCurViewToken.TokenAttr, FCurViewCurTokenStartPos);
ATokenInfo.Attr := FCurViewAttr;
end
else
ATokenInfo.Attr := nil;
exit;
end;