pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix incorrect handling of <br> tag in html cell text. Cells with line-breaks are now automatically word-wrapped.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9005 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-11-01 22:00:11 +00:00
parent 3fc925936c
commit 13ac26a52b
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/source/common/fpshtmlutils.pas
View File

@ -842,9 +842,15 @@ begin
AddRichTextParam(FCurrFont);
end;
'<BR>',
'<BR/>': FPlainText := FPlainText + FPS_LINE_ENDING;
else if (pos('<BR ', NoCaseTag) = 1) then
'<BR/>': begin
FPlainText := FPlainText + FPS_LINE_ENDING;
FHandled := True;
end;
else if (pos('<BR ', NoCaseTag) = 1) then
begin
FPlainText := FPlainText + FPS_LINE_ENDING;
FHandled := True;
end;
end;
'D': if (NoCaseTag = '<DEL>') then
begin

2
components/fpspreadsheet/source/common/fpspreadsheet.pas
View File

@ -4122,6 +4122,8 @@ begin
if Length(ARichTextParams) > 0 then
for i:=0 to High(ARichTextParams) do
ACell^.RichTextParams[i] := ARichTextParams[i];
if pos(FPS_LINE_ENDING, AText) > 0 then
WriteWordWrap(ACell, true);
end;
ChangedCell(ACell^.Row, ACell^.Col);