Source position: kgraphics.pas line 763
function HorizontalShapePosition(
AAlignment: TKHAlign;
const ABoundary: TRect;
const AShapeSize: TPoint
):Integer;