Добавление текста в RichTextBox так, чтобы при фокусе на нем не было автоматического скроллирования

Проблема: добавление текста в вышеназваный контролл так, чтобы при фокусе на нем не было автоматического скроллирования.
Поясню: есть RichTextBox, в нем есть некое кол-во текста, форматированного. Чтобы форматирование не исчезало при добавлении текста, обычно ставят каретку ввода на самый конец файла (SelStart=len(text)). Однако при этом ричтекстбокс непременно будет скроллироваться вниз, что крайне нежелательно.
Есть способ с помощью АПИ: EM_EXSETSEL (выделяю текст), затем EM_REPLACESEL ('вставляю' текст) и даю команду ричэдиту на форматирование (например, SelColor=vbRed). Отлично, код работает! Однако, если я в это время переведу фокус на ричэдит, то в нем появляется каретка ввода и при выделении EM_EXSETSEL окно опять скроллируется вниз... а ведь при всем при этом нужна возможность спокойно копировать текст из окна в то время, как другой текст вставлялся бы в конец и форматировался под некие требования. Как решить эту проблему?
На данный момент была осуществлена попытка создать сабклассинг и ловля сообщения WM_VSCROLL. Упрощенный алгоритм: запоминание позиции ползунка скролла, потом вставка нужного текста, форматирование, и снова возврат ползунка на исходную позицию. Однако вот беда: в wRaram содержится позиция бегунка только когда я его мышкой непосредственно передвину! А если я пользуюсь 'стрелочками' на полосе прокрутки? Или, скажем, с помощью скролла мыши? Как быть?
И еще вопрос вдогонку: как вставить туда картинку так, чтобы ее нельзя было ресайзить мышкой? Аналог - клиент ICQ, там сделано как раз так, как мне нужно, т.е. картинка не ресайзится, и можно спокойно вводить текст, редактировать и т.д. Как они так сделали?
Заранее благодарен.
PS попытки обсудить эту проблему на http://bbs.vbstreets.ru/viewtopic.php?t=12917 к сожалению, не увенчались успехом...

0

Попутно возник вопрос - я могу с помощью CHARFORMAT2 изменить цвет фона под конкретной надписью. Как этот фон 'продлить' до конца ширины ричтекстбокса не добивая строку пробелами (или другими символами) и чтобы фон динамически 'увеличивася/уменьшался' при ресайзе контрола?

0

Наконец-то я смог добраться до длл от Мессира.. попробовал - не работает. Картинка вставляется, но прекрасно ресайзится и мувится...

0

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

0

Да, и еще.. картинки я подгружаю через ресурсы, поэтому надо, чтобы Вы изменили код так, чтобы длл понимала строку вида InsertFSImage Rich.hWnd, LoadResPicture(103, vbResBitmap)
PS если я убиваю фокус на ричэдите, то двойной клик мне не страшен и собсно все работает на ура..

0