Как подчеркнуть строку

Tualan

Как подчеркнуть строку с опредленного места до конца, т.е. по всей ширине объекта?

Azrael

1. Включить свойство AllowHTMLTags элемента Memo.
2. Пишем типа "неподчеркнутая строка а вот это подчеркнутая строка "
выведется неподчеркнутая строка подчеркнутая строка

Tualan

А как чтобы до конца всего объекта?

Tualan

Я не понимаю, неужели проще,чем:

создаем обект - название, рядом обьект - значение, подчеркнутый по всей длине, ниже еще один объект - значение, для того чтобы если значение не вместилось в первом FlowTo во второй, тоже подчеркнутый, но уже на всю длину листа.

нельзя сделать?

gpi

Если нужно, чтобы значение подчёркивалось полностью по всей длине, включая и сам текст, то установи у Memo свойство Underlines=True
Для того, чтобы текст переносился на другую строку WordWrap=True StretchMode=smActualHeight. Бэнд тоже должен быть растягиваемым

Tualan

Нужно не полностью, нужно именно так:

Название: _____________________________________________
______________________________________________________
______________________________________________________

И так нужно много много раз. К стати Underlines в PDF отказывется импортиться, что тоже не есть хорошо.

gpi

Расположи тогда на мемо (Memo1), где выводится значение, ещё одно мемо (Memo2) с текстом название и белым фоном. Установи Memo1.ParagraphGap =Memo2.Width+2, Memo1.Underlines=True
Вот только проблема с экспортом в PDF останется.

Tualan

Да, действительно хорошая идея. Спасибки.