mORMot Open Source

evillalona

Member

Registered: 2014-01-14

Posts: 1

Synpdf wrong text display on landscaped pdf

I am a new user of your library and i'm really impressed with it.
I'm using it to convert and acereporter (http://www.sct-associates.com) file to a PDF. If the report is portrait oriented everything works perfectly.
But when it is landscaped the labels that has wrapped text (WrapText=true) does not get displayed accurately on acrobat reader.

You may look into https://skydrive.live.com/?cid=2018c7e7 … 0657%21121
and see what i am talking about.

Thanks in advance.

             begin
                rppoliza_Diverso.Page.PageSetup.Destination:= destFile;
                rppoliza_Diverso.Page.Visible:=false;
                rppoliza_Diverso.Page.AceFilename:= cMovimiento_ace;
                rppoliza_Diverso.Prompt:= False;
                rppoliza_Diverso.Run;
                aFile := TAceAceFile.Create;
                aFile.LoadFromFile(cMovimiento_ace);
                aWmf  := TMetaFile.Create;
                aWmf.Enhanced := True;
                vpdf := TPdfDocumentGDI.Create();
                vpdf.CompressionMethod := cmFlateDecode;
                vpdf.DefaultPageLandscape:=true;
                for p := 1 to aFile.Pages.Count do
                  begin
                      vpdf.AddPage;
                      aWmfCanvas := TMetaFileCanvas.Create(aWmf,0) ;
                      aFile.PlayPage(aWmfCanvas.Handle,p);
                      aWmfCanvas.Free;
                      vpdf.VCLCanvas.Draw(0,0,aWmf);
                  end;
                try
                  aFile.Free;
                  DeleteFile(cMovimiento_ace);
                  vpdf.SaveToFile(cMovimiento_pdf);
                finally
                  vpdf.free;
                  aWmf.Free;
                end;
             end;