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

SynEdit: Textdrawer, fixed painting gaps past EOL (don't show special chars in gap before fold-indicator)

Browse Source
This commit is contained in:
Martin 2025-01-23 01:00:48 +01:00
parent a2153c9bcb
commit 949a6339ac
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/lazsyntextarea.pp
View File

@ -99,6 +99,7 @@ type
): Boolean;
function GetNextHighlighterTokenEx(out ATokenInfo: TLazSynDisplayTokenInfoEx): Boolean;
property CharWidths: TPhysicalCharWidths read FCharWidths;
property CharWidthsLen: integer read FCharWidthsLen;
property ForegroundColor: TColor read FForegroundColor write FForegroundColor;
property BackgroundColor: TColor read FBackgroundColor write FBackgroundColor;
property SpaceExtraByteCount: Integer read FSpaceExtraByteCount write FSpaceExtraByteCount;
@ -1549,6 +1550,7 @@ var
CurTextIndex: Integer; // Current Index in text
dc: HDC;
CharWidths: TPhysicalCharWidths;
CWLen: Integer;
var
LineBuffer: PChar;
@ -1562,7 +1564,7 @@ var
Attr: TSynSelectedColorMergeResult;
TxtFlags: Integer;
tok: TRect;
c, i, j, k, e, Len, CWLen: Integer;
c, i, j, k, e, Len: Integer;
pl, pt: PChar;
TxtLeft: Integer;
NeedExpansion, NeedTransform: Boolean;
@ -1689,8 +1691,6 @@ var
c := 0;
e := 0;
CWLen := Length(CharWidths);
// Copy to LineBuffer (and maybe FetoBuf
if NeedExpansion then begin
j := ATokenInfo.StartPos.Logical - 1;
@ -1828,6 +1828,7 @@ var
CharWidths := nil; // keep refcnt = 1 -- in case they get resized
FTokenBreaker.SetHighlighterTokensLine(TV + CurLine, CurTextIndex);
CharWidths := FTokenBreaker.CharWidths;
CWLen := FTokenBreaker.CharWidthsLen;
fMarkupManager.PrepareMarkupForRow(CurTextIndex+1);
DividerInfo := DisplayView.GetDrawDividerInfo; // May call HL.SetRange