Ok,
habs schon selber rausbekommen.
Die Komponenten zeigt beim scrollen ja so einen Hint an - also diesen Quelltext gesucht und übernommen
Delphi-Quellcode:
with SynEdit1 do begin
Label1.Caption:=inttostr(RowToLine(TopLine));
Label2.Caption:=inttostr(RowToLine(TopLine + Min(LinesInWindow, DisplayLineCount-TopLine)));
end;
Für
wird die
unit benötigt.
Problem gelöst