TKMemoRTFWriter

type TKMemoRTFWriter = class(TKMemoRTFFiler)

protected

  FCodePage: Integer;

  FColorTable: TKMemoRTFColorTable;

  FFontTable: TKMemoRTFFontTable;

  FGroupLevel: Integer;

  FListTable: TKMemoRTFListTable;

  FSelectedOnly: Boolean;

  function BoolToParam(); virtual;

  function CanSave(); virtual;

  function ColorToHighlightCode(); virtual;

  function ColorToParam(); virtual;

  function EMUToParam(); virtual;

  procedure FillColorTable(); virtual;

  procedure FillFontTable(); virtual;

  procedure WriteBackground; virtual;

  procedure WriteBody(); virtual;

  procedure WriteColorTable; virtual;

  procedure WriteContainer(); virtual;

  procedure WriteCtrl();

  procedure WriteCtrlParam();

  procedure WriteFontTable; virtual;

  procedure WriteGroupBegin;

  procedure WriteGroupEnd;

  procedure WriteHeader(); virtual;

  procedure WriteHyperlinkBegin(); virtual;

  procedure WriteHyperlinkEnd; virtual;

  procedure WriteImage(); virtual;

  procedure WriteImageBlock(); virtual;

  procedure WriteListTable; virtual;

  procedure WriteListText(); virtual;

  procedure WriteParagraph(); virtual;

  procedure WriteParaStyle(); virtual;

  procedure WritePicture(); virtual;

  procedure WriteSemiColon;

  procedure WriteShape(); virtual;

  procedure WriteShapeProp(); virtual;

  procedure WriteShapeProperties(); virtual;

  procedure WriteShapePropName();

  procedure WriteShapePropValue();

  procedure WriteSpace;

  procedure WriteString();

  procedure WriteTable(); virtual;

  procedure WriteTableRowProperties(); virtual;

  procedure WriteTextBlock(); virtual;

  procedure WriteTextStyle(); virtual;

  procedure WriteUnicodeString(); virtual;

  procedure WriteUnknownGroup;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SaveToFile(); virtual;

  procedure SaveToStream(); virtual;

  property ReadableOutput: Boolean; [rw]

end;

TKMemoRTFWriter

TKMemoRTFFiler

TObject