TMemo и Scrollbar. Как сделать выделение i строки?

Всем привет!
С этой проблемой я бъюсь уже очень долго и решить ее не могу. Под TMemo в идеальном случае я понимаю все компоненты, имеющие Scrollbar(TStringGrid, TRichEdit итд).
Проблема заключается в следующем: я создал TMemo поместил в него текст, закрыл программу и сохранил все настройки последнего состояния. Когда я открыл программу заного, соответственно загрузил в него текст(настройки шрифта и прочее). Перед закрытием программы я читал текст. Текста было много и я листал его с помощью Scrollbar`а. Я могу узнать положение каретки, номер строки и прочие параметры, но как мне выставить 150 строку текста в мемо в качестве начальной строки? Другими словами как мне выставить ползунок Scrollbar на 80% или Scrollbar->Position=115? Причем выставить так, чтобы первая отрисованная строка мемо начиналась с середины текста.
Единственное что я нашел это - Memo1->ScrollBy(DeltaX,DeltaY). Но эту дельту нужно подбирать, причем дельта относится к канве, но не к строке. ( Если я проведу команду Memo1->ScrollBy(0,10), то я получу желаемый результат( будет отрисована 2 строка текста в качестве первой отрисованной), но если я поставлю дельту 210, то я не получу 21 строку, а получу, например, 20. Подборка коэффициэнта вызывает много вопросов, потому что потом я захочу поменять текст и все съедет.
Если совсем коротко, то как выполнить такую команду:
Memo1->First_Draw_Item(Line)_Number=i?

0

1

Заработало!!
Только осталась небольшая проблема. Сообщение EM_SCROLLCARET сбрасывает меня не в начало, а в конец текста.
Я сделал цикл for (unsigned i = 0; i < 1000; i++)Memo1->Lines->Add(i); и после отправки двух сообщений (i=15) окно показывает последнюю пятерку( 995;996;997;998;999). Если не посылать сообщение EM_SCROLLCARET, то все нормально, но понятно, что без каретки пролистывание строк будет суммироваться.
Спасибо за ответ, подскажите плз, как выставить каретку в начало через SendMessage.
И еще вопрос. Возможно ли получить указатель TScrollbar из компонента?

0

Сообщение от Илья2 как выставить каретку в начало через SendMessage.

Не надо SendMessage, достаточно

Сообщение от Илья2 Возможно ли получить указатель TScrollbar из компонента?

Зачем?

0

Memo1->SelStart = 0; не работает. Я пробовал и CaretPos и Cursor и другие свойства. Единственное, что меняет индекс первой отрисовываемой строки это функция ScrollBy. Еще я пробовал делать Clear() и рисовать все заного, но это ужасно.

Указатель на TScrollbar нужен чтобы задавать шаг прогрутки и допл. настройки (SmallChange, Min, Max). Главная цель уменьшить количество действий с TMemo. Когда я читаю текст или занимаюсь редактированием, то кнопками на скроле(вверх и вниз на строку) я почти не пользуюсь, листаю сразу по слайдеру. Если перевести SmallChange с единицы на собственную величину, например, на 15% от всего, то большие тексты я смогу пролистывать быстрее и попадать, например, в середину документа сразу без прицеливания. Еще можно использовать клавишу ScrollDown как пролистывание всех видимых строк (те в мемо нарисовано с 0 по 20 строк, я нажал один раз ScrollDown и мемо нарисовал строки с 20 по 40).
Я рассматривал вариант где можно создать дополнительный скрол и через него все подкрутить. Но такое решение вызывает у меня проектировочную печаль.

0

Memo1->SelStart = 0; не работает.

Если б не работало - я б не написал. Коды без проверки мной не выкладываются. Все прекрасно работает, пробуй на чистом проекте. Если у тебя в коде какой-то другой фрагмент мешает этому способу отработать - это проблемы того, другого фрагмента.

0

Memo1->SelStart = 0;

- работает; но может у ТС фокус переносится на другой компонент и этого не видно?

0

Сообщение от nick42 и этого не видно?

Не видно чего? Что содержимое Memo прокручивается на заданное число строк не от текущего положения, а от начала? Это в любом случае должно быть видно.

0

Да, все работает.
Я понял

Сообщение от volvo Не надо SendMessage, достаточно

по другому и выполнял как
Memo1->SelStart = 0;
SendMessage(Memo1->Handle, EM_LINESCROLL, 0, i);
Сейчас я написал
Memo1->SelStart = 0;
SendMessage(Memo1->Handle, EM_SCROLLCARET, 0, 0);
SendMessage(Memo1->Handle, EM_LINESCROLL, 0, i);
И все заработало.
Спасибо за ответ, теперь все супер))))

1