[T232006]

Здравствуйте, уважаемые профессионалы!
Есть окно Memo. Я хочу, чтобы, когда текст в Memo заполнил всё окно, шрифт в этом Memo уменьшился и снова появилось место. Так до бесконечности. Я думал увязать уменьшение размера шрифта к ScrollBar (когда появляется СкроллБар, нужно уменьшить размер шрифта), однако не знаю, что это за событие. Может быть, у кого-то есть какие-то идеи?

[lmikle]

Вот тут есть пример как посчитать кол-во видимых строк в TMemo:
https://stackoverflow.com/questions/...lines-in-tmemo
Думаю это примерно то, что тебе надо. Правда тут не учитывается перенос строк. Код просто возвращает видимое кол-во строк в мемо.