Source position: views.inc line 454
procedure TView.CalcBounds(
var Bounds: TRect;
Delta: TPoint
); virtual;