TsHeaderFooterParser

type TsHeaderFooterParser = class(TObject)

protected

  FSections: TsHeaderFooterSections;

  FDefaultFont: TsHeaderFooterFont;

  FCurrSection: TsHeaderFooterSectionIndex;

  FStatus: Integer;

  FFontList: TList;

  FPointSeparatorSettings: TFormatSettings;

  FCurrFontIndex: Integer;

  FCurrText: string;

  FFontClass: TsHeaderFooterFontClass;

  procedure AddCurrTextElement;

  procedure AddElement();

  procedure AddFontStyle();

  procedure AddNewLine;

  function FindCurrFont;

  function GetCurrFontIndex; virtual;

  procedure Parse; virtual;

  procedure UseSection(); virtual;

public

  constructor Create();

  destructor Destroy; override;

  function BuildHeaderFooter;

  function IsImageInSection();

  property Sections: TsHeaderFooterSections; [r]

end;

TsHeaderFooterParser

TObject