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