mORMot Open Source

Var
  PDF : TPDFDocumentGDI;
  Page : TPDFPage;
  I,J : Integer;
  Senha : String;
begin
  Senha := 'CLINLIFE' + StringReplace(FormatDateTime('dd/MM/yyyy',Date),'/','',[rfReplaceAll]);

  PDF := TPDFDocumentGDI.Create(false,0,false,tpdfencryption.New(elRC4_40,Senha,'toto',PDF_PERMISSION_NOMODIF));
  I := 100;
  Try
    PDF.Info.Author := 'Eduardo Pinho Tavares';
    PDF.Info.CreationDate := Now;
    PDF.Info.Creator := 'Receitas CLINLIFE';
    PDF.Info.Subject := 'Receitas CLINLIFE';
    PDF.Info.Title := 'Receita da Clinlife';

    Page := PDF.AddPage;
    Page.PageLandscape := False;

    PDF.DefaultPaperSize := psA4;

    PDF.VCLCanvas.Font.Size := 12;
    PDF.VCLCanvas.Font.Style := [fsBold];
    PDF.VCLCanvas.TextOut(10,1,'Cliente : ' + Cliente);
    PDF.VCLCanvas.Font.Style := [fsItalic];
    PDF.VCLCanvas.TextOut(10,23,'Telefone : ' + Telefone + ' - Celular : ' + Celular);
    PDF.VCLCanvas.TextOut(10,45,'DATA : ' + FormatDateTime('dd/mm/yyyy',Date));
    PDF.VCLCanvas.Font.Size := 16;
    PDF.VCLCanvas.Font.Style := [];
    PDF.VCLCanvas.TextOut(10,I,':: RECEITAS CLINLIFE ::');

    PDF.VCLCanvas.Font.Size := 12;
    PDF.VCLCanvas.Font.Style := [fsItalic];

    for J := 0 to Texto.Lines.Count -1 do
      Begin
        I := I + 21;
        PDF.VCLCanvas.TextOut(15,I,Texto.Lines[J]);
      End;

    if PDF.SaveToFile(FileName) Then
     Begin
      Result := True;
      LogAtividade( 'Arquivo','Convertido para PDF');
     End
    Else
     Begin
       Result := False;
     End;
  Finally
    PDF.Free;
  End;
end;