Canvas.TextWidth on Report Script?

Comments

• GRFrones

  January 2007 edited 6:19AM

  I found a solution.
  
  Put this sample code on the OnBeforePrint of the Memo Object:

  Procedure Marcas1OnBeforePrint(Sender: TfrxComponent);
  Var wWidth : Extended;
  Begin
      Marcas1.Memo.Clear;
      Marcas1.Memo.Add( 'Here comes some text. It must be the string itself... expressions will be evaluated only after this event, so that they aren't useful here.' );
  
      Repeat
          wWidth := Marcas1.CalcWidth;
  
          If wWidth > 660 Then
              Marcas1.Font.Size := Marcas1.Font.Size - 1;
      Until wWidth <= 660;
  End;
  

  
  Marcas1 is the name of the Memo object.
  
  Btw, I don't know if it's possible to evaluate the Memo expression in place of adding a new string. But I think that should be possible. There is a GetData procedure, but it's not accessible through script. Is there anyway to do it?
  
  Thanks again.
• gordk St.Catherines On. Canada.

  January 2007 edited 6:19AM

  hi Gabriel it will depend upon how acurate and how automated you want to be
  ie
  working in pixels
  a memo with width of 248 and default character spacing etc., will display
  about 35 characters arial 10 regular.
  in the obp of the band you can get the length of the string datafield
  if the length is greater than the known val reduce font size.
  
  build a smal array say 3 or 4 entries of char val font size.
  to get the values for the array initially
  manually look at the data in the memo using different font sizes and count the characters. average no of characters may also vary depending upon character set used.
  
  
• GRFrones

  January 2007 edited 6:19AM

  gordk, thank you very much... I'll try to implement something like that later.
  
  Best Regards.