Ширина Memo

Marionka

Здравствуйте.
Как вычислить ширину Memo в зависимости от текста который в нем есть (Memo заполняется в скрипте), потому как после этого Memo есть Image, и если в Memo маленький текст то между этими компанентами много пустого места.
нужно что бы было так:

текст1 картинка1
длинный текст2 картинка2
очень длинный текст3 картинка3
текст4 картинка4

dron-s

а Anchors выставить у мемки и картинки нельзя?

Marionka

DRON написал: »

а Anchors выставить у мемки и картинки нельзя?

что это такое? и где его можно выставить? в инспекторе объектов такого свойства не нашла, в скрипте если написать Memo1. оно тоже не вызывается.....

dron-s

мда, и правда нет такого свойства

Marionka

по поводу вычисления ширины Memo
в теме http://fast-report.com/ru/forum/index.php?showtopic=6316 подняла этот вопрос

xlaalaa

Marionka написал: »

Здравствуйте.
Как вычислить ширину Memo в зависимости от текста который в нем есть (Memo заполняется в скрипте), потому как после этого Memo есть Image, и если в Memo маленький текст то между этими компанентами много пустого места.
нужно что бы было так:

текст1 картинка1
длинный текст2 картинка2
очень длинный текст3 картинка3
текст4 картинка4

У объектов отчета есть методы CalcWidth и CalcHeight. Воспользуйтесь ими. Для вашего примера установите свойство Memo1.AutoWidth=true, а в обработчике Memo1.OnAfterData следующий код:

procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
  Picture1.Left := TfrxMemoView(Sender).CalcWidth;    
end;