Adjusts the space around the border for the control.
Source position: controls.pp line 2773
procedure AdjustBorderSpace( |
var RemainingClientRect: TRect; |
var CurBorderSpace: TRect; |
Left: Integer; |
Top: Integer; |
Right: Integer; |
Bottom: Integer |
); |
var RemainingClientRect: TRect; |
var CurBorderSpace: TRect; |
const Space: TRect |
); |
RemainingClientRect: remaining clientrect without CurBorderSpace
CurBorderSpace: current borderspace around RemainingClientRect
Left, Top, Right, Bottom: apply these borderspaces to CurBorderSpace
CurBorderSpace will be set to the maximum of CurBorderSpace and Left, Top, Right, Bottom.
RemainingClientRect will shrink.
RemainingClientRect will not shrink to negative size.