Как поместить текст в frMemoView?

Комментарии

• AlexTZ

  April 2004 отредактировано 05:46

  В 3.0 - пока никак.
• Masha

  April 2004 отредактировано 05:46

  Спасибо,AlexTZ ,но меня интересует не встроенная функция.Функция определяющая - влезет ли текст в прямоугольник у меня есть,но одним из ее параметров является прямоугольник TRect.Как мне определить размер этого прямоугольника для frMemoView в обработке события MyFrReport.OnBeginBand ,т.е. например
  var Size:TRect
  Size.Left:=0;
  Size.Top:=0;
  Size.Right:= для QuickReport аналог QRLabel.Size.Width
  Size.Bottom:=для QuickReport аналог QRLabel.Size.Height
  ВЫЗОВ_ФУНКЦИИ
  
  
  
• AlexTZ

  April 2004 отредактировано 05:46

  В 3.0 текстовые объекты рисуются в режиме WYSIWYG, т.е. распечатка на принтере будет выглядеть абсолютно аналогично тому, что видно на экране (с точностью до пиксела). Ваша ф-я наверняка это не учитывает. Поэтому легче использовать ф-ю TfrxMemoView.CalcWidth, которая вернет нужный размер.
  
  Подключить функцию к FR3 можно так:
  

  function TForm1.MyFunc(s: String; i: Integer): Boolean; 
  begin 
  // нужная логика 
  end; 
  
  procedure TForm1.MyProc(s: String); 
  begin 
  // нужная логика 
  end; 
  
  function TForm1.frxReport1UserFunction(Instance: TObject; ClassType: TClass; const MethodName: String; var Params: Variant): Variant; 
  begin 
    if MethodName = 'MYFUNC' then 
      Result := MyFunc(Params[0], Params[1]) 
    else if MethodName = 'MYPROC' then 
      MyProc(Params[0]); 
  end; 
  
    frxReport1.AddMethod('function MyFunc(s: String; i: Integer): Boolean'); 
    frxReport1.AddMethod('procedure MyProc(s: String)'); 
  
  
• Masha

  April 2004 отредактировано 05:46

  Спасибо,AlexTZ