mORMot Open Source

procedure TForm1.btn1Click(Sender: TObject);
var
  i, y: integer;
  test: TRect;
  TestImage: TImage;
begin

  with TGDIPages.Create(self) do
  try
    BeginDoc;

    for y := 0 to 4 do
    begin

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

      try
        TestImage := TImage.Create(self);
        TestImage.Width := 500;
        TestImage.Height := 500;

        TestImage.Canvas.Pen.Color := clRed;
        TestImage.Canvas.MoveTo(0, y * 80);
        TestImage.Canvas.LineTo(TestImage.Width, y * 80);

        DrawBMP(TestImage.Picture.Bitmap, maxInt, RightMarginPos);
      finally
        TestImage.Free;
      end;

      NewPage;
    end;

    EndDoc;
    ExportPDF('test.pdf', true, true);
  finally
    Free;
  end;
end;