Programowe przewijanie

jozkan

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/lib[...]crollbars/aboutscrollbars.asp

3 komentarzy

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

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

ten boolean moglby byc jeden ;)