вот мой код, который добавляет сообщения в текстовое поле richedit:
CHARFORMAT cf;
memset( &cf, 0, sizeof cf );
cf.cbSize = sizeof cf;
cf.dwMask = CFM_COLOR;
if (getuserofmessage(msg) == myname)
cf.crTextColor = RGB(0,0,255);// <----- the color of the text
else if (getuserofmessage(msg) == "admin")
cf.crTextColor = RGB(255,0,0);// <----- the color of the text
else
cf.crTextColor = RGB(55,200,100);// <----- the color of the text
SendMessage( hwnd , EM_SETCHARFORMAT, (LPARAM)SCF_SELECTION, (LPARAM) &cf);
/*SendMessage(hwnd, EM_SETSEL, 0, -1);
SendMessage(hwnd, EM_SETSEL, -1, -1);
SendMessage(hwnd, EM_REPLACESEL, 0, (LPARAM)msg.c_str());*/
CHARRANGE cr;
cr.cpMin = -1;
cr.cpMax = -1;
// hwnd = rich edit hwnd
SendMessage(hwnd, EM_EXSETSEL, 0, (LPARAM)&cr);
SendMessage(hwnd, EM_REPLACESEL, 0, (LPARAM)msg.c_str());
и вот CreateWindow для текстового поля richedit:
hwnd=CreateWindowEx(WS_EX_CLIENTEDGE, RICHEDIT_CLASS, "",
ES_READONLY | WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_MULTILINE | ES_AUTOVSCROLL,
x,
y,
w,
h,
parent,
(HMENU)identifier,
GetModuleHandle(NULL),
NULL);
Но он автоматически не прокручивается вниз, когда сообщения в текстовом поле становятся во многом подходящими для него, заставляя пользователя постоянно прокручивать вниз. Все другие ссылки, стоящие перед этой проблемой, находятся в.NET или С#. Не могу ли я установить курсор на нижнюю часть текстового поля после добавления? или что-то типа того. любая помощь приветствуется. Благодарю.
EDIT: Я попытался добавить:
DWORD TextSize;
TextSize=GetWindowTextLength(hwnd);
SendMessage(hwnd,EM_SETSEL,TextSize,TextSize);
SendMessage(hwnd,EM_SCROLLCARET,0,0);
после моего добавления кода, поскольку это было решением для кого-то другого, но не работало для меня
SendMessage(hwnd, WM_VSCROLL, SB_BOTTOM, 0L);
после того, как текст был вставлен, лучше всего подходит для меня.
Прежде чем вставлять текст,
int start_lines, end_lines; start_lines = SendMessage(hwnd, EM_GETLINECOUNT,0,0);
После ввода текста,
end_lines = SendMessage(hwnd, EM_GETLINECOUNT,0,0); SendMessage(hwnd, EM_LINESCROLL, 0, end_lines - start_lines);
delphi попробуйте это.
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0);