Высота MemoView

AnDy

Приветствую!

Есть Memo фиксированного размера (Stretchable=false). Нужно:
а) если текст в него помещается, то напечатать текст;
б) если текст не помещается, то напечатать многоточие.

CalcHeight() всегда возвращает значение не превышающее выставленной высоты мемки.

Как решить задачу? Помогите пожалуйста!

AlexTZ

procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
Memo1.Height := Memo1.CalcHeight;
end;

растягивает мемку до актуальной высоты.

intaari

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

AnDy

AlexTZ написал:

procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
  Memo1.Height := Memo1.CalcHeight;
end;

растягивает мемку до актуальной высоты.

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

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

т.е. начиная со второй строки начинается вторая мемка (для которой CalcHeight=0).

Так что вопрос остается. Как побороть?

PS. Двумя мемками пришлось делать, т.к. расчерченные графы должны быть в любом случае...

AnDy

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

AlexTZ

Работает в событии Band.OnAfterCalcHeight (когда данные уже занесены в мемки). В данном случае Memo2 - это мемка, которая указана в качестве FlowTo.

procedure MasterData1OnAfterCalcHeight(Sender: TfrxComponent);
begin
Memo2.Height := Memo2.CalcHeight;
end;

AnDy

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