Текущий архив: 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.45 MB
Время: 0.006 c