Page 1 of 1

bullet default symbol font

Posted: Thu May 21, 2015 12:29 pm
by RobertoVG
when exporting to PDF using synpdf realized that the metafile generated by drawmetafile produced text distortion look in the paragraph below of bullet inserted

http://www.sispaic.com.br/PFNSis/Test.pdf


---------------
function MakePageMetafile(srve:TSRichViewEdit;aPageNo, aWidth, aHeight: Integer): TMetafile;
var
savTextDraw: Boolean;
begin
savTextDraw := ScaleRichViewTextDrawAlwaysUseGlyphs;
ScaleRichViewTextDrawAlwaysUseGlyphs := false;

Result := TMetafile.Create;
Result.Width := aWidth;
Result.Height := aHeight;
srve.CanUpdate := False;
srve.UseDrawHyperlinksEvent := True;
srve.DrawMetafile(aPageNo, Result, False, True, False);
ScaleRichViewTextDrawAlwaysUseGlyphs := savTextDraw;
srve.CanUpdate := True;
srve.UseDrawHyperlinksEvent := False;
end;

---------------
//synopse
PdfDoc : TPDFDocument;

. . . . .

for i := 1 to srve.PageCount do
begin

Metafile := MakePageMetafile(srve,i, Round(srve.PageWidth100Pix), Round(srve.PageHeight100Pix));
....
PdfDoc.DefaultPageWidth := MulDiv(srve.PageWidth100Pix,72,PdfDoc.ScreenLogPixels);
PdfDoc.DefaultPageHeight := MulDiv(srve.PageHeight100Pix,72,PdfDoc.ScreenLogPixels);

PdfDoc.AddPage;

some reference about this occurrence?

Thanks

Posted: Thu May 21, 2015 1:40 pm
by Sergey Tkachenko
Save this metafile to a file.
If this problem exists in a metafile, this is a problem of TRichView.
If the metafile looks ok, this is a problem of Synopse PDF.