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

SynEdit: fix charwidths issue in paint. Broken in fad67e71ec Issue #40716

Browse Source
This commit is contained in:
Martin 2024-01-22 20:48:44 +01:00
parent c819e0ed2a
commit 0a3d7d4e28
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/lazsyntextarea.pp
View File

@ -326,6 +326,7 @@ begin
if FLinesView.LogPhysConvertor.CurrentLine = ARealLine then begin if FLinesView.LogPhysConvertor.CurrentLine = ARealLine then begin
FCharWidths2 := FCharWidths; FCharWidths2 := FCharWidths;
FCharWidths :=FLinesView.LogPhysConvertor.CurrentWidthsDirect; FCharWidths :=FLinesView.LogPhysConvertor.CurrentWidthsDirect;
FCharWidthsLen :=FLinesView.LogPhysConvertor.CurrentWidthsCount;
end end
else begin else begin
if FCharWidths2 <> nil then begin if FCharWidths2 <> nil then begin