Source position: JPL.Rects.pas line 52
procedure AlignRect(
const MainRect: TRect;
var AlignedRect: TRect;
const RectPos: TRectPos
);