const - HotXLS kūrėjo žinynas

TXLSXRichText Clear; function.RichText Bold, Italic, Strikethrough, ColorIsAuto: Boolean;: WideString;

property

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;

end

property	property
Bold, Italic, Strikethrough, ColorIsAuto: Boolean;	Underline: TXLSXUnderline;
property	end
Append an empty run or a run with initial text	Grąžina the concatenated text without style information
Underline, Color and ColorIsAuto	Underline, Color and ColorIsAuto

var

var Rich: TXLSXRichText;
begin
  Rich := TXLSXRichText.Create;
  Rich.AddRunText('Quarterly ');
  Rich.AddRunText('Report').Bold := True;
  Sheet.Cells[1, 1].RichText := Rich;
end;