Posts by Ratay

Ratay · PDF Engine

Hi,
when system default printer paper size is smaller than A4 (letter or A5 for example)
and richedit component contains underlined characters these underscores are not rendered at bottom of page
except underscores all page contents looks correct (including page footer)

thanks

code:

uses mORMotReport,synpdf;

procedure SaveToPdf(rtHandle:HWnd; SFile:string);
begin
  with TGDIPages.Create(self) do
  begin
    Caption := 'Report';
    NewPageLayout(TGdiPagePaperSize(psA4));
    BeginDoc;
    SaveLayout;
    AddTextToHeader('Header');
    AddPagesToFooterAt('%d / %d',RightMarginPos);
    RestoreSavedLayout;
    DrawTitle('begin',false);
    AppendRichEdit(rtHandle);
    EndDoc;
    ExportPDF(sFile,true,false);
  end;
end;

mORMot Open Source

#1 PDF Engine » Underlines in rich text » 2018-10-17 09:00:05

Board footer