title: using TfrxRect and GetRealBounds in a script
body: <p>i am tying to use the script</p>
  
  <pre><code>procedure BarCodeResize(Bc : TfrxBarCodeView);
  var
  r : TfrxRect;
  begin
  bc.Text := '1234567890 test 1234567890 asdf 1234567890';
  r := bc.GetRealBounds;
  bc.Zoom := bc.Width/(r.Right - r.Left);
  frxReport1.ShowReport();
  end;
  </code></pre>
  
  <p>but it shows me an error at line <strong>'r : TfrxRect;'</strong></p>