paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 03:32:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Wide end of line character.

Browse Source
This commit is contained in:
Margers 2025-07-15 07:17:12 +00:00 committed by Michael Van Canneyt
parent 18c009fd98
commit 889db707e4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fv/src/dialogs.inc
View File

@ -3254,7 +3254,8 @@ BEGIN
else
begin
AtStartOfLine := False;
if (EGC <> #13) and (EGC <> #10) then
{ ha, #13#10 is one unicode character }
if (EGC <> #13#10) and (EGC <> #13) and (EGC <> #10) then
begin
if EGC = ' ' then
begin
@ -3269,7 +3270,7 @@ BEGIN
LastTruncatedBoundaryWidth := CurLineWidth;
end;
end;
if (CurLineWidth >= Size.X) or (EGC = #13) then
if (CurLineWidth >= Size.X) or (EGC = #13#10) or (EGC = #13) or (EGC = #10) then
begin
if CurLineWidth >= Size.X then
begin