Высота MemoView

Комментарии

• AlexTZ

  September 2005 отредактировано 16:14

  procedure Memo1OnAfterData(Sender: TfrxComponent);
  begin
  Memo1.Height := Memo1.CalcHeight;
  end;
  
  растягивает мемку до актуальной высоты.
• intaari

  September 2005 отредактировано 16:14

  У меня схожая проблема:
  Если в результате выполнения запроса данные в мемо не поступают, то надо заполнить поле мемо нижним подчеркиванием на всю ширину страницы. Это для того что бы в распичатанный документ можно было записать данные ручкой.
• AnDy

  September 2005 отредактировано 16:14

  AlexTZ написал:

  procedure Memo1OnAfterData(Sender: TfrxComponent);
  begin
    Memo1.Height := Memo1.CalcHeight;
  end;
  
  растягивает мемку до актуальной высоты.

  Новости с фронта.
  Оказалось, что CalcHeight неправильно работает когда включено "перетекание" FlowTo. Тогда он возвращает величину меньше либо равную высоте основной мемки.
  У меня же бланк выглядит как:

  Ф.И.О. _____________________ (Memo1)
  ____________________________ (Memo2)
  ____________________________ (Memo2)
  

  т.е. начиная со второй строки начинается вторая мемка (для которой CalcHeight=0).
  
  Так что вопрос остается. Как побороть?
  
  PS. Двумя мемками пришлось делать, т.к. расчерченные графы должны быть в любом случае...
• AnDy

  September 2005 отредактировано 16:14

  Ну и? Мой вопрос решается или считается уже решенным?
• AlexTZ

  September 2005 отредактировано 16:14

  Работает в событии Band.OnAfterCalcHeight (когда данные уже занесены в мемки). В данном случае Memo2 - это мемка, которая указана в качестве FlowTo.
  
  procedure MasterData1OnAfterCalcHeight(Sender: TfrxComponent);
  begin
  Memo2.Height := Memo2.CalcHeight;
  end;
  
• AnDy

  September 2005 отредактировано 16:14

  Большущее спасибо!