W jaki spodob zmienić zakres wyswietlanych lini w RichEdi

W jaki spodob zmienić zakres wyswietlanych lini w RichEdit???

maxlenght?

Chodzi o programowe przesunięcie scrolla?

Chodzi o programowe przesunięcie scrolla?

tak :)

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/library/default.asp?url=/library/en-us/shellcc/platform/commctls/scrollbars/aboutscrollbars.asp

thx za pomoc

Problem troche sie zawezil. Dokładnie potrzebuje czegos, co odczyta aktualna pozycje ScrollBara (próbowałam ScrollMessage.Pos ale to wbrew pozorom chyba nie jest od tego) a następnie bedzie się przesuwał o zadną ilość lini w górę lub w dół.

Hej!! Juz rozwiązałam powyzszy problem i w końcu skończyłam program do pracy licencjackiej. Jescze raz thx za pomoc :)

Pozdrawiam