Высота MemoView
Приветствую!
Есть Memo фиксированного размера (Stretchable=false). Нужно:
а) если текст в него помещается, то напечатать текст;
б) если текст не помещается, то напечатать многоточие.
CalcHeight() всегда возвращает значение не превышающее выставленной высоты мемки.
Как решить задачу? Помогите пожалуйста!
Есть Memo фиксированного размера (Stretchable=false). Нужно:
а) если текст в него помещается, то напечатать текст;
б) если текст не помещается, то напечатать многоточие.
CalcHeight() всегда возвращает значение не превышающее выставленной высоты мемки.
Как решить задачу? Помогите пожалуйста!
Комментарии
begin
Memo1.Height := Memo1.CalcHeight;
end;
растягивает мемку до актуальной высоты.
Если в результате выполнения запроса данные в мемо не поступают, то надо заполнить поле мемо нижним подчеркиванием на всю ширину страницы. Это для того что бы в распичатанный документ можно было записать данные ручкой.
Оказалось, что CalcHeight неправильно работает когда включено "перетекание" FlowTo. Тогда он возвращает величину меньше либо равную высоте основной мемки.
У меня же бланк выглядит как: т.е. начиная со второй строки начинается вторая мемка (для которой CalcHeight=0).
Так что вопрос остается. Как побороть?
PS. Двумя мемками пришлось делать, т.к. расчерченные графы должны быть в любом случае...
procedure MasterData1OnAfterCalcHeight(Sender: TfrxComponent);
begin
Memo2.Height := Memo2.CalcHeight;
end;