TXLSXRichText stores styled text runs for TXLSXCell.RichText and comment rich text in the XLSX façade
Declarations
type
TXLSXRichText = class
function AddRun: TXLSXRichTextRun;
function AddRunText(const AText: WideString): TXLSXRichTextRun;
procedure Clear;
function PlainText: WideString;
property RunCount: Integer;
property Runs[Index: Integer]: TXLSXRichTextRun;
end;
TXLSXRichTextRun = class
property Text, Name: WideString;
property Size: Double;
property Bold, Italic, Strikethrough, ColorIsAuto: Boolean;
property Underline: TXLSXUnderline;
property Color: LongWord;
property VertAlign: TXLSXFontVertAlign;
end;
Key members
| AddRun and AddRunText | Append an empty run or a run with initial text |
| PlainText | Returns the concatenated text without style information |
| Name, Size, Bold, Italic and Strikethrough | Font family, size and basic style attributes for one run |
| Underline, Color and ColorIsAuto | Underline and colour choices for the run |
| VertAlign | Baseline, subscript or superscript vertical alignment |
Exemple
var Rich: TXLSXRichText;
begin
Rich := TXLSXRichText.Create;
Rich.AddRunText('Quarterly ');
Rich.AddRunText('Report').Bold := True;
Sheet.Cells[1, 1].RichText := Rich;
end;Voir aussi