Добавление прокрутки и показ курсора в Мемо

[cyberdev]

Нужно добавить вертикальную полосу прокрутки в Мемо, если текст занимает больше места по вертикали нежели размер самого Мемо.
Можно сделать так:
Общая высота текста = Memo.Lines.Count * (высота строки + расстояние между строками)
как-то так... Но как получить эти величины достоверными, в пикселях?

И второе. После программного перемещения курсора за пределы Мемо нужно показать его программно изменив положение прокрутки по вертикали.

[evg_m]

как-то так... Но как получить эти величины достоверными, в пикселях?

memo.Canvas....
TextExtent /TextWidth /TextHeight и прочий функционал TCanvas

[cyberdev]

Сообщение от evg_m

memo.Canvas....
TextExtent /TextWidth /TextHeight и прочий функционал TCanvas

Работает, как для вертикальной, так и для горизонтальной прокрутки. Спасибо!

Теперь, осталось решить вторую задачу. При изменении курсора с помощью CaretРos, он может попасть за пределы видимой области текста Мемо. Прокрутка при этом никак не реагирует. Как заставить прокрутку Мемо показывать курсор?

[Аватар]

Memo1.SelLength:=0;

[cyberdev]

Сообщение от Аватар

Memo1.SelLength:=0;

Ну теперь Мемо станет более функциональным Спасибо!

[min@y™]

il9zfqk9.jpg