TScrollbar

[axmarq]

Hallo,

ich habe ein Problem mit der TScrollbar Komponente. Ich habe ein Memo mit 7 Zeilen Anzeigengröße. Der Text, der geladen wird, ist aber 18 Zeilen groß. Folgenden Code habe ich nun für das Scrollbar-OnChange-Ereignis hinterlegt:

Delphi-Quellcode:

procedure TForm1.ScrollBar1Change(Sender: TObject);
var s1, i: integer;
begin
s1 := 0;
  for i := 0 to ScrollBar1.Position-1 do
    s1 := s1 + length(Memo1.Lines[i]);
  Memo1.SelStart := s1;
  Memo1.SelLength := 1;
end;

Das scrollen funktioniert, aber nur bis zu Zeile 14. Dann läßt es sich nicht mehr weiter scrollen. Die PageSize der Komponente ist 2.

Könnt Ihr mir sagen, wo der Fehler liegt?

Danke und Gruß,
axmarq