[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index]

Reference for unit 'Controls' (#lcl)

AdjustBorderSpace

Adjust space round border of this control

Declaration

Source position: line 0

procedure AdjustBorderSpace(

var RemainingClientRect: TRect;

var CurBorderSpace: TRect;

Left: Integer;

Top: Integer;

Right: Integer;

Bottom: Integer

); procedure AdjustBorderSpace(

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.