TKMemoRTFReader

type TKMemoRTFReader = class(TKMemoRTFFiler)

protected

  FActiveBlocks: TKMemoBlocks;

  FActiveColor: TKMemoRTFColor;

  FActiveContainer: TKMemoContainer;

  FActiveFont: TKMemoRTFFont;

  FActiveImage: TKMemoImageBlock;

  FActiveImageClass: TGraphicClass;

  FActiveImageIsEMF: Boolean;

  FActiveList: TKMemoRTFList;

  FActiveListLevel: TKMemoRTFListLevel;

  FActiveListOverride: TKMemoDictionaryItem;

  FActiveParaBorder: TAlign;

  FActiveShape: TKMemoRTFShape;

  FActiveString: TKString;

  FActiveState: TKMemoRTFState;

  FActiveTable: TKMemoTable;

  FActiveTableBorder: TAlign;

  FActiveTableCell: TKMemoTableCell;

  FActiveTableCellXPos: Integer;

  FActiveTableCol: Integer;

  FActiveTableColCount: Integer;

  FActiveTableLastRow: Boolean;

  FActiveTableRow: TKMemoTableRow;

  FActiveTableRowPadd: TRect;

  FActiveText: TKMemoTextBlock;

  FActiveURL: TKString;

  FAtIndex: TKMemoBlockIndex;

  FColorTable: TKMemoRTFColorTable;

  FCtrlTable: TKMemoRTFCtrlTable;

  FDefaultCodePage: Integer;

  FDefaultFontIndex: Integer;

  FFontTable: TKMemoRTFFontTable;

  FIgnoreChars: Integer;

  FIgnoreCharsAfterUnicode: Integer;

  FIndexStack: TKMemoIndexObjectStack;

  FGraphicClass: TGraphicClass;

  FListTable: TKMemoRTFListTable;

  FStack: TKMemoRTFStack;

  procedure AddText(); virtual;

  procedure AddTextToNumberingFormat(); virtual;

  procedure ApplyFont(); virtual;

  procedure ApplyHighlight(); virtual;

  procedure FillCtrlTable; virtual;

  function ParamToBool(); virtual;

  function ParamToColor(); virtual;

  function ParamToInt(); virtual;

  function ParamToEMU(); virtual;

  procedure FlushColor; virtual;

  procedure FlushContainer; virtual;

  procedure FlushFont; virtual;

  procedure FlushHyperlink; virtual;

  procedure FlushImage; virtual;

  procedure FlushList; virtual;

  procedure FlushListLevel; virtual;

  procedure FlushListOverride; virtual;

  procedure FlushParagraph; virtual;

  procedure FlushShape; virtual;

  procedure FlushTable; virtual;

  procedure FlushText; virtual;

  function HighlightCodeToColor(); virtual;

  procedure PopFromStack(); virtual;

  procedure PushToStack(); virtual;

  function ReadNext(); virtual;

  procedure ReadColorGroup(); virtual;

  procedure ReadDocumentGroups(); virtual;

  procedure ReadFieldGroup(); virtual;

  procedure ReadFontGroup(); virtual;

  procedure ReadHeaderGroup(); virtual;

  procedure ReadListGroup(); virtual;

  procedure ReadParaFormatting(); virtual;

  procedure ReadPictureGroup(); virtual;

  procedure ReadShapeGroup(); virtual;

  procedure ReadSpecialCharacter(); virtual;

  procedure ReadStream; virtual;

  procedure ReadTableFormatting(); virtual;

  procedure ReadTextFormatting(); virtual;

  procedure ReadUnknownGroup(); virtual;

  property ActiveColor: TKMemoRTFColor; [r]

  property ActiveContainer: TKMemoContainer; [r]

  property ActiveFont: TKMemoRTFFont; [r]

  property ActiveList: TKMemoRTFList; [r]

  property ActiveListLevel: TKMemoRTFListLevel; [r]

  property ActiveListOverride: TKMemoDictionaryItem; [r]

  property ActiveImage: TKMemoImageBlock; [r]

  property ActiveShape: TKMemoRTFShape; [r]

  property ActiveTable: TKMemoTable; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure LoadFromFile(); virtual;

  procedure LoadFromStream(); virtual;

end;

TKMemoRTFReader

TKMemoRTFFiler

TObject