Текущий архив: 2003.07.07;
Скачать: CL | DM;
Вниз
Richedit и скролинг Найти похожие ветки
← →
korvet (2003-06-25 09:49) [0]В Тmemo после дабавления строки (LINES.ADD) окно акуратно скролирвало в конец показывая добавленые строки. В RICHEDIT этот приятный момент отсутствует. Подскажите как реализовать подобную операцию в RICHEDIT.
← →
RoadStar © (2003-06-25 09:51) [1]var ScrollMessage:TWMVScroll;
...
ScrollMessage.Msg := WM_VScroll;
ScrollMessage.ScrollCode := SB_ENDSCROLL;
RichEdit.Dispatch(ScrollMessage);
...
← →
korvet (2003-06-25 10:42) [2]В W98 и D3 почемуто не работает !!!!
← →
RoadStar © (2003-06-25 10:51) [3]Странна, но у меня нет возможности проверить на W98...
← →
korvet (2003-06-25 16:11) [4]Пробовал разные способы которые разыскал на форумах
работает только SENDMESSAGE(Richedit1.handle,WM_Vscroll,SB_LINEDOWN,0) на одну строку вниз.
← →
_mandrake_ (2003-06-25 16:25) [5]у меня тоже были схожие траблы. Вылечил так:
procedure TFMain.ScrollDown(REdit:TRichEdit);
var p:tpoint;
VisibleLinesCount, i : integer ;
begin
p:=point(2,REdit.ClientHeight-2);
VisibleLinesCount:=SendMessage(REdit.Handle,EM_LINEFROMCHAR,SendMessage(REdit.Handle,EM_CHARFROMPOS,0,Integer(@p)),0)-SendMessage(REdit.Handle,EM_GETFIRSTVISIBLELINE,0,0);
REdit.Perform(WM_VSCROLL,SB_BOTTOM,0);
for i:=0 to VisibleLinesCount do
REdit.Perform(WM_VSCROLL,SB_LINEUP,0);
end
← →
Sha © (2003-06-25 17:58) [6]
Perform(EM_SETSEL, -1, -1);
Perform(EM_SCROLLCARET, 0, 0);
Страницы: 1 вся ветка
Текущий архив: 2003.07.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
