Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

RichEdit - Нужно задать размер Width равный первой линии.


KvORubin ©   (2002-06-27 20:19:00) 

Когда мы заносим текст в Label, он принимает размеры текста, короче разтягивается..
Нужно разтянуть RichEdit или Memo учитевая длину только первой строки..
____________________________
И ещё вопрос: Где нить есть компонент бегущая строка???


pusrg   (2002-06-27 21:29:00) [1]

Как извращенный способ могу предложить следующий:

Memo1.Width:=Form1.Canvas.TextWidth(Memo1.Lines[0]);


Интересно на какой обработчик ты его попробуешь прилепить?
На FormShow смотрится вроде ничего.
Но при этом фонты на форме и в Memo должны совпадать. Лучше оставить ParentFont:=true; для Memo.
Установить Memo1.BorderStyle:=bsNone; или если оставить bsSingle, то нужно добавлять несколько пикселей с учетом ширины рамки Memo.

Встречный вопрос, а почему бы тебе не использовать св-ва WordWrap или ScroollBars для Memo?


Наверх

Титульная страница Поиск, карта сайта Написать письмо