10.4.2 ListView.ScrollViewChange存在的问题

procedure TPageListDialogFrame.ListView1ScrollViewChange(Sender: TObject);
var
  allheight: real;
begin
  with Sender as TListView do
  begin
    allheight := ScrollViewPos + GetItemRect(ItemCount - 1).Bottom - LocalRect.Height;
    //kbmMWLog.Log.Debug(‘ScrollViewPos=‘+FloatToStr(ScrollViewPos)+‘ allheight=‘+FloatToStr(allheight));
    //升级到10.4.2,allheight有小数=2686.66666，ScrollViewPos=2686，造成不执行pg.nextpage,修改为截取小数后再比较.
    if (trunc(ScrollViewPos) >= Trunc(allheight)) then
    begin
      pq.NextPage;
    end;
  end;
end;