mORMot Open Source

procedure TForm2.Button3Click(Sender: TObject);
var
  i: integer;
begin
  with TGDIPages.Create(self) do
  try

    // the title of the report
    Caption := self.Caption;

    // now we add some content to the report
    BeginDoc;

    // header and footer
    AddTextToHeader(paramstr(0));

    SaveLayout;

    Font.Style := [fsItalic];
    TextAlign := taRight;
    AddTextToFooterAt('footnote',RightMarginPos);
    RestoreSavedLayout;
    AddTextToFooter(DateTimeToStr(Now));

    // main content (automaticaly split on next pages)
    NewHalfLine;

    DrawTitle('Sample Report', true);
    for i := 1 to 10 do
      DrawText('This is some text '+IntToStr(i));
    NewLine;

    AddColumns([10,20,50]);
    AddColumnHeaders(['#','Two','Three'],true,true);
    for i := 1 to 100 do
      DrawTextAcrossCols([IntToStr(i),'Row '+IntToStr(i),'Some text here']);
    NewLine;

    DrawTitle('This is your text:');
    DrawText(memo1.text);

    EndDoc;

    // this method will show a preview form, and allow basic actions
    // by using the right click menu
    ShowPreviewForm;

  finally
    Free;
  end;
end;