As recommended elsewhere I am using BottomMargin.
Code: Select all
Y := 0;
if RVData is TRvTableCellData then
(RVData as TRvTableCellData).GetOrigin(X, Y);
Y := RVData.GetCheckPointYEx(CPD) + Y;
if Y > (rv.DocumentHeight - ((rv.ClientHeight div 10)*9)) then begin
rv.BottomMargin := ((rv.ClientHeight div 10)*9);
end else begin
rv.BottomMargin := OrgBottomMargin;
end;
//rv.RefreshAll;
//rv.FormatTail;
rv.ScrollTo(Y);