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

fpspreadsheet: Add unit tests for HTML-to-RichText conversion (and vice versa).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6073 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-11-14 22:57:11 +00:00
parent f67d13f3b3
commit a8743226b7
2 changed files with 151 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -931,6 +931,14 @@ end;
{@@ ----------------------------------------------------------------------------
Extracts rich-text parameters out of an html-formatted string and returns the
plain text
@@param AWorkbook Workbook in which the cell with this text will reside
@@param AFont Standard font used in the cell in which this text
will reside
@@param AHTMLText Input Text with html tags to be applied to the cell
@@param APlainText AHtmlText after removal of HTML tags, pure text
@@param ARichtTextParams Rich-text parameters corresponding to the embedded
html tags
-------------------------------------------------------------------------------}
procedure HTMLToRichText(AWorkbook: TsWorkbook; AFont: TsFont;
const AHTMLText: String; out APlainText: String;