Unit 'Controls' Package
[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] [#lcl]

AdjustBorderSpace

Adjusts the space around the border for the control.

Declaration

Source position: controls.pp line 2773

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

);

Description

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.