Tekst » RichEdit

Programowe przewijanie

Jak w temacie
procedure RichEditScroll(top,down:Boolean;delta_lines:Integer; var RE:TRichEdit);
var
  ScrollMessage:TWMVScroll;
  i:Integer;
begin
  ScrollMessage.Msg:=WM_VScroll;
  for i := 1 to delta_lines do
  begin
    if top then
    ScrollMessage.ScrollCode:=sb_LineUp
    else
    if down then
    ScrollMessage.ScrollCode:=sb_LineDown;
    ScrollMessage.Pos:=0;
    RE.Dispatch(ScrollMessage);
  end;
end;

http://msdn.microsoft.com/libr[...]scrollbars/aboutscrollbars.asp

3 komentarze

jozkan 2004-06-10 14:21

ludzie, specjalnie tak zapisałem żeby jak byk stało co jeśli up a co jeśli down

Drajwer 2004-06-10 12:31

scrollmessage.scrollcode:=sb_lineup;
if down then scrollmessage.scrollcode:=sb_linedown; :) pomyslec trza troche, ten kod moglby byc o polowe mniejszy

Wolverine 2004-06-10 08:49

ten boolean moglby byc jeden ;)