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

LazUtils, UTF8WrapText: make sure that last BreakChar (e.g. space symbol) on line fits into wrapping length

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-01-22 19:06:32 +03:00
parent 63bee66fd3
commit 4f8f408f97
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazutf8.pas
View File

@ -3272,7 +3272,7 @@ begin
Inc(N); Inc(N);
if P^ = BreakStr[Length(BreakStr)] then if P^ = BreakStr[Length(BreakStr)] then
N := 0; N := 0;
if N > MaxCol - Indent then if N >= MaxCol - Indent then
begin begin
Len := Length(Result); Len := Length(Result);
RP := Len; RP := Len;