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

fpspreadsheet: Fix (?) display issue with text cells containing incorrect html parts (such as '<'), https://forum.lazarus.freepascal.org/index.php/topic,52694.0.html

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7944 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-12-29 18:51:33 +00:00
parent 68aac01c1b
commit 78a6cffca0
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -958,6 +958,15 @@ begin
analyzer.Prefix := APrefix; analyzer.Prefix := APrefix;
analyzer.Exec; analyzer.Exec;
APlainText := analyzer.PlainText; APlainText := analyzer.PlainText;
// HTML text has an error --> take the input text literally
if (AHtmlText <> '') and (APlainText = '') then
begin
APlainText := AHtmlText;
ARichTextParams := nil;
exit;
end;
nrtp := Length(analyzer.RichTextParams); nrtp := Length(analyzer.RichTextParams);
if nrtp > 0 then begin if nrtp > 0 then begin
// Avoid rich-text parameters beyond text end. // Avoid rich-text parameters beyond text end.