{
FPVectorial example application for writing a text document file to disk.

Author: Felipe Monteiro de Carvalho

License: Public Domain
}
program fpvtextwritetest;

{$mode objfpc}{$H+}

uses
  fpvectorial, odtvectorialwriter, fpvutils, fpvectorialpkg;

{$R *.res}

var
  Vec: TvVectorialDocument;
  Page: TvTextPageSequence;
  CurParagraph: TvRichText;
begin
  Vec := TvVectorialDocument.Create;
  try
    // A4 -> 210mm x 297mm
    Vec.Width := 210;
    Vec.Height := 297;
    Vec.AddStandardODTTextDocumentStyles();

    // First page sequence
    Page := Vec.AddTextPageSequence();
    CurParagraph := Page.AddParagraph();


    Vec.WriteToFile('text_output.odt', vfODT);
  finally
    Vec.Free;
  end;
end.