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

SynEdit: Wrapped-view, fix painting for non-wrapped lines. Update values for current (sub-)line

Browse Source 
(cherry picked from commit 94f2b48f00)
This commit is contained in:
Martin 2025-01-24 20:48:23 +01:00
parent c01af285f4
commit c9fdab8f85
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/synedit/syneditviewedlinemap.pp
View File

@ -1295,16 +1295,17 @@ var
begin
if (not FCurWrapPage.HasPage) or (FCurWrapPage.StartLine > AWrappedLine) or
(AWrappedLine >= FCurWrapPage.RealEndLine)
then begin
then
FCurWrapPage := FLineMappingView.FLineMappingData.FindPageForWrap(AWrappedLine);
FCurWrappedLine := AWrappedLine;
end;
FCurWrappedLine := AWrappedLine;
if FCurWrapPage.HasPage then
RealIdx := FCurWrapPage.StartLine +
FCurWrapPage.Page.GetOffsetForWrap(AWrappedLine - FCurWrapPage.StartLine - FCurWrapPage.ViewedCountDifferenceBefore, FCurrentWrapSubline)
else
RealIdx := AWrappedLine;
else begin
RealIdx := AWrappedLine;
FCurrentWrapSubline := 0;
end;
inherited SetHighlighterTokensLine(RealIdx, ARealLine, AStartBytePos, ALineByteLen);
end;