Text spacing and alignment

chrigu

I have some troubles with text spacing.

By default, sometimes the spacing between words is way to big. Then I tried the mode wpExactTextPositioning, but now there are uncontrolled spaces in the words (see "Switzerland" in the example).
Finally I set the mode to wpDontAdjustTextSpacing and the text looks fine.

The problem I have now is, that with Pdf.Canvas.TextWidth I don't get correct results, so I cannot right align the text correctly (see example the columns with month/year).

My question is, how can I calculate the exact width of the text, so that right alignment works with mode wpDontAdjustTextSpacing too?

Examples are at:
http://www.splash-software.ch/host/TEST_Normal.pdf
http://www.splash-software.ch/host/TEST_ExactTextPos.pdf
http://www.splash-software.ch/host/TEST_Dont…TextSpacing.pdf

cu Christian

support

Hi,

I recommend to use the SetTextAlign API to right align the text. If you are using a small resolution (such as screen resolution) for the canvas the font width under windows and PDF can be quite a bit different for each single character. You can see that with small fonts.

Using a higer resolution (SetViewPortAPI!) will produce a better result since the font heights are then larger and windows rounding errors less effective.

Julian Ziersch

chrigu

Using SetTextAlign doesn't give better results.

Can you give me an example on how to use the SetViewPortAPI? I use the following code arround your component:

Code

const
  INCHES_PER_MILLIMETER = 1 / 25.4;
  PDF_RESOLUTION        = 300;  // Pixel per Inch


  PDF_A4_PAGEHEIGHT     = Round(297 * INCHES_PER_MILLIMETER * PDF_RESOLUTION);  // Masse in Pixel
  PDF_A4_PAGEWIDTH      = Round(210 * INCHES_PER_MILLIMETER * PDF_RESOLUTION);


function TBSPdf.MMToPixel(AMillimeter: Double): Integer;
begin
  Result := Round(AMillimeter * INCHES_PER_MILLIMETER * PDF_RESOLUTION);
end; // TBSPdf.MMToPixel


procedure TBSPdf.StartPage;
begin
  EndPage;
  FPDF.StartPage(PDF_A4_PAGEWIDTH, PDF_A4_PAGEHEIGHT, PDF_RESOLUTION, PDF_RESOLUTION, 0);
  FPageIsOpen := True;
end; // TBSPdf.StartPage


procedure TBSPdf.MmTextOut(AMmX, AMmY: Double; const AText: String; AAlign: TAlignment);
var
  alignMode : Cardinal;
  oldAlign  : Cardinal;
begin
  if AText = '' then Exit;
  alignMode := TA_TOP or TA_NOUPDATECP;
  case AAlign of
  taRightJustify:
    alignMode := alignMode or TA_RIGHT;
  taCenter:
    alignMode := alignMode or TA_CENTER;
  else
    alignMode := alignMode or TA_LEFT;
  end; // case
  oldAlign := SetTextAlign(FPDF.Canvas.Handle, alignMode);
  FPDF.Canvas.TextOut(MMToPixel(AMmX), MMToPixel(AMmY), AText);
  SetTextAlign(FPDF.Canvas.Handle, oldAlign);
end; // TBSPdf.MmTextOut

Alles anzeigen

support

Hi,

to scale the output using SetViewPort this code is used:

SetMapMode(DC, MM_ANISOTROPIC);
SetWindowExtEx(DC, WantedResX, WantedResY, nil);
SetViewPortExtEx(DC, IsResX, IsResY, nil);
SetViewPortOrgEx(DC, 0, 0, nil);

Text spacing and alignment

Ähnliche Themen

PNG Scrolls

WPTOOLS Changelog