Support forums for TRichView, ScaleRichView, Report Workshop and RVMedia components
https://richedit.com/forums/
only font, color and backcolorSergey Tkachenko wrote: ↑Wed Aug 02, 2017 3:43 pm Do you want to save all text properties (font, color, etc.)?
Code: Select all
uses
RVTypes, CRVData;
type
TCustomRVDataAccess = class (TCustomRVData)
end;
function GetTextItemHTML(RVData: TCustomRVData; ItemNo: Integer): TRVUnicodeString;
var
Span: TRVRawByteString;
FontName: TRVUnicodeString;
TextStyle: TFontInfo;
begin
Result := UTF8ToString(TCustomRVDataAccess(RVData).GetTextForHTML('', ItemNo, True, [rvsoUTF8]));
TextStyle := RVData.GetRVStyle.TextStyles[RVData.GetItemStyle(ItemNo)];
FontName := UTF8ToString(StringToHTMLString3(TextStyle.FontName, True, CP_ACP));
if (AnsiCompareText(FontName, RVFONT_SYMBOL) = 0) or
(AnsiCompareText(FontName, RVFONT_WINGDINGS) = 0) then
FontName := '''Arial Unicode MS'', ''Lucida Sans Unicode'', ''Arial'', ''Helvetica'', sans-serif'
else
FontName := '''' + FontName + '''';
Span := '<span style="font-family : ' + Utf8Encode(FontName);
if (TextStyle.Color <> clBlack) and (TextStyle.Color <> clWindowText) then
Span := Span + '; color : ' + RV_GetHTMLRGBStr(TextStyle.Color, False);
if TextStyle.BackColor <> clNone then
Span := Span + '; background-color : ' + RV_GetCSSBkColor(TextStyle.BackColor);
Span := Span + '">';
Result := UTF8ToString(Span) + Result + '</span>';
end;