Fit Text to a non regular shape

 

            here is some

text that needs to

fit into a very strange

shape

 

and it needs to be filled from the middle out.

 

I thought of defining 3 areas. But how to decide what text to place in what area.....

 

Any ideas very gratefully received!

 

1. Find Lines per Box (something like Box Height / Text Height)

2. Find out how many lines the text will take (GetTextWrappedLineCount)

3. If LineCount is Greater than LinesPerBox - 2 then

4. Calculate textWidth of a space character

5. Pack the fron of the text with the required number of spaces.

 

probably need to do some iterations.

 

Does that sound sane?

 

 

1. Find Lines available per box (Box Height / Text Height)

2. Break the text into lines using the GetWrappedText method

3. Calculate the width of the first line (60% of the box width)

4. Get the text width of the first line

5. if it is too wide for the first line then use GetWrappedText to find out how much will fit. Add the remaining text back to the rest of the text and run through GetWrappedText again to get the remaining lines.

6. write the text to the document using DrawTextBox for each line, setting alignment as necessary.

 

code if you are interested:

//uW := width of field

       ts := TStringlist.Create;
       try
         ts.Text := PDFLibrary.GetWrappedText(uW, #13#10, uText);  
         nW := uW * 0.6;
         if PDFLibrary.GetTextWidth(ts[0]) > nW then
         begin
           js := TStringList.Create;
           try
             js.Text := PDFLibrary.GetWrappedText(nW, #13#10, ts[0]);
             ts.Clear;
             ts.Text := PDFLibrary.GetWrappedText(nW, #13#10, copy(uText, length(js[0]) + 1, length(uText)));
             ts.Insert(0, js[0]);
           finally
             js.Free;
           end;
         end;