mORMot Open Source

Thanks for your advice.

I did add ForceNoAntiAliased:=TRUE

This did solve the problems all together.
Both ShowPreviewForm and ExportPDF(FileName,true,true) works fine now (I am running Windows 7).

Best regards,

Gerrit Wolsink

Thanks for your reply very much.

I do use the PDF engine as an add on to my program only; with the code below (not more than that)

procedure TEditForm.PDFKnopClick(Sender: TObject); {pushing a button}
begin
with TGDIPages.Create(EditForm) do
try
  Screen.Cursor:=crHourGlass;
  BeginDoc;
   SaveLayout;
   Font.Size:=10;
   TextAlign:=taLeft;
   AddLineToFooter(true);                         
   AddPagesToFooterAt(TResourceLocalizer.GetString(LanguageResOffset,2336)+'%d/%d',LeftMargin);
   RestoreSavedLayout;
   AppendRichEdit(RichEdit1.Handle);
  EndDoc;
   FileName:=ChangeFileExt(FileName,'.pdf');
   ExportPDF(FileName,true,true);
//   ShowPreviewForm;
finally
  Free;
  Screen.Cursor:=crDefault;
end;
end;

The ShowPreviewForm has the same wrong behaviour as ExportPDF(FileName,true,true);

Printing to paper I did not test, I did now however, with a surprising result.
Printing to paper gives the folowing results:
- ExportPDF(FileName,true,true) -->  the same wrong behavoiur on screen as on paper
- ShowPreviewForm -->wrong on screen; right on paper (with the aid of the 'Printbutton') <--- that's the surprise

I do use the native RTF format of the RichEdit component (bitmap or meta files embedded in it do work).
Below I copied a small RTF file with one line of text and an embedded metafile (because of size I did ommit the largest part of meta file information however):

{\rtf1\ansi\deff0\deflang1033{\fonttbl{\f0\fnil Courier New;}{\f1\fnil MS Sans Serif;}{\f2\fnil Times New Roman;}}
{\colortbl ;\red0\green0\blue0;\red255\green0\blue0;\red0\green0\blue255;}
\viewkind4\uc1\pard\cf1\f0\fs20
\par \cf2\ul\b\f1\fs28 FRAMEWORK program - displacement method (Statical calculation)
\par \cf3\ulnone\f2\fs20
\par \cf1\ul\fs28{\pict\wmetafile8\picw17489\pich8925\picwgoal9915\pichgoal5060
0100090000036c4600000b001610000000001610000026060f002220574d464301000000000001
00abf10000000004000000002000009c4800009c680000010000006c0000000000000000000000
ef010000fc000000000000000000000051440000dd22000020454d46000001009c6800007a0200
00080000000000000000000000100000008007000038040000a50200007d010000000000000000
000000000000d5550a0048d005001b000000100000000000000000000000520000007001000001
000000f5ffffff0000000000000000000000009001000000000001000000004d00530020005300
61006e007300200053006500720069006600000000000000000000000000000000000000000000

etc. etc. etc.

0500040000002d01060004000000f0010900040000002d010800050000000902ff000000080000
00fa02000001000000ff000000040000002d0105000400000004010d00040000002d0103000400
00002d010400040000002d010600030000000000
}
\par \ulnone\fs20
\par }

I don't know if it does help, but my coding to do graphics is as follows:

.......
  Bitmap:=TBitmap.Create;
  Bitmap.Width:=Image1.Width;
  Bitmap.Height:=Image1.Height;
  Image1.Picture.Graphic:=Bitmap;
  Mainform.ImageMain:=Image1;
  if MtFile then {option for MetaFile pictures is switched on}
  begin
   MainForm.MyMetafile.Clear;
   MainForm.MyMetafile.Width:=Image1.Width;
   MainForm.MyMetafile.Height:=Image1.Height;
   MainForm.WaarMetaFile:=TMetafileCanvas.Create(MainForm.MyMetafile,0);
  end;
  PlotGeoMetrie2D(1,tekst,True); {the actual plotting of the picture}
  if MtFile then {playing MetaFileCanvas}
  begin
   Mainform.WaarMetaFile.Free;
   Mainform.ImageMain.Canvas.Draw(0,0,Mainform.MyMetafile);
  end;
  Bitmap.Free;
........

I do hope this information does help you.

Gerrit Wolsink

I did download 'SynCommons' too, but it did not help.
Stil the same error: [Error] SQLite3Pages.pas(4178): Undeclared identifier: 'WinAnsiTable'

I did download the following version numbers:
'SynCommons' -- no. 1.16
'SQLite3Pages' -- no. 1.15
'SynPDF'-- no. 1.16
'SynGdiPlus'  -- no. 1.16

'SQLite3Pages' has still version number 1.15; is this the right one?
At the files menu this file is not present.
There is  a 'SynSQLite3' file, but that does not compile.