Абстрагируясь от использования RichEdit, или какого бы то ни было другого контрола, (таковы правило, а не мое желание) как бы вы решили вот такую задачу:

Пусть мы выводим большой фрагмент текста в клиентскую область окна. Весь текст не помещается поэтому по приходящему сообщению WM_KEYDOWN обрабатываем VK_UP и VK_DOWN. Проблем с VK_DOWN у меня нет, но есть с VK_UP.

Пусть пользователь "поднял" текст на пару строк вверх (нажал пару раз кнопку вниз - VK_DOWN) и после хочет опустить текст на строчку вниз (нажать кнопку вверх - VK_UP). Так вот как бы Вы вышли из этой ситуации, то есть - определили количество выводимых слов в первой строке, которой пока не видно


Это сообщение отредактировал(а) Royan - 12.7.2004, 20:18

Royan
вопрос скорее про организацию данных. Я поступил бы так:
весь текст хранить в виде списка массивов.

например

Код

class text_line {  char *psz_line_text; }; class text : public _list_t<text_line*> { };

в случае, если не надо делать автоперенос (текст переносится только там, где юзер ткнул enter) - задача становится банальной, берешь предьидущий блок text_line из списка и все.

в случае, если автоперенос нужен (скажем, слова переносятся по границе окна контрола) то в text_line определяем методы:
const char *get_wrapped_text( HDC hdc, int cx ) - возвратить указатель на первый символ строки (в параметре - ширина контрола и контекст с установленным фонтом).
также пригодится:
int get_wrapped_count( HDC, int cx ) - число строк.

соответствие скролл-позиция - позиция строки в списке + номер переноса - нужно кешировать в контроле на каждое изменение размеров. Будет тормозить, но иначе человеческий скроллинг не сделать с автоварпом. в Word похоже отдельный поток занимается обновлением подобных ссылок.

попробуй вот это переписать:

Код

'Load Textbox With More Than 64K of Data 'Get past the 64K limit imposed on the contents of a textbox with the SendMessage API. 'Note that this will work only in NT and Win2K. Private Const WM_SETTEXT = &HC Private Const WM_GETTEXT = &HD Private Const WM_GETTEXTLENGTH = &HE Private Declare Function SendMessage Lib "user32" _    Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _    ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetWindowTextLength Lib "user32" _    Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Add a multi line textbox to your form. In form_load call this code: Dim lret As Long Dim s As String s = String(9000, "X") Me.Show lRet = SendMessage(txtlarge.hwnd, WM_SETTEXT, 0&, ByVal s) Debug.Print "WM_SETTEXT: " & lRet lRet = SendMessage(txtlarge.hwnd, WM_GETTEXTLENGTH, 0&, ByVal 0&) Debug.Print "WM_GETTEXTLENGTH: " & lRet In form_resize call this code: txtlarge.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

Вобщем BrainStorm поднятый мной на трех форумах сводится примерно к одному и тому же а вкрадце алгоритм таков:

а) Процедура форматирует отедльное слово
б) Считает его длину пользуясь GetTextExtentPoint32() и добавляет его длину к общему счетчику
в) Если значение общего счетчика меньше чем ширина окна переходит к следующему слову и к шагу а)

У меня как то был пример, как можно засунуть в простой ТехtBox столько текста сколько в память влезет, но я сейчас не помню где он
Там система была такая:
Раздробил текст на куски, а потом по чоду листания TextBox, эти куски из массива подставлялись. Работало неплохо, если найду выложу тут.
Добавлено @ 08:40
Ну и тут еще посмотри, может на что-нибудь подтолкнет:
http://forum.vingrad.ru/index.php?showtopic=21760

Цитата

Я поступил бы так: весь текст хранить в виде списка массивов.

Нафига?
Проще хранить весь текст в одном массиве и для поиска начала предыдущей строки пробегать по тексту символа \n - не 3 км же строки длиной.