下面这两句代码是什么意思？ 多谢

下面这两句代码是什么意思？ 谢谢

Delphi(Pascal) code

  IntersectRect(DstRect, RecRect, ViewRect);  if not EqualRect(DstRect, RecRect) then begin    with frmIFFormDesign.isbForm do begin      HorzScrollBar.Position := RecRect.Left - Floor((ClientWidth  - (RecRect.Right  - RecRect.Left)) / 2);      VertScrollBar.Position := RecRect.Top  - Floor((ClientHeight - (RecRect.Bottom - RecRect.Top))  / 2);    end;  end;

Delphi(Pascal) code

     HorzScrollBar.Position := RecRect.Left - Floor((ClientWidth  - (RecRect.Right  - RecRect.Left)) / 2);     VertScrollBar.Position := RecRect.Top  - Floor((ClientHeight - (RecRect.Bottom - RecRect.Top))  / 2);