How to draw text fit to page width without wrap?

Thanks a lot. Trick is working great.

Hi,

here the solution with some decorations for better understanding. The kernel is much more short.

  QP.SetMeasurementUnits(1);                // unit mm
  angle := 30; // degrees for DrawRotated, betwenn 0 and 360°
  QP.SetPageDimensions(210, 300);
  QP.SetOrigin(0); // Bottomleft
  txt := 'This is to be fitted for x-direction, not y';

  x0 := 20;     // borders in which we want to place the text
  x1 := 190;
  fitwidth := x1-x0;
  x := x0; y := 180; // startpoint
// 1. fitting for 0 degrees
  factor := (fitwidth)/QP.GetTextWidth(txt);
  QP.SetTextSize(QP.GetTextSize*factor);

  QP.SetLineWidth(0.1);
  QP.SetFillColor(1, 0, 0);
  QP.DrawCircle(x, y, 0.7, 1); // mark referenzpoint
  QP.SetTextColor(0.75, 0.75, 0.75);
  QP.DrawText(x, y,txt);
// to show the relation between box and baseline
  tw := QP.GetTextWidth(txt);
  th := QP.GetTextHeight;
  td := -QP.GetTextDescent;
  tt := th-td;
  QP.DrawBox(x, y+tt, tw, tt+td, 0); // box from bottom to top
  QP.SetLineColor(1, 0, 0);          // baseline
  QP.DrawLine(x, y, x+tw, y);

// now fitting for rotation
  QP.SetLineColor(0, 0, 1);
  salpha := sin(angle*pi/180);
  calpha := cos(angle*pi/180);

// show x-borders
  QP.SetLineColor(1, 0, 0);
  QP.DrawLine(x0, y-50, x0, y+100);
  QP.DrawLine(x1, y-50, x1, y+100);

// x-distance from the most left to most right point of box is to be calced as:
  factor := fitwidth/(calpha*tw + salpha*th); // there are 2 boxsides!

  QP.SetTextSize(QP.GetTextSize*factor);
// new values for sizes
  td := -QP.GetTextDescent;
  tt := QP.GetTextBound(2);
  dx := salpha*(tt+td);
  tw := QP.GetTextWidth(txt);
  th := QP.GetTextHeight;
  QP.SetTextColor(0, 0, 0);
  QP.DrawRotatedText(x+dx-salpha*td, y, angle, txt);
  QP.SetLineColor(0, 0, 1);
  QP.DrawRotatedBox(x+dx, (y-td), tw, th, angle, 0);

We have to notice, that we handle a Box, which is a container for the text. If we rotate it, the edges must not be parallel to pageborders. To get the needed size in x we add the projektion of long (textwidth) and short (textheight) edges of the box onto x-axis. This value we have to compare with our goal the with from border to border. So we get a factor to choose the right Textsize.

And so it looks:


It is to see, there is no fully exact solution possible, without a lot of more work. It depends on the first and last character. A last "q" would be more near to right border and a "p" as first more far from left border.

Be careful using the code. It is only correct for 0 to <90°. On 90° cos(alpha) is zero. So have a look on this, if dividing. The next issue is if you are in another quarter of coordinatesystem, you have to change some signs. For testing and understanding rotations it is a good idea, to set the refererencepoint in the center of page. So you can test four cases at one time and see the differences.


Have fun,

Werner