mORMot Open Source

I am confused, or doing somthing wrong, or not understanding somthing.

I use the following code in the start of my Printer program

   pdfDoc := TPdfDocumentGDI.Create;
   pdfDoc.Info.Author:='';
   pdfDoc.Info.Creator:='';
   pdfDoc.DefaultPaperSize:=psA4;
   pdfDoc.CompressionMethod:=cmFlateDecode;
   pdfDoc.ScreenLogPixels  := 600;                      // I assume this is in pixels per inch

   pdfPage := pdfDoc.AddPage;
   pdfDoc.VCLCanvas.Pen.Width:=1;
   pdfDoc.VCLCanvas.font.name := 'Arial';
   pdfDoc.VCLCanvas.font.height := round(10 * (pdfDoc.ScreenLogPixels / 72)) ;  //10pnt

   chwidth :=  pdfDoc.VCLCanvas.textwidth('n');      //= 0.676 pixels
   chheight := pdfDoc.VCLCanvas.textheight('n');     //= 1.27e-311 pixels

My printer program relies heavily on sizeing text for things like wordwrap, grid layout, page positioning.  Can anybody tell me how I can obtain the true width of some text in pixels (or points or em's or anything!)

Thanks in advance
Geoff

Have been playing with

   pdfDoc.Canvas.DrawXObject(0, 0 ,   250 , 300, objectname);

which appears to place objects in the "natural" position rather than their standard Delphi/Windows position.  That is the code above would place the bottom left of the object at the ** bottom ** left corner, rather than placing the top left of the object at the top left corner of the canvas as with other Delphi items including for example:

   pdfDoc.VCLCanvas.TextOut( 0,0, 'The quick brown fox jumped over the lazey dog');

which places the top left of the text at the top left of the canvas.

In order to place the object at the top left corner use:

   pdfDoc.Canvas.DrawXObject(0, pdfpage.PageHeight - Objectheight  ,   250 , 300, objectname);